• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

delphi DBGRID 刷新定位问题 [问题点数:0分]

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

我程序是 adoquery+datasource+dbgrid 做的
我有一个窗体:有四个按钮。分别是新建,修改,删除,刷新。

新建第一条记录,dbgrid显示一条记录,新建第二条记录。DBGRID总共显示第一,第二条记录。不需要把以前记录显示出来。。

修改时候,,,当修改当前记录完成后DBGRID回当前修改行。


删除一条记录。。。定位到删除记录下条记录。

 

ADOQuery1.Close;
ADOQuery1.SQL.Text:='select * from 表名 where (ID > '
+QuotedStr('数据库中ID的最大号'
+') and (user = '
+QuotedStr('操作者名'
')';
ADOQuery1.Open;

 

假定你的数据表中有个唯一的ID(自增)字段、有个记录操作者的user字段,新增记录时的查询语句这样写:

ADOQuery1.Close;
ADOQuery1.SQL.Text:='select * from 表名 where (ID > '
+QuotedStr('数据库中ID的最大号'
+') and (user = '
+QuotedStr('操作者名'
')';
ADOQuery1.Open;

就可以达到表格中总是显示新键入的记录了。

编辑记录时,在你的语句前后加入下面两句即可定位到被编辑的记录上:

var p:pointer;
begin
p:=ADOQuery1.GetBookmark;//做个标签
//记录修改和提交的语句...
ADOQuery1.GotoBookmark(p);//记录定位到标签
end;

删除记录时,系统自动将记录定位到被删除记录的上一条,所以,删除记录后,只要执行ADOQuery1.Next;就能定位到被删记录的下一条(假如有的话)

 

在使用Bookmark的时候,最好用try except 屏蔽错误。 还要FreeBookmark


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphi中Interface接口的使用方法发布时间:2022-07-18
下一篇:
Delphi制作图像特殊显示效果发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap