หนึ่งในคุณสมบัติที่น่าสนใจที่สุดของ Delphi คือความสามารถในการเข้าถึงฐานข้อมูลที่ทรงพลังซึ่งสามารถสร้างและแก้ไขฐานข้อมูลผ่านเครื่องมือเดสก์ท็อปฐานข้อมูลได้อย่างง่ายดาย เนื่องจากเหตุผลในทางปฏิบัติเรามักจะต้องสร้างฐานข้อมูลบางอย่างแบบไดนามิกในขณะที่โปรแกรมกำลังทำงานอยู่
หากคุณขอให้ผู้ใช้สร้างตารางข้อมูลด้วยตนเองโดยใช้เครื่องมือเดสก์ท็อปฐานข้อมูลโปรแกรมที่คุณเขียนจะได้รับการลดราคาอย่างมาก แต่คุณไม่ต้องกังวลว่า Delphi สามารถทำฟังก์ชั่นนี้ในภาษานี้ได้ ฉันได้สรุปสองวิธีในการศึกษาและการฝึกฝนซึ่งฉันเรียกวิธีการตารางและวิธี SQL ต่อไปนี้อธิบายกระบวนการสร้างฐานข้อมูลแบบไดนามิกผ่านตัวอย่างง่ายๆ
1. วิธีตาราง:
1. (นำตัวอย่างของการสร้างตารางข้อมูลที่ขัดแย้งกันโดยสมมติว่าชื่อไลบรารีคือ LJH.DB) สร้างไฟล์โครงการใหม่ zhoudf.dpr
2. เลือกองค์ประกอบปุ่มบนแผงควบคุมและวางไว้ในตาราง Form1
ขั้นตอน TFORM1.Button2Click (ผู้ส่ง: TOBJECT);
Table1: ttable;
ด้วยตารางที่ 1 เริ่มใช้งาน: = เท็จ;
tablename: = 'ljh.db';
TableType: = TTPARADOX;
เพิ่ม ('yj', ftdate, 0, false);
เพิ่ม ('zp', ftstring, 10, false);
เพิ่ม ('zdm', ftinteger, 0, false);
จบ;
ด้วย indexdefs do {วิธีนี้เพิ่มฟิลด์ดัชนีเป็น ljh.db} เริ่มต้นล้าง;
เพิ่ม ('yjindex', 'yj', [ixprimary]);
จบ;
สร้างได้;
จบ;
จบ;
2. วิธี SQL: เลือกองค์ประกอบปุ่มบนแผงควบคุมและวางไว้ในตาราง Form1
ขั้นตอน TFORM1.Button2Click (ผู้ส่ง: TOBJECT);
Table2: TQuery;
ด้วยตารางที่ 2 เริ่มต้นด้วย SQL จะเริ่มชัดเจน;
เพิ่ม ('สร้างตาราง "ljh.db"');
เพิ่ม ('(yj date,'); {หมายเหตุ '(' ('} ในใบเสนอราคา
เพิ่ม ('ZP Char (10),');
เพิ่ม ('zdm int)');
จบ;
execsql;
sql.clear;
sql.add ('สร้างดัชนี yj บน "ljh.db" (yj)');
execsql;
จบ;
จบ;
* แค่รวบรวมโปรแกรมนี้ * ควรสังเกตว่าหากไลบรารีมีอยู่แล้วข้อความแสดงข้อผิดพลาดจะถูกสร้างขึ้นและหากไลบรารีมีอยู่แล้ววิธีการตารางไม่จำเป็นต้องพิจารณา