خطوات انشاء قاعدة بيانات بمعالج و خطوات انشاء قاعدة بيانات يدويا
الطريقة الاولى
بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله
انقر هذه القائمة
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;