[2017年整理]计算机二级vf无忧题库第90道

一、基本操作题(共四小题，第1和2题是7分、第3和4是8分) 1．在考生文件夹下"人事管理"数据库中，为"职工"表中的"性别"字段设置有效性规则，只能取"男"或"女"；默认值是"男"。 2．建立快捷菜单cd，选项有打开、关闭和退出。生成同名的菜单程序文件。 3．为"职工"表加入一个普通索引，索引名和索引表达式均为"部门编号"，升序。 4．为"职工"表和"部门"表建立联系，定义参照完整性规则：删除规则为"级联"，更新规则和插入规则为"限制"。; 本题的主要考核点：字段有效性规则的建立、字段默认值的设置、快捷菜单的建立、普通索引的建立、建立两个表之间的联系、设置参照完整性约束。 1、利用"文件"菜单下的"打开"命令打开数据库"人事管理"。再打开"职工"表的表设计器，选择"性别"字段，在其字段有效性规则栏中输入：性别$"男女"，在默认值栏中输入："男"。 2、在"文件"菜单中选择"新建"，在"新建"对话框中选择"菜单"，单击"新建文件"按钮，选择"快捷菜单"，在菜单设计器中输入三个菜单项"打开"、"关闭"和"退出"，单击"菜单"菜单中的"生成"，按提示保存为cd，并生成菜单源程序文件(MPR)。 3、打开"职工"表的表设计器，打开"索引"选项卡，在索引名处输入：部门编号，类型选择"普通索引"，表达式为：部门编号，排序为"升序"。 4、在数据库设计器中，选中"部门"表中的索引"部门编号"并拖动到"职工"表的"部门编号"的索引上并松开，这样两个表之间就建立起了永久联系。建立好永久联系之后，在两处表的"部门编号"索引之间有一条线，单击这条表示两个表之间联系的线，线会加粗，此时在主菜单中选择"数菘?中的"编辑参照完整性(I)"，系统弹出"参照完整性生成器"对话框，在"更新规则"标签中，选择"限制"规则，在"删除规则"中选择"级联"，在"插入规则"中选择"限制"，单击"确定"保存所编辑的参照完整性。;二、简单应用(2小题，每题20分，计40分) 1．编写程序文件prgone.prg，其功能是从"人事管理"数据库的相关表中查询销售部从1985年到1989年这5年出生的所有职工的信息，并存到表cyqk.dbf中。查询结果包含编号、姓名、出生日期和部门名称(部门表中的名称)4个字段；按职工的出生日期和编号升序排序。最后运行该程序。 2．扩展基类ListBox，创建一个名为MyListBox的新类。新类保存在名为Myclasslib的类库中，该类库文件存放在考生文件夹下。设置新类的Height属性的默认值为120，Width属性的默认值为80。; 本题的主要考核点：利用SQL_SELECT语句建立查询程序、新建自定义表单类。 解题思路： 第1题：在Visual FoxPro主窗口中按下组合键Ctrl+N，系统弹出"新建"对话框，在文件类型中选择"程序"，点击"新建文件"按钮，在弹出的代码编辑器窗口中输入以下代码： SELECT 编号,姓名,出生日期,名称 AS 部门名称 FROM 部门,职工 ; WHERE 部门.部门编号=职工.部门编号 AND 部门.名称="销售部" ; AND YEAR(职工.出生日期)>=1985 AND YEAR(职工.出生日期)<=1989 ; ORDER BY 出生日期,编号 INTO TABLE cyqk.dbf 最后保存并运行该程序。 ; 第2题：建立类可以使用"文件"菜单完成，选择文件--新建--类--新建文件，在弹出的"新建类"对话框中：在"类名"右边的文本框中输入：MyListBox，在"派生于"右边的列表框中选择ListBox，在"存储于"右边的浏览中选择考生文件夹，再输入文件名Myclasslib，单击"保存"按钮，然后单击"确定"按钮，打开"类设计器"窗口，进入类设计器环境，在属性窗口中，将新类的Height属性设置为120，Width属性设置为80。;三、综合应用(1小题，计30分) 为了对"人事管理"数据库中的数据进行查询，请设计一个用于查询部门职工的表单。该表单的名称为formone，文件名为pform.scx，标题为"人员查询"，其界面如下图所示：;表单左侧有一个名为Labelone的标签，显示内容为"输入部门"；一个名为Textone的文本框，用于输入部门名称；两个名为Commanda和Commandb的命令按钮，分别显示"查询"和"退出"。表单右侧是一个名为Gridone的表格。 单击"查询"按钮，查询指定部门所有职工的信息，包括职工的姓名、性别、出生日期和编号，按编号升序排序。查询结果不仅显示在表单右侧的表格中，也保存在表文件