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

alla23 الأحد يوليو 14, 2013 8:38 pm

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

الحمد لله رب العالمين والصلاة السلام على رسول الله

السلام عليكم ورحمة الله

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

unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables, StdCtrls, ComCtrls, jpeg;
type
TForm2 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    StatusBar1: TStatusBar;
    Button3: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Memo1: TMemo;
    Image1: TImage;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    DBMemo1: TDBMemo;
    DBImage1: TDBImage;
    Table1Num_br: TFloatField;
    Table1Nom: TStringField;
    Table1Prenom: TStringField;
    Table1Date_naiss: TDateField;
    Table1Lui_naiss: TStringField;
    Table1Address: TStringField;
    Table1Num_P: TFloatField;
    Table1Memo01: TMemoField;
    Table1Image01: TGraphicField;
    Edit9: TEdit;
    DBNavigator1: TDBNavigator;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Table1AfterOpen(DataSet: TDataSet);
    procedure Table1AfterDelete(DataSet: TDataSet);
    procedure Table1AfterEdit(DataSet: TDataSet);
    procedure Table1AfterInsert(DataSet: TDataSet);
    procedure Table1AfterCancel(DataSet: TDataSet);
    procedure Table1AfterPost(DataSet: TDataSet);
    procedure Table1AfterRefresh(DataSet: TDataSet);
    procedure Table1BeforeClose(DataSet: TDataSet);
    procedure Table1BeforeInsert(DataSet: TDataSet);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Table1BeforePost(DataSet: TDataSet);
private
    { Déclarations privées }
public
    { Déclarations publiques }
end;
var
Form2: TForm2;
implementation
{$R *.DFM}
Procedure Effacer;
begin
Form2.Edit1.Text := ''; Form2.Edit2.Text := '';
Form2.Edit3.Text := ''; Form2.Edit4.Text := '';
Form2.Edit5.Text := ''; Form2.Edit6.Text := '';
Form2.Edit7.Text := ''; Form2.Edit8.Text := '';
Form2.Edit9.Text := 'اسم الصورة';
Form2.Memo1.Lines.Clear;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
// Table1.Locate('Nom', Edit1.Text, []);
if not Table1.FindKey([Edit1.Text])then ShowMessage('هذا الاسم غير موجود');
// Table1.FindNearest([Edit1.Text]);
// Table1.FieldByName(Edit1.Text);
// if Table1['Nom'] = Edit1.Text then ShowMessage('هذا الاسم موجود');
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
caption := intToStr(Table1.IndexFieldCount);
end;
procedure TForm2.Table1AfterOpen(DataSet: TDataSet);
begin
{// maintenant que la table est ouverte, les informations sur les enregistrements sont disponibles }
StatusBar1.SimpleText := 'Enregistrement ' +
IntToStr(Table1.RecNo) + 'sur ' + IntToStr(Table1.RecordCount);
end;
procedure TForm2.Table1AfterDelete(DataSet: TDataSet);
begin
StatusBar1.SimpleText := Format('%d enregistrements dans la table',
   [DataSet.RecordCount]);
end;
procedure TForm2.Table1AfterEdit(DataSet: TDataSet);
begin
StatusBar1.SimpleText := 'Modification de l"enregistrement';
end;
procedure TForm2.Table1AfterInsert(DataSet: TDataSet);
begin
StatusBar1.SimpleText := 'Insertion d"un nouvel enregistrement';
end;
procedure TForm2.Table1AfterCancel(DataSet: TDataSet);
begin
StatusBar1.SimpleText := 'Modifications d"enregistrement annulées ';
end;
procedure TForm2.Table1AfterPost(DataSet: TDataSet);
begin
StatusBar1.SimpleText := 'Modifications d"enregistrement achevées';
end;
procedure TForm2.Table1AfterRefresh(DataSet: TDataSet);
begin
StatusBar1.SimpleText := 'Rafraîchi les données ';
procedure TForm2.Table1BeforeInsert(DataSet: TDataSet);
begin
try
{Vérification que le champ de saisie peut être converti en entier --
ce qui provoquera une exception si ce n'est pas le cas }
    StrToInt(Edit1.Text);
except
    Edit1.Text := '0';
end;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
Table1.Insert;
Table1.FieldByName('Num_br').AsInteger := StrToInt(Edit2.Text);
Table1.FieldByName('Nom').AsString := Edit3.Text;
Table1.FieldByName('Prenom').AsString := Edit4.Text;
Table1.FieldByName('Date_naiss').AsString := Edit5.Text;
// Table1.FieldByName('Lui_naiss').AsString := Edit6.Text;
Table1['Lui_naiss'] := Edit6.Text;
// Table1.FieldByName('Address').AsString := Edit7.Text;
Table1Address.Value := Edit7.Text;
Table1.FieldByName('Num_P').AsInteger := StrToInt(Edit8.Text);
Table1.FieldByName('Memo01').AsString := Memo1.Text;
http://DBImage1.PasteFromClipboard; // Paste = Ctrl + V
Table1Image01.LoadFromFile(Edit9.Text);
Table1.Post; Effacer;
end;
procedure TForm2.FormCreate(Sender: TObject);
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;
Button3.Caption := 'تسجيل';
Button1.Caption := 'بحث';
DBNavigator1.ShowHint := true;
Caption := DateToStr(Date);
end;
procedure TForm2.Table1BeforePost(DataSet: TDataSet);
begin
// if DBEdit1.Text = '' then Abort;
end;
end.

زوروني على المنتدى دلفي تعليم
delph.forumalgerie.net

------------------------
لمزيد من المعلومات زيارة المنتدى
www.delphilo.alamontada.com
www.delph.forumalgerie.net