看我的代码:
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;