程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 動態建表

動態建表

編輯:Delphi
 begin
  with Table1 do
  begin
    Active := False;
    DatabaseName := 'DOCTOR';
    TableType := ttParadox;
    TableName := 'DOCTORINF23';
    if not Table1.Exists then begin
       with FIEldDefs do begin
          Clear;
          with AddFIEldDef do begin
              Name := '姓名';
              DataType := ftString;
              Required := True;
              Size := 10;
          end;
          with AddFIEldDef do begin
               Name := '年齡';
               DataType := ftInteger;
          end;//建立字段定,利用AddFieldDef方法添加一個新的TFIEldDef對象
          with AddFIEldDef do begin
              Name := '職稱';
              DataType := ftString;
              Required := True;
              Size := 10;
          end;
       end;
       with IndexDefs do begin
            Clear;
            with AddIndexDef do begin
            Name := 'MYINDEX';
            FIElds := '姓名';
            Options := [ixPrimary];
            end;
       end;  //建立索引
    end;
    CreateTable;
  end;
      //Table1.Append ;
      Table1.Open;
      Table1.Edit;
      Table1.FIEldByName('姓名').AsString:='劉延';
      Table1.FIEldByName('年齡').AsInteger:=22 ;
      Table1.FIEldByName('職稱').AsString:='醫師';
      Table1.Append;
      Table1.Edit;
      Table1.FIEldByName('姓名').AsString:='楊曉';
      Table1.FIEldByName('年齡').AsInteger:=25 ;
      Table1.FIEldByName('職稱').AsString:='醫師';
      DBGrid1.DataSource:=DataSource1;
      Table1.Active :=True;
  end;
  
  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved