Delphi对数据库的操作

Table组件的CreateTable方法的使用：

CreateTable方法是用来应用新的结构信息建立一个新表格的方法。在应用程序运行时调用CreateTable会产生一个利用数据集当前定义建立的表格。使用CreateTable方法会覆盖已存在表格的结构和数据。所以，在使用CreateTable方法前检查Exists属性。如果FieldDefs属性包含数值，那么这些数值将被用来建立字段定义。否则，就将应用Fields属性的值。如果IndexDefs属性包含数值，它们将被用来创建数据集的索引定义。

下面结合一个实例来说明：

ProcedureTFrom1.Button1Click(Sender:TObject);

Begin

IfnotTable1.Existsthen{避免覆盖已存表格}

Begin

WithTable1do

Begin

Active:=false;{设置前表格组件必须关闭}

{首先，确定表格的类型和名字}

Databasename:='DBDEMOS';

TableType:=ttParadox;

TableName:='CustInfo';

{其次，确定表格中的字段}

WithFieldDefsdo

Begin

Clear;

Add('Field1',ftInteger,0,True);

Add('Field2',ftString,0,False);

End;

{然后，确定索引}

WithIndexDefsdo

Begin

Clear;

Add('','Fields1',[ixPrimary,ixUnique]);

Add('FldIndex','Field2',[ixCaseInsensitive]);

End;

{在给出条件后建立表格}

Createtable;

End;

End;

End;

Table中APplyrangecancelrangeEditRangeStart的使用——用来改变索引

ProcedureTForm1.Button1Click(Sender:TObject);

Begin

Withtable1do

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