建表.txt

大量Delphi开发资料

procedure Tform1.dfdafd(();
begin
  if not table1.exists do begin
    with table1 do begin
      databasename := 'faf';
      tabletype := ttparadox;
      tablename := 'afa';
      with fielddefs do begin
        clear;
        with addfielddef do begin
          name := 'adf';
          datatype := ftstring;
          size := 10;
          with addfielddef do begin
            name := 'ad';
            datatype := ftstring;
            size := 30;
            with addfielddef do begin
              name := 'af';
              datatype = ftinteger;
              requied := true;
            end;  
          end;
          with indexdefs do begin
            clear;
            with addindexdef do begin
              fields := 'a';
              option := [ixprimary];
            end;
            with addindexdef do begin
              name := 'fld2incx';
              fields := 'f';
              option := [ixcaseinsensitive];
            end;
          end;
          createtable;
        end;
      end;
    end;
  end;
end;