عملية البحث في قواعد البيانات -دلفي- مثال بسيط
5 مشترك
صفحة 1 من اصل 1
عملية البحث في قواعد البيانات -دلفي- مثال بسيط
mah11 13/7/2013, 8:52 pm
بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور أنفسنا وسيئات أعمالنا
وأشهد أن لا إله إلا الله وحده لا شريك له وأشهد أن محمدا عبده ورسوله
بحث في قواعد البيانات -دلفي- مثال بسيط
------------------------------------------------------
المشروع
------------------------------------------------------
الوحدة الاولى
------------------------------------------------------
الوحدة الثانية
------------------------------------------------------
الوحدة الثالثة
------------------------------------------------------
منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net
.
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور أنفسنا وسيئات أعمالنا
وأشهد أن لا إله إلا الله وحده لا شريك له وأشهد أن محمدا عبده ورسوله
بحث في قواعد البيانات -دلفي- مثال بسيط
------------------------------------------------------
المشروع
------------------------------------------------------
- الكود:
program Recher; // delph.forumalgerie.net
uses
Forms,
Unit1 in 'Unit1.pas' {Form1}, // delph.forumalgerie.net
Unit2 in 'Unit2.pas' {Form2}, // delph.forumalgerie.net
Unit3 in 'Unit3.pas' {Form3}; // delph.forumalgerie.net
{$R *.RES} // delph.forumalgerie.net
begin
Application.Initialize; // delph.forumalgerie.net
Application.CreateForm(TForm1, Form1); // delph.forumalgerie.net
Application.CreateForm(TForm2, Form2); // delph.forumalgerie.net
Application.CreateForm(TForm3, Form3); // delph.forumalgerie.net
Application.Run; // delph.forumalgerie.net
end. // delph.forumalgerie.net
الوحدة الاولى
------------------------------------------------------
- الكود:
unit Unit1; // delph.forumalgerie.net
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, // delph.forumalgerie.netDialogs,
Buttons, StdCtrls, Db, DBTables, Grids, DBGrids; // delph.forumalgerie.net
type
TForm1 = class(TForm) // delph.forumalgerie.net
Table1: TTable; // delph.forumalgerie.net
Edit1: TEdit; // delph.forumalgerie.net
Edit2: TEdit; // delph.forumalgerie.net
Edit3: TEdit; // delph.forumalgerie.net
Button1: TButton; // delph.forumalgerie.net
Button2: TButton; // delph.forumalgerie.net
Button3: TButton; // delph.forumalgerie.net
BitBtn1: TBitBtn; // delph.forumalgerie.net
Label1: TLabel; // delph.forumalgerie.net
Label2: TLabel; // delph.forumalgerie.net
Label3: TLabel; // delph.forumalgerie.net
Button4: TButton; // delph.forumalgerie.net
Button5: TButton; // delph.forumalgerie.net
DataSource1: TDataSource; // delph.forumalgerie.net
DBGrid1: TDBGrid; // delph.forumalgerie.net
Button6: TButton; // delph.forumalgerie.net
Button7: TButton; // delph.forumalgerie.net
Button8: TButton; // delph.forumalgerie.net
Button9: TButton; // delph.forumalgerie.net
Edit4: TEdit; // delph.forumalgerie.net
Edit5: TEdit; // delph.forumalgerie.net
Table1Code: TFloatField; // delph.forumalgerie.net
Table1Nom: TStringField; // delph.forumalgerie.net
Table1Prenom: TStringField; // delph.forumalgerie.net
Table1Lui: TStringField; // delph.forumalgerie.net
Table1Date: TStringField; // delph.forumalgerie.net
Label4: TLabel; // delph.forumalgerie.net
Label5: TLabel; // delph.forumalgerie.net
Button10: TButton; // delph.forumalgerie.net
Button11: TButton; // delph.forumalgerie.net
Button12: TButton; // delph.forumalgerie.net
Button13: TButton; // delph.forumalgerie.net
Button14: TButton; // delph.forumalgerie.net
procedure Button1Click(Sender: TObject); // delph.forumalgerie.net
procedure Button2Click(Sender: TObject); // delph.forumalgerie.net
procedure Ajout(Sender: TObject); // delph.forumalgerie.net
procedure Button4Click(Sender: TObject); // delph.forumalgerie.net
procedure Button7Click(Sender: TObject); // delph.forumalgerie.net
procedure FormCreate(Sender: TObject); // delph.forumalgerie.net
procedure Button8Click(Sender: TObject); // delph.forumalgerie.net
procedure Button6Click(Sender: TObject); // delph.forumalgerie.net
procedure Button9Click(Sender: TObject); // delph.forumalgerie.net
procedure Button5Click(Sender: TObject); // delph.forumalgerie.net
procedure Button3Click(Sender: TObject); // delph.forumalgerie.net
procedure Button10Click(Sender: TObject); // delph.forumalgerie.net
procedure Button11Click(Sender: TObject); // delph.forumalgerie.net
procedure Button12Click(Sender: TObject); // delph.forumalgerie.net
procedure Button13Click(Sender: TObject); // delph.forumalgerie.net
procedure Button14Click(Sender: TObject); // delph.forumalgerie.net
private public
end; // delph.forumalgerie.net
var
Form1: TForm1; // delph.forumalgerie.net
implementation
uses Unit2, Unit3; // delph.forumalgerie.net
{$R *.DFM} // delph.forumalgerie.net
procedure TForm1.Button1Click(Sender: TObject); // delph.forumalgerie.net
begin
Table1.Open; // delph.forumalgerie.net
Table1.Append; // delph.forumalgerie.net
Table1Code.Text := Edit1.Text; // delph.forumalgerie.net
Table1Nom.Value := Edit2.Text; // delph.forumalgerie.net
Table1Prenom.Value := Edit3.Text; // delph.forumalgerie.net
Table1Lui.Value := Edit4.Text; // delph.forumalgerie.net
Table1Date.Value := Edit5.Text; // delph.forumalgerie.net
Table1.Post; // delph.forumalgerie.net
Showmessage('تمت عملية الايظافة بنجاح'); // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm1.Button2Click(Sender: TObject); // delph.forumalgerie.net
begin
Table1.Next; // delph.forumalgerie.net
Ajout(Form1); // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm1.Ajout(Sender: TObject); // delph.forumalgerie.net
begin
Edit1.Text := Table1Code.Text; // delph.forumalgerie.net
Edit2.Text := Table1Nom.Value; // delph.forumalgerie.net
Edit3.Text := Table1Prenom.Value; // delph.forumalgerie.net
Edit4.Text := Table1Lui.Value; // delph.forumalgerie.net
Edit5.Text := Table1Date.Value; // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm1.Button4Click(Sender: TObject); // delph.forumalgerie.net
begin
Table1.Prior; // delph.forumalgerie.net
Ajout(Form1); // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm1.Button7Click(Sender: TObject); // delph.forumalgerie.net
begin
Edit1.Text := ''; Edit4.Text := ''; // delph.forumalgerie.net
Edit2.Text := ''; Edit5.Text := ''; // delph.forumalgerie.net
Edit3.Text := ''; // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm1.FormCreate(Sender: TObject); // delph.forumalgerie.net
begin
Table1.Open; // delph.forumalgerie.net
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; // delph.forumalgerie.net
procedure TForm1.Button8Click(Sender: TObject); // delph.forumalgerie.net
begin
Table1.Edit; // delph.forumalgerie.net
Table1['Code'] := Edit1.Text; // delph.forumalgerie.net
Table1['Nom'] := Edit2.Text; // delph.forumalgerie.net
Table1['Prenom'] := Edit3.Text; // delph.forumalgerie.net
Table1['Lui'] := Edit4.Text; // delph.forumalgerie.net
Table1['Date'] := Edit5.Text; // delph.forumalgerie.net
Table1.Post; // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm1.Button6Click(Sender: TObject); // delph.forumalgerie.net
begin
Table1.SetKey; // delph.forumalgerie.net
Table1.Fields[0].AsString := Edit1.Text; // delph.forumalgerie.net
if not Table1.GotoKey then
Showmessage('هذا الاسم غير موجود'); // delph.forumalgerie.net
Ajout(Form1); // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm1.Button9Click(Sender: TObject); // delph.forumalgerie.net
begin
Table1.Locate('Nom',Edit2.Text,[LopartialKey]); // delph.forumalgerie.net
Ajout(Form1); // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm1.Button5Click(Sender: TObject); // delph.forumalgerie.net
begin
with Table1 do
begin
EditKey; // delph.forumalgerie.net
FieldByName('Code').AsString := Edit1.Text; // delph.forumalgerie.net
FieldByName('Nom').AsString := Edit2.Text; // delph.forumalgerie.net
GotoKey; // delph.forumalgerie.net
end ; // delph.forumalgerie.net
Ajout(Form1); // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm1.Button3Click(Sender: TObject); // delph.forumalgerie.net
begin
Table1.FindNearest([Edit1.Text]); // delph.forumalgerie.net
Ajout(Form1); // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm1.Button10Click(Sender: TObject); // delph.forumalgerie.net
begin
with Table1 do
begin
SetKey; // delph.forumalgerie.net
FieldByName('Code').AsString := Edit1.text; // delph.forumalgerie.net
FieldByName('Nom').AsString := Edit2.Text; // delph.forumalgerie.net
GotoNearest; // delph.forumalgerie.net
end ; // delph.forumalgerie.net
Ajout(Form1); // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm1.Button11Click(Sender: TObject); // delph.forumalgerie.net
begin
Form2.Show; // delph.forumalgerie.net
end;
procedure TForm1.Button12Click(Sender: TObject); // delph.forumalgerie.net
begin
Form3.Show; // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm1.Button13Click(Sender: TObject); // delph.forumalgerie.net
begin
Table1.First; Ajout(Form1); // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm1.Button14Click(Sender: TObject); // delph.forumalgerie.net
begin
Table1.Last; Ajout(Form1); // delph.forumalgerie.net
end; // delph.forumalgerie.net
end.
الوحدة الثانية
------------------------------------------------------
- الكود:
unit Unit2; // delph.forumalgerie.net
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, // delph.forumalgerie.net Dialogs,
Db, DBTables, Grids, DBGrids, StdCtrls, Buttons; // delph.forumalgerie.net
type
TForm2 = class(TForm) // delph.forumalgerie.net
Table1: TTable; // delph.forumalgerie.net
DataSource1: TDataSource; // delph.forumalgerie.net
DBGrid1: TDBGrid; // delph.forumalgerie.net
BitBtn1: TBitBtn; // delph.forumalgerie.net
Edit1: TEdit; // delph.forumalgerie.net
Label1: TLabel; // delph.forumalgerie.net
procedure FormActivate(Sender: TObject); // delph.forumalgerie.net
procedure Edit1Change(Sender: TObject); // delph.forumalgerie.net
procedure FormCreate(Sender: TObject); // delph.forumalgerie.net
private
{ Déclarations privées } // delph.forumalgerie.net
public
{ Déclarations publiques } // delph.forumalgerie.net
end; // delph.forumalgerie.net
var
Form2: TForm2; // delph.forumalgerie.net
implementation
{$R *.DFM} // delph.forumalgerie.net
procedure TForm2.FormActivate(Sender: TObject); // delph.forumalgerie.net
begin
Table1.DatabaseName := ''; // delph.forumalgerie.net
Table1.TableName := 'Basse1.db'; // delph.forumalgerie.net
Table1.Active := True; // delph.forumalgerie.net
Table1.IndexName := ''; // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm2.Edit1Change(Sender: TObject); // delph.forumalgerie.net
begin
Table1.FindNearest([Edit1.Text]); // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm2.FormCreate(Sender: TObject); // delph.forumalgerie.net
begin
Label1.Caption := 'أدخل رقما من القائمة'; // delph.forumalgerie.net
Caption := 'القائمة'; // delph.forumalgerie.net
end; // delph.forumalgerie.net
end. // delph.forumalgerie.net
الوحدة الثالثة
------------------------------------------------------
- الكود:
unit Unit3; // delph.forumalgerie.net
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, // delph.forumalgerie.netDialogs,
StdCtrls, Buttons, Grids, DBGrids, Db, DBTables; // delph.forumalgerie.net
type
TForm3 = class(TForm)
Table1: TTable; // delph.forumalgerie.net
DataSource1: TDataSource; // delph.forumalgerie.net
Table2: TTable; // delph.forumalgerie.net
DataSource2: TDataSource; // delph.forumalgerie.net
DBGrid1: TDBGrid; // delph.forumalgerie.net
DBGrid2: TDBGrid; // delph.forumalgerie.net
BitBtn1: TBitBtn; // delph.forumalgerie.net
Button1: TButton; // delph.forumalgerie.net
Edit1: TEdit; // delph.forumalgerie.net
Button2: TButton; // delph.forumalgerie.net
Table1Code: TFloatField; // delph.forumalgerie.net
Table1Nom: TStringField; // delph.forumalgerie.net
Table1Prenom: TStringField; // delph.forumalgerie.net
Table2Code: TFloatField; // delph.forumalgerie.net
Table2Nom: TStringField; // delph.forumalgerie.net
Table2Prenom: TStringField; // delph.forumalgerie.net
procedure FormActivate(Sender: TObject); // delph.forumalgerie.net
procedure Button1Click(Sender: TObject); // delph.forumalgerie.net
procedure Button2Click(Sender: TObject); // delph.forumalgerie.net
procedure FormCreate(Sender: TObject); // delph.forumalgerie.net
private
{ Déclarations privées } // delph.forumalgerie.net
public
{ Déclarations publiques } // delph.forumalgerie.net
end; // delph.forumalgerie.net
var
Form3: TForm3; // delph.forumalgerie.net
implementation
{$R *.DFM} // delph.forumalgerie.net
procedure TForm3.FormActivate(Sender: TObject); // delph.forumalgerie.net
begin
Table1.DatabaseName := ''; // delph.forumalgerie.net
Table2.DatabaseName := ''; // delph.forumalgerie.net
Table1.TableName := 'Basse1.db'; // delph.forumalgerie.net
Table2.TableName := 'Basse.db'; // delph.forumalgerie.net
Table1.Active := True; // delph.forumalgerie.net
Table2.Active := True; // delph.forumalgerie.net
Table1.IndexName := ''; // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm3.Button1Click(Sender: TObject); // delph.forumalgerie.net
begin
Table1.FindNearest([Edit1.Text]); // delph.forumalgerie.net
Table2.Append; // delph.forumalgerie.net
Table2Code.Text := Table1Code.Text; // delph.forumalgerie.net
Table2Nom.Value := Table1Nom.Value; // delph.forumalgerie.net
Table2Prenom.Value := Table1Prenom.Value; // delph.forumalgerie.net
Table2.Post; // delph.forumalgerie.net
Table1.Delete; // delph.forumalgerie.net
Edit1.Text := ''; // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm3.Button2Click(Sender: TObject); // delph.forumalgerie.net
begin
Table2.FindNearest([Edit1.Text]); // delph.forumalgerie.net
Table1.Append; // delph.forumalgerie.net
Table1Code.Text := Table2Code.Text; // delph.forumalgerie.net
Table1Nom.Value := Table2Nom.Value; // delph.forumalgerie.net
Table1Prenom.Value := Table2Prenom.Value; // delph.forumalgerie.net
Table1.Post; // delph.forumalgerie.net
Table2.Delete; // delph.forumalgerie.net
Edit1.Text := ''; // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm3.FormCreate(Sender: TObject); // delph.forumalgerie.net
begin
Button1.Caption := 'نقل من القائمة الاولى الى القائمة الثانية'; // delph.forumalgerie.net
Button2.Caption := 'نقل من القائمة الثانية الى الاولى'; // delph.forumalgerie.net
Button2.Caption := 'نقل من القائمة الاولى الى القائمة الثانية'; // delph.forumalgerie.net
end; // delph.forumalgerie.net
end. // delph.forumalgerie.net
منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net
.
عدل سابقا من قبل mah11 في 23/5/2015, 11:11 am عدل 2 مرات (السبب : تصحيح بعض المعلومات)
mah11- Admin
- عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013 -
djelal- مبرمج مجتهد
- عدد المساهمات : 157
تاريخ التسجيل : 29/04/2015
mah11- Admin
- عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013 -
sdk11- مبرمج مجتهد
- عدد المساهمات : 108
تاريخ التسجيل : 19/09/2014
sasa sabrina- عدد المساهمات : 19
تاريخ التسجيل : 26/04/2015
ali- مبرمج مجتهد
- عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013
مواضيع مماثلة» مثال بسيط لتوضيح كيف تعمل خاصية
» مثال بسيط لتوضيج مفهوم الورثة في سي شارب c#
» قواعد البيانات من نوع ديباز تابعة للدلفي خمسة
» قواعد البيانات من نوع بارادوكس 7 تابعة للدلفي خمسة
» استعمال DbConnectionStringBuilder في قواعد البيانات
» مثال بسيط لتوضيج مفهوم الورثة في سي شارب c#
» قواعد البيانات من نوع ديباز تابعة للدلفي خمسة
» قواعد البيانات من نوع بارادوكس 7 تابعة للدلفي خمسة
» استعمال DbConnectionStringBuilder في قواعد البيانات
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى