عملية البحث في قواعد البيانات -دلفي- مثال بسيط - منتديات الجلفة لكل الجزائريين و العرب

العودة   منتديات الجلفة لكل الجزائريين و العرب > منتديات التقنية > منتدى البرمجة

منتدى البرمجة كل ما يتعلق بلغات البرمجة، فيجوال بيسيك , سي ++ , دلفي , أكسيس , جافا , هتمل...

في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة تقرير عن مشاركة سيئة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .

آخر المواضيع

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

إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
قديم 2013-07-14, 18:04   رقم المشاركة : 1
معلومات العضو
طيباوي ابو علي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.








 


رد مع اقتباس
قديم 2013-07-15, 11:31   رقم المشاركة : 2
معلومات العضو
latrasse
عضو نشيط
 
إحصائية العضو










افتراضي

بارك الله فيك










رد مع اقتباس
قديم 2013-07-25, 06:42   رقم المشاركة : 3
معلومات العضو
بلخير92
عضو مشارك
 
إحصائية العضو










افتراضي

بارك الله فيك










رد مع اقتباس
قديم 2013-08-09, 09:56   رقم المشاركة : 4
معلومات العضو
homs
عضو جديد
 
إحصائية العضو










افتراضي

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










رد مع اقتباس
قديم 2013-11-18, 11:57   رقم المشاركة : 5
معلومات العضو
zeyyan
عضو مميّز
 
الصورة الرمزية zeyyan
 

 

 
إحصائية العضو










افتراضي










رد مع اقتباس
قديم 2013-11-20, 14:33   رقم المشاركة : 6
معلومات العضو
djemaldj
عضو نشيط
 
إحصائية العضو










افتراضي

بارك الله فيك










رد مع اقتباس
قديم 2013-11-21, 11:38   رقم المشاركة : 7
معلومات العضو
indwilere
عضو مبـدع
 
إحصائية العضو










افتراضي

بارك الله فيك










رد مع اقتباس
قديم 2013-11-27, 22:01   رقم المشاركة : 8
معلومات العضو
hannaria
عضو مجتهـد
 
إحصائية العضو










افتراضي

بارك الله فيك










رد مع اقتباس
قديم 2013-11-28, 14:00   رقم المشاركة : 9
معلومات العضو
milanillo1899
عضو جديد
 
إحصائية العضو










افتراضي

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










رد مع اقتباس
قديم 2016-06-04, 10:02   رقم المشاركة : 10
معلومات العضو
zaouiben
عضو جديد
 
إحصائية العضو










افتراضي

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










رد مع اقتباس
قديم 2016-06-06, 02:30   رقم المشاركة : 11
معلومات العضو
tech-expert201
عضو جديد
 
إحصائية العضو










افتراضي

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










رد مع اقتباس
قديم 2016-06-06, 18:34   رقم المشاركة : 12
معلومات العضو
طيباوي ابو علي1
عضو نشيط
 
إحصائية العضو










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

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



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

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

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








الملفات المرفقة
نوع الملف: zip Rechercher.zip‏ (7.9 كيلوبايت, المشاهدات 43)

رد مع اقتباس
قديم 2016-06-06, 18:43   رقم المشاركة : 13
معلومات العضو
PORTES_S
عضو جديد
 
الصورة الرمزية PORTES_S
 

 

 
إحصائية العضو









افتراضي

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










رد مع اقتباس
قديم 2016-06-14, 00:57   رقم المشاركة : 14
معلومات العضو
black_mask2016
عضو جديد
 
إحصائية العضو










افتراضي

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










رد مع اقتباس
قديم 2016-09-10, 09:55   رقم المشاركة : 15
معلومات العضو
طيباوي ابو علي1
عضو نشيط
 
إحصائية العضو










افتراضي

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










رد مع اقتباس
إضافة رد

الكلمات الدلالية (Tags)
-دلفي-, مثال, امتحانات, البيت, بسيط, علمية, قواعد

أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

الساعة الآن 17:05

المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية


2006-2023 © www.djelfa.info جميع الحقوق محفوظة - الجلفة إنفو (خ. ب. س)

Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc