procedure Tfrm_studentinfo.BitBtn1Click(Sender: TObject); begin try adoquery1.Post; except end; end; //脱离Delphi运行就不会出错了
var str_dbe1 : string; .........//修改前 str_dbe1 := dbedit.text;procedure Tfrm_studentinfo.BitBtn1Click(Sender: TObject); begin if str_dbe1 <> dbedit.text then adoquery1.Post else application.messagebox('美修改','提示',mb_ok); end;
begin
try
adoquery1.Post;
except
end;
end;
//脱离Delphi运行就不会出错了
str_dbe1 : string;
.........//修改前
str_dbe1 := dbedit.text;procedure Tfrm_studentinfo.BitBtn1Click(Sender: TObject);
begin
if str_dbe1 <> dbedit.text then
adoquery1.Post
else application.messagebox('美修改','提示',mb_ok);
end;
adoquery1.post
except
end;
//脱离Delphi环境运行。