我在动态生成树上点一个节点,相应的信息显示在对应的编辑框中,现在想对着些数据进行维护,做了一个修改的按钮,修改按钮click事件中
写了:bsskintreeview.enabled :=false;
确定按钮click中写了:
with dm.zzwhquery do
begin
close;
sql.Clear;
sql.Add('select GCID from gc where GCM='''+bsskinedit1.Text+''' and CX='''+bsskinedit2.Text+'''');
open;
end;
gcidh :=dm.zzwhquery.fieldbyname('GCID').AsString;
with dm.zzwhquery do
begin
close;
sql.Clear;
sql.Add('update gc set GCM='''+bsskinedit1.Text+''',CX='''+bsskinedit2.Text+''',ZC='''+bsskinedit3.Text+''',CXJC='''+bsskinedit4.Text+''',');
sql.Add'XK='''+bsskinedit5.Text+''',ZJBXS='''+bsskinedit6.Text+''',SJBXS='''+bsskinedit7.Text+''',SJCS='''+bsskinedit8.Text+''',CSSJ='''+bsskinedit9.Text+''',');
sql.Add('ZZL='''+bsskinedit10.Text+''',FWHS='''+bsskinedit11.Text+''' where GCID='''+gcidh+'''');
ExecSQL;
end;
奇怪的是,程序可以运行,就是无法修改GCM和CX这两项,其他的信息都可以修改这是为什么呢?
写了:bsskintreeview.enabled :=false;
确定按钮click中写了:
with dm.zzwhquery do
begin
close;
sql.Clear;
sql.Add('select GCID from gc where GCM='''+bsskinedit1.Text+''' and CX='''+bsskinedit2.Text+'''');
open;
end;
gcidh :=dm.zzwhquery.fieldbyname('GCID').AsString;
with dm.zzwhquery do
begin
close;
sql.Clear;
sql.Add('update gc set GCM='''+bsskinedit1.Text+''',CX='''+bsskinedit2.Text+''',ZC='''+bsskinedit3.Text+''',CXJC='''+bsskinedit4.Text+''',');
sql.Add'XK='''+bsskinedit5.Text+''',ZJBXS='''+bsskinedit6.Text+''',SJBXS='''+bsskinedit7.Text+''',SJCS='''+bsskinedit8.Text+''',CSSJ='''+bsskinedit9.Text+''',');
sql.Add('ZZL='''+bsskinedit10.Text+''',FWHS='''+bsskinedit11.Text+''' where GCID='''+gcidh+'''');
ExecSQL;
end;
奇怪的是,程序可以运行,就是无法修改GCM和CX这两项,其他的信息都可以修改这是为什么呢?
解决方案 »
- reportmachine如何指定打印机直接打印
- 这样的报表效果要怎么做?
- 请问Delphi怎么和网络上的orcale数据库连接?
- Turbo Pascal 1.0
- 如果屏蔽DBGIRD里面按INSERT键增加以及按向下光标键增加..
- 怪事,我的DELHI现在竟然不能 toggle form/unit了,是否要重新装过?
- chinasdp的函数TDBGridEx.GetValue获取dbgrideh 单元格 内容 运行错误
- 急急急急急!!!1
- 抢分问题,请帮帮我,如何用TStream读写数据库的备注字段,并将它作为TTreeView.LoadToStream的参数?
- 为什么笔记本装不上DELPHI5.0???
- 请问掉一个delphi写的dll vout
- 用命令添加自由表到数据库
注意下字段格式