عملية البحث في قواعد البيانات -دلفي- مثال بسيط

[طيباوي ابو علي1]

بسم الله الرحمن الرحيم

والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين

الحمد لله نحمده ونستغفره ونعوذ بالله من شرور أنفسنا وسيئات أعمالنا

وأشهد أن لا إله إلا الله وحده لا شريك له وأشهد أن محمدا عبده ورسوله

عملية البحث في قواعد البيانات -دلفي- مثال بسيط

procedure TForm1.Button1Click(Sender: TObject);

begin

Table1.Open;

Table1.Append;

Table1Code.Text := Edit1.Text;

Table1Nom.Value := Edit2.Text;

Table1Prenom.Value := Edit3.Text;

Table1Lui.Value := Edit4.Text;

Table1Date.Value := Edit5.Text;

Table1.Post;

Showmessage('تمت عملية الايظافة بنجاح');

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Table1.Next;

Ajout(Form1);

end;

procedure TForm1.Ajout(Sender: TObject);

begin

Edit1.Text := Table1Code.Text;

Edit2.Text := Table1Nom.Value;

Edit3.Text := Table1Prenom.Value;

Edit4.Text := Table1Lui.Value;

Edit5.Text := Table1Date.Value;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

Table1.Prior;

Ajout(Form1);

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

Edit1.Text := ''; Edit4.Text := '';

Edit2.Text := ''; Edit5.Text := '';

Edit3.Text := '';

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Table1.Open;

Label1.Caption := 'رقم التسجيل';

Label2.Caption := 'الاســـم';

Label3.Caption := 'اللـقـــب';

Label4.Caption := 'مكان الميلاد';

Label5.Caption := 'تاريخ الميلاد';

// Label.Caption := '';

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 := 'الاخير';

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

Table1.Edit;

Table1['Code'] := Edit1.Text;

Table1['Nom'] := Edit2.Text;

Table1['Prenom'] := Edit3.Text;

Table1['Lui'] := Edit4.Text;

Table1['Date'] := Edit5.Text;

Table1.Post;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

Table1.SetKey;

Table1.Fields[0].AsString := Edit1.Text;

if not Table1.GotoKey then

Showmessage('هذا الاسم غير موجود');

Ajout(Form1);

end;

procedure TForm1.Button9Click(Sender: TObject);

begin

Table1.Locate('Nom',Edit2.Text,[LopartialKey]);

Ajout(Form1);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

with Table1 do

begin

EditKey;

FieldByName('Code').AsString := Edit1.Text;

FieldByName('Nom').AsString := Edit2.Text;

GotoKey;

end ;

Ajout(Form1);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Table1.FindNearest([Edit1.Text]);

Ajout(Form1);

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

with Table1 do

begin

SetKey;

FieldByName('Code').AsString := Edit1.text;

FieldByName('Nom').AsString := Edit2.Text;

GotoNearest;

end ;

Ajout(Form1);

end;

procedure TForm1.Button11Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.Button12Click(Sender: TObject);

begin

Form3.Show;

end;

procedure TForm1.Button13Click(Sender: TObject);

begin

Table1.First; Ajout(Form1);

end;

procedure TForm1.Button14Click(Sender: TObject);

begin

Table1.Last; Ajout(Form1);

end;

end.

------------------------------------------------------

الوحدة الثانية

------------------------------------------------------

unit Unit2;

procedure TForm2.FormActivate(Sender: TObject);

begin

Table1.DatabaseName := '';

Table1.TableName := 'Basse1.db';

Table1.Active := True;

Table1.IndexName := '';

end;

procedure TForm2.Edit1Change(Sender: TObject);

begin

Table1.FindNearest([Edit1.Text]);

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

Label1.Caption := 'أدخل رقما من القائمة';

Caption := 'القائمة';

end;

end.

------------------------------------------------------

الوحدة الثالثة

------------------------------------------------------

unit Unit3;

procedure TForm3.FormActivate(Sender: TObject);

begin

Table1.DatabaseName := '';

Table2.DatabaseName := '';

Table1.TableName := 'Basse1.db';

Table2.TableName := 'Basse.db';

Table1.Active := True;

Table2.Active := True;

Table1.IndexName := '';

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

Table1.FindNearest([Edit1.Text]);

Table2.Append;

Table2Code.Text := Table1Code.Text;

Table2Nom.Value := Table1Nom.Value;

Table2Prenom.Value := Table1Prenom.Value;

Table2.Post;

Table1.Delete;

Edit1.Text := '';

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Table2.FindNearest([Edit1.Text]);

Table1.Append;

Table1Code.Text := Table2Code.Text;

Table1Nom.Value := Table2Nom.Value;

Table1Prenom.Value := Table2Prenom.Value;

Table1.Post;

Table2.Delete;

Edit1.Text := '';

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

Button1.Caption := 'نقل من القائمة الاولى الى القائمة الثانية';

Button2.Caption := 'نقل من القائمة الثانية الى الاولى';

Button2.Caption := 'نقل من القائمة الاولى الى القائمة الثانية';

end;

end.

[latrasse]

بارك الله فيك

[بلخير92]

بارك الله فيك

[homs]

مشكوووووووووووووووووووووووور

[zeyyan]

[djemaldj]

بارك الله فيك

[indwilere]

بارك الله فيك

[hannaria]

بارك الله فيك

[milanillo1899]

بارك الله فيك .......................

[zaouiben]

أخي الفاضل بارك الله فيك ممكن تطبيق لهذا العمل أو كود سورس
جزاك الله كل خير

[tech-expert201]

شكرا لك أخى على مجهودك

[طيباوي ابو علي1]

المشاركة الأصلية كتبت بواسطة zaouiben

أخي الفاضل بارك الله فيك ممكن تطبيق لهذا العمل أو كود سورس
جزاك الله كل خير

بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين
سيدنا محمد ابن عبد الله صلى الله عليه وسلم وعلى آله وصحبه أجمعين

عملية البحث في قواعد البيانات -دلفي- مثال بسيط وبحث بطرق مختلفة

المثال عبارة عن مرفق مضغوط :
Rechercher0130

[PORTES_S]

بارك الله فيك أخي الكريم، دمت مشكوراً......

[black_mask2016]

مشكور اخي الكريم موضوع مميز

[طيباوي ابو علي1]

بارك الله فيكم