والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور أنفسنا وسيئات أعمالنا
وأشهد أن لا إله إلا الله وحده لا شريك له وأشهد أن محمدا عبده ورسوله
عملية البحث في قواعد البيانات -دلفي- مثال بسيط
procedure TForm1.Button1Click(Sender: TObject);
Table1Code.Text := Edit1.Text;
Table1Nom.Value := Edit2.Text;
Table1Prenom.Value := Edit3.Text;
Table1Lui.Value := Edit4.Text;
Table1Date.Value := Edit5.Text;
Showmessage('تمت عملية الايظافة بنجاح');
procedure TForm1.Button2Click(Sender: TObject);
procedure TForm1.Ajout(Sender: TObject);
Edit1.Text := Table1Code.Text;
Edit2.Text := Table1Nom.Value;
Edit3.Text := Table1Prenom.Value;
Edit4.Text := Table1Lui.Value;
Edit5.Text := Table1Date.Value;
procedure TForm1.Button4Click(Sender: TObject);
procedure TForm1.Button7Click(Sender: TObject);
Edit1.Text := ''; Edit4.Text := '';
Edit2.Text := ''; Edit5.Text := '';
procedure TForm1.FormCreate(Sender: TObject);
Label1.Caption := 'رقم التسجيل';
Label2.Caption := 'الاســـم';
Label3.Caption := 'اللـقـــب';
Label4.Caption := 'مكان الميلاد';
Label5.Caption := 'تاريخ الميلاد';
Button1.Caption := 'إيظافة';
Button2.Caption := 'الـتالي';
Button3.Caption := 'بحث بالرقم';
Button4.Caption := 'السابق';
Button5.Caption := 'بحث باسم ورقم';
Button6.Caption := 'بحث';
Button7.Caption := 'مـــســـح';
Button8.Caption := 'تصحيح';
Button9.Caption := 'بحث بالاسم';
Button10.Caption := 'بحث';
Button11.Caption := 'مــــــــثال 2';
Button12.Caption := 'مـــــثال 3';
BitBtn1.Caption := '&خـــروج';
Button13.Caption := 'الاول';
Button14.Caption := 'الاخير';
procedure TForm1.Button8Click(Sender: TObject);
Table1['Code'] := Edit1.Text;
Table1['Nom'] := Edit2.Text;
Table1['Prenom'] := Edit3.Text;
Table1['Lui'] := Edit4.Text;
Table1['Date'] := Edit5.Text;
procedure TForm1.Button6Click(Sender: TObject);
Table1.Fields[0].AsString := Edit1.Text;
if not Table1.GotoKey then
Showmessage('هذا الاسم غير موجود');
procedure TForm1.Button9Click(Sender: TObject);
Table1.Locate('Nom',Edit2.Text,[LopartialKey]);
procedure TForm1.Button5Click(Sender: TObject);
FieldByName('Code').AsString := Edit1.Text;
FieldByName('Nom').AsString := Edit2.Text;
procedure TForm1.Button3Click(Sender: TObject);
Table1.FindNearest([Edit1.Text]);
procedure TForm1.Button10Click(Sender: TObject);
FieldByName('Code').AsString := Edit1.text;
FieldByName('Nom').AsString := Edit2.Text;
procedure TForm1.Button11Click(Sender: TObject);
procedure TForm1.Button12Click(Sender: TObject);
procedure TForm1.Button13Click(Sender: TObject);
Table1.First; Ajout(Form1);
procedure TForm1.Button14Click(Sender: TObject);
Table1.Last; Ajout(Form1);
------------------------------------------------------
------------------------------------------------------
procedure TForm2.FormActivate(Sender: TObject);
Table1.DatabaseName := '';
Table1.TableName := 'Basse1.db';
procedure TForm2.Edit1Change(Sender: TObject);
Table1.FindNearest([Edit1.Text]);
procedure TForm2.FormCreate(Sender: TObject);
Label1.Caption := 'أدخل رقما من القائمة';
------------------------------------------------------
------------------------------------------------------
procedure TForm3.FormActivate(Sender: TObject);
Table1.DatabaseName := '';
Table2.DatabaseName := '';
Table1.TableName := 'Basse1.db';
Table2.TableName := 'Basse.db';
procedure TForm3.Button1Click(Sender: TObject);
Table1.FindNearest([Edit1.Text]);
Table2Code.Text := Table1Code.Text;
Table2Nom.Value := Table1Nom.Value;
Table2Prenom.Value := Table1Prenom.Value;
procedure TForm3.Button2Click(Sender: TObject);
Table2.FindNearest([Edit1.Text]);
Table1Code.Text := Table2Code.Text;
Table1Nom.Value := Table2Nom.Value;
Table1Prenom.Value := Table2Prenom.Value;
procedure TForm3.FormCreate(Sender: TObject);
Button1.Caption := 'نقل من القائمة الاولى الى القائمة الثانية';
Button2.Caption := 'نقل من القائمة الثانية الى الاولى';
Button2.Caption := 'نقل من القائمة الاولى الى القائمة الثانية';