1、上机操作题模拟试卷 68及答案与解析 一、基本操作题 1 考生文件夹下存在数据库 “sale”，其中包含表 “购买信息 ”和表 “会员信息 ”，这两个表存在一对多的联系。对销售数据库建立文件名为 bd1的表单，其中包含两个表格控件。 第一个表格控件用于显示表 “会员信息 ”的记录；第二个表格控件用于显示与表“会员信息 ”当前记录对应的 “购买信息 ”表中的记录。 表单中还包含一个标题为 “关闭 ”的命令按钮，单击此按钮退出表单。 二、简单应用题 2 现有数据库 hospital，包括 3个表文件： doctor.dbf(医生 )、 medicine.dbf(药品 )和formula.dbf。
2、(处方 )。设计一个名为 cx的菜单，菜单中有两个菜单项： “查询 ”和“退出 ”。 程序运行时，单击 “查询 ”应完成下列操作：查询同一处方中，包含 “感冒 ”两个字的药品的处方号、药名和生产厂，以及医生的姓名和年龄，把查询结果按处方号升序排序存入 result表中。 result的结构为 (姓名，年龄，处方号，药名，生产厂 )。 单击 “退出 ”菜单项，程序终止运行。 (注：相关资料表文件存在于考生文件夹下。 ) 三、综合应用题 3 在考生文件夹下已 有表单文件 formtest.scx，其中包含一个文本框、一个表格和两个命令按钮。请按下面要求完成相应的操作： 通过 “属性 ”窗口，将文本
3、框 Text1的 Value属性值设置为当前系统日期 (日期型，不含时间 )。 通过 “属性 ”窗口，将表格 Grid1的 RecordResourceType属性值设置为 “4-SQL说明 ”。 修改 “确定 ”按钮的 Click事件代码。当单击该按钮时，表格 Grid1内将显示指定日期以后 (含 )签订的订单信息 (包括 “订单号 ”、 “订购日期 ”和 “总金额 ”信息 )。 设置 “退 出 ”按钮的 Click事件代码。当单击该按钮时，将释放并关闭表单。 上机操作题模拟试卷 68答案与解析 一、基本操作题 1 【正确答案】 步骤 1：单击工具栏 新建 按钮，在 新建 对话框的 文件类型
4、 中选择 “表单 ”，单击 向导 按钮，在 向导选取 对话框中选择 “一对多表单向导 ”，单击确定 按钮。在弹出的对话框 数据库和表 列表框中，选择 “sale“数据库和 “会员信息 ”表，单击 全部添加 按钮再单击 下一步 按钮。在弹出的对话框 数据库和表 列表框中，选择 “sale数据库和 “购买信息 ”表单击 全 部添加 按钮，再单击 下一步 按钮。在 “购买信息 ”和 “会员信息 ”下面的下拉列表框叶 均选择 “会员编号 ”，单击 下一步 按钮。再单击 完成 按钮，在弹出的对话框 请输入表单标题 文本框中输入 “bd1”，单击 完成 按钮打开表单设计器。 步骤 2：单击 表单控件 中的
5、 “命令按钮 ”，再单击表单添加一个命令按钮。在 属性 窗口中将 ”Caption属性设置为 “关闭 ”。右击 “关闭 ”命令按钮选择 “代码 ”，在 Click事件中输入代码： ThisForm.Release。 步骤 3：在表单设计器中，右击表单选择 “数据环境 ”命令，打开表单的数据环境，在弹出的 添加表或视图 对话框中选择数据库 “sale”，选择表 “会员信息 ”，单击添加 按钮，选择表 “购买信息 ”单击 添加 按钮，再单击 关闭 按钮。 步骤 4：将数据环境设计器中的 “会员信息 ”和 “购买信息 ”表依次拖入表单适当位置。 步骤 5：在表单设计器中右击 “Grid1”表格选择
6、“代码 ”命令，选择“AfterRowColChange“事件输入以下代码： SELECT*INTO CURSOR tmp FROM购买信息 WHERE会员编号 =； ThisForm. grid1. columns (1).text1.value ThisForm. Grid2. RecordSourceType=1 ThisForm. Grid2. RecordSource =”tmp” ThisForm.Grid2.Refresh 步骤 6：单击工具栏 保存 按钮右击表单选择 “执行表单 ”命令。 【知识模块】 上机操作题 二、简单应用题 2 【正确答案】 步骤 1：单击工具栏的 新建
7、按钮，打开 新建 对话框，在 文 件类型 区选择 “菜单 ”，单击 新建文件 。打开菜单设计器，在 “菜单名称 ”中输入 “查询 ”，在 “结果 ”下拉列表框中选择 “过程 ”，单击下一行，在 “菜单名称 ”中输入 “退出 ”，在 “结果 ”下拉列表框中选择 “过程 ”，在右边的文本框中编写命令 “SET SYSMENU TO DEFAULT”。 步骤 2：在菜单设计器中，单击选定菜单名称下刚创建的 “查询 ”行，单击 创建 按钮，在弹出的文本框中输入以下代码。 SET TALK OFF SET SAFETY OFF OPEN DATABASE hospital SELECT 姓名，年龄，处方
8、号，药名，生产厂 INTO TABLE result FROM； doctor， medicine， formula WHERE doctor.医生编号 =formula.医生编号 AND medicine.药品编号 =formula.；药品编号 AND 药品名称 like “%感冒 %“ ORDER BY 处方号 CLOSE ALL SET SAFETY ON SET TALK ON 步骤 3：单击工具栏的 保存 按钮，打开 另存为 对话框，输入 “cx”，单击 保存 。选择 菜单 生成 ，在 生成菜单 对话框中输入 “cx”，单击 生成 按钮。单击工具栏的 运行 按钮，运行菜单。 步骤 4
9、：执行 “查询 ”菜单命令后，系统自动将查询结果保存在所建立的新数据表文件 “result.dbf”中。 【知识模块】 上机操作题 三、综合应用题 3 【正确答案】 步骤 1：单击工具栏的 打开 按钮，选择 文件类型 中的 “表单 ”选项，单击 formtest.scx，再单击 确定 按钮，即可打开表单设计器修改表单。选中表单中的文本框 (Text1)控件，然后在 “属性 ”面板中将 “Value”属性值设置为“=DATE()”。选中表单中的表格控件，在 “属性 ”面板中将 RecordSourceType属性值设置为 “4-SQL说明 ”。 步骤 2：双击 确定 命令按钮，编写 Click事件代码。 RQ=THISFORM.TEXT1.VALUE THISFORM.GRID1.RECORDSOURCE=“; SELECT 订单 .订单号，订单 .订购日期，订单 .总金额 ; FROM 订单 ; WHERE 订单 .订购日期 =RQ; INTO CURSOR CURSOR1” 双击 退出 命令按钮，编写 Click事件代码： ThisForm.Release 步骤 3：单击 保存 按钮，右击表单选择 “执行表单 ”，最后运行表单即可。 【知识模块】 上机操作题
