保定科技职业学院论文设计
rec_user.Update End Select
Call ShowInfo(rec_user, flexb) End Sub
Private Sub flexb_DblClick() If Not rec_user.EOF Then Dim f As New Form3 Call f.setType(\f.Show vbModal
Call ShowInfo(rec_user, flexb) End If End Sub
Private Sub flexb_SelChange()
Dim strID, strFind
Call GetFlexGridFirstColValue(flexb, strID) If strID <> Empty Then
strFind = \
If Not (rec_user.EOF And rec_user.BOF) Then rec_user.MoveFirst
rec_user.Find (strFind) '实时的移动记录 ' Debug.Print \ End If End If End Sub
第25 页
保定科技职业学院论文设计
药品管理界面
本界面，主要实现对药品信息的管理，如药品编码、药品名称、型号规格、有效期等.能进行完备的药品编辑操作。
各控件的属性如下表
药品管理窗体中各个控件的属性设置 控件 Form Too1bar 属性 name caption startUpPositon Name Appeatance Borderstyle Index 1 Index 2 Index 3 Index 4 MSFlexridg Name 滚动条（ S ） 选定模式（ M ） 属性取值 Frm药品管理 药品管理 CenterScreen Too1bar1 1-3D 1-ccfixedSngle 增加 删除 修改 退出 Datagrid 3-Both 1-By Row
第26 页
保定科技职业学院论文设计
允许用户调整大小（ U ） 3-Both Lable 1 Lable 2 Lable 3 Lable 4 Lable 5 Lable 6 Lable 7
主要代码如下:
Private Sub tblOperator_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case \
Call Form13.setType(\ Form13.Show vbModal Case \
Call Form13.setType(\ Form13.Show vbModal
Case \ Unload Me
Case \
rec_med.Delete rec_med.Update End Select
Call ShowInfo(rec_med, flexb) End Sub
Private Sub flexb_DblClick() If Not rec_med.EOF Then Dim f As New Form13
Call f.setType(\f.Show vbModal
Call ShowInfo(rec_med, flexb) End If End Sub
Private Sub flexb_SelChange()
Dim strID, strFind
Call GetFlexGridFirstColValue(flexb, strID)
Caption Caption Caption Caption Caption Caption Caption 药品编码 药品名称 型号规格 单位 单价 库存量 有效期
第27 页
保定科技职业学院论文设计
If strID <> Empty Then
strFind = \
If Not (rec_med.EOF And rec_med.BOF) Then rec_med.MoveFirst
rec_med.Find (strFind) '实时的移动记录 ' Debug.Print \ End If End If
End Sub
挂号界面
挂号是系统主要流程的第一步，它的主要功能是为病人人分配一个唯一的编号，在以后的流程中，这个编号即挂的号为划价、收费的基础。在具体的实现中，在医师输入框后，放置了一命令按钮，方便用户快速的查找医师的信息。医师的信息也是以后查询医师的业绩的主要标识.
挂号窗体中放置了一个组合框控件，两个命令按钮，三个标签和两个文本框。各控件的属性见下表
挂号窗体控件属性表 控件 属性 属性取值 Name Frm挂号 Form Caption 挂号 startUpPsiton CenterScreen TextBox Name 医师 TextBox Name 挂号费 ComboBox Name Cmb类型 CommandButton Name CmdSave Caption 保存 CommandButton Name CmdCancel
第28 页