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('关键字已存在,添加失败!');
end;
（三）商品信息管理
procedure Tgoodsfrm.ToolButton1Click(Sender: TObject);
begin
try
if (edit1.Text='')or(edit2.Text='')or(edit3.Text='')or(edit4.Text='') then
showmessage('No data put in!')
else
begin
with datamodule2.ADSgoods do
begin
Insert;
FieldByName('商品编号').AsString:=edit1.Text;
FieldByName('商品名称').AsString:=edit2.Text;
FieldByName('商品规格').AsString:=edit3.Text;
FieldByName('计量单位').AsString:=edit4.Text;
FieldByName('备注信息').AsString:=memo1.Lines.Text;
post;
refresh;
end;
end;
except
begin
showmessage('关键字已存在,添加失败!');
datamodule2.ADSgoods.Cancel;
end;
（四）进货信息管理
procedure Tstockmana.ToolButton1Click(Sender: TObject);
begin
try
with datamodule1.ADOQryjhgl do
begin
九、参考资料
