下面的是在onclick中的程序,FORM1上没有放什么,只是一些Edit用于输入。有一点就是,先insert一个空白记录,然后在Edit上修改,最后POST,然后执行下面的程序。
if tableppo.state=dsbrowse then exit;
if (tableppo.State=dsInsert) then
begin
dberevtimes.Field.Value :=0;
tableppo.Post;
frmcolor:=tfrmcolor.create(self);
frmcolor.setppono(dbeppoppono.text);
frmcolor.ShowModal;
end
else
begin
if tableppo.State=dsbrowse then
tableppo.Edit;
dberevtimes.Field.value:=dberevtimes.Field.value+1;
tableppo.Post;
end;
if tableppo.UpdatesPending then
begin
tableppo.ApplyUpdates;
tableppo.CommitUpdates;
end;
dbeppoppono.ReadOnly :=true;
changecolor(panel3,clblack,true);
label40.Visible:=false;
except
...