小弟在看Table元件的方法中﹐有DeleteTable EmptyTable CreateTable這三种﹐請教各位前輩是否能指點CreateTable方法的程式碼﹒ 另外﹐如果在CreateTable時﹐若是以目前資料庫中已經有的資料表為基礎（如學生.db）﹐Create一份完成內容一樣﹐但名稱不一樣（如學生1.db）的資料表該如何做﹖ 謝謝﹗ 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2003/06/20 00:38:07

------
忻晟

參考下列文章 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=32612    CreateTable使用範例

with Table1 do begin
  Active := False;  
  DatabaseName := 'DBDEMOS';
  TableType := ttParadox;
  TableName := 'CustInfo';      { Don't overwrite an existing table }      if not Table1.Exists then begin
    { The Table component must not be active }
    { First, describe the type of table and give }
    { it a name }
    { Next, describe the fields in the table }
    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;
    { Next, describe any indexes }
    with IndexDefs do begin
      Clear;
      { The 1st index has no name because it is
      { a Paradox primary key }
      with AddIndexDef do begin
        Name := '';
        Fields := 'Field1';
        Options := [ixPrimary];
      end;
      with AddIndexDef do begin            Name := 'Fld2Indx';
        Fields := 'Field2';
        Options := [ixCaseInsensitive];
      end;
    end;
    { Call the CreateTable method to create the table }
    CreateTable;
  end;
end;    

引言: 小弟在看Table元件的方法中﹐有DeleteTable EmptyTable CreateTable這三种﹐請教各位前輩是否能指點CreateTable方法的程式碼﹒ 另外﹐如果在CreateTable時﹐若是以目前資料庫中已經有的資料表為基礎（如學生.db）﹐Create一份完成內容一樣﹐但名稱不一樣（如學生1.db）的資料表該如何做﹖ 謝謝﹗ 努力,相信會獲得美麗! 忻晟 發表人 - cashxin2002 於 2003/06/20 00:38:07

下載這個工具, http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31340 裡面的匯出記錄就是你要的東東!

試了好多天﹐終于做出個所以然﹐謝謝兩個前輩的指點﹒ 努力,相信會獲得美麗! 忻晟

------
忻晟