开始DBEDIT的属性是可写的,我向里边写进去了数据,然后保存了数据。保存完数据以后,我想设置DBEDIT的属性为只读,不允许用户修改DBEDIT里边的数据。如果用普通方法dbedit.readonly:=true方法设置,因为有十几个DBEDIT,这个方法需要每个DBEDIT都设置一次,有没有简便一些的方法。我知道table.edit和table.insert是设置编辑和插入状态的,不知道有没有设置为只读状态的,也不知道这样的方法是否可行。如果大家有好的方法请大家告诉我,谢谢。
解决方案 »
- 如何隐藏自己写的ocx,急急急!!!
- 100高分求ReportBuilder.Server.v7.04.for.Delphi7的注冊碼。
- 怎样实现在dbgrid1里,选择几条记录,在dbgrid2上显示出来呢?
- 帮忙看一下这行语句 怎么运行不通 关于like
- rave中如何显示计算字段?
- 请教:EDIT控件左中右对齐问题???
- 一个字符字段长度是200,在打印时,一行打不完,怎样才能让其在下一行自动打印?
- delphi怎么样和sql-server联系起来使用啊 ?
- xe系列中如何将tbytes转为ansistring或RawByteString?
- 这个编号如何解决?(专家们请进)
- 急!RichEdit!
- 怎样才能不让程序抛出异常?
设置readonly属性为true
这样就不允许修改数据库了哈哈哈哈《〈〈〉〉》
if table1.state in [dsinsert] then
begin
for i:=0 to Controls.count-1 do
begin
if Controls[i] is TDbEdit then
(Controls[i] as TDbEdit).readonly := false
end
endif table1.state in [dsEdit] then
begin
for i:=0 to Controls.count-1 do
begin
if Controls[i] is TDbEdit then
(Controls[i] as TDbEdit).readonly := true;
end
end
table.edit.ReadOnly := True;
可以的,没有问题
table.ReadOnly := True