L
luozhaoliang
Unregistered / Unconfirmed
GUEST, unregistred user!
有一个dbgrid中有一个‘审核’字段，当一条记录被审核后就不允许对这条记录做任何修改
后一种解决方法是：
procedure Tpartno_add.ADOTable1AfterScroll(DataSet: TDataSet);
begin
if adotable1.FieldByName('审核').AsBoolean=true then
adotable1.ReadOnly:=true
else adotable1.ReadOnly:=false;
end;
设置AfterScroll事件，但是这个事件好像只有当记录移动后才会发生，当我们开始打窗口时adotbale的记录是在第一条，也就是说当第一个条记录被审核了，但依然可以修改，而被审核的第二条记录起才不能修改，
我想原因是adotbale打开后，记录停在第一条记录，不触发AfterScroll事件
不知道还有什么更完美的解决方法？
还有就是我在一个form1中interface后的 public处定义了全局的公共变量A，但是我在这个地from1中这样引用这出错:form1.A就会发生地址错误，而直接引用A就不会这事，这是为什么啊
后一种解决方法是：
procedure Tpartno_add.ADOTable1AfterScroll(DataSet: TDataSet);
begin
if adotable1.FieldByName('审核').AsBoolean=true then
adotable1.ReadOnly:=true
else adotable1.ReadOnly:=false;
end;
设置AfterScroll事件，但是这个事件好像只有当记录移动后才会发生，当我们开始打窗口时adotbale的记录是在第一条，也就是说当第一个条记录被审核了，但依然可以修改，而被审核的第二条记录起才不能修改，
我想原因是adotbale打开后，记录停在第一条记录，不触发AfterScroll事件
不知道还有什么更完美的解决方法？
还有就是我在一个form1中interface后的 public处定义了全局的公共变量A，但是我在这个地from1中这样引用这出错:form1.A就会发生地址错误，而直接引用A就不会这事，这是为什么啊