frm_main.frm

可运行的一个医院住院管理系统

Image6.Visible = False
Image8.Visible = False
Image7.Visible = True
Image10.Visible = True
Image2.Visible = False
Image9.Visible = False
Image11.Visible = False
Image13.Visible = True
Image3.Visible = False
Image12.Visible = False
Image14.Visible = False
Image15.Visible = False
Image16.Visible = False
Image17.Visible = False
Image5.Visible = False
End Sub

Private Sub Command4_Click()
Label4.Visible = True
Label5.Visible = True
Label1.Caption = "住院查询"
Label2.Caption = "病房查询"
Label3.Caption = "档案查询"
Label4.Caption = "处方查询"
Label5.Caption = "交费查询"
Image8.Visible = True
Image1.Visible = False
Image7.Visible = False
Image6.Visible = False
Image11.Visible = True
Image2.Visible = False
Image9.Visible = False
Image10.Visible = False
Image14.Visible = True
Image3.Visible = False
Image12.Visible = False
Image13.Visible = False
Image16.Visible = True
Image4.Visible = False
Image15.Visible = False
Image5.Visible = False
Image17.Visible = True
End Sub

Private Sub CXDL_Click()
frm_XTDL.Show
End Sub

Private Sub EXIT1_Click()
End
End Sub

Private Sub FCDZDAN_Click()
If Check10.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_dafc.Show
frm_dafc.Text2.Text = Label6.Caption
End If
End Sub

Private Sub Form_Load()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
Call Command1_Click
End Sub

Private Sub Image1_Click()
If Check1.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此权限", 32, "医院住院管理系统"
Else
frm_YHGL.Show
frm_YHGL.Caption = "用户注册"
frm_YHGL.Option1.Value = 1
frm_YHGL.Option2.Value = 0
frm_YHGL.Option2.Enabled = False
End If
End Sub

Private Sub Image10_Click()
If Check7.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_cygl.Show
End If
End Sub

Private Sub Image11_Click()
If Check8.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_bfxx_cx.Show
End If
End Sub

Private Sub Image12_Click()
If Check10.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_dafc.Show
frm_dafc.Text2.Text = Label6.Caption
End If
End Sub

Private Sub Image13_Click()
If Check9.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_sfgl.Show
End If
End Sub

Private Sub Image14_Click()
If Check8.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_daxx_cx.Show
End If
End Sub

Private Sub Image15_Click()
If Check10.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_dajf.Show
frm_dajf.Text2.Text = Label6.Caption
End If
End Sub

Private Sub Image16_Click()
If Check8.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_cfxx_cx.Show
End If
End Sub

Private Sub Image17_Click()
If Check8.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_jfxx_cx.Show
End If
End Sub

Private Sub Image2_Click()
If Check2.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_xgmm.Show
End If
End Sub

Private Sub Image3_Click()
If Check1.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_YHGL.Show
frm_YHGL.Caption = "用户删除"
frm_YHGL.Option2.Value = 1
frm_YHGL.Option1.Value = 0
frm_YHGL.Option1.Enabled = False
End If
End Sub

Private Sub Image4_Click()
If Check3.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_XTWH_CZYSZ.Show
End If
End Sub

Private Sub Image5_Click()
If Check4.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_CSH.Show
End If
End Sub

Private Sub Image6_Click()
If Check5.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_bfwh.Show
End If
End Sub

Private Sub Image7_Click()
If Check7.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_zygl.Show
End If
End Sub

Private Sub Image8_Click()
If Check8.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_zyxx_cx.Show
End If
End Sub

Private Sub Image9_Click()
If Check6.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_yxzz.Show
End If
End Sub

Private Sub JFBRDAN_Click()
If Check10.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_dajf.Show
End If
End Sub

Private Sub JZCY_Click()
If Check7.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_cygl.Show
End If
End Sub

Private Sub KSWH_Click()
frm_ksb.Show
End Sub

Private Sub MAXG_Click()
If Check2.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_xgmm.Show
End If
End Sub

Private Sub QXSZ_Click()
If Check3.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_XTWH_CZYSZ.Show
End If
End Sub

Private Sub RYWH_Click()
frm_ywrywh.Show
End Sub

Private Sub SJBF_Click()
  frm_sjbf.Show
End Sub

Private Sub SJHF_Click()
Dim iTask As Long
MsgBox "请您注意,为了确保数据安全,在进行数据恢复的同时需要关闭应用程序,请您在恢复数据完成之后重新运行应用程序", 64, "提示信息"
'调用数据恢复可执行文件
iTask = Shell(App.Path & "\Restore.exe", vbNormalFocus)
End
End Sub

Private Sub XTCSH_Click()
If Check4.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_CSH.Show
End If
End Sub

Private Sub YHSC_Click()
If Check1.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_YHGL.Show
frm_YHGL.Caption = "用户删除"
frm_YHGL.Option2.Value = 1
frm_YHGL.Option1.Value = 0
frm_YHGL.Option1.Visible = False
frm_YHGL.Option2.Visible = True
End If
End Sub

Private Sub YHZC_Click()
If Check1.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此权限", 32, "医院住院管理系统"
Else
frm_YHGL.Show
frm_YHGL.Caption = "用户注册"
frm_YHGL.Option1.Value = 1
frm_YHGL.Option2.Value = 0
frm_YHGL.Option2.Visible = False
frm_YHGL.Option1.Visible = True
End If
End Sub

Private Sub ZYBRJFCX_Click()
If Check8.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_jfxx_cx.Show
End If
End Sub

Private Sub ZYCX_Click()
If Check8.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_zyxx_cx.Show
End If
End Sub

Private Sub ZYDJ_Click()
If Check7.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_zygl.Show
End If
End Sub

Private Sub ZYDZBL_Click()
If Check6.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_yxzz.Show
End If
End Sub

Private Sub ZYJFGL_Click()
If Check9.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_sfgl.Show
End If
End Sub