对考生目录下的数据库“医院”建立文件名为myf的表单。表单含有一个表格控件,用于显示用户查询的信息;表单上有一个按钮选项组,含有“药查询”,“处方查询”和“查询综合”3个选项按钮;表单上有两个命令按钮,标题分别为“浏览”和“关闭”。 当选择“药查询”

admin2009-02-15  33

问题 对考生目录下的数据库“医院”建立文件名为myf的表单。表单含有一个表格控件,用于显示用户查询的信息;表单上有一个按钮选项组,含有“药查询”,“处方查询”和“查询综合”3个选项按钮;表单上有两个命令按钮,标题分别为“浏览”和“关闭”。
   当选择“药查询”选项按钮并单击“浏览”按钮时,在表格中显示“药信息”表的全部字段。
   选择“处方查询”选项按钮并单击“浏览”按钮,表格中显示“处方信息”表的字段“处方号”和“药编号”。
   选择“综合查询”选项按钮并单击“浏览”按钮时,表格中显示所开处方中含有“药编号”为“5”的处方号、药名及开此处方的医生姓名。
   单击“关闭”按钮退出表单。

选项

答案在命令窗口中输入命令: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……语句来判断。
转载请注明原文地址:https://kaotiyun.com/show/kdKZ777K
0

最新回复(0)