📄 frm_main.frm
字号:
Picture = "frm_main.frx":68F0
Top = 600
Width = 480
End
Begin VB.Image Image9
Height = 480
Left = 4440
MouseIcon = "frm_main.frx":6D32
MousePointer = 99 'Custom
Picture = "frm_main.frx":75FC
Top = 600
Width = 480
End
Begin VB.Image Image2
Height = 480
Left = 4320
MouseIcon = "frm_main.frx":7EC6
MousePointer = 99 'Custom
Picture = "frm_main.frx":8790
Top = 600
Width = 480
End
Begin VB.Image Image3
Height = 480
Left = 5880
MouseIcon = "frm_main.frx":905A
MousePointer = 99 'Custom
Picture = "frm_main.frx":9924
Top = 600
Width = 480
End
Begin VB.Image Image15
Height = 480
Left = 2820
MouseIcon = "frm_main.frx":A1EE
MousePointer = 99 'Custom
Picture = "frm_main.frx":AAB8
Top = 1920
Width = 480
End
Begin VB.Image Image4
Height = 480
Left = 2880
MouseIcon = "frm_main.frx":AEFA
MousePointer = 99 'Custom
Picture = "frm_main.frx":B7C4
Top = 1920
Width = 480
End
Begin VB.Image Image5
Height = 480
Left = 4320
MouseIcon = "frm_main.frx":BC06
MousePointer = 99 'Custom
Picture = "frm_main.frx":C4D0
Top = 1920
Width = 480
End
Begin VB.Image Image8
Height = 480
Left = 2850
MouseIcon = "frm_main.frx":C912
MousePointer = 99 'Custom
Picture = "frm_main.frx":D1DC
Top = 650
Width = 480
End
Begin VB.Image Image7
Height = 480
Left = 2880
MouseIcon = "frm_main.frx":D61E
MousePointer = 99 'Custom
Picture = "frm_main.frx":DEE8
Top = 600
Width = 480
End
Begin VB.Image Image16
Height = 480
Left = 2880
MouseIcon = "frm_main.frx":E32A
MousePointer = 99 'Custom
Picture = "frm_main.frx":EBF4
Top = 1940
Width = 480
End
Begin VB.Image Image14
Height = 480
Left = 5880
MouseIcon = "frm_main.frx":F4BE
MousePointer = 99 'Custom
Picture = "frm_main.frx":FD88
Top = 620
Width = 480
End
Begin VB.Image Image13
Height = 480
Left = 5880
MouseIcon = "frm_main.frx":10652
MousePointer = 99 'Custom
Picture = "frm_main.frx":10F1C
Top = 600
Width = 480
End
Begin VB.Image Image12
Height = 480
Left = 5880
MouseIcon = "frm_main.frx":117E6
MousePointer = 99 'Custom
Picture = "frm_main.frx":120B0
Top = 600
Width = 480
End
Begin VB.Image Image6
Height = 480
Left = 2850
MouseIcon = "frm_main.frx":124F2
MousePointer = 99 'Custom
Picture = "frm_main.frx":12DBC
Top = 620
Width = 480
End
Begin VB.Menu XTGL
Caption = "【系统管理】"
Begin VB.Menu YHZC
Caption = "用户注册"
End
Begin VB.Menu MAXG
Caption = "密码修改"
End
Begin VB.Menu YHSC
Caption = "用户删除"
End
Begin VB.Menu MM
Caption = "-"
End
Begin VB.Menu RYWH
Caption = "人员维护"
End
Begin VB.Menu CKCZY
Caption = "查看操作员"
End
Begin VB.Menu AA
Caption = "-"
End
Begin VB.Menu SJBF
Caption = "数据备份"
End
Begin VB.Menu SJHF
Caption = "数据恢复"
End
Begin VB.Menu HH
Caption = "-"
End
Begin VB.Menu QXSZ
Caption = "权限设置"
End
Begin VB.Menu XTCSH
Caption = "系统初始化"
End
End
Begin VB.Menu BFGL
Caption = "【病房管理】"
Begin VB.Menu BFWH
Caption = "病房维护"
End
Begin VB.Menu KSWH
Caption = "科室维护"
End
Begin VB.Menu BB
Caption = "-"
End
Begin VB.Menu ZYDZBL
Caption = "电子病例"
End
Begin VB.Menu CC
Caption = "-"
End
Begin VB.Menu FCDZDAN
Caption = "档案封存"
End
Begin VB.Menu JFBRDAN
Caption = "档案解封"
End
End
Begin VB.Menu ZYGL
Caption = "【住院管理】"
Begin VB.Menu ZYDJ
Caption = "住院登记"
End
Begin VB.Menu JZCY
Caption = "结账出院"
End
Begin VB.Menu DD
Caption = "-"
End
Begin VB.Menu ZYJFGL
Caption = "交费管理"
End
End
Begin VB.Menu XXCX
Caption = "【信息查询】"
Begin VB.Menu ZYCX
Caption = "住院查询"
End
Begin VB.Menu BFCX
Caption = "病房查询"
End
Begin VB.Menu oo
Caption = "-"
End
Begin VB.Menu CFCX
Caption = "处方查询"
End
Begin VB.Menu BRDANCX
Caption = "档案查询"
End
Begin VB.Menu ZYBRJFCX
Caption = "交费查询"
End
End
Begin VB.Menu EXIT
Caption = "【退出系统】"
Begin VB.Menu CXDL
Caption = "重新登录"
End
Begin VB.Menu gg
Caption = "-"
End
Begin VB.Menu EXIT1
Caption = "关闭系统"
End
End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub BFCX_Click()
If Check8.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_bfxx_cx.Show
End If
End Sub
Private Sub BFWH_Click()
If Check5.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_bfwh.Show
End If
End Sub
Private Sub BRDANCX_Click()
If Check8.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_daxx_cx.Show
End If
End Sub
Private Sub CFCX_Click()
If Check8.Value = 0 Then
MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系确认您是否拥有此项功能的权限", 32, "医院住院管理系统"
Else
frm_cfxx_cx.Show
End If
End Sub
Private Sub CKCZY_Click()
frm_czyxx.Show
frm_czyxx.Text1.Text = Label6.Caption
End Sub
Private Sub Command1_Click()
Label4.Visible = True
Label5.Visible = True
Image4.Visible = True
Image5.Visible = True
Label1.Caption = "用户注册"
Label2.Caption = "密码修改"
Label3.Caption = "用户删除"
Label4.Caption = "权限设置"
Label5.Caption = "系统初始化"
Image1.Visible = True
Image6.Visible = False
Image7.Visible = False
Image8.Visible = False
Image2.Visible = True
Image9.Visible = False
Image10.Visible = False
Image11.Visible = False
Image3.Visible = True
Image12.Visible = False
Image13.Visible = False
Image14.Visible = False
Image4.Visible = True
Image15.Visible = False
Image16.Visible = False
Image5.Visible = True
Image17.Visible = False
End Sub
Private Sub Command2_Click()
Label1.Caption = "病房维护"
Label2.Caption = "电子病历"
Label3.Caption = "档案封存"
Label4.Caption = "档案解封"
Label4.Visible = True
Label5.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = True
Image1.Visible = False
Image7.Visible = False
Image8.Visible = False
Image9.Visible = True
Image2.Visible = False
Image10.Visible = False
Image11.Visible = False
Image12.Visible = True
Image3.Visible = False
Image13.Visible = False
Image14.Visible = False
Image15.Visible = True
Image4.Visible = False
Image16.Visible = False
Image17.Visible = False
Image5.Visible = False
End Sub
Private Sub Command3_Click()
Label1.Caption = "住院登记"
Label2.Caption = "结账出院"
Label3.Caption = "交费管理"
Label4.Visible = False
Label5.Visible = False
Image4.Visible = False
Image5.Visible = False
Image1.Visible = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -