【正确答案】在命令窗口中输入命令: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所示。
