delphi 数据库的动态建立

定义标准数据库：

      定义数据库时，数据库文件信息和数据库结构信息是必需的，如数据库文件的完整路径，数据库类型，数据库的字段名、类型、长度等。在delphi程序中可以定义三种标准类型的数据库，DBASE数据库、Paradox数据库、ASCII数据库。

使用：TTable 建立。

procedure CreateDB();

    var table1:TTable;

begin

    table1:=ttable.create(self);

    with table1 do

    begin

        active:=false;

        //DatabaseName:="c:/dbtemp";{预定义的别名数据库工作区名}

        tablename:='ljh1.db'; {将定义的数据库名}

        tabletype:=ttparadox; {数据库类型，可为ttParadox,ttASCII,ttDbase}

        {tabletype属性为ttDefault表示数据库类型与TableName指定值的扩展名对应}

        with fielddefs do {数据库结构信息：此方法为ljh.db增加字段}

        {调用TTable.FidldDefs对象的Add方法向数据库表中添加字段。Add有4个参数：

    字段名:string。

    字段类型：TfieldType。

    字段大小：Word。一般只对String和Memo类型使用。

    字段是否NotNull: Boolean。

         }

        begin

            clear;

            add('yj',ftdate,0,false);

            add('zp', ftstring,10,false); {增加具体的字段名、类型}

            add('zdm',ftinteger,0,false);

        end;

        With indexdefs do {此方法为ljh.db增加索引字段}

        {使用TTable.IndexDefs.Add(