DELPHI 数据库控件心得(1)_闫波

DELPHI 数据库控件心得(1)(2008-10-27 00:29:28)

标签：杂谈

分类：Delphi

TField对象的SetText和GetText事件处理函数

使用TField对象的SetText和GetText事件处理函数可方便的解决字段的代码与代码所对应值的显示问题

TSimpleDataset/TClientDataset对象的Aggregation

使用TDataset对象的Aggregate属性可以来计算客户端数据集中数据的总计数值、平均值或是计算最大值和最小值。

使用TBookMark来标记记录书签, 访问数据集中的数据

通过使用TBookMark以及TDataset对象的 BookMark 属性, 要以为当前的纪录设置书签，
例
var
bk:TBookMark;
begin
bk:=ds.GetBookMark; //设置书签
....
ds.GoToBookMark(bk);//回到原来的纪录
ds.FreeBookMark(bk);//释放内存
end;

Locate 与 Lookup 区别:

Locate找到查寻的数据后，它会把目前的记录位置移动到找到的这笔数据上
Lookup找到查寻的数据后，它会回传找到的数据的特定字段数值，却不会移动目前的记录位置。

Lookup方法的第三个参数则是指定当Lookup找到欲查寻的数据之后，要回传这笔数据的那些字段数值。如果开发人员想要Lookup回传多个字段数值，那么每一个字段也是以分号分隔。

至于Lookup方法回传的数值则是第三个字段指定的字段数值，如果Lookup回传多个字段的话，那么这个回传数值就是一个Variant数组，每一个回传的字段便储存在这个Variant数组的元素之中。

例:

var

sFields : String;

vResult : Variant;

iCount : Integer;

begin

vResult := ds.Lookup('fieldnameA, fieldnameB' , VarArrayCreate([ValueA, ValueB], varVariant), 'fieldname1, fieldname2');

if (VarIsArray(vResult)) then

begin

sFields := '';

for iCount := VarArrayLowBound(vResult, 1) to VarArrayHighBound(vResult, 1) do

begin

sFields := sFields + ';' + vResult[iCount];

end;

end

else

edtReturn.Text := vResult;

end;

一些使用 DevExpress 时的小心得

1. 设置 DataController.Filter.AutoDataSetFilter=True 可以使过滤器直接影响后台数据集。
2. 关于cxFormatController的一些用法。当修改了系统默认数据格式定义时，cxFormatController可通过方法 GetFormats 与 NotifyListeners 来实现刷新。
    例：
        CurrencyString := '元';
        SysUtils.CurrencyFormat := 3;
        SysUtils.CurrencyDecimals := 4;
      cxFormatController.GetFormats;
      cxFormatController.NotifyListeners;
3.更新当前所选行中某列的值，可以按以下方法实现，
Column.EditValue := AValue。如可使用 Record.Values[AIndex] := AValue，并不能直接更新行中指定值所对应的数据集中的值。通过 Column.EditValue 刚可以实现。

TDatasetProvider.UpdateMode属性；
upWhereAll   限制最严，但可以最大程度地保证记录的一致性。如果两个用户编辑同一条记录，第一个用户能够更新记录，而第二个用户将会收到“另一个用户已经修改了这条记录”的报错信息。如果希望改进执行这种检查的字段，可以去掉相应的TField.ProviderFlags属性中的pfInWhere项。

upWhereChanged   实际上允许两个用户同时编辑一条记录；在两个用户编辑同一条记录的不同字段时，不会检查出冲突。例如，如果用户A修改Address字段并更新了记录，那么用户B仍然能够修改BirthDate字段并成功地更新记录。

upWhereKeyOnly   限制最宽。只要是记录存在于数据库中，每个用户都可以进行修改并更新。这样，后面的修改总是覆盖前面的修改。
系统默认的是upWhereAll，请修改为你认为合适的模式！

ADO 中处理多个返回结果集
在使用 SQL 语句时，常常会有多个结果集被返回的情况，比如 EXEC sp_helpconstraint [TableName] 就返回了两个结果集。如果我们需要处理多个结果集时。可用ADO的 NextRecordSet 方法。用法如下：

var

R: integer

begin

with ADOQuery do

begin

Close;