Table组件的CreateTable方法的使用:
CreateTable方法是用来应用新的结构信息建立一个新表格的方法。在应用程序运行时调用CreateTable会产生一个利用数据集当前定义建立的表格。使用CreateTable方法会覆盖已存在表格的结构和数据。所以,在使用CreateTable方法前检查Exists属性。如果FieldDefs属性包含数值,那么这些数值将被用来建立字段定义。否则,就将应用Fields属性的值。如果IndexDefs属性包含数值,它们将被用来创建数据集的索引定义。
下面结合一个实例来说明:
Procedure TFrom1.Button1Click(Sender:TObject);
Begin
If not Table1.Exists then {避免覆盖已存表格}
Begin
With Table1 do
Begin
Active := false;{设置前表格组件必须关闭}
{首先,确定表格的类型和名字}
Databasename := 'DBDEMOS';
TableType := ttParadox;
TableName :='CustInfo';
{其次,确定表格中的字段}
With FieldDefs do
Begin
Clear;
Add('Field1',ftInteger,0,True);
Add('Field2',ftString,0,False);
End;
{然后,确定索引}
With IndexDefs do
Begin
Clear;
Add('','Fields1',[ixPrimary,ixUnique]);
Add('FldIndex','Field2',[ixCaseInsensitive]);
End;
{在给出条件后建立表格}
Createtable;
End;
End;
End;
Table中APplyrange cancelrange EditRangeStart 的使用——用来改变索引
Procedure TForm1.Button1Click(Sender: TObject);
Begin
With table1 do
Beghin
EditRangeStart;
FieldByName('Company').AsString := EditStart.Text;
{根据EditStart的Text属性值设置起始值}
EditRangeEnd;
FieldByName('Company').AsString := EditEnd.Text;
{根据EditEnd的text属性值设置结果值}
ApplyRange; //使范围生效
End;
End;
Query中的SQL属性是一个TStrings对象。在代码中调用的话,步骤如下:
1)调用Query的Close方法关闭Query
2)调用TStrings的Clear方法清除Query中的SQL属性值
3)调用TStrings的Add方法向Query的SQL属性中添加SQL语句
4)调用QUery的OPen方法或者ExecSQL方法恢复Query对象的打开状态