资源描述
一、基本操作题（共四小题，第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题：在VisualFoxPro主窗口中按下组合键Ctrl+N，系统弹出新建对话框，在文件类型中选择程序，点击新建文件按钮，在弹出的代码编辑器窗口中输入以下代码：SELECT编号,姓名,出生日期,名称AS部门名称FROM部门,职工;WHERE部门.部门编号=职工.部门编号AND部门.名称=销售部;ANDYEAR(职工.出生日期)=1985ANDYEAR(职工.出生日期)=1989;ORDERBY出生日期,编号INTOTABLEcyqk.dbf最后保存并运行该程序。,第2题：建立类可以使用文件菜单完成，选择文件-新建-类-新建文件，在弹出的新建类对话框中：在类名右边的文本框中输入：MyListBox，在派生于右边的列表框中选择ListBox，在存储于右边的浏览中选择考生文件夹，再输入文件名Myclasslib，单击保存按钮，然后单击确定按钮，打开类设计器窗口，进入类设计器环境，在属性窗口中，将新类的Height属性设置为120，Width属性设置为80。,三、综合应用（1小题，计30分）为了对人事管理数据库中的数据进行查询，请设计一个用于查询部门职工的表单。该表单的名称为formone，文件名为pform.scx，标题为人员查询，其界面如下图所示：,表单左侧有一个名为Labelone的标签，显示内容为输入部门；一个名为Textone的文本框，用于输入部门名称；两个名为Commanda和Commandb的命令按钮，分别显示查询和退出。表单右侧是一个名为Gridone的表格。单击查询按钮，查询指定部门所有职工的信息，包括职工的姓名、性别、出生日期和编号，按编号升序排序。查询结果不仅显示在表单右侧的表格中，也保存在表文件tableone.dbf中。单击退出按钮，关闭并释放表单。最后运行表单，在文本框中输入部门名称开发部，单击查询按钮，显示并保存相应的查询结果。,本题的主要考核点：表单文件的创建、控件的属性的修改、SQL语句运用、表单的退出。解题思路：在命令窗口输入命令：CREATEFORMpform，打开表单设计器窗口。在表单上添加标签、文本框、命令按钮、表格，并进行适当的布置和大小调整。根据题面要求设置标签、文本框、命令按钮、表格以及表单的属性值。,将表格Gridone的RecordSourceType属性值设置为4-SQL说明。设置查询按钮的Click事件代码：st=SELECT姓名,性别,出生日期,编号FROM职工,部门WHERE职工.部门编号=部门.部门编号AND;部门.名称=thisform.Textone.TextINTOTABLEtableone.dbfORDERBY职工.编号thisform.Gridone.RecordSource=st设置退出按钮的Click事件代码：THISFORM.RELEASE保存表单并运行，在文本框中输入开发部，单击查询命令按钮进行查询。最后，单击退出命令按钮。,本题主,SELECT,
展开阅读全文