| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2046 人关注过本帖
标题:查询代码怎么写
只看楼主 加入收藏
延吉青曼
Rank: 1
来 自:延边朝鲜族自治州
等 级:新手上路
帖 子:8
专家分:0
注 册:2009-3-1
结帖率:66.67%
收藏
 问题点数:0 回复次数:6 
查询代码怎么写
小班   中班   大班 (这三个是复选框)   

  名:  出生日:  (这两个是查询条件文本框)

查询     取消     (两个按钮)

请问高手复选框的属性怎么设?检索按钮的事件代码怎么写呢?
也就是说 小班、中班、大班的用姓名和出生日来怎么查询的问题。恳请高手们帮我决解这个问题。
搜索更多相关主题的帖子: 查询 代码 
2009-11-30 08:37
sywzs
Rank: 10Rank: 10Rank: 10
来 自:辽宁
等 级:贵宾
威 望:15
帖 子:508
专家分:1725
注 册:2009-5-13
收藏
得分:0 
把表单和表传过来,好吗?
2009-11-30 11:31
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
大班、中班、小班应该用选项按钮吧?
do case
  case thisform.onptiongroup1.value=1
    lcString=[班级='大班']
  case thisform.onptiongroup1.value=2
    lcString=[班级='中班']
  case thisform.onptiongroup1.value=3
    lcString=[班级='小班']
endcase
if !empty(thisform.text1.value)  &&姓名,字符型
  lcString=lcString+' and '+[姓名=']+alltrim(thisform.text1.value)+[']
endif
if !empty(thisform.text2.value)  &&出生日期,日期型
  lcString=lcString+' and '+[出生日期=ctod(]+dtoc(thisform.text1.value)+[)]
endif
select * from 表 where &lcString

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2009-11-30 13:24
延吉青曼
Rank: 1
来 自:延边朝鲜族自治州
等 级:新手上路
帖 子:8
专家分:0
注 册:2009-3-1
收藏
得分:0 
先谢了,我试后再回复。
2009-12-01 08:02
延吉青曼
Rank: 1
来 自:延边朝鲜族自治州
等 级:新手上路
帖 子:8
专家分:0
注 册:2009-3-1
收藏
得分:0 
表单1.rar (1.05 KB)

我想复选框也可以多选查询,复选框一个都没打勾时,下面表格里都显示三个班级的数据。
还有查询条件-出生日期是输入年或输入月或输入年和月也可以是输入年月日都可以查询到数据。
请二楼和三楼再帮我看看。
2009-12-02 14:50
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
已经在3楼说了,用复选框是没有道理的,一个人既可以在大班,也可以在中班或小班,可能吗?所以我建议用选项按钮组.

(1)新建一个表单,添加1个选项按钮组(3个按钮),2个标签,2个文本框,2个命令按钮

(2)设置3个选项caption分别是大班、中班、小班;标签caption分别写“姓名”和“出生日期”;命令按钮caption分别写“查询(\<Q)”和“取消(\<C)”

(3)Form1.Init
Close All
If File('表1.dbf')
  Use 表1.dbf
Else
  Create Table 表1 (姓名 C(8),出生日期 D,班级 C(4))
  Insert Into 表1 Values ('张三',Date(2001,1,1),'大班')
  Insert Into 表1 Values ('李四',Date(2001,2,1),'中班')
  Insert Into 表1 Values ('王五',Date(2001,3,1),'小班')
  Insert Into 表1 Values ('赵六',Date(2001,4,1),'大班')
  Insert Into 表1 Values ('钱七',Date(2001,5,1),'中班')
  Insert Into 表1 Values ('孙八',Date(2001,6,1),'小班')
EndIf

(4)查询命令按钮的CLICK
3楼代码

(5)取消命令按钮的click
ThisForm.Release

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2009-12-02 16:31
sywzs
Rank: 10Rank: 10Rank: 10
来 自:辽宁
等 级:贵宾
威 望:15
帖 子:508
专家分:1725
注 册:2009-5-13
收藏
得分:0 
好长时间进不了论坛了,附件下载不了。请发到 sywzs@
2009-12-17 06:07
快速回复:查询代码怎么写
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.020457 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved