delphi中当某个单元格输入数据时，发生的事件

发布时间：2020-12-15 09:57:00 所属栏目：大数据来源：网络整理

导读：今天在看代码的时候遇到一个问题，query中的某个字段和在表中显示的不是一个值，我觉得很奇怪，于是找了很久，才知道为什么，原来是query中的OnSetText和onGetText事件在作怪，经过一番学习，我终于知道了这两个事件怎么用。 ? ?? ? OnSetText、 onGetText的

今天在看代码的时候遇到一个问题，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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!