关于adoquery问题

Question

我想在adoquery表里的write-off字段里OnGetText事件里实现:此字段类型是bit的,想在dbgrid界面上(连着数据表的)录入时用销单代表true,未销单代表false,等存到数据库的话用true或false的,应该怎样来在ongettext事件写代码呢

Answer 1

procedure TForm1.Query1aaGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  if Sender.AsBoolean then
    Text := '銷單'
  else Text := '未銷單';
end;procedure TForm1.Query1aaSetText(Sender: TField; const Text: string);
begin
  Sender.AsBoolean := Text = '銷單';
end;