如何在DBGRID修改或新增的状态下不让其数据能够移动?因为DBGRID中数据记录移动后默认是POST?

chen_yj 2002-05-06 10:37:42
在DBGRID进行修改或新增的时候!我按鼠标改变其记录条后,数据会默认为保存?我如何在此种情况下不允许用鼠标或键盘改变dbgrid中的记录条的位置?请帮个忙!谢谢!
...全文
128 15 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
15 条回复
切换为时间正序
请发表友善的回复…
发表回复
Bob7946 2002-05-07
  • 打赏
  • 举报
回复
是啊,你这样做的目的是什么?
还不是要保证用户输入数据的完整性
假如你要输入的几个字段里,有几个是非空的,有几个是可空的
那么在非空字段的OnValidate里面来判断一下当前字段的合法性,是空的或是无效的,就abort出来让用户重输,否则如果用户输入的数据是完整有效的,为什么不让人家保存滚动纪录?
而对非空字段,是不是验证是由你自己定的。
chen_yj 2002-05-07
  • 打赏
  • 举报
回复
可记录不需要验证又当如何?更何况如果验证通过,按了鼠标以后还是会保存啊!这与我的想法不同!我的要求是当记录在编辑状态,不能用鼠标进行其它操作!如移动记录等!
chen_yj 2002-05-06
  • 打赏
  • 举报
回复
dbgrid中也没有onscroll事件!!
chen_yj 2002-05-06
  • 打赏
  • 举报
回复
等会儿!好象不能放在此事件中?这样的话,我连保存也不行了啊?!
chen_yj 2002-05-06
  • 打赏
  • 举报
回复
非常感谢!问题得到解决了!还有请问一个另外一个问题,我在dataset事件中看到一些如beforescroll onwillmove等事件?请问能否在这里进行判断!如行,请问如何进行?这些事件的用途如何?能否告之??待会儿我分数一定送上!谢谢
ding_csdn 2002-05-06
  • 打赏
  • 举报
回复
dbgrid中有onscroll事件
Bob7946 2002-05-06
  • 打赏
  • 举报
回复
刚才笔误了,是在datasource的onUpdateData事件里面写代码
例如:
procedure TForm1.DataSource1UpdateData(Sender: TObject);
begin
if Table1.State in [dsEdit,dsInsert] then
begin
showmessage('数据编辑中,请先保存!'); //提示用户
abort;
end;
end;
chen_yj 2002-05-06
  • 打赏
  • 举报
回复
请问如何abort掉啊???还有在datasource的onscroll事件中好象没有onscroll事件啊???
Bob7946 2002-05-06
  • 打赏
  • 举报
回复
有啊,多的是啊,你在DataSource的OnScroll事件里面判断一下,假如dataset.state in [dsinsert,dsedit]的话,就abort掉(当然要多判断一点了)
chen_yj 2002-05-06
  • 打赏
  • 举报
回复
有没有其它的更好的方法???
Bob7946 2002-05-06
  • 打赏
  • 举报
回复
那你可以在数据集的每个需验证的字段对象的OnValidate事件里面写判断,当验证失败后,就abort掉,记录的游标就不会滚动,也就不能post了
chen_yj 2002-05-06
  • 打赏
  • 举报
回复
我的目的是当DBGRID在修改或新增的状态下,不能用鼠标进行对DBGRID的数据移动等操作!如:当在DBGRID中修改时,鼠标点击其它记录时给个提示数据正在修改不能移动!
dreamfan 2002-05-06
  • 打赏
  • 举报
回复
可以改一下locktype属性,让他不自动保存就可以了
Bob7946 2002-05-06
  • 打赏
  • 举报
回复
不过我推荐
"
那你可以在数据集的每个需验证的字段对象的OnValidate事件里面写判断,当验证失败后,就abort掉,记录的游标就不会滚动,也就不能post了
"
这个方法
Bob7946 2002-05-06
  • 打赏
  • 举报
回复
刚才说了,你要多判断一点了
在条件
if Table1.State in [dsEdit,dsInsert] then
里面,你可以加上自己定义的判断条件,比如:
if (Table1.State in [dsEdit,dsInsert]) and Can_Update then
//Can_Update是你定义的一个标志,用来判断是否要进行更新
begin
...
end;

还有,在beforescroll事件里不行,因为post发生在scroll之前

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧