| | | | | |

2024年1月5日

摘要：因为引用 CheckBox1不要双击后，出现 0的Edit显示所以，去掉 dgEditing DBGrid1.Options:= DBGrid1.Options-[ dgEditing]; 所有DBGrid1的Editor控件，事件都要自己写，包括默认Edit procedure TFo 阅读全文

posted @ 2024-01-05 16:36 涂磊阅读(76) 评论(0) 推荐(0)

DBGrid中插入CheckBox1(11)

摘要： procedure TForm13.DBGrid1CellClick(Column: TColumn); begin if (Column.Field.FieldName = 'aboolean') then begin DBGrid1.SelectedField.DataSet.Edit; if 阅读全文

posted @ 2024-01-05 15:37 涂磊阅读(44) 评论(0) 推荐(0)

DBGrid中插入ComboBox1(10)

摘要：根据 DBGrid中插入DateTimePicker(08) 类似改编 procedure TForm13.ComboBox1Change(Sender: TObject); //ComboBox1 写回数据库 begin DBGrid1.DataSource.Edit; DBGrid1.Col 阅读全文

posted @ 2024-01-05 11:51 涂磊阅读(64) 评论(0) 推荐(0)

2024年1月4日

DBGrid中插入DateTimePicker1(08)

摘要： DBGrid中插入DateTimePicker procedure TForm13.DateTimePicker1Change(Sender: TObject); //写回日期 begin DBGrid1.DataSource.Edit; DBGrid1.Columns[2].Field.Valu 阅读全文

posted @ 2024-01-04 21:43 涂磊阅读(60) 评论(0) 推荐(0)

Delphi10.3的DBGrid之外键显示(07)

摘要：要在设计的时候，界面上显示值 procedure TForm13.FDQuery1idGetText(Sender: TField; var Text: string; DisplayText: Boolean); begin if Sender.AsInteger =1 then text:='一阅读全文

posted @ 2024-01-04 21:23 涂磊阅读(53) 评论(0) 推荐(0)