关于数据查询的问题??

板砖_01 2007-02-14 01:54:35
自己的程序!使用了checkbox选择查询条件
代码如下:
例:
var sql_s:string;
if checkbox1.checked then
begin
//这里添加一条查询条件
sql_s:=sql_s+' where '+'xxxx='+quoterto(edit1.text);

我不明白的是如果为选中应该怎么做??怎么去掉加入的字符串??


请大虾指点迷津!!

写个例子看看
!!多谢了
...全文
156 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
lihuasoft 2007-02-14
  • 打赏
  • 举报
回复
不太明白楼主的意思.....

var
sql_s:string;
begin
sql_s := 'SELECT * FROM 表';
if checkbox1.checked then
begin
sql_s:=sql_s+' where '+'xxxx='+quoterto(edit1.text);
end;
//如果CheckBox1没有选中,此时,sql_s仍是'SELECT * FROM 表'
{ do something }
end;
板砖_01 2007-02-14
  • 打赏
  • 举报
回复
??那 点2下怎么办??这不成bug了??
dxchenchuan 2007-02-14
  • 打赏
  • 举报
回复
if checkbox1.checked=false then

没有选择就不加条件就行了,
板砖_01 2007-02-14
  • 打赏
  • 举报
回复
这些我明白了!!

但是如果去掉选择后呢??多个CHECKBOX怎么用?怎么去掉加入的串呢??
就是

IF CHECKBOX1.CHECKED=FALSE THEN??
dxchenchuan 2007-02-14
  • 打赏
  • 举报
回复
var
str:string;
begin
str:='select * from tableName where 1=1';
if checkbox1.checked then
str:=str+' and xxxx='+quotedstr(edit1.text);
.....................
end;
lihuasoft 2007-02-14
  • 打赏
  • 举报
回复
var
sql_s:string;
begin
sql_s := ......;
if checkbox1.checked then
begin
sql_s:=sql_s+' where '+'xxxx='+quoterto(edit1.text);
end;
{ do something }
end;
  • 打赏
  • 举报
回复
顶一下
板砖_01 2007-02-14
  • 打赏
  • 举报
回复
没有选中!!写错了!!haha

5,939

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧