عملية تسجيل في جدول قاعدة بيانات دلفي
+2
sad13
mah11
6 مشترك
صفحة 1 من اصل 1
عملية تسجيل في جدول قاعدة بيانات دلفي
mah11 14/7/2013, 7:57 pm
بسم الله الرحمن الرحيم
الحمد لله رب العالمين والصلاة السلام على رسول الله
السلام عليكم ورحمة الله
عملية تسجيل في جدول قاعدة بيانات دلفي
منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net
.
الحمد لله رب العالمين والصلاة السلام على رسول الله
السلام عليكم ورحمة الله
عملية تسجيل في جدول قاعدة بيانات دلفي
- الكود:
unit Unit2; // delph.forumalgerie.net
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, // delph.forumalgerie.net Dialogs, // delph.forumalgerie.net
ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables, StdCtrls, ComCtrls, jpeg; // 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
Label1: TLabel; // delph.forumalgerie.net
Edit1: TEdit; // delph.forumalgerie.net
Button1: TButton; // delph.forumalgerie.net
Button2: TButton; // delph.forumalgerie.net
StatusBar1: TStatusBar; // delph.forumalgerie.net
Button3: TButton; // delph.forumalgerie.net
Edit2: TEdit; // delph.forumalgerie.net
Edit3: TEdit; // delph.forumalgerie.net
Edit4: TEdit; // delph.forumalgerie.net
Edit5: TEdit; // delph.forumalgerie.net
Edit6: TEdit; // delph.forumalgerie.net
Edit7: TEdit; // delph.forumalgerie.net
Edit8: TEdit; // delph.forumalgerie.net
Memo1: TMemo; // delph.forumalgerie.net
Image1: TImage; // delph.forumalgerie.net
Label2: TLabel; // delph.forumalgerie.net
Label3: TLabel; // delph.forumalgerie.net
Label4: TLabel; // delph.forumalgerie.net
Label5: TLabel; // delph.forumalgerie.net
Label6: TLabel; // delph.forumalgerie.net
Label7: TLabel; // delph.forumalgerie.net
Label8: TLabel; // delph.forumalgerie.net
Label9: TLabel; // delph.forumalgerie.net
Label10: TLabel; // delph.forumalgerie.net
Label11: TLabel; // delph.forumalgerie.net
DBMemo1: TDBMemo; // delph.forumalgerie.net
DBImage1: TDBImage; // delph.forumalgerie.net
Table1Num_br: TFloatField; // delph.forumalgerie.net
Table1Nom: TStringField; // delph.forumalgerie.net
Table1Prenom: TStringField; // delph.forumalgerie.net
Table1Date_naiss: TDateField; // delph.forumalgerie.net
Table1Lui_naiss: TStringField; // delph.forumalgerie.net
Table1Address: TStringField; // delph.forumalgerie.net
Table1Num_P: TFloatField; // delph.forumalgerie.net
Table1Memo01: TMemoField; // delph.forumalgerie.net
Table1Image01: TGraphicField; // delph.forumalgerie.net
Edit9: TEdit; // delph.forumalgerie.net
DBNavigator1: TDBNavigator; // delph.forumalgerie.net
procedure Button1Click(Sender: TObject); // delph.forumalgerie.net
procedure Button2Click(Sender: TObject); // delph.forumalgerie.net
procedure Table1AfterOpen(DataSet: TDataSet); // delph.forumalgerie.net
procedure Table1AfterDelete(DataSet: TDataSet); // delph.forumalgerie.net
procedure Table1AfterEdit(DataSet: TDataSet); // delph.forumalgerie.net
procedure Table1AfterInsert(DataSet: TDataSet); // delph.forumalgerie.net
procedure Table1AfterCancel(DataSet: TDataSet); // delph.forumalgerie.net
procedure Table1AfterPost(DataSet: TDataSet); // delph.forumalgerie.net
procedure Table1AfterRefresh(DataSet: TDataSet); // delph.forumalgerie.net
procedure Table1BeforeClose(DataSet: TDataSet); // delph.forumalgerie.net
procedure Table1BeforeInsert(DataSet: TDataSet); // delph.forumalgerie.net
procedure Button3Click(Sender: TObject); // delph.forumalgerie.net
procedure FormCreate(Sender: TObject); // delph.forumalgerie.net
procedure Table1BeforePost(DataSet: TDataSet); // delph.forumalgerie.net
private
public
end; // delph.forumalgerie.net
var
Form2: TForm2; // delph.forumalgerie.net
implementation
{$R *.DFM} // delph.forumalgerie.net
Procedure Effacer; // delph.forumalgerie.net
begin
Form2.Edit1.Text := ''; Form2.Edit2.Text := ''; // delph.forumalgerie.net
Form2.Edit3.Text := ''; Form2.Edit4.Text := ''; // delph.forumalgerie.net
Form2.Edit5.Text := ''; Form2.Edit6.Text := ''; // delph.forumalgerie.net
Form2.Edit7.Text := ''; Form2.Edit8.Text := ''; // delph.forumalgerie.net
Form2.Edit9.Text := '
اسم الصورة
'
; // delph.forumalgerie.net
Form2.Memo1.Lines.Clear; // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm2.Button1Click(Sender: TObject); // delph.forumalgerie.net
begin
// Table1.Locate('Nom', Edit1.Text, []); // delph.forumalgerie.net
if not Table1.FindKey([Edit1.Text])then
ShowMessage('
هذا الاسم غير موجود
');
// Table1.FindNearest([Edit1.Text]);
// Table1.FieldByName(Edit1.Text);
// if Table1['Nom'] = Edit1.Text then ShowMessage('
هذا الاسم موجود
');
end; // delph.forumalgerie.net
procedure TForm2.Button2Click(Sender: TObject); // delph.forumalgerie.net
begin
caption := intToStr(Table1.IndexFieldCount); // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm2.Table1AfterOpen(DataSet: TDataSet); // delph.forumalgerie.net
begin
StatusBar1.SimpleText := 'Enregistrement ' +
IntToStr(Table1.RecNo) + 'sur ' + IntToStr(Table1.RecordCount)
;
end; // delph.forumalgerie.net
procedure TForm2.Table1AfterDelete(DataSet: TDataSet); // delph.forumalgerie.net
begin
StatusBar1.SimpleText := Format('%d enregistrements dans la table',
[DataSet.RecordCount])
;
end; // delph.forumalgerie.net
procedure TForm2.Table1AfterEdit(DataSet: TDataSet); // delph.forumalgerie.net
begin
StatusBar1.SimpleText := 'Modification de l''enregistrement
'
;
end; // delph.forumalgerie.net
procedure TForm2.Table1AfterInsert(DataSet: TDataSet); // delph.forumalgerie.net
begin
StatusBar1.SimpleText := 'Insertion d"un nouvel enregistrement'; // delph.forumalgerie.net
end;
procedure TForm2.Table1AfterCancel(DataSet: TDataSet);
begin
StatusBar1.SimpleText := 'Modifications d''enregistrement annulées ';
end; // delph.forumalgerie.net
procedure TForm2.Table1AfterPost(DataSet: TDataSet); // delph.forumalgerie.net
begin
StatusBar1.SimpleText := 'Modifications d''enregistrement achevées'; // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm2.Table1AfterRefresh(DataSet: TDataSet); // delph.forumalgerie.net
begin
StatusBar1.SimpleText := 'Rafraîchi les données '; // delph.forumalgerie.net
procedure TForm2.Table1BeforeInsert(DataSet: TDataSet);
begin
try
StrToInt(Edit1.Text); // delph.forumalgerie.net
except
Edit1.Text := '0'; // delph.forumalgerie.net
end; // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm2.Button3Click(Sender: TObject); // delph.forumalgerie.net
begin
Table1.Insert; // delph.forumalgerie.net
Table1.FieldByName('Num_br').AsInteger := StrToInt(Edit2.Text); // delph.forumalgerie.net
Table1.FieldByName('Nom').AsString := Edit3.Text; // delph.forumalgerie.net
Table1.FieldByName('Prenom').AsString := Edit4.Text; // delph.forumalgerie.net
Table1.FieldByName('Date_naiss').AsString := Edit5.Text; // delph.forumalgerie.net
// Table1.FieldByName('Lui_naiss').AsString := Edit6.Text; // delph.forumalgerie.net
Table1['Lui_naiss'] := Edit6.Text; // delph.forumalgerie.net
// Table1.FieldByName('Address').AsString := Edit7.Text; // delph.forumalgerie.net
Table1Address.Value := Edit7.Text; // delph.forumalgerie.net
Table1.FieldByName('Num_P').AsInteger := StrToInt(Edit8.Text); // delph.forumalgerie.net
Table1.FieldByName('Memo01').AsString := Memo1.Text; // delph.forumalgerie.net
//DBImage1.PasteFromClipboard; // Paste = Ctrl + V
Table1Image01.LoadFromFile(Edit9.Text); // delph.forumalgerie.net
Table1.Post; Effacer; // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm2.FormCreate(Sender: TObject); // delph.forumalgerie.net
begin
Table1.Open;
Label2.Caption := '
الرقم
';
Label3.Caption := 'الاسم';
Label4.Caption := 'اللقب';
Label5.Caption := 'تاريخ الميلاد';
Label6.Caption := 'مكان الميلاد';
Label7.Caption := 'العنوان';
Label8.Caption := 'رقم التسجيل';
Label9.Caption := 'الملاحظات';
Label10.Caption := 'الصور';
Label11.Caption := '';
Label1.Caption := '
بحث برقم
';
Effacer; // delph.forumalgerie.net
Button3.Caption := 'تسجيل';
Button1.Caption := 'بحث';
DBNavigator1.ShowHint := true; // delph.forumalgerie.net
Caption := DateToStr(Date); // delph.forumalgerie.net
end; // delph.forumalgerie.net
procedure TForm2.Table1BeforePost(DataSet: TDataSet); // delph.forumalgerie.net
begin
// if DBEdit1.Text = '' then Abort; // delph.forumalgerie.net
end; // delph.forumalgerie.net
end. // delph.forumalgerie.net
منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net
.
عدل سابقا من قبل mah11 في 23/5/2015, 1:25 pm عدل 1 مرات (السبب : تصحيح بعض المعلومات)
mah11- Admin
- عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013 -
sad13- مبرمج
- عدد المساهمات : 53
تاريخ التسجيل : 04/01/2014
rida10- مبتدئ في البرمجة
- عدد المساهمات : 21
تاريخ التسجيل : 01/02/2014
mah11- Admin
- عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013 -
sdk11- مبرمج مجتهد
- عدد المساهمات : 108
تاريخ التسجيل : 19/09/2014
sasa sabrina- عدد المساهمات : 19
تاريخ التسجيل : 26/04/2015
ali- مبرمج مجتهد
- عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013
مواضيع مماثلة» انشاء جدول قاعدة بيانات من نوع بارادوكس
» انشاء جدول قاعدة بيانات بالصور
» كيفية تسجيل بيانات شخص باستعمال اوامر اس كي ال بواسطة دلفي 5
» كيفية انشاء جدول في دلفي
» كيفية انشاء قاعدة بيانات في دلفي
» انشاء جدول قاعدة بيانات بالصور
» كيفية تسجيل بيانات شخص باستعمال اوامر اس كي ال بواسطة دلفي 5
» كيفية انشاء جدول في دلفي
» كيفية انشاء قاعدة بيانات في دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى