当DataSource.AutoEdit:=False,DBEdit编辑会报错,DBGrid却可以自动变为只读模式,这是为什么?
解决方案 »
- 3表联合查询的问题,貌似有点复杂?
- 能用gdi+ 将一jpg或bmp图片显示成半透明吗?
- 如何弹出显示确认,取消按钮的窗口?
- 求购服装外贸软件!
- 关于stringgrid控件删除行的问题。
- 怎样响应DBGrid的滚动条滚动事件 ?就是dbgrid的滚动条一滚动就要触发一个动作。
- 请问哪位用过wise installation system 进来帮帮小弟一下好吗
- 属性改变导致行为改变-----是怎么实现的
- 那位给我解释一下这句代码?Format('%2.2x,[Length(TPuserData) div 2)]')
- 请问怎么做帮助文件?有什么好方法和好工具?急!!!!
- 问一个调试问题
- 清凉一夏,酷一夏---网络NC,震撼一夏 ^_^,试一下? (兼寻找主服务器)
当用户选择工具条上的修改按钮后才允许让用户对资料进行修改(DataSource.autoedit:=Ture),否则只允许用户对资料进行查看(DataSource.autoedit:=False)。
begin
for i:=0 to AForm.ComponentCount-1 do
begin
if AForm.Components[i] is TDBEdit then
begin
if TDBEdit(AForm.Components[i]).DataSource=ADataSource then
begin
TDBEdit(AForm.Components[i]).ReadOnly:=MyState;
end;
end;
end;
end;
调用方法:在DataSource的OnStateChange事件中编写如下代码:begin
SetAllDBEditState(Self,TDataSource(Sender),TDataSource(Sender).AutoEdit);
end;