我想知道问题出在那里?
这是源代码:
procedure TForm1.N1Click(Sender: TObject);
var mynode:Ttreenode;
begin
if treeview1.Selected =nil then abort;
mynode:=treeview1.Selected ;
if treeview1.Selected.Level =0 then
begin
application.createform(Tform2,form2);
form2.label4.caption:='add';
form2.showmodal;
if form2.label5.Caption ='1' then
treeview1.Items.addchild(mynode,FORm2.EDIT1.text); ///////
form2.free;
end ;
end;
在form2里
if label4.Caption='add' then
begin
form1.adoquery1.close;
form1.adoquery1.sql.clear;
ssql:='insert into operator values('+edit1.text+','''+edit2.text+''' )';
form1.adoquery1.sql.Add(ssql);
form1.adoquery1.ExecSQL ;
end
这是源代码:
procedure TForm1.N1Click(Sender: TObject);
var mynode:Ttreenode;
begin
if treeview1.Selected =nil then abort;
mynode:=treeview1.Selected ;
if treeview1.Selected.Level =0 then
begin
application.createform(Tform2,form2);
form2.label4.caption:='add';
form2.showmodal;
if form2.label5.Caption ='1' then
treeview1.Items.addchild(mynode,FORm2.EDIT1.text); ///////
form2.free;
end ;
end;
在form2里
if label4.Caption='add' then
begin
form1.adoquery1.close;
form1.adoquery1.sql.clear;
ssql:='insert into operator values('+edit1.text+','''+edit2.text+''' )';
form1.adoquery1.sql.Add(ssql);
form1.adoquery1.ExecSQL ;
end
解决方案 »
- 看雪论坛上不去了,有人知道原因吗?
- 条码打印机
- 请问谁知道在delphi5.0下没有安装Excel,把dbgrid控件中的数据生成Excel文件。(求完整源代码送高分)
- quickreport1内字段太多,做两张纸打印完20字段
- 请问在advstringgrid中,如何设置某个单元格只能输入数字及小数点,还有删除符。
- BDE 直接连 Access数据库,怎么连?
- DBGrid1.columns调用POPUP菜单的问题~简单的不得了!
- 如果我要查询数据库中某字段的值包含了分割符,请问这样的SQL怎么写
- ListView的困惑 请大虾赐教
- 一个我认为比较难的问题
- 请北京的朋友介绍几个求职信息?
- 怎么将TListView中的一个Column隐藏,并且拖也拖不出来?
ssql:='insert into operator values('+edit1.text+','''+edit2.text+''' )';
如何改?
29 01 2 011 1
33 02 0 012 1
34 03 0 013 0
35 04 1 014 1这是operator表的内容
ssql:='insert into operator values('+edit1.text+','''+edit2.text+''' )';
如何改?
ssql:=ssql+'where ID=29';
'insert into operator(username,pwd)values('+edit1.text+','''+edit2.text+''' )';