alter table aaaa add ddd char(20)
解决方案 »
- 同样的代码,同一个工程,delphi7怎么有时候可以执行有时候不能执行?
- Delphi 怎样去掉 Button 上面的焦点虚线框,,
- TEA加密问题
- 已知两点经纬度求两的距离(很急!)
- 请教:Delphi中的句柄是怎么一回事?
- 紧急!
- 散分!散分!散分!http://www.csdn.net/expert/topic/1093/1093157.xml?temp=.141308
- 请教一个关于数据库的问题
- 如果跨网段连接到服务器上?
- 如何制作DELPHI风格的菜单?
- 通过一个ADOCommand执行一个Select Count() from..之类的获得单个数据结果的语句,怎么获得数据呢
- actionlist控件的作用是什么?
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;