query中对应的OnSetText和onGetText事件

时间:2023-03-08 17:19:06

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