عملية تسجيل في جدول قاعدة بيانات دلفي

اذهب الى الأسفل

عملية تسجيل في جدول قاعدة بيانات دلفي

مُساهمة  mah11 في 14/7/2013, 7:57 pm

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

الحمد لله رب العالمين والصلاة السلام على رسول الله
السلام عليكم ورحمة الله
عملية تسجيل في جدول قاعدة بيانات  دلفي


الكود:

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

http://delph.forumalgerie.net

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

رد: عملية تسجيل في جدول قاعدة بيانات دلفي

مُساهمة  sad13 في 30/1/2014, 7:39 pm

جزاك الله كل خير

sad13
مبرمج

عدد المساهمات : 53
تاريخ التسجيل : 04/01/2014

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

رد: عملية تسجيل في جدول قاعدة بيانات دلفي

مُساهمة  rida10 في 3/2/2014, 7:17 pm

بارك الله فيك

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

عدد المساهمات : 21
تاريخ التسجيل : 01/02/2014

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

رد: عملية تسجيل في جدول قاعدة بيانات دلفي

مُساهمة  mah11 في 23/5/2015, 1:26 pm

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

mah11
Admin

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

http://delph.forumalgerie.net

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

رد: عملية تسجيل في جدول قاعدة بيانات دلفي

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

بارك الله فيك

sdk11
مبرمج مجتهد

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

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

رد: عملية تسجيل في جدول قاعدة بيانات دلفي

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

بارك الله فيك

sasa sabrina

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

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

رد: عملية تسجيل في جدول قاعدة بيانات دلفي

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

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

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

ali1
مبرمج مجتهد

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

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

الرجوع الى أعلى الصفحة


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