摘要:
procedure TForm13.DBGrid1CellClick(Column: TColumn); begin if (Column.Field.FieldName = 'aboolean') then begin DBGrid1.SelectedField.DataSet.Edit; if 阅读全文
摘要:
要在设计的时候,界面上显示值 procedure TForm13.FDQuery1idGetText(Sender: TField; var Text: string; DisplayText: Boolean); begin if Sender.AsInteger =1 then text:='一 阅读全文