دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة  mah11 في 13/7/2013, 8:52 pm

بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور أنفسنا وسيئات أعمالنا
وأشهد أن لا إله إلا الله وحده لا شريك له وأشهد أن محمدا عبده ورسوله

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

------------------------------------------------------
المشروع
------------------------------------------------------
الكود:

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

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة  djelal في 29/4/2015, 12:49 am

بارك الله فيك

djelal
مبتدئ في البرمجة

عدد المساهمات : 37
تاريخ التسجيل : 29/04/2015

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة  mah11 في 23/5/2015, 11:13 am

بارك الله فيك

mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة  sdk11 في 13/6/2015, 9:28 am

بارك الله فيك

sdk11
مبرمج مجتهد

عدد المساهمات : 109
تاريخ التسجيل : 19/09/2014

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة  sasa sabrina في 13/6/2015, 2:51 pm

بارك الله فيك

sasa sabrina

عدد المساهمات : 19
تاريخ التسجيل : 26/04/2015

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة  alla في 13/6/2015, 3:20 pm

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

_________________
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

alla
مبرمج مجتهد

عدد المساهمات : 703
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى