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

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

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

مُساهمة  alla23 في الثلاثاء أكتوبر 25, 2016 9:38 am

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

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

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

انقر هذه القائمة
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;

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

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

http://delph.forumalgerie.net

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

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


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