Delphi中动态建立数据库

delphi 最吸引人的特点之一就是它的强大的数据库访问能力，通过database desktop 工具可方便的建立、编辑数据库。由于实际原因我们往往需要在程序运行状态下动态建立某个数据库。
　　
　　如果你让用户用database desktop 工具手工建立数据表那么你写的程序将会打大折扣，不过你不用担心delphi完全可以用语言来完成此功能，为我们提供方便。我在学习和实践中总结出两种方法，我叫做table法和sql法。下面通过简单的实例来描述动态数据库建立的过程。
　　
　　 一、 Table方法：
　　
　　1、（以建立paradox数据表为例假设库名为ljh.db）。新建一工程文件zhoudf.dpr.在unit1中的uses语句中加入db,dbtables单元。
　　
　　2、在面板上选取button元件置于form1表中,双击button1输入如下代码。
　　
　　Procedure Tform1.Button2Click(Sender: Tobject);
　　
　　　var table1:ttable; begin table1:=ttable.create(self);
　　
　　　with table1 do begin active:=false;
　　
　　tablename:='ljh.db';
　　
　　tabletype:=ttparadox; with fielddefs do {此方法为ljh.db增加字段} begin clear;
　　
　　add('yj',ftdate,0,false);
　　
　　add('zp', ftstring,10,false); {增加具体的字段名、类型}