ادراج DBCombobox.Items من خلال Edit.Text - نسخة قابلة للطباعة

ادراج DBCombobox.Items من خلال Edit.Text - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ادراج DBCombobox.Items من خلال Edit.Text (/showthread.php?tid=11467)

ادراج DBCombobox.Items من خلال Edit.Text - aljathmi - 16-08-2021

السلام عليكم ورحمة الله وبركاته

السؤال كيف نمنع من تكرار ادراج ;DBComboBox1.Items.Add(Edit1.Text)

الكود:

كود :
;procedure TForm2.Button1Click(Sender: TObject)
begin
;Form1.DBComboBox1.Items.Add(Edit1.Text) 

;end

مجلد جديد (4).rar (الحجم : 5.88 ك ب / التحميلات : 27)

RE: ادراج DBCombobox.Items من خلال Edit.Text - larbiparadox - 16-08-2021

كود :
if Edit1.Text <> '' then begin

    if Form1.DBComboBox1.Items.IndexOf (Edit1.Text) = -1 then begin

      Form1.DBComboBox1.Items.Add (Edit1.Text);

    end else begin

      ShowMessage('Not Add');
      Edit1.text:='';
      Edit1.SetFocus;

    end;

end;

RE: ادراج DBCombobox.Items من خلال Edit.Text - aljathmi - 17-08-2021

الف شكر لك أخي larbiparadox الله يحفظك ويزيدك من العلم والفضل ومن يقرأ.

لو بغير اسم عنوان الرسالة project الى Add Items .....؟

RE: ادراج DBCombobox.Items من خلال Edit.Text - larbiparadox - 17-08-2021

كود :
application.messagebox('Not Add','Add Items');

RE: ادراج DBCombobox.Items من خلال Edit.Text - aljathmi - 17-08-2021

ياشيخ الله يسعدك..

بس باقي الحفظ بمجرد اغلاق التطبيق ينحذف كل شيء.

RE: ادراج DBCombobox.Items من خلال Edit.Text - larbiparadox - 17-08-2021

(17-08-2021, 03:46 PM)aljathmi كتب : ياشيخ الله يسعدك..

بس باقي الحفظ بمجرد اغلاق التطبيق ينحذف كل شيء.

في الفورم الاول في خصائص الاحداث نضع الكون على حسب ما هو مرقم

[صورة: 274005284.jpg]

في رقم 1 نضع الكود التالي

كود :
var
File_Path: string;
  File_Path:= ExtractFilePath(Application.EXEName)+'MyItems.txt';

  if FileExists(File_Path) then begin
    DeleteFile(File_Path);
    DBComboBox1.Items.SaveToFile(File_Path);
  end else begin
    DBComboBox1.Items.SaveToFile(File_Path);
  end;

في هذا الكود صرحنا بمتغير إسمه File_Path من نوع نص يعطينا مسار الملف التنفيذي للمثال و أضفنا له اسم ملف النصي MyItems.txt

وبعدها قمنا بفحص هذا الملف إذا كان موجود في المسار يقوم بحذفه بواسطة الدالة DeleteFile و بعدها يحفظه على شكل ملف نصي بجانب الملف التنفيذي
و العكس اذا لم يكن موجود يحفظه مباشرة ، وهذا كله عند غلق البرنامج

في رقم 2 نضع الكود التالي

كود :
var
File_Path: string;
  File_Path:= ExtractFilePath(Application.EXEName)+'MyItems.txt';

  if FileExists(File_Path) then begin

    DBComboBox1.Items.LoadFromFile(File_Path);

  end;

في هذا الكود كما ذكرنا سابقا صرحنا بمتغير إسمه File_Path من نوع نص يعطينا مسار الملف التنفيذي للمثال و أضفنا له اسم ملف النصي MyItems.txt

و بعدها يتحقق اذا وجد الملف يجلب البيانات اذا لم يجد الملف النصي لا يجلب شيء

ملاحظة : اذا كانت لديك قاعدة بيانات يمكنك يمكنك جلب القائمة من الجدول بواسطة المكون DBLookupCombo بهذا المكون يمكنك ربطه بجدولين واحد خاص بالحفظ و الثاني خاص بالقائمة

[صورة: 954137209.jpg]