if not Table1.Exists then begin
with Table1 do begin
{ The Table component must not be active }
Active := False;
{ First, describe the type of table and give }
{ it a name }
DatabaseName := 'DBDEMOS';
TableType := ttParadox;
TableName := 'CustInfo';
{ 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;
with Table1 do begin
{ The Table component must not be active }
Active := False;
{ First, describe the type of table and give }
{ it a name }
DatabaseName := 'DBDEMOS';
TableType := ttParadox;
TableName := 'CustInfo';
{ 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;
解决方案 »
- ? 窗体中的button按钮待窗体最大化后位于窗体最右侧!!!
- 写的1个比较参数大小的功能不起作用?
- 如何将控件的运行时状态设计成跟设计时一样,能完成拖过,多选控件,并且在选中控件的周围显示六个小点。
- 怎么去掉窗口的标题栏?
- /*如何把动态窗体1里面建立动态窗体2里从数据库里读取的数据给动态窗体1里的一个edit..*/////////////////
- 动态添加的控件如何写事件?
- delphi的打码兔验证码识别有谁用过没啊
- 请教一个高难度的问题。
- 一个一直没好意思开口的问题(但我真的不知该怎样做了)
- 计算A表某列合计值,由合计值从B表寻找匹配记录再进行计算
- 制作安装程序时的错误:cannot load an IDAPI service library怎么解决?
- 关于delphi,ado,com,asp的问题。
而不是创建一个新表。望告知,非常感激!