P
puremoonstone
Unregistered / Unconfirmed
GUEST, unregistred user!
我在看李维的《DELPHI 5.X 分布式多层应用系统篇》中有两个问题,想请教:
1、关于OLDVALUE,NEWVALUE,CURVALUE
书4-3 (MIDAS功能展示)(PAGE 4-26)中
procedure TForm2.cbFieldsChange(Sender:TObject);
begin
edtOldValue.Text:=ClientDataSet1.FieldByName(cbFields.Text).OldValue;
edtNewValue.Text:=ClientDataSet1.FieldByName(cbFields.Text).NewValue;
edtValue.Text:=ClientDataSet1.FieldByName(cbFields.Text).CurValue;
end;
我在运行时发现,只有NewValue能正确显示,OldValue和CurValue都不行,经调试发现
它们是NULL,这是怎么回事呢?明明有值的,在我修改了之后,NewValue不为空,OldValue
也不为空啊。
2、 4-7(完善的错误处理)(PAGE 4-68)中
我按照书上写好了DATASETPROVIDER的ONUPDATEERROR过程,但在运行时发现它根本没捕获
错误;我又按照4-70在客户端加入了RECONCILE ERROR DIALOG,写好了CLIENTDATASET的
ONRECONCILEERROR,结果同样没捕获错误,请问大家遇到这个问题了吗?
谢谢!新年快乐!
1、关于OLDVALUE,NEWVALUE,CURVALUE
书4-3 (MIDAS功能展示)(PAGE 4-26)中
procedure TForm2.cbFieldsChange(Sender:TObject);
begin
edtOldValue.Text:=ClientDataSet1.FieldByName(cbFields.Text).OldValue;
edtNewValue.Text:=ClientDataSet1.FieldByName(cbFields.Text).NewValue;
edtValue.Text:=ClientDataSet1.FieldByName(cbFields.Text).CurValue;
end;
我在运行时发现,只有NewValue能正确显示,OldValue和CurValue都不行,经调试发现
它们是NULL,这是怎么回事呢?明明有值的,在我修改了之后,NewValue不为空,OldValue
也不为空啊。
2、 4-7(完善的错误处理)(PAGE 4-68)中
我按照书上写好了DATASETPROVIDER的ONUPDATEERROR过程,但在运行时发现它根本没捕获
错误;我又按照4-70在客户端加入了RECONCILE ERROR DIALOG,写好了CLIENTDATASET的
ONRECONCILEERROR,结果同样没捕获错误,请问大家遇到这个问题了吗?
谢谢!新年快乐!