代码改变世界

delphi之TDataset

2016-11-17 20:57  绿贝  阅读(2742)  评论(0编辑  收藏  举报

 

TDataSet控件一些重要的属性:

Active:判断数据库是否已打开;

 Eof:判断数据集是否指向最后一条记录(在以下状态下为true:1.打开一个空的数据集;2.调用Last方法;3.调用next方法但当前记录已经是最后一条记录;4.对空范围或记录调用SetRange方法);

RecordCount:与数据集关联的记录条数;

FieldValue:在数据集的活动记录中提供对所有字段的值的访问方法。(重要)

Append:添加一个新的、空的记录到这个数据集的末尾。(重要)

FieldByName:根据字段的名称来访问(只用用来访问已存在的字段,否则会报EDatabaseError错误)。(重要)

 Delete:删除一个活动记录并指针移动到DataSet对象的下一个记录。(重要)

 DisableControls:利用数据控件显示与一个DataSet对象关联的禁用数据。

EnableControls:与DisableControl刚好相反。

  First:移动到DataSet的第一条记录。调用该方法的目的是为了让DataSet的第一条记录设置为active。(重要)

 IsEmpty:判断数据集是否为空。(重要)

Next:移动到下一条记录。(重要)

Last:将指针移动到数据集的最后一条记录。(重要)

Open:打开数据集。(重要)

with jscdQryPackBalances do
  begin

   departdate := FieldByName('departdate').AsDateTime;

  vehicleno := FieldByName('vehicleno').AsString;
end;


if jcdspackbalance.Active then
begin
jcdspackbalance.Edit;
jcdspackbalance.AppendRecord([departdate,agentrate]);
end
else
begin
jcdspackbalance.CreateDataSet;
jcdspackbalance.AppendRecord([departdate,agentrate]);
end;


jscdQryPackBalances.Edit;
jscdQryPackBalances.Delete;