Delphi对数据库的操作

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对象的打开状态