A.A.填充名称(Pad Name)
B.B.子菜单(Submenu)
C.C.命令(Command)
D.D.过程(Procedure)
在考生文件夹中完成如下综合应用: 现有医院数据库DOCT3,包括三个表文件:YISHENG.DBF(医生)、YAO.DBF(药品)、 CHUFANG.DBF(处方)。设计一个名为CHUFANG的菜单,菜单中有两个菜单项“查询”和“退出”。 程序运行时,单击“查询”应完成下列操作: (1)查询同一处方中,包含“感冒”两个字的药品的“处方号”、“药名”和“生产厂”,以及医生的“姓名”和“年龄”,把查询结果按“处方号”升序排序存入result数据表中。result表包含“姓名”、“年龄”、“处方号”、“药名”和“生产厂”字段。 (2)统计这些医生的人数(注意不是人次数),并在result中追加一条记录,将“人数”填入该记录的“处方号”字段中。 单击“退出”菜单项,程序终止运行。 注意: 相关数据表文件存在于考生文件夹中。
在窗体上利用菜单编辑器设计一个主菜单项“菜单控制”(Name属性值为mnuMenu),然后为其设计两个子菜单项“增加菜单”(Name属性值为mnuAdD)和“减少菜单”(Name属性值为mnuDel),另外设置一个标题为空的菜单项<控件数组),其Name属性值为mnuDyn,Index值为0,Visible属性值为False;然后编写以下程序来实现增加和减少菜单项的功能,完成程序。 Dim Inxld As Integer Private Sub mnuAdd_Click() Dim mnuc As String mnuc=InputBox("input caption") InxId;InxId+1 【 】mnuDyn(InxID) mnuDyn(InxlD),Calption=mnuc mauDyn(InxID).Visible=True End Sub Private SubmnuDel_Click() Dim i As Integer If【 】Then MsgBox "菜单项已全部被删除" Else Unload mnuDyn(InxID) InxId=InxId-1 End If End Sub
A.SEND(发送)-把你已经输入的信息发给仪表
B.HOME(主菜单)-返回Online(在线)菜单
C.ABORT(放弃)-取消你的输入并返回到你已经选择的当前变量或例行程序的菜单,变量值不会改变
D.ENTER(进入)-发送你已经选择的信息给HART内部处理器或给将要发送的数字加上标记