خطوات انشاء قاعدة بيانات بمعالج و خطوات انشاء قاعدة بيانات يدويا

خطوات انشاء قاعدة بيانات بمعالج و خطوات انشاء قاعدة بيانات يدويا

الطريقة الاولى

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

انقر هذه القائمة
Base de données
من القائمة انقر هذه
Expert fiche ...

النافذة الاولى
Expert fiche base de données

Quel type de fiche voulez-vous que l'exert crée ?

-Option de fiche---------------------------
| |
| . Créer une fiche simple | <<
| |
| . Créer une fiche maitre/détail |
| |
----------------------------------------
-Options d'ensemble de données(DataSet)-------
| |
| . Créer une fiche avec des objets TTable | <<
| |
| . Créer une fiche avec des objets TQuery |
| |
----------------------------------------
من النافذة انقر هذه
Suite>

النافذة الثانية
Expert fiche base de données

Choisissez une table à utiliser avec la fiche.

Lecteur ou nom d'alias:
من القائمة حدد هذه
DBDEMOS

Nom de table
من القائمة حدد هذه
animale.dbf
انقر هذه
Suite>

النافذة الثالثة

انقر
>>
انقر هذه
Suite>

النافذة الرابعة
انقر هذه
Suite>

النافذة الخامسة
انقر هذه
Terminer

في الاخير ظهور النافذة أو النموذج الذي من اجله قمت بهذه الخطوات.

نفذ البرنامج وشاهد النتيجة


--------------------------------------
الطريقة الثانية

خطوات انشاء قاعذة بيانات يدويا

ضع على الفورم1
Table1
و
DataSource1
و
DBNavigator1
و
DBImage1
و 4
TDBEdit
و 4
TLabel

اكتب هذا الكود
procedure TForm1.FormCreate(Sender: TObject);
begin

Table1.DatabaseName := 'DBDEMOS';
Table1.TableName := 'animals.dbf';
Table1.Active := true;

DataSource1.DataSet := Table1;

DBNavigator1.DataSource := DataSource1;
DBNavigator1.Hints;
DBNavigator1.ShowHint := true;

DBEdit1.DataSource := DataSource1;
DBEdit2.DataSource := DataSource1;
DBEdit3.DataSource := DataSource1;
DBEdit4.DataSource := DataSource1;
DBImage1.DataSource := DataSource1;

DBEdit1.DataField := 'AREA';
DBEdit2.DataField := 'NAME';
DBEdit3.DataField := 'SIZE';
DBEdit4.DataField := 'WEIGHT';
DBImage1.DataField := 'BMP';

Label1.Caption := 'AREA';
Label2.Caption := 'NAME';
Label3.Caption := 'SIZE';
Label4.Caption := 'WEIGHT';
Label5.Caption := 'BMP';

end;

شكراااااااااااااا