保定科技职业学院论文设计

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 页