新Visual FoxPro程序设计项目教程 教学课件 李林孖 第6章.pptVIP

实战强化 实战强化 N 项目5——设计学生信息的查询模块 实战强化 1.根据工资基本信息表中信息，查询不同姓名职工的工资信息。 2.根据工资基本信息表中信息，查询不同科室职工的工资信息。 3.根据工资基本信息表中信息，查询不同职称职工的工资信息。 项目5——设计学生信息的查询模块 Company Logo 在线教务辅导网： 教材其余课件及动画素材请查阅在线教务辅导网 QQ:349134187 或者直接输入下面地址： ---Visual FoxPro程序设计项目教程 项目5——设计学生信息的查询模块 项目5——设计学生信息的查询模块 【职业能力目标】 1）能够使用相关控件及语言结构建立信息单项查询表单 2）能够使用相关控件及语言结构建立信息综合查询表单 3）能够综合运用控件的不同属性设计并调试表单 －Visual FoxPro程序设计项目教程 项目5——设计学生信息的查询模块 目录 任务1——创建学生信息单项查询模块 1 任务2——创建学生信息综合查询模块 2 －Visual FoxPro程序设计项目教程 项目5——设计学生信息的查询模块 实战强化 N 项目5——设计学生信息的查询模块 任务1——创建学生信息单项查询模块 1 项目5——设计学生信息的查询模块 任务1——创建学生信息单项查询模块 任务展示讲解流程图 知识拓展 任务实施 任务分析 任务情境 触类旁通 项目5——设计学生信息的查询模块 任务1——创建学生信息单项查询模块 任务情境 所谓“单项查询”是指按照某项关键字的数据信息来查询相关的结果。在数据库应用系统中常常为那些查找目标较明确，而又经常使用的操作提供查询功能。例如，在“学生信息管理系统”中，查询学生信息是常用的功能，如按照学生姓名查询学生信息、按照不同民族查询学生信息等。这些功能也是信息管理系统中普遍存在的功能，现以按照学生姓名查询学生信息为例，对单项查询进行说明。 项目5——设计学生信息的查询模块 任务1——创建学生信息单项查询模块 任务分析 1.建立查询学生姓名表单 如果没有输入学生姓名信息，则弹出相应提示信息，否则对学生信息进行查询；在学生信息中，如果没有要查询的学生信息，则弹出相应的提示信息；如果查询到要查询的学生信息，则调用具体显示该学生信息详细内容表单。 2.建立显示查询结果表单 在该表单中，表单的标题要显示查询到的学生姓名；在设计过程中，要考虑到学生姓名相同的现象出现，因此要对表单中的各浏览按钮进行限制，如果出现同名的学生，则各浏览按钮有效，否则无效；如果希望要对查询到的学生信息进行打印，则提供打印输出功能，具体显示学生信息部分的设计与学生信息修改表单相似。 项目5——设计学生信息的查询模块 任务1——创建学生信息单项查询模块 任务实施 1.创建查询学生姓名表单 （1）创建空白表单，并将stud_jbxx_temp.dbf添加到数据环境中，设置其Exclusive属性值为.T.。 （2）表单及控件属性设置 项目5——设计学生信息的查询模块 任务1——创建学生信息单项查询模块 控件名称 属性名 属性值 表单及控件名称 属性名 属性值 Form1 AutoCenter .T. Form1 Caption 按姓名查询 Form1 BorderStyle 0 Label1 Caption 请输入学生姓名 Form1 MinButton .F. Text1 默认 默认 Form1 Closable .F. Commandgroup1/Command1 Caption 确定 Form1 MaxButton .F. Commandgroup1/Command2 Caption 退出 任务实施 ①设置表单初始环境 设置Form1.Load事件代码： PUBLIC dd,xm,rec_zs ②设置Commandgroup1控件各按钮的Click事件代码 设置【确定】按钮Commandgroup1.Command1.Click事件代码: dd=SYS(5)+SYS(2003)+\data\stud_jbxx.dbf xm=ALLT(Thisform.Text1.Value) IF EMPTY(xm) MESSAGEBOX(要查询的学生姓名不能为空！,16+0,警告信息) Thisform.Text1.Setfocus ELSE SELECT stud_jbxx_temp IF RECC()0 ZAP ENDIF APPEND FROM dd FOR ALLT(姓名)==xm rec_zs=RECC() IF rec_zs=0 MESSAGEBOX(在学生信息中没有找到要查询的学生信息！,16+0,