delphi2007 教程

delphi2007 教程

首页 新随笔 联系 聚合 管理
  1013 Posts :: 0 Stories :: 28 Comments :: 0 Trackbacks
菜鸟问题 VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061226125822109.html
edit控件取值我可能用edit.text来取,请问checkbox控件取值用代码怎么写

checkbox.checked      
   
  =   false   or   true

checkbox.checked  
  checkbox.caption  
  checkbox.tag  
  ......  
   
  要什么取什么

我知道你的意思,可是我在inset语句中这样写不能运行,语句如下;  
  adoquery1.SQL.Add('insert   int   cg   (me01,me02)values('''+checkbox1.checked+''','''+checkbox2.checked+''')');

checkbox1.checked是一个Boolean值,不是字符串,调试都通不过。  
  要转换成字符串,用function   BoolToStr(B:   Boolean;   UseBoolStrs:   Boolean):   string;  
  adoquery1.SQL.Add('insert   int   cg   (me01,me02)values('''+   BoolToStr(checkbox1.checked,   True)   +''','''+   BoolToStr(checkbox2.checked,   True)   +''')');

还是不行

什么不行,编译错误?还是存的结果有问题?你要保存的字段数据类型是什么?

[Error]   Unit1.pas(148):   Illegal   character   in   input   file:   '('   ($A3A8)  
  是这个提示  
  我要保存的是字符型

adoquery1.FieldByName('me16').asstring:=BoolToStr(checkbox1.checked   ,trun);  
  我这样写也不行

'('括号不对啊,智能全拼的,应该‘(’

晕死,不是中午字符的说。

中文

先看书,再调试,实在不行再发问!

adoquery1.SQL.Add('insert   int   cg   (me01,me02)values(:me01,:me02)');  
  adoquery1.Parameters.ParamByName('me01').value:=   checkbox1.checked;  
  adoquery1.Parameters.ParamByName('me02').value:=   checkbox2.checked;  
   
  不过建议使用DBCheckBox,少写N行代码

posted on 2008-09-19 13:42 delphi2007 阅读(132) 评论(0)  编辑 收藏 引用
只有注册用户登录后才能发表评论。