看我的代码: procedure Tspqh_app.SpeedButton3Click(Sender: TObject); var sNewSub: string; begin //新部门 sNewSub := inputbox('新部门','新的部门名称', ''); if (trim(sNewSub) <> '') and (bm.Items.IndexOf(sNewSub) = -1) then begin if datamodule2.ADObm.Locate('部门名称',trim(snewsub),[]) then begin showmessage('部门名称已经存在,请重新输入!'); exit; end; datamodule2.ADObm.Insert; datamodule2.ADObm.Fields[0].AsString:=trim(snewsub); datamodule2.ADObm.Post; bm.Items.Add(snewsub); bm.Text:=trim(snewsub); end; end;
procedure Tspqh_app.SpeedButton3Click(Sender: TObject);
var
sNewSub: string;
begin
//新部门
sNewSub := inputbox('新部门','新的部门名称', '');
if (trim(sNewSub) <> '') and (bm.Items.IndexOf(sNewSub) = -1) then
begin
if datamodule2.ADObm.Locate('部门名称',trim(snewsub),[]) then
begin
showmessage('部门名称已经存在,请重新输入!');
exit;
end;
datamodule2.ADObm.Insert;
datamodule2.ADObm.Fields[0].AsString:=trim(snewsub);
datamodule2.ADObm.Post;
bm.Items.Add(snewsub);
bm.Text:=trim(snewsub);
end;
end;
这个问题我已回答三次了,也得了三次分了