TDataSet类由TBDEDataSet(BDE组件)、TCustomADODataSet(ADO组件)、TIBCustomDataSet(InterBase组件)、TCustomSQLDataSet(dbExpress组件)和TCustomClientDataSet子类组成。
下面介绍DataSet类中比较重要的属性(可能会有取舍,等到真正做项目用到的时候在进行补充)
1.Active:判断数据库是否已打开;
2. Bof:判断数据集的第一条记录是否激活(且在以下状态下为true:1.打开一个数据集;2.用First方法访问数据集;3.使用Prior方法且该方法已失效;4.设置一个空范围或数据集的setRange方法);
3. BookMark:在DataSet中设置一个书签;
4. Buffers:在内部缓存中提供索引来存取记录的缓冲区;
5. CurrentRecord:在记录缓存区的内部缓存中的当前记录的索引;
6. DataSource:表示其他提供值的数据集的数据源,其默认值为nil;
7. Eof:判断数据集是否指向最后一条记录(在以下状态下为true:1.打开一个空的数据集;2.调用Last方法;3.调用next方法但当前记录已经是最后一条记录;4.对空范围或记录调用SetRange方法);
8. Found:移动到一个不同的记录上是否成功;
9. IsUniDirectional:判断数据集是否为TCustomSQLDataSet的子集;
10. Modifid:活动的记录是否可以修改;
11. RecNo:返回在一个数据集中已活动的记录条数;
12. RecordCount:与数据集关联的记录条数;
13. RecordSize:表示需要内部缓冲区的大小(在TDataSet中,RecordSize为0);
14.State:设定当前数据集的操作模式的状态(打开一个数据集,状态由dslnactive变成dsBrowse;编辑状态(dsEdit);插入状态(dsInsert);调用SetKey或SetRange(dsSetKey);Posting或canceling(由当前状态变为dsBrowse);Closing数据集(由当前状态变为dslnactive));
15.FieldValue:在数据集的活动记录中提供对所有字段的值的访问方法。(重要)
下面介绍TDataSet类中比较重要的方法:
1.ActiveBuffer:返回一个指向活动记录缓存的指针。(经常与bookmark配合来记录活动记录缓存中bookmark的信息)
2.Append:添加一个新的、空的记录到这个数据集的末尾。(重要)
2.1 AppendRecord:添加一个新的、空的记录到数据集的末尾并自动post。例如
Customer.AppendRecord([CustNoEdit.Text,CoNameEdit.Text, AddrEdit.Text, Null, Null, Null, Null, Null, Null, DiscountEdit.Text]);
3.FieldByName:根据字段的名称来访问(只用用来访问已存在的字段,否则会报EDatabaseError错误)。(重要)
4.Post:将已修改过的记录写入到数据库或日志中[ADO组件直接将数据提交到数据库服务器]。(重要)
procedure TForm1.Button1Click(Sender: TObject); begin SampleTable.Append; //添加一个新的记录 SampleTable.FieldValues['ALPHANUMERIC'] := Edit1.text; //设定两个字段并赋值 SampleTable.FieldValues['INTEGER'] := StrToInt(Edit2.text); SampleTable.Post; //提交记录到数据库或日志 end;
5.Cancel:如果活动的记录没有post,则可以取消活动的记录。但如果记录的状态不为(dsEdit or dsInsert),则方法无效。(重要)
6.ClearFields:清空活动记录的所有字段的值。
7.Close:关闭一个数据集。(重要)
8.Create:创建一个TDataSet对象。(重要)
9.Delete:删除一个活动记录并指针移动到DataSet对象的下一个记录。(重要)
10.Destory:销毁DataSet对象(通常情况下DataSet有系统自动回收)。(重要)
11.1 DisableControls:利用数据控件显示与一个DataSet对象关联的禁用数据。
11.2 EnableControls:与DisableControl刚好相反。
12.Edit:DataSet对象进入编辑状态。(重要)
13.FindField:搜索指定DataSet的字段。(如果未找到,则返回nil)(重要)例如:
with Table1 do begin FindField('CustNo').AsString := '1234'; Fields[0].AsString := '1234'; end;
14.1 FindFirst:是否指定DataSet对象的第一条记录,返回bool类型。(重要)
14.2 FindLast:与FindFirst方法刚好相反。(重要)
14.3 FindNext:判断指针是否定位到DataSet对象的下一个数据记录,返回bool类型。(重要)
14.4 FindPior:与FindNext方法刚好相反。(重要)
以上方法如返回false,则表示活动记录为成功修改;返回true,则表示修改成功。
15. First:移动到DataSet的第一条记录。调用该方法的目的是为了让DataSet的第一条记录设置为active。(重要)
16. 1 BookMarkVid:指定书签的有效性。
16.2 CompareBookMarks:用虚方法来比较两个书签。(如果BookMark1>BookMark2,则CompareBookMarks(BookMark1,BookMark2)>0)
16.3 GetBookMark:为数据集的活动记录分配标签。(由TBookMark得到)
16.4 SetBookMark:为数据集的活动记录设置标签。
16.5 GotoBookMark:定位到数据集活动记录被书签标记的位置上。(重要)
16.6 FreeBookMark:释放分配给指定标签的内存。(重要)例如:
procedure TForm1.CopyDataClick(Sender: TObject); var SavePlace: TBookmark; PrevValue: Variant; begin with MyData do begin { get a bookmark so that we can return to the same record } SavePlace := GetBookmark; //得到一个标签 try { move to prior record} FindPrior; { get the value } PrevValue := Fields[0].Value; {Move back to the bookmark this may not be the next record anymore if something else is changing the dataset asynchronously } GotoBookmark(SavePlace); { Set the value } Fields[0].Value := PrevValue; { Free the bookmark } finally FreeBookmark(SavePlace); end; end; end;
17. GetCurrentRecord:返回在缓存中的记录。(如返回false,则表示缓存区填充失败;如返回true,则缓存成功)(重要)
18. GetDetailDataSets:将不是嵌套的数据集填充到一个数据集列表中。
19. GetFiledData:在缓存中检索当前字段的值。(返回bool值,如返回false,则表示值未被成功提取)
20.1 Insert:向数据集插入一个新的、空的记录。(重要)
20.2 InsertRecord:向数据集插入一个新的、空的记录并自动post。(重要)
21. IsEmpty:判断数据集是否为空。(重要)
22. IsLinkedTo:判断数据集是否通过DataSource连接。(重要)
23. Last:将指针移动到数据集的最后一条记录。(重要)
24. MoveBy:从一个活动记录移动到另一个记录。(重要)
25. Next:移动到下一条记录。(重要)
procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin with ProgressBar1 do begin Min := 0; Max := Customers.RecordCount; Customers.First; for i := Min to Max do begin Position := i; Customers.Next; end; end; end;
26. Open:打开数据集。(重要)