保定科技职业学院论文设计
Caption Lable1 Caption Lable2 Caption Lable3 Caption 主要代码如下:
Private Sub Command1_Click() Dim c_gl As String
If Trim(Text1) = \Text1.SetFocus End If
If t_ = \c_gl = Now()
c_gl = Replace(c_gl, \c_gl = Replace(c_gl, \c_gl = Replace(c_gl, \
Call ExcuteSql(rec_gh, \If rec_gh.State = adStateOpen Then rec_gh.AddNew
rec_gh.Fields(\类型\rec_gh.Fields(\医师ID\rec_gh.Fields(\挂号费\rec_gh.Fields(\编号\rec_gh.Update
MsgBox (\你的挂号号码:\Text1 = \Text2 = \Text3 = \End If
End If
If t_ = \
If rec_gh.State = adStateOpen Then
rec_gh.Fields(\类型\rec_gh.Fields(\医师ID\rec_gh.Fields(\挂号费\rec_gh.Update rec_gh.Update End If End If
If ck.Value <> 1 Then Unload Me End If
退出 类型 医师 挂号费 第29 页
保定科技职业学院论文设计
End Sub
划价界面
所谓的划价，就是将医生所给的药品清单，以系统中拟定的价格计算应收款的过程。
主要包括医人的挂号信息、药品信息等。在实现上，要求用户首先选择一挂号信息，然后，打开此编号对应的划价的信息，用户可以增加，也可以在已有的基础上进行修改和删除。
药品划价窗体如下图所示
该窗体由一个表格控件，十个文本框控件，三个按钮控件，十一个标签控件和一个组合控件组成。各控件的属性如下表。
药品划价窗体控件属性表 控件 属性 属性取值 Name Frm部门信息 Form Caption 部门信息 startUpPositon CenterScreen Name Datagrid 滚动条( S ) 3-Both MSFlexgrid 选定模式( M ) 1-By Row 允许用户调整大小( U ) 3-Both
第30 页
保定科技职业学院论文设计
CommandButton CommandButton CommandButton TextBox TextBox TextBox TextBox TextBox TextBox TextBox TextBox TextBox TextBox Lable1 Lable2 Lable3 Lable4 Lable5 Lable6 Lable7 Lable8 Lable9 Lable10
主要代码如下:
Caption Caption Caption Name Name Name Name Name Name Name Name Name Name Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption 增加 删除 打开 Txt类型 Txt医师 Txt编号 Txt药品编码 Txt药品名称 Txt型号规格 Txt数量 Txt总计 Txt预付 Txt找补 类型 医师 编号 药品编码 药品名称 型号规格 数量 总计 预付 类型 Private Sub Command5_Click() //打开按钮对应代码 If Text10.Text <> \
Call ExcuteSql(rec_hj, \类型='\挂号ID=\Text10)
If rec_hj.RecordCount = 0 Then rec_hj.AddNew
rec_hj.Fields(\类型\rec_hj.Fields(\挂号ID\rec_hj.Fields(\应收款\rec_hj.Update
End If
Call ExcuteSql(rec_comm2, \If rec_comm2.RecordCount > 0 Then Text14.Text = rec_comm2(\
Call ExcuteSql(rec_hjt, \挂号ID=\Call ShowInfo(rec_hjt, flexb) End If
Command2.Enabled = True Command4.Enabled = True
第31 页
保定科技职业学院论文设计
Else
MsgBox \请选择挂号编号\End If
End Sub
第32 页