一段与VFP共舞的编程岁月

一段与VFP共舞的编程岁月


1997年,我怀着对计算机科学的浓厚兴趣和探索精神,踏入了数据库技术的广阔天地。一切从那时起,FoxBase成为了我开启数据世界大门的启蒙导师。这款简洁且高效的数据库管理系统让我初次领略到了数据表结构设计的魅力:从基本字段定义、关系完整性约束到索引策略的选择,每一个细微之处都蕴含着对信息组织与管理智慧的理解和应用。同时,深入学习SQL查询语言的过程中,我逐渐掌握了如何通过SELECT、INSERT、UPDATE和DELETE等语句构建复杂的查询逻辑,实现对数据的有效检索、更新与维护。

随着时代的步伐加快,技术日新月异,我紧跟潮流的步伐转向更为强大的FoxPro2.5版本。这一升级不仅在功能上得到了显著增强,如增加了更丰富的关系运算符、支持更多的系统函数以及优化的数据处理能力,而且在用户体验方面也有了明显的提升。我在实践中不断锤炼自己的技能,通过对数据库系统架构的剖析和内在机制的探究,我的专业素养日渐深厚,这为后来应对更大规模、更高复杂度的应用开发项目奠定了坚实的基础。

进入新的世纪,Visual FoxPro(VFP)系列以更加直观和便捷的方式引领了数据库编程的新时代。当Visual FoxPro5.0问世时,其可视化编程环境彻底颠覆了我对传统数据库开发的认知。拖拽控件创建用户界面,直观布局窗口及菜单,事件驱动编程模式使得代码逻辑更加清晰易懂,大大提升了软件开发效率。我全身心投入于掌握这些先进的特性,并将其灵活运用于实际项目中。

尤其是在VFP6.0阶段,我面临了一项颇具挑战性的任务——研发“试卷编制及测试系统V1.0”。该系统的核心需求包括智能生成试题、

实例VFP:更复杂的查询 时间:2009-02-12来源:编程入门网 作者:老马   在看实例VFP:对表中记录进行定位查找操作及看实例VFP:用SELECT语句创建查询这两个例子中,我们可以在查询时可以从组合框中选定一个要查询的字段。本例对这种查询方式再做进一步改进,使之在查询时不仅可以从一个组合框中选取要查询的字段,还可以从另一个组合框中选定操作符(如<、=、>等),从而实现更复杂的查询。本例应用到了数据环境,并使用“数据1”数据库中的“人员信息表”作为数据环境的数据源,关于该数据库的情况已经在看实例VFP:示例数据库一文中给出,这里不再详述。运行界面见本文末尾。   制作步骤如下:   一、新建表单,将其caption属性值设置为“更复杂的查询例子”,AutoCenter属性值设置为.T.,width属性值设置为520,height属性值设置为245,并保存为“更复杂的查询例子.scx”。   二、右击表单空白处,选“数据环境”命令,将“人员信息表”添加到数据环境中。在“数据环境设计器”中拖动“人员信息表”的标题栏到表单上,自动生成一个表格控件。由于是从数据环境中把“人员信息表”拖动过来由系统自动生成的,该表格控件的RecordSource属性及RecordSourceType属性已经由系统设置好了,不用管它,但name属性值系统给出的好长,为了书写代码的方便,我们把这个表格控件的name属性值修改为“grid1”。   三、在表格控件的下方添加一个Label控件,并把它的caption属性值设置为“查询条件”。   四、在label控件的右侧依次添加两个组合框控件、一个文本框控件及两个命令按钮command1和command2,并把这两个命令按钮的caption属性值依次设置为“查找”和“退出”。   五、适当调整各控件在表单上的位置,调整后的表单设计器如下图所示:   六、设置组合框控件的属性:   (一)组合框Combo1:RecordSourceType属性值设置为“8-结构”,RecordSource属性值设置为“人员信息表”。   (二)组合框Combo2:RecordSourceType属性值设置为“1-值”,RecordSource属性值设置为“,>,<,=,>=,<=,<>”。   七、添加事件代码:   (一)表单的unload事件代码:close data   (二)组合框Combo1的InteractiveChange事件代码: if alltrim(this.displayvalue)="出生日期" thisform.text1.value={} else thisform.text1.value='' endif   (三)“查找”按钮command1的click事件代码: if thisform.grid1.recordsource='临时人员信息表' thisform.grid1.recordsource='人员信息表' endif' private CXTJ if empty(thisform.combo1.displayvalue) or empty(thisform.combo2.displayvalue) ; or empty(thisform.text1.value) && 判断列表框和文本框是否为空 messagebox('请输入完整条件!',16,'系统提示') thisform.combo1.setfocus else do case case alltrim(thisform.Combo1.Displayvalue)='基本工资' CXTJ=alltrim(thisform.combo1.displayvalue); +' '+alltrim(thisform.combo2.displayvalue); +' '+alltrim(thisform.text1.value) case alltrim(thisform.Combo1.Displayvalue)='出生日期' CXTJ=alltrim(thisform.combo1.displayvalue); +' '+alltrim(thisform.combo2.displayvalue); +' ctod("'+dtoc(thisform.text1.value)+'")' otherwise CXTJ=alltrim(thisform.combo1.displayvalue); +' '+alltrim(thisform.combo2.displayvalue); +' "'+alltrim(thisform.text1.value)+'"' endcase Select * from 人员信息表 where &CXTJ. into cursor 临时人员信息表 thisform.grid1.recordsource='临时人员信息表' thisform.grid1.backcolor=rgb(200,224,248) endif   (四)“退出”按钮command2的click事件代码:thisform.release   八、运行“更复杂的查询例子.scx”,界面见下图:
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

酒城译痴无心剑

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值