问题 问答题

单击“关闭”按钮退出表单。

答案

参考答案:在命令窗口中输入命令:CREATE FORM myf,打开表单设计器,通过“表单控件”工具栏向表单添加1个表格、1个选项按钮组和2个命令按钮。
选中表单,在属性面板顶端的下拉框中选择Command1,修改该命令按钮控件的Caption属性值为“浏览”,以同样的方法将第二个命令按钮设置Caption属性值改为“关闭”,在属性面板顶端的下拉框中选择 (Optiongroup1),将其ButtonCount属性值改为3,右击选项按钮组,选择“编辑”快捷菜单命令,在此状态下(编辑状态下,控件四周出现蓝色框线),分别修改三个单选项的Caption属性值为“药查询”、“处方查询”和“综合查询”,
双击命令按钮“浏览”,编写该控件的Click事件,程序代码如下:
******命令按钮Command1(浏览)的Click事件代码******
DO CASE
CASE Thisform.Optiongroup1.Value=1
SELECT*;
FROM药信息;
INTO CURSOR temp
Thisform.Grid1.RecordSourceType=1
Thisform.Grid1.RecordSource="temp"
CASE Thisform.optiongroup1.Value=2
SELECT 处方号,药编号;
FROM 处方信息;
INTO CURSOR temp
Thisform.Grid1.RecordSourceType=1
Thisform.Grid1.RecordSource="temp"
CASE Thisform.optiongroup1.Value=3
SELECT 处方号,药名,医生.姓名;
FROM 医生,处方信息,药信息;
WHERE 医生.职工号=处方信息.职工号;
AND 处方信息.药编号=药信息.药编号;
AND药信息.药编号=5;
INTO CURSOR temp
Thisform.Grid1.RecordSourceType=1
Thisform.Grid1.RecordSource="temp"
ENDCASE
*********************************************************
以同样的方法为“关闭”命令按钮编写Click事件代码:Thisform.Release。
保存表单完成设计。运行结果如图3-75所示。
[*]

解析: 本大题考查的是表单设计,在本题中需要注意的地方是选项按钮组控件中改变单选按钮的属性是ButtonCount,修改选项组中每个单选按钮的属性,可以通过属性面板中顶端的下拉框的控件名来选定,也可以右击该控件,选择“编辑”快捷菜单命令,在编辑状态下单个选定控件;程序设计中,查询语句为基本SQL查询,在程序控制上可以通过分支语句DO CASE--ENDCASE语句来进行判断选项组中选定的单选按钮,并执行相应的命令,选项组中当前选定的单选按钮,可通过:Case Thisform.Optiongroup1.Value=1,2,3……语句来判断。

问答题 简答题
多项选择题