摘要:
procedure TForm1.FormShow(Sender: TObject);begin ADOTable1.Open;end;procedure TForm1.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid; Index: Integer);var Status:string; Tname:string; TCap:string; textrect,CapRect,panelRect:TRect;begin with DBCtrlGrid do begin //取数据 with datasource.DataSe... 阅读全文