我把combobx查詢的值﹐已經在listview顯示出來﹐我要怎樣把listview查詢出來的值加到數據庫中去。謝謝是否這樣﹕
procedure TF_OVERT_DATA.Button1Click(Sender: TObject);
begin
edit1.Text:='OT'+inttostr(i); with adoquery1 do
begin
close;
sql.Clear;
sql.Add('insert into OVERTIME_EDIT(O_NUM,O_MASTER,O_MEMO) values');
sql.Add('(:p0,:p1,:p2)');
parameters.ParamByName('p0').Value:=edit1.Text;
parameters.ParamByName('p1').Value:=listview1.Items.Item [0].Caption ;
parameters.ParamByName('p2').Value:=listview1.Items[i].SubItems[1]; // parameters.ParamByName('p4').Value:=listview1.Items[i].SubItems[2];
procedure TF_OVERT_DATA.Button1Click(Sender: TObject);
begin
edit1.Text:='OT'+inttostr(i); with adoquery1 do
begin
close;
sql.Clear;
sql.Add('insert into OVERTIME_EDIT(O_NUM,O_MASTER,O_MEMO) values');
sql.Add('(:p0,:p1,:p2)');
parameters.ParamByName('p0').Value:=edit1.Text;
parameters.ParamByName('p1').Value:=listview1.Items.Item [0].Caption ;
parameters.ParamByName('p2').Value:=listview1.Items[i].SubItems[1]; // parameters.ParamByName('p4').Value:=listview1.Items[i].SubItems[2];
解决方案 »
- 哪位大侠用过dxgettext本地化工具,请教!
- 请问一下delphi中uses后的那些东西到底包含了什么?谢谢!
- 字符串这去掉一段用什么函数
- 简单问题:关于Query中SQL语句涉及字段问题!请高手指点!!
- 如何在INI文件中新建一个Section
- Delphi菜单上显示图片后不能显示加速键,怎样同时显示!?
- 关于控件拖动问题的讨论?
- 在Delphi 如何像C++里用extern关键字来引用另外一个单元的全局变量?
- 关于dbgrid控件问题(菜鸟问题)!!求救
- 有关activeform的问题,怎么不能使用数据模块???
- Windows Media Player 6.4控件怎么得到正在播放的电影的剪辑宽度和高度
- Ehlib哪个版本最好用?介绍一下
O_NUM O_MASTER O_MEMO
001 張二 122
002 張三 133
... ... ....