我界面有一个DBGrid,下面有相应的DBText
程序的功能理应是:DBText随着DBGrid的游标显示相应的记录内容(比如我鼠标点第三条记录,下边的DBText显示第三条记录的相应内容)
但是,失败!
症状:点Navigator的话,要移动到五条记录之后或之前,DBText才刷新显示游标所在位置的记录内容,不然一直是先前游标位置的记录内容。
我后台是Oracle数据库
用的三层结构
请高手指点!
程序的功能理应是:DBText随着DBGrid的游标显示相应的记录内容(比如我鼠标点第三条记录,下边的DBText显示第三条记录的相应内容)
但是,失败!
症状:点Navigator的话,要移动到五条记录之后或之前,DBText才刷新显示游标所在位置的记录内容,不然一直是先前游标位置的记录内容。
我后台是Oracle数据库
用的三层结构
请高手指点!
解决方案 »
- VB调用DELPHI写的dll出现很奇怪的问题,请高人相助啊 !!!
- 请问treeview如何设置第一层字体颜色,字体,背景,当为某一数值时为大写红色,请高手帮忙
- 请问如何将FASTREPORT 加载进 DELPHI里面?
- 怎么用delphi向sql2000数据库image字段写word文件
- 谁用过xp操作系统?
- 各位大虾,中午好! 我的程序退出时会出错,显示"application error"对话框。帮帮看我的code,感激不尽!
- 怎样实现按回车键=确定?
- delphi中有没有控件数组(象vb一样)???
- delphi 窗体风格 不一致 变来变去的!!
- 引用dll中的函数(foxpro to delphi)
- Pointer ,pchar ,^char 之间的异同点,我现在越看书越迷糊
- 关于库存盘点的一个“超”简单问题!
http://scsoft.agrie.com
大家觉得我这个事件有什么处理不得不好吗?请指教!
procedure Tfrmproportionquest.allDBGridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var status:string;
begin
basedatamodule.rwlxdict.Active:=true;
basedatamodule.tcyszjhClientDataSet.edit;
status:=basedatamodule.tcyszjhClientDataSet.fieldbyname('任务类型').asstring;
if status='A' then
begin
basedatamodule.tcyszjhClientDataSet.FieldByName('任务类型').asstring:='计划任务';
end
else if status='B' then
begin
basedatamodule.tcyszjhClientDataSet.FieldByName('任务类型').asstring:='临时任务';
END;
end;