为数据库中的表添加字段 with table1 do begin active:=false; tablename:='youtable.db'; tabletype:=ttparadox; with fielddefs do begin clear; add('fiedlname',ftdate,0,false);//ftdate为字段类型 end; with indexdefs do //这里为 数据库建立索引,如果有了,就不需要建了 begin clear; add('fileindex','fieldname',[ixprimary]); end; updatetable; end;
with table1 do
begin
active:=false;
tablename:='youtable.db';
tabletype:=ttparadox;
with fielddefs do
begin
clear;
add('fiedlname',ftdate,0,false);//ftdate为字段类型
end;
with indexdefs do //这里为 数据库建立索引,如果有了,就不需要建了
begin
clear;
add('fileindex','fieldname',[ixprimary]);
end;
updatetable;
end;