procedure TgoodsForm.Button2Click(Sender: TObject);
begin
with ADOQueryNew do
begin
Close;
SQL.Clear;
SQL.Add('if not exists(select 1 from ut_Goods where GoodsNO=:z) ');
SQL.Add('insert into ut_Goods(GoodsNO,GoodsName,GoodsBar,GoodsUnit,SupplierNO,GoodsMemo) values(:a,:b,:c,:d,:e,:f)');
Parameters.ParamByName('z').Value:=Trim(Edit2.Text);
Parameters.ParamByName('a').Value:=Trim(Edit2.Text);
Parameters.ParamByName('b').Value:=Trim(Edit3.Text);
Parameters.ParamByName('c').Value:=Trim(Edit4.Text);
Parameters.ParamByName('d').Value:=Trim(Edit5.Text);
Parameters.ParamByName('e').Value:=Trim(Copy(TntComboBox1.Text,1,4));
Parameters.ParamByName('f').Value:=Trim(Memo1.Lines.Text);
ExecSQL;
ShowMessage('添加成功!');
end;
Button1.Click;
end;
begin
with ADOQueryNew do
begin
Close;
SQL.Clear;
SQL.Add('if not exists(select 1 from ut_Goods where GoodsNO=:z) ');
SQL.Add('insert into ut_Goods(GoodsNO,GoodsName,GoodsBar,GoodsUnit,SupplierNO,GoodsMemo) values(:a,:b,:c,:d,:e,:f)');
Parameters.ParamByName('z').Value:=Trim(Edit2.Text);
Parameters.ParamByName('a').Value:=Trim(Edit2.Text);
Parameters.ParamByName('b').Value:=Trim(Edit3.Text);
Parameters.ParamByName('c').Value:=Trim(Edit4.Text);
Parameters.ParamByName('d').Value:=Trim(Edit5.Text);
Parameters.ParamByName('e').Value:=Trim(Copy(TntComboBox1.Text,1,4));
Parameters.ParamByName('f').Value:=Trim(Memo1.Lines.Text);
ExecSQL;
ShowMessage('添加成功!');
end;
Button1.Click;
end;
解决方案 »
- 怎样检测ActiveX的内存泄漏啊?
- ocx组件如何指定固定的classid(改classid)
- delphi 开发三层数据架构程序,客户端提示invalid data packet,请高手解答
- 如何在 TWebBrowser 中模拟点击超链接
- 请教如何制作带箭头的splitter,实现显示隐藏,如:DreamWeaver的各个面板的伸缩
- 请问哪位兄弟是无线上网的?我想请你帮个忙好吗?
- progressbar
- 用indy传文本格式数据,里面有各种信息,应该以什么形式传呢
- 放分,过年!!!!!!
- 帮我看看sql语句哪错了?
- 树节点与输入内容比较,并自动展开的问题!
- 请教COM组件参数数据类型转换的问题?
还有我在TntMemo里只输入“光驱”,只会进去“光”,只是两个字哦
1,update时可以,没问题
2,insert只录入一个字段时可以,真怪了