frm_login.frm

小型医院管理

End Sub

Private Sub d0004_Click()



 ''###################################
 
v_qx = Trim(v_denglu.v_bumen1)
 
If Trim(v_qx) = "高级" Then
kf_frm_server.Show 1
Else
a = MsgBox("警告：不是本部门员工，没有赋予相关权限！", vbQuestion, "系统提示！")
Exit Sub
End If

'###############################################




End Sub

Private Sub d0005_Click()



 ''###################################
 
v_qx = Trim(v_denglu.v_bumen1)
 
If Trim(v_qx) = "高级" Then
wh_jmadd.Show 1
Else
a = MsgBox("警告：不是本部门员工，没有赋予相关权限！", vbQuestion, "系统提示！")
Exit Sub
End If

'###############################################





End Sub

Private Sub d006_Click()



 ''###################################
 
v_qx = Trim(v_denglu.v_bumen1)
 
If Trim(v_qx) = "高级" Then
wh_renyuan_edit.Show

Else
a = MsgBox("警告：不是本部门员工，没有赋予相关权限！", vbQuestion, "系统提示！")
Exit Sub
End If

'###############################################



End Sub

Private Sub d007_Click()



 ''###################################
 
v_qx = Trim(v_denglu.v_bumen1)
 
If Trim(v_qx) = "高级" Then
wh_jmedit.Show 1

Else
a = MsgBox("警告：不是本部门员工，没有赋予相关权限！", vbQuestion, "系统提示！")
Exit Sub
End If

'###############################################





End Sub

Private Sub e00009_Click()



 ''###################################
 
v_qx = Trim(v_denglu.v_bumen1)
 
If Trim(v_qx) = "高级" Then
wh_danguanli.Show 1
Else
a = MsgBox("警告：不是本部门员工，没有赋予相关权限！", vbQuestion, "系统提示！")
Exit Sub
End If

'###############################################







End Sub

Private Sub e006_Click()



 ''###################################
 
v_qx = Trim(v_denglu.v_bumen1)
 
If Trim(v_qx) = "高级" Then
wh_danru.Show 1
Else
a = MsgBox("警告：不是本部门员工，没有赋予相关权限！", vbQuestion, "系统提示！")
Exit Sub
End If

'###############################################







End Sub

Private Sub e008_Click()


 ''###################################
 
v_qx = Trim(v_denglu.v_bumen1)
 
If Trim(v_qx) = "高级" Then
jianyi_wh.Show 1

Else
a = MsgBox("警告：不是本部门员工，没有赋予相关权限！", vbQuestion, "系统提示！")
Exit Sub
End If

'###############################################





End Sub

Private Sub e01_Click()


 ''###################################
 
v_qx = Trim(v_denglu.v_bumen1)
v_bumen = "收款"
 
If Trim(v_bumen) = Trim(v_qx) Or Trim(v_qx) = "高级" Then

huanzhe.Show 1
Else
a = MsgBox("警告：不是本部门员工，没有赋予相关权限！", vbQuestion, "系统提示！")
Exit Sub
End If

'###############################################




End Sub

Private Sub f00006_Click()


 ''###################################
 
v_qx = Trim(v_denglu.v_bumen1)
 
If Trim(v_qx) = "高级" Then

yaopin.Show 1
Else
a = MsgBox("警告：不是本部门员工，没有赋予相关权限！", vbQuestion, "系统提示！")
Exit Sub
End If

'###############################################






End Sub

Private Sub f0002_Click()


 ''###################################
 
v_qx = Trim(v_denglu.v_bumen1)
 
If Trim(v_qx) = "高级" Then

caiwu.Show 1
Else
a = MsgBox("警告：不是本部门员工，没有赋予相关权限！", vbQuestion, "系统提示！")
Exit Sub
End If

'###############################################





End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)








Select Case Button.Key
Case "a":



 ''###################################



 ''###################################
 
v_qx = Trim(v_denglu.v_bumen1)
v_bumen = "收款"
 
If Trim(v_bumen) = Trim(v_qx) Or Trim(v_qx) = "高级" Then
v_dengji.Show 1
Else
a = MsgBox("警告：不是本部门员工，没有赋予相关权限！", vbQuestion, "系统提示！")
Exit Sub
End If

'###############################################



'###############################################



Case "b":


 ''###################################
 


 ''###################################
 
v_qx = Trim(v_denglu.v_bumen1)
v_bumen = "收款"
 
If Trim(v_bumen) = Trim(v_qx) Or Trim(v_qx) = "高级" Then
sk_hj03.Show
Else
a = MsgBox("警告：不是本部门员工，没有赋予相关权限！", vbQuestion, "系统提示！")
Exit Sub
End If

'###############################################



'###############################################



Case "c":




 ''###################################
 




 ''###################################
 
v_qx = Trim(v_denglu.v_bumen1)
v_bumen = "收款"
 
If Trim(v_bumen) = Trim(v_qx) Or Trim(v_qx) = "高级" Then
sk_print04.Show 1
Else
a = MsgBox("警告：不是本部门员工，没有赋予相关权限！", vbQuestion, "系统提示！")
Exit Sub
End If

'###############################################







Case "d":

 ''###################################
 
v_qx = Trim(v_denglu.v_bumen1)
v_bumen = "医生"
 
If Trim(v_bumen) = Trim(v_qx) Or Trim(v_qx) = "高级" Then
jiancha.Show 1
Else
a = MsgBox("警告：不是本部门员工，没有赋予相关权限！", vbQuestion, "系统提示！")
Exit Sub
End If

'###############################################



'###############################################


Case "e":




 ''###################################
 

 



 ''###################################
 
v_qx = Trim(v_denglu.v_bumen1)
 
If Trim(v_qx) = "高级" Then
jianyi_wh.Show 1

Else
a = MsgBox("警告：不是本部门员工，没有赋予相关权限！", vbQuestion, "系统提示！")
Exit Sub
End If

'###############################################





'###############################################





Case "f":

b1 = MsgBox("您确实要退出系统吗？", vbOKCancel, "系统提示！")

 If b1 = 1 Then
 
Unload Me
End If


End Select








End Sub