教TADOQuery方面的
我用以下件了一具有,新增,修改,除等功能的程式。
TDBEdit
TDBNavigator
TDBGrid
TADOQuery
新增一料,有,等光移到TDBEdit件入,由於TADOQuery太活了,自,於是新增的尚未填料的行取消。本想用TADOQuery及些敏感件可以不用太多代就可以一定功能的程式。可是活的西不好控制。
我想到如下功能:
新增一,只有必要的料填完整後才可以,或是按了TDBNavigator上的POST或CANCEL才可以取消增到其他行。
偶了如下代:
procedure TfrmMain.adoqCustBeforeScroll(DataSet: TDataSet);
begin
if dataset.State in [dsinsert] then
if ((dataset.FieldByName( ' ').asstring= ' ') or(dataset.FieldByName( ' ').asstring= ' ') then
abort;
end;
可是TDBNavigator上的POST或CANCEL也不起作用了。哪位有好的方法。教。
[解决办法]
修改时:adoquery.disablecontrol
完毕后:adoquery.enablecontrol