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

admin2010-08-26  40

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

选项

答案①选择【文件】→【打开】命令,打开数据库“hospital”。 ②选择【文件】→【新建】命令,选择“表单”,单击“新建文件”按钮打开表单设计器,单击表单控件工具栏上的“命令按钮组”控件图标,为表单添加一个命令按钮组CommandGroup1;单击表单控件工具栏上的“命令按钮”控件图标。为表单添加两个命令按钮Command1和Command2;单击表单控件工具栏上的“表格”控件图标,再添加一个表格控件Grid1。 ③选择命令按钮组CommandGroup1,单击右键,在弹出的快捷菜单中选择“生成器”打开命令组生成器对话框,单击“按钮”选项卡,没置按钮的数目为3,在“标题”列下修改3个按钮的标题分别为“药品查咖”“处方查询”和“综合查询”,单击“确定”按钮关闭命令组生成器对话框。 ④分别选择两个命令按钮,在按钮属性窗口中将命令按钮Command1的Name属性值修改为“cmdQry1”,将Caption的属性值修改为“查询”;将命令按钮Command2的Name属性值修改为“cmdClose”,将Capuon属性值修改为“关闭”,如图102-1所示。双击“关闭”命令按钮,在Click事件中输入代码:ThisForm.Release,用来关闭表单。 ⑤选择表格控件“Grid1”,在表格控件属性窗口中将“RecordSource”属性值修改为“""”,将“RecordSourceType”属性值修改为“1”。 ⑥双击“查询”命令按钮,在Click事件中输入代码: ThisForm.Grid1.RecordSourceTvpc=0 ThisForm.Grid1.ColumnCount=-1 DO CASE CASE ThisForm.CommandGroup1.value=1 FhisForm.Grid1.RecordSourcc="medicine" CASE ThisForm.CommandGroup1.value=2 ThisForm.Grid1.RecordSource="formula" CASE ThisForm.CommandGroup1.value一3 SELECT处方编号,药品名称。医生名称INTO CURSOR tmp FROM formula,medicine,doctor WHERE formula. 药品编号=medicine.药品编号 AND formula.医生编号=doctor.医生编号AND药品名称LIKE"%感冒%" ThisForm.Grid1.RecordSourceTyPe=1 ThisForm.Grid1.RecordSource="tmp" ENDCASE ThisForm.Grid1.Refresh ⑦选择【表单】→【执行表单】命令,系统首先要求保存该表单文件,在弹出的“另存为”对话框中输入表单文件名“bd3”。保存在考生文件夹下。然后运行表单。

解析
转载请注明原文地址:https://kaotiyun.com/show/tAzp777K
0

随机试题
最新回复(0)