التأسيس الديناميكي لقاعدة بيانات دلفي

واحدة من أكثر الميزات جاذبية في Delphi هي إمكانية الوصول إلى قاعدة البيانات القوية ، والتي يمكنها بسهولة إنشاء قواعد البيانات وتحريرها من خلال أداة سطح المكتب قاعدة البيانات. لأسباب عملية ، غالبًا ما نحتاج إلى إنشاء قاعدة بيانات معينة بشكل حيوي أثناء تشغيل البرنامج.

إذا طلبت من المستخدمين إنشاء جداول بيانات يدويًا باستخدام أداة سطح مكتب قاعدة البيانات ، فسيتم خصم البرنامج الذي تكتبه بشكل كبير ، لكن لا داعي للقلق من أن Delphi يمكنه إكمال هذه الوظيفة باللغة ، مما يوفر لنا الراحة. لقد لخصت طريقتين في دراستي وممارسة ، والتي أسميها طريقة الجدول وطريقة SQL. يصف ما يلي عملية إنشاء قاعدة البيانات الديناميكية من خلال أمثلة بسيطة.

1. طريقة الجدول:

1. (خذ مثال إنشاء جدول بيانات مفارقة على افتراض أن اسم المكتبة هو LJH.DB). إنشاء ملف مشروع جديد Zhoudf.dpr.

2. حدد عنصر الزر على اللوحة ووضعه في جدول Form1.

الإجراء tform1.button2Click (المرسل: tobject) ؛

var table1: ttable ؛

مع Table1 تبدأ نشطة: = خطأ ؛

tablename: = 'ljh.db' ؛

TableType: = ttparadox ؛

إضافة ('yj' ، ftdate ، 0 ، false) ؛

إضافة (ZP "، ftstring ، 10 ، خطأ) ؛

إضافة ('ZDM' ، ftinteger ، 0 ، false) ؛

نهاية؛

مع indexDefs do {هذه الطريقة يضيف حقل الفهرس إلى ljh.db} تبدأ clear ؛

إضافة ('yjindex' ، 'yj' ، [ixprimary]) ؛

نهاية؛

createable

نهاية؛

نهاية؛

2. طريقة SQL: حدد عنصر الزر الموجود على اللوحة ووضعه في جدول Form1.

الإجراء tform1.button2Click (المرسل: tobject) ؛

var table2: tquery ؛

مع Table2 تبدأ مع SQL تبدأ واضحا.

إضافة ('إنشاء الجدول "ljh.db"') ؛

إضافة ('(تاريخ yj ،') ؛ {لاحظ '('} في عروض الأسعار

إضافة ('ZP char (10) ،') ؛

إضافة (ZDM int) ') ؛

نهاية؛

execsql ؛

sql.clear ؛

SQL.Add ('إنشاء index yj على "ljh.db" (yj)') ؛

execsql ؛

نهاية؛

نهاية؛

* فقط تجميع هذا البرنامج. * تجدر الإشارة إلى أنه إذا كانت المكتبة موجودة بالفعل ، فسيتم إنشاء رسالة خطأ ، وإذا كانت المكتبة موجودة بالفعل ، فلا مطلوب من طريقة الجدول للنظر فيها.