动态创建DBF数据文件

1、SQL建表：   query1.close;   query1.sql.text:='create table "mytable.dbf" (n1 char(10))';   query1.execsql;   DELPHI建表：   table1.close;   table1.fielddefs.clear;   table1.fielddefs.add('n1',ftstring,10,false);   table1.createtable;2、删除记录   uses bde;//加入bde单元//   dbipacktable();函数 

创建表并添加数据  with Table1 do begin    Active := False;    DatabaseName := 'DBDEMOS';    TableType := ttParadox;    TableName := 'CustInfo';    if not Table1.Exists then begin      with FieldDefs do begin        Clear;        with AddFieldDef do begin          Name := 'Field1';          DataType := ftInteger;          Required := True;        end;        with AddFieldDef do begin

          Name := 'Field2';          DataType := ftString;          Size := 30;        end;      end;      CreateTable;    end;  end;  Table1.Open;  table1.AppendRecord([111,'1111']);  table1.AppendRecord([222,'2222']);  table1.AppendRecord([333,'3333']);  table1.AppendRecord([444,'4444']);

删除记录  Table1.Delete;  另外可以使用ado创建：（例子如下）//ado创建dbfprocedure TForm1.Button1Click(Sender: TObject);varDBPath: String;beginDBPath:='e:/dfwtest/test7';//你的数据库路径目录；ADOConnection1.ConnectionString:='Provider=MSDASQL.1;'                                 +'Persist Security Info=False;'                                 +'Extended Properties='                                 +'"Driver={Microsoft Visual FoxPro Driver};'                                 +'UID=;'                                 +'SourceDB='+ DBPath + ';'                                 +'SourceType=DBF;'                                 +'Exclusive=No;'                                 +'BackgroundFetch=Yes;'                                 +'Collate=Machine;'                                 +'Null=Yes;'                                 +'Deleted=Yes;"';AdoConnection1.Open;AdoQuery1.Sql.Text := 'create table "aaa.dbf" (aaa char(2))';//AdoQuery1.Sql.Text := 'create table "ddd.dbf" (aaa char(2)),fff float(3),eee numeric (4,1),torf boolean ,rdate date)';AdoQuery1.ExecSql;end;//ado打开dbfprocedure TForm1.Button3Click(Sender: TObject);varDBPath: String;beginDBPath:='e:/dfwtest/test7';//你的数据库路径；ADOConnection1.ConnectionString:='Provider=MSDASQL.1;'                                 +'Persist Security Info=False;'                                 +'Extended Properties='                                 +'"Driver={Microsoft Visual FoxPro Driver};'                                 +'UID=;'                                 +'SourceDB='+ DBPath + ';'                                 +'SourceType=DBF;'                                 +'Exclusive=No;'                                 +'BackgroundFetch=Yes;'                                 +'Collate=Machine;'                                 +'Null=Yes;'                                 +'Deleted=Yes;"';AdoQuery1.close;AdoQuery1.sql.clear;AdoQuery1.sql.Text := 'select * from ddd.dbf';adoquery1.Open;end;