se
begin
with datamodule2.ADSsupplyms do
begin
insert;
FieldByName('供应商编号').AsString:=edit1.Text;
FieldByName('联系人姓名').AsString:=edit2.Text;
FieldByName('电话号码').AsString:=edit3.Text;
FieldByName('邮政编码').AsString:=edit4.Text;
FieldByName('传真号码').AsString:=edit5.Text;
FieldByName('公司名称').AsString:=edit6.Text;
FieldByName('公司地址').AsString:=edit7.Text;
FieldByName('公司主页').AsString:=edit8.Text;
FieldByName('所在城市').AsString:=edit9.Text;
FieldByName('所在地区').AsString:=edit10.Text;
FieldByName备注信息').AsString:=memo1.Lines.Text;
post;
refresh;
end;
end;
except
begin
showmessage('关键字已存在,添加失败!');
datamodule2.ADSsupplyms.Cancel;
end;
end;
（二）顾客信息管理
procedure Tcustomerfrm.ToolButton1Click(Sender: TObject);
begin
try
if (edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(edit4.Text='')or(edit5.Text='')or(edit6.Text='') then
showmessage('Data is not enough!')
else
begin
with datamodule2.ADScustomerms do
begin
Insert;
FieldByName(顾客编号').AsString:=edit1.Text;
FieldByNam（联系人名').AsString:=edit2.Text;
FieldByName(电话号码').AsString:=edit3.Text;
FieldByName(邮政编码').AsString:=edit4.Text;
FieldByName(传真号码').AsString:=edit5.Text;
FieldByName(公司名称').AsString:=edit6.Text;
FieldByName(公司地址').AsString:=
