如何把数据库中的值 写入到DBCtrlGrid1 单独的框中并显示出来? 100分(100)

  • 主题发起人 主题发起人 modernzheng
  • 开始时间 开始时间
M

modernzheng

Unregistered / Unconfirmed
GUEST, unregistred user!
连接SQL Server 默认数据库上pubs employee 表上的 minit 字段 进行测试procedure TForm1.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid; Index: Integer);vara,b,c,d:integer;beginc:=DBCtrlGrid1.Height;d:=DBCtrlGrid1.height; if ADOQuery1.FieldByName('minit').value='M' then begin DBCtrlGrid1.Canvas.Brush.Color := clblue; DBCtrlGrid1.Canvas.rectangle(1,1,c,d); ImageList1.Draw(DBCtrlGrid1.canvas,40,40,0); //画上ImageList1 图标 end else if ADOQuery1.FieldByName('minit').value='A' then begin DBCtrlGrid1.Canvas.Brush.Color := clgreen; DBCtrlGrid1.Canvas.Rectangle(1,1,c,d); DBCtrlGrid1.Canvas.Font.Size:=12; DBCtrlGrid1.Canvas.Font.Color:=clred; ImageList1.Draw(DBCtrlGrid1.canvas,40,40,1); // 画上图标 end;end;除了颜色外写入框中外,如何把 ADOQuery1.FieldByName('minit').value='M' 对应的值 M 写入到DBCtrlGrid1 的框中显示出来。
 
DBCtrlGrid1.canvas.textOut() 函数不可以?
 
我添加的字和图片同时显示再框中 如何实现? 也就是说所有框显示数字同时也显示图片
 
先用上面的方法显示图片,然后调用DBCtrlGrid1.canvas.textOut()函数将数字绘制到框中啊。
 
后退
顶部