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

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

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

مُساهمة  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

alla23
عضو ذهبي
عضو ذهبي

عدد المساهمات : 66
نقاط : 182
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

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

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


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