今天在看代码的时候遇到一个问题,query中的某个字段和在表中显示的不是一个值,我觉得很奇怪,于是找了很久,才知道为什么,原来是query中的OnSetText和onGetText事件在作怪,经过一番学习,我终于知道了这两个事件怎么用。
OnSetText、onGetText的功能是对字段进行读写转化。
下面我举一例子吧,有助于大家的理解:
这是对TQuery的字段id进行读写转化的代码,功能是当数据库字段值为true时显示 '是 ',反之为 '否 ';写入时若选择 '是 ',则写true入数据库反之为false;找这个字段的方法是双击DBGRID的DataSource的DataSet,然后再在弹出的框中击右键,选Add all fields...,然后选中你要转化的那个字段,再按F11,选择Events标签页,那里就是OnGetText、OnSetText所在的地方,如下是具体代码:
procedure TfrmAdmin.aqAdminsysGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
if Sender.AsBoolean = true then
Text := '是 '
else
Text := '否 ';
end;
procedure TfrmAdmin.aqAdminsysSetText(Sender: TField; const Text: String);
begin
if Text = '是 ' then
Sender.AsBoolean := true
else
Sender.AsBoolean := false;
end;