表的创建问题，请教各位高手~~！

Question

create table tabName select * from tabName where 1=2

Answer 1

select * into TableNew from TalbeOld
/*sql server*/

Answer 2

select .. into Newtable from tablename//建了一个结构一样的Table;
呵呵；

Answer 3

是paradox7的数据库，看了楼上各位大大的方案，基本上都是用的sql的，但是用sql的话怎么在运行期设置数据库别名这些东西啊？？
而且能不能自己给它指定生成的目录？

Answer 4

首先，请查询你的原表，把各字段名赋值给edit.text 或checkbox.caption
然后用类似下面的程序建表。放一个table控件 with Table1 do begin
    // 控件必须不active
    Active := False;
     // 第一步, 定义表的类型并给出它的名字
    DatabaseName := GetCurrentDir+'\GZdb\'; //此处用建表路径，而不用别名，也可改为别名'dbmose'
    TableType := ttParadox;
    TableName := 'GDgongzi';//指定新表名
    // 第二步, 定义表中的字段
    with FieldDefs do begin
      Clear;
      with AddFieldDef do begin        Name := edit1.text;
        DataType := ftstring;
        Required := True;
        size:=10;
      end;
      with AddFieldDef do begin
        Name := '固定工资数值';
        DataType := ftCurrency;
      end;
    end;
    // 第三步, 定义索引
    with IndexDefs do begin
      Clear;
      //第一个索引没有名字，因为它是paradox数据库的关键字
      with AddIndexDef do begin
        Name := '';
        Fields := edit1.text;
        Options := [ixPrimary];
      end;
      with AddIndexDef do begin
        Name := 'Fld2Indx';
        Fields :='固定工资数值';
        Options := [ixCaseInsensitive];
      end;
    end;
    //调用建表命令去建表
    CreateTable;
   end;
 end;

Answer 5

多谢hongfengbeauty(想和梦想比赛的人)了，我现在在做毕业设计头都大了两倍，谢谢了~~~~~~~~~~~！