又是DBGrid,为什么不会输出当前记录数?代码如下:
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
if field=adoquery1.FieldByName('xuhao') then
dbgrid1.Canvas.TextOut(rect.Left,rect.Top,inttostradoquery1.RecNo));
end;
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
if field=adoquery1.FieldByName('xuhao') then
dbgrid1.Canvas.TextOut(rect.Left,rect.Top,inttostradoquery1.RecNo));
end;
解决方案 »
- 主窗口是 MAIN 登陆窗口是LOGIN 怎么样让程序一启动,就运行 LOING?
- 在combobox中输入汉字,如果不想要那种联想输入,怎么做??
- 为什么在使用HP LaserJet 1000系列的时候,我用程序设定自定义纸张大小不起作用,而别的型号可以???
- 加密的问题该在哪儿问哦??
- 有时间的朋友们,能否帮我测试一下我的小东东
- 有关combobox的问题
- 200分了~~主程序调用DLL文件里的FORM,为什么form关闭的时候主程序窗口莫名其妙的最小化阿?
- Delphi中如何利用RES文件?
- 再问一次我在用BDE设计表时,想定义一个新的数据库该如何做,能否说详细些.
- 方案请教:原来用paradox作单机版,现需改为支持局域网,一定要C/S结构、SQL吗?什么方案最简单?
- 关于ODBC连接数据库的问题?
- 又是DBGrid,为什么不会输出当前记录数?
dbgrid1.Canvas.FillRect(rect);
dbgrid1.Canvas.font.color:=clblack;
dbgrid1.Canvas.TextOut(rect.left,rect.top,inttostr(adoquery1.RecNo));