如果讓用戶用數據庫桌面工具手工創建數據表，妳寫的程序會大打折扣，但是妳不用擔心delphi完全可以用語言完成這個功能，這給我們提供了便利。我在學習和實踐中總結了兩種方法，我稱之為表格法和sql法。在這裏，我將通過簡單的例子來描述建立動態數據庫的過程。
表格方法
(以paradox數據表的建立為例，假設庫名為ljh db)新建壹個工程文件zhoudf dpr，在unit中的uses語句中添加db dbtables。
選擇面板上的按鈕組件，並將其放入表單表中。雙擊按鈕並輸入以下代碼。
過程Tform按鈕Click(發送方:to object)；
var表:ttablebegin table:= TT able create(self)；
with table do begin active:= false；
tablename:= ljh db；
tabletype:= TT paradox；用fielddefs do {此方法為ljh db添加壹個字段} begin clear
add(yj ft date false)；
add(ZP ftstring false)；{添加特定的域名類型}
add(zdm ftinteger false)；
結束；
使用indexdefs do {此方法向ljh db添加壹個索引字段} Begin Clear
add(yjindex yj[IX primary])；
結束；
createtable
結束；
結束；
其次，sql方法選擇面板上的按鈕組件，並將其放入表單表中。雙擊按鈕並輸入以下代碼。
過程Tform按鈕Click(發送方:to object)；
var表:tquerybegin表:= tquery create(self)；
with table do begin with SQL do begin clear；
add(創建表ljh db)；
添加((yj日期)；{註意引號中的(}。
add(ZP char())；
add(zdm int))；{註意引號)}
結束；
execsql
sql清除；
sql add(在ljh db (yj)上創建索引yj)；{此sql語句向ljh db添加壹個索引字段}
execsql
結束；
結束；
Lishi Xinzhi/Article/program/Delphi/201311/24746