看实例学VFP:对时间段进行查询的例子

这个例子应用到了select语句中的between...and子句的知识,关于select语句请参考:select SQL 命令 或sql语言教程。

本例运行时如下图:

本例用到了“数据1”数据库中的“人员信息表”,关于该数据库的情况已经在看实例学VFP:示例数据库一文中给出,这里不再详述。
 

制作步骤如下:

一、新建表单,将其caption属性值设为“对时间段进行查询的例子”,width属性值设为290,height属性值设为195,AutoCenter属性值设为.t.,并将其保存为“对时间段进行查询的例子.scx”。

二、向表单上添加两个Label控件,将它们的caption属性值分别设置为“出生日期在”和“与”,ForeColor属性值都设置为“0,0,255”,并将这两个Label控件排成一行。

三、向表单上添加两个文本框控件,调整它们的位置,把两个Label控件间隔开,并把它们的Value属性值都设为“{}”(关于文本框控件的属性请参考:文本框(textbox)控件)。

四、在文本框和Label控件的下方添加一个grid控件,并将其width属性值设为290,height属性值设为110。

五、在grid控件下方再添加两个命令按钮command1和command2,并将它们的caption属性值分别设置为“查询”和“退出”。

六、对表单上各控件的位置进行适当调整,调整后的表单设计器如下图:

七、添加事件代码:

(一)表单的unload事件:close data

(二)表单的init事件:

use 人员信息表
with thisform.grid1
    .recordsource="人员信息表"
    .deletemark=.f.
    .visible=.t.
    .readonly=.t.
    .ColumnCount=8
    .Column1.Header1.Caption="编号"
    .Column1.Header1.BackColor=RGB(255,255,190)
    .Column2.Header1.BackColor=RGB(255,255,190)
    .Column2.Header1.Caption="姓名"
    .Column3.Header1.BackColor=RGB(255,255,190)
    .Column3.Header1.Caption="部门"
    .Column4.Header1.Caption="性别"
    .Column4.Header1.BackColor=RGB(255,255,190)
    .Column5.Header1.Caption="学历"
    .Column5.Header1.BackColor=RGB(255,255,190)
    .Column6.Header1.Caption="基本工资"
    .Column6.Header1.BackColor=RGB(255,255,190)
    .Column7.Header1.Caption="家庭住址"
    .Column7.Header1.BackColor=RGB(255,255,190)
    .Column8.Header1.Caption="出生日期"
    .Column8.Header1.BackColor=RGB(255,255,190)
    .Column1.width=40
    .Column2.width=50
    .Column3.width=50
    .Column4.width=30
    .Column5.width=60
    .Column6.width=60
    .Column7.width=60
    .Column8.width=60
endwith
thisform.grid1.Setall("DynamicBackColor","RGB(224,225,255)","Column")

(三)“查询”按钮(command1)的click事件:

if thisform.text1.value={}
	messagebox("请填入起始的出生日期",16,"系统提示")
	thisform.text1.setfocus
else
	if thisform.text2.value={}
	  messagebox("请填入终止的出生日期",16,"系统提示")
	  thisform.text2.setfocus
	else
	  Select * from 人员信息表 where 出生日期;
	  between thisform.text1.value and thisform.text2.value;
	  into cursor 临时人员信息表
      with thisform.grid1
        .width=450
        .height=130
        .recordsource="临时人员信息表"
        .deletemark=.f.
        .visible=.t.
        .ColumnCount=8
        .Column1.Header1.Caption="编号"
        .Column1.Header1.BackColor=RGB(255,255,190)
        .Column2.Header1.BackColor=RGB(255,255,190)
        .Column2.Header1.Caption="姓名"
        .Column3.Header1.BackColor=RGB(255,255,190)
        .Column3.Header1.Caption="部门"
        .Column4.Header1.Caption="性别"
        .Column4.Header1.BackColor=RGB(255,255,190)
        .Column5.Header1.Caption="学历"
        .Column5.Header1.BackColor=RGB(255,255,190)
        .Column6.Header1.Caption="基本工资"
        .Column6.Header1.BackColor=RGB(255,255,190)
        .Column7.Header1.Caption="家庭住址"
        .Column7.Header1.BackColor=RGB(255,255,190)
        .Column8.Header1.Caption="出生日期"
        .Column8.Header1.BackColor=RGB(255,255,190)
        .Column1.width=40
        .Column2.width=50
        .Column3.width=50
        .Column4.width=30
        .Column5.width=60
        .Column6.width=60
        .Column7.width=60
        .Column8.width=60
    endwith
    thisform.grid1.Setall("DynamicBackColor","RGB(224,225,255)","Column")
   endif
endif

(四)“退出”按钮(command2)的click事件:thisform.release

八、运行“对时间段进行查询的例子.scx”。

参考资料:

vfp基础教程:http://bianceng.cnhttp://www.bianceng.cn/vfpjc/index0.htm

vfp初级教程:http://bianceng.cnhttp://www.bianceng.cn/cc/index.htm

vfp中级教程:http://bianceng.cnhttp://www.bianceng.cn/mcc/mcc.htm

vfp高级教程:http://bianceng.cnhttp://www.bianceng.cn/hcc/hcc.htm

VFP网络开发:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpwlkf.htm

vfp调用api函数:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpapi.htm

VFP报表打印:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpreport.htm

VFP常用技术:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpcyjs.htm

VFP经验汇总:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpjyhz.htm

VFP控件使用:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpkjsy.htm

VFP数据处理:http://bianceng.cnhttp://www.bianceng.cn/VFPwz/vfpsjcl.htm

本例代码在Win2003+VFP6.0环境下调试通过。

查看全套“菜鸟也学VFP”教程

以上是小编为您精心准备的的内容,在的博客、问答、公众号、人物、课程等栏目也有的相关内容,欢迎继续使用右上角搜索按钮进行搜索控件
, vfp
, 属性
, header
, width
, column
, jpegc语言rgb
, width属性
endWith
,以便于您获取更多的相关知识。

时间: 2024-10-26 21:18:30

看实例学VFP:对时间段进行查询的例子的相关文章

看实例学VFP:对查询结果进行排序

本例是一个显示包括各记录的自然情况及实发工资的"工资排行榜".本例在表单的init事件中首先使用select语句对"工资表"的奖金.补助等进行计算,并将查询结果输出为一个包含"实发资金"和"员工编号"的名为lsJJ的临时表:然后对"人员信息表"和临时表lsjj进行表连接查询并对查询结果进行排序后输出为临时表lsb,查询结果中包括所需显示的字段及工资(这是经过计算后的实发工资),最后将lsb设为表格控件的数据

看实例学VFP:用SELECT语句创建查询

vfp中可以使用sql语句操作表,并且在使用sql语句操作表时不需要打开数据库.本例介绍的是select查询语句(数据检索),关于select语句的格式请参考:select SQL 命令 或sql语言教程. 在看实例学VFP:对表中记录进行定位与查找操作一文中,我们是使用locate语句作记录定位并同时使用了eof()函数,如果该函数返回真值,说明数据表中不存在所查询的记录并给出提示信息.本例用sql语句对这一部分进行了改写.与上例的区别大致的如下: 1.本例依然使用表格控件作为数据显示控件,表

看实例学VFP:去除查询结果中的重复记录

在看实例学VFP:将查询结果输出为表或文本文件以及之前的几个关于select语句应用的例子中,组合框控件Combo1的数据方面的属性我们是这样设置的:RowSourceType属性值设置为"1-值",RowSource属性值设置为"部门,性别,学历",即在设计时已经将组合框控件的数据源固定了.但这种处理方式在有的情况下是不合理的,比如本文要做这样一个例子:希望在运行时可以在组合框控件里选择"部门",按"部门"来查询.我们已经知

看实例学VFP:将查询结果输出为表或文本文件

在看实例学VFP:对查询结果进行汇总这个例子中,汇总结果是显示在表格控件中的.本文对这个例子再做进一步的改进,可以在运行时选择"数据表"或"文本文件",使之在把汇总结果显示到表格控件中的同时,将查询结果输出为"查询结果.DBF"或"查询结果.txt". 本例应用到了select语句中的Group By子句的知识,关于select语句请参考:select SQL 命令 或sql语言教程.本例应用到了数据环境,并使用"数

看实例学VFP:对查询结果进行汇总

本例应用到了select语句中的Group By子句的知识,关于select语句请参考:select SQL 命令 或sql语言教程.本例应用到了数据环境,并使用"数据1"数据库中的"人员信息表"作为数据环境的数据源,关于该数据库的情况已经在看实例学VFP:示例数据库一文中给出,运行界面见本文末尾. 制作步骤: 一.新建表单,将其caption属性值设置为"对查询结果进行汇总",AutoCenter属性值设置为.t.,width属性值设置为375

看实例学VFP:对查询结果进行统计计算

本例对看实例学VFP:更复杂的查询一文做了进一步的改进,在满足查询功能的同时,还可以对查询结果进行统计计算.本例也应用到了数据环境,并使用"数据1"数据库中的"人员信息表"作为数据环境的数据源,关于该数据库的情况已经在看实例学VFP:示例数据库一文中给出,运行界面见本文末尾. 制作步骤如下: 一.新建表单,将其caption属性值设置为"对查询结果进行统计计算",AutoCenter属性值设置为.T.,width属性值设置为520,height属

看实例学VFP:更复杂的查询

在看实例学VFP:对表中记录进行定位与查找操作及看实例学VFP:用SELECT语句创建查询这两个例子中,我们可以在查询时可以从组合框中选定一个要查询的字段.本例对这种查询方式再做进一步改进,使之在查询时不仅可以从一个组合框中选取要查询的字段,还可以从另一个组合框中选定操作符(如<.=.>等),从而实现更复杂的查询.本例应用到了数据环境,并使用"数据1"数据库中的"人员信息表"作为数据环境的数据源,关于该数据库的情况已经在看实例学VFP:示例数据库一文中给

看实例学VFP:页框控件的使用

页框(pageframe) 也是vfp的一个基本控件,使用它可以制作出类似于windows对话框的效果,关于这个控件的常用属性和方法请参考vfp基础教程-页框和页一文. 页框控件本身是一个容器,其中可以包含若干个页(page):而页也是容器,可以在其中添加各种对象,因此无论是在设计时添加对象或者是代码引用,都要比别的控件麻烦些.在使用这个控件时需要注意:如果设计时要向某个页中添加对象,一定要在页框的编辑状态下选中该页的标签,然后再向该页中添加控件:另外在不同页之间切换时,需要处理好数据源的问题.

看实例学VFP:对组合框控件的再探索

组合框控件(combobox)在vfp中也是一个常用的控件,组合框兼具文本框和列表框的功能,它的名称大概也由此而来.在vfp基础教程-组合框控件(combobox) 中已经比较详细地给出了组合框的常用属性和方法. 在组合框控件的应用中,很重要的一个环节是它的RowSourceType及RowSource这两个属性的组合.比如在看实例学VFP:对表中记录进行定位与查找操作这个例子中是把组合框的RowSourceType属性值设为"1-值",而在看实例学VFP:去除查询结果中的重复记录这个