Visual FoxPro 9.0项目开发案例教程 李政 第04章新.pptVIP

光盘目录检索与维护工具 功能： 家庭用光盘目录检索与维护工具 技术： 1、光盘类别从代码到类别名称的自动转换 2、表的独占方式打开 3、模态表单来实现对话框效果 4.1 系统设计目标 目标： 1、设计一个表单，作为人机交互界面，要求实现对信息的增、删、改、排序、查询和打印（特殊格式）功能，这样就可以省去菜单、工具栏等对象，使软件更加简洁。 2、由于“类别”信息具有一定的规律性，属于枚举型数据，并且在基础信息录入时需要大量的重复式的操作，所以我们要设法提高输入效率。这里我们采用一种直接代换式输入方法，即用代号表示类别信息进行输入。 4.2 数据表设计 两个自由表，一个叫tab_cd（光盘信息表），另一个叫tab_lb（光盘类别表） 表tab_cd建立一个升序索引，索引名为“盘序号”，索引类型为Regular，索引表达式为“盘号+序号” 4.3 主表单设计 4.3.1 主表单外观设计 4.3 主表单设计 4.3.2 主表单及控件的编码 表单的Init事件代码 1、生成编辑框（Edit1）中对应的类别提示信息。 2、表tab_cd中的记录按预先定义的索引“盘序号”排序 3、调用表单的筛选子程序sx，将光盘信息表的内容显示出来 4.3 主表单设计 4.3.2 主表单及控件的编码 表单的自定义方法sx及其代码 把在对应文本框中输入的“盘号”、“内容”、“编演者”、“喜欢程序”内容和在组合框中选择“类别”组合起来作为过滤条件，通过SET FILTER TO把满足条件的记录筛选出来，达到查询的目的。 4.3 主表单设计 4.3.2 主表单及控件的编码 调用“筛选”过程 除了在表单的Init事件中，通过语句thisform.sx调用筛选子程序sx以外，当文本框Text1、Text2、Text3、Text5和组合框Combo1的内容发生改变时，即当它们的内容通过键盘或鼠标修改后，激活其InteractiveChange事件，这时也需要对表tab_cd的记录进行筛选，即执行sx过程。“全部”命令按钮的作用是清除过滤条件，显示全部记录 ，也许调用“筛选”过程。 4.3 主表单设计 4.3.2 主表单及控件的编码 添加记录功能的实现 利用SCATTER和GATHER命令把某一条记录原有的值传递到新记录中去，这样可能只需做少量修改就完成了一条新记录的输入 。 4.3 主表单设计 4.3.2 主表单及控件的编码 切换删除标记 “删除”按钮的Click事件可对当前记录添加或取消删除标记。 4.3 主表单设计 4.3.2 主表单及控件的编码 与排序有关的代码 用语句“SET ORDER to盘序号”将表中的记录按“盘序号”进行排序，然后把光标定位到第一条记录，最后用语句thisform.Grid1.Column1.Text1.SetFocus将光标定位到表单上表格Grid1第一列的文本框上。 4.3 主表单设计 4.3.2 主表单及控件的编码 打印和预览 通过“预览”和“打印”按钮 对报表文件tab_cd进行预览和打印。 “类别”按钮对应代码 调用表单form_lb对类别信息进行维护。 4.3 主表单设计 4.3.2 主表单及控件的编码 “退出”按钮对应代码 1、计算带有删除标记的记录个数送给变量jls，如果jls大于0，则用PACK命令删除带有标记的记录。 2、释放（关闭）表单。 3、恢复原有状态，清除用户事件，退出系统。 4.3 主表单设计 4.3.2 主表单及控件的编码 Grid1中第六列文本Text1的相关代码 1、第六列文本Text1的GotFocus使光标定位在第六列（类别）时，类别与代号提示信息出现在编辑框Edit1中，光标离开第六列时，提示信息消失 。 2、第六列文本Text1的InteractiveChange事件能将输入的类别代号自动转换成相应的类别名称。 4.4 类别信息维护表单设计 4.4.1 类别信息维护表单外观设计 4.4 类别信息维护表单设计 4.4.2 类别信息维护表单及其控件代码 表单的Init事件 将记录数送给文本框Text4，作为Value值显示出来 。 “添加”、“删除”、“退出”按钮对应代码 各按钮的代码与主表单的对应按钮代码类似或相同。 4.5 打印报表设计 建立报表文件tab_cb.frx ，预览结果如图所示 4.6 主程序设计 主程序的主要作用是对环境进行设置，然后执行表单form_cd.scx。 _screen是系统窗口，可通过代码对它的一些属性进行设置。 READ EVENTS命令执行后可以接受用户事件。 * 第 四