用ado连接数据库
实现对数据库的每条记录与条件进行比较
主要代码如下:
timer1的处理代码 间隔为1秒 while not adotable1.eof do
adotable1.first;
if 条件 then
begin
条件处理代码
adotable1.next;
end
else
adotable1.next;
所需要的功能已经实现
但是,adotable对应的dbgrid在显示时
每一秒高亮条都从第一行到最后一行出现一次
右侧的滚动条从上到下滚动一次
使的程序执行起来看着很不美观
试过固定行
但效果仍不好
对某条记录进行编辑也无法选中(选中后马上到下一个周期的循环扫描了)
不知有没有让dbgrid的高亮在表面上看不出现,
但后台能与数据库保持同步的方法 ~~~~
实现对数据库的每条记录与条件进行比较
主要代码如下:
timer1的处理代码 间隔为1秒 while not adotable1.eof do
adotable1.first;
if 条件 then
begin
条件处理代码
adotable1.next;
end
else
adotable1.next;
所需要的功能已经实现
但是,adotable对应的dbgrid在显示时
每一秒高亮条都从第一行到最后一行出现一次
右侧的滚动条从上到下滚动一次
使的程序执行起来看着很不美观
试过固定行
但效果仍不好
对某条记录进行编辑也无法选中(选中后马上到下一个周期的循环扫描了)
不知有没有让dbgrid的高亮在表面上看不出现,
但后台能与数据库保持同步的方法 ~~~~
解决方案 »
- 在DELPHI里面怎樣區分子母和數字???????急....
- 使用odac连接oracle时游标释放的问题,问题解决马上给分
- 我有个问题要请教?
- DCOM问题:找不到对象(Could not find object)
- 请问,用delphi开发的程序,想用asp调用,有几种调用方式或者说我该怎样做才好
- 求助:socketconnection出错的问题
- S0S!!!!高分求救!!!急!急!!如何统计一个表中的记录?具体是这样的:一个表中的字段有:编号、厂名、、、、
- 请问在连接SQL 时如何越过登路对话框?
- How to save Richedit to BMP?
- FireMonkey TWebBrowser无法隐藏
- 关于InterBase的一些初级问题,得分的好机会来了。
- cqzyf
adotable1.DisableControls
.
.
.
adotable1.EnableControls
DisableControls EnableControls方法二:设置它的DefaultDrawing 为FALSE,在OnDrawColumnCell中写如下代码:
if (gdSelected in state) and (not dbgrid1.Focused) then
begin
dbgrid1.canvas.brush.color:=clwhite;
dbgrid1.Canvas.font.Color:=clblack;
end;
在循环体内还要对adotable进行字段值的读取
我是把adotable的字段值与一个值比较
这样以来就不能实现了
是否可以用dbgrid的属性进行操作
另外,用
DisableControls
.......
EnableControls高亮总是在最后一个记录
想对其他记录操作时,选中后1秒后(我的timer间隔为一秒)
又回到最后一条记录了
来不及作出选择~~
循环中要用~~
我是把adotable的字段值与一个变量比较
进行分支判断
我试过了
功能可以实现
只是用
DisableControls
.......
EnableControls高亮总是在最后一个记录
想对其他记录操作时,如删除,选中后1秒后(我的timer间隔为一秒)
又回到最后一条记录了
来不及作出选择~~
不知有何方法~~
能否运用QUERY通过SQL语句批量进行,提高效率。