Question_关于动态建dBase的问题

[marco168]

欲动态建dBase数据库，即点击Button后生成一个*.dbf文件。但是下面代码生成三个文件：Customer.dbf、Customer.DBT、Customer.MDX。如何才能只生成一个Customer.dbf？

procedure TForm1.Button1Click(Sender: TObject);
var
Table1: TTable;
begin
Table1:=TTable.Create(Self);
with Table1 do
begin
DatabaseName:=ExtractFilePath('d:\');
TableType:=ttDbase;
TableName:=ExtractFileName('Customer.dbf');

with FieldDefs do
begin
with AddFieldDef do
begin
Name:='CustNo';
DataType:=ftBCD;
Precision:=4;
Size:=0;
end;
Add('CustName', ftString, 10, False);
Add('CustTel', ftString, 20, False);
Add('CustAddr', ftString, 60, False);
Add('CustMemo', ftMemo, 0, False);
end;

with IndexDefs do
begin
Clear;
Add('CusNo', 'CustNo', [ixExpression, ixUnique]);
Add('CustName', 'CustName', []);
end;

CreateTable;
Free;

end;
end;

[frogshero]

query1.SQL.Clear;
query1.SQL.Add('create table "E:\qq.dbf" (cc char(10),ii numeric(5,0))');
query1.ExecSQL;

[marco227]

解决了，多谢！