دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

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

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

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

مُساهمة  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
مبرمج مجتهد

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

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

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

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

بارك الله فيك

sasa sabrina

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

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

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

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

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

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

alla
مبرمج مجتهد

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

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

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


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