盒子论坛 v2.1

with table2 do
begin
active:=false;
databasename:='DBDEMOS';
tabletype:=ttparadox;
tablename:='bios1';
if not Exists then
begin
   with fielddefs do
     begin
      clear;
       with addfielddef do begin
         name:='custno';
         datatype:=ftinteger;
         required:=true;
       end;
       with addfielddef do begin
          name:='phone';
          datatype:=ftstring;
          size:=10;
       end ;
       with addfielddef do begin
         name:='addr1';
         datatype:=ftstring;
       end;
       with addfielddef do begin
          name:='addr2';
          datatype:=ftstring;
       end ;
       with indexdefs do
       begin
         clear;
         with addindexdef do
         begin
          name:='custnoindx';
          fields:='custno';
          options:=[ixprimary];
         end;
         with addindexdef do
         begin
           name:='phoneindx';
           fields:='phone';
           options:=[ixcaseinsensitive];
         end;
       end;
     end;
    createtable;
end;
end;

----------------------------------------------

信息

登陆以后才能回复