📄 mdiform1.frm
字号:
VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.MDIForm frmMain
BackColor = &H00808000&
Caption = "医院管理系统"
ClientHeight = 8790
ClientLeft = 60
ClientTop = 630
ClientWidth = 12720
Icon = "MDIForm1.frx":0000
LinkTopic = "MDIForm1"
StartUpPosition = 2 '屏幕中心
Visible = 0 'False
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 855
Left = 0
TabIndex = 1
Top = 0
Width = 12720
_ExtentX = 22437
_ExtentY = 1508
ButtonWidth = 1455
ButtonHeight = 1376
AllowCustomize = 0 'False
Wrappable = 0 'False
Appearance = 1
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 12
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Visible = 0 'False
Caption = "档案管理"
Key = "Manager"
Object.ToolTipText = "档案管理中心"
Object.Tag = ""
ImageIndex = 1
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "录入档案"
Key = "GH"
Object.ToolTipText = "挂号管理--录入档案"
Object.Tag = ""
ImageIndex = 10
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "选择档案"
Key = "Select"
Object.ToolTipText = "挂号管理--选择档案"
Object.Tag = ""
ImageIndex = 2
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "化验信息"
Key = "HY"
Object.ToolTipText = "化验管理"
Object.Tag = ""
ImageIndex = 3
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "交费管理"
Key = "JF"
Object.ToolTipText = "交费管理"
Object.Tag = ""
ImageIndex = 4
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "就诊信息"
Key = "JZ"
Object.ToolTipText = "就诊管理"
Object.Tag = ""
ImageIndex = 5
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button9 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "取药信息"
Key = "QY"
Object.ToolTipText = "取药管理"
Object.Tag = ""
ImageIndex = 6
EndProperty
BeginProperty Button10 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
BeginProperty Button11 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "帮助信息"
Key = "Help"
Object.ToolTipText = "帮助信息中心"
Object.Tag = ""
ImageIndex = 7
EndProperty
BeginProperty Button12 {0713F354-850A-101B-AFC0-4210102A8DA7}
Caption = "退出系统"
Key = "Exit"
Object.ToolTipText = "退出系统"
Object.Tag = ""
ImageIndex = 8
EndProperty
EndProperty
OLEDropMode = 1
End
Begin ComctlLib.StatusBar StatusBar
Align = 2 'Align Bottom
Height = 330
Left = 0
TabIndex = 0
Top = 8460
Width = 12720
_ExtentX = 22437
_ExtentY = 582
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 4
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 2
Bevel = 2
Object.Width = 1411
MinWidth = 1411
Text = "提示："
TextSave = "提示："
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 5292
MinWidth = 5292
Object.Tag = ""
Object.ToolTipText = "工具栏的提示信息"
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
Object.Width = 3529
MinWidth = 3529
Object.Tag = ""
Object.ToolTipText = "当前的日期"
EndProperty
BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Style = 5
Alignment = 1
Object.Width = 1764
MinWidth = 1764
TextSave = "22:02"
Object.Tag = ""
Object.ToolTipText = "当前的时间"
EndProperty
EndProperty
MousePointer = 99
End
Begin ComctlLib.ImageList ImageList1
Left = 45
Top = 915
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 13
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":0442
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":075C
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":0A76
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":0D90
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":10AA
Key = ""
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":13C4
Key = ""
EndProperty
BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":16DE
Key = ""
EndProperty
BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":19F8
Key = ""
EndProperty
BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":1D12
Key = ""
EndProperty
BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":202C
Key = ""
EndProperty
BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":2346
Key = ""
EndProperty
BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":2660
Key = ""
EndProperty
BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIForm1.frx":297A
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu MnuGHManage
Caption = "挂号管理"
Begin VB.Menu MnuSearchGuest
Caption = "档案仓库"
Visible = 0 'False
End
Begin VB.Menu MnuInsertData
Caption = "录入档案"
End
Begin VB.Menu MnuSelectData
Caption = "选择档案"
End
Begin VB.Menu step3
Caption = "-"
End
Begin VB.Menu MnuExi
Caption = "退出系统"
End
End
Begin VB.Menu MnuHYManage
Caption = "化验管理"
Begin VB.Menu MnuInsertHY
Caption = "化验信息"
End
Begin VB.Menu HYCX
Caption = "信息查询"
End
End
Begin VB.Menu MnuJZManage
Caption = "就诊系统"
Begin VB.Menu MnuInsertJZ
Caption = "就诊信息"
End
Begin VB.Menu JZCX
Caption = "信息查询"
End
End
Begin VB.Menu MnuJFManage
Caption = "交费系统"
Begin VB.Menu MnuInsertJF
Caption = "交费管理"
End
End
Begin VB.Menu MnuQYManage
Caption = "取药管理"
Begin VB.Menu MnuInsertQY
Caption = "取药信息"
End
End
Begin VB.Menu ZY
Caption = "住院信息"
Begin VB.Menu ZYXX
Caption = "住院信息"
End
Begin VB.Menu ZYCX
Caption = "信息查询"
End
End
Begin VB.Menu MnuSystem
Caption = "系统管理"
Begin VB.Menu MnuCompany
Caption = "添加公司信息"
Visible = 0 'False
End
Begin VB.Menu Line503
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu MnuEmploy
Caption = "用户管理"
End
Begin VB.Menu step50
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu MnuGuestType
Caption = "档案目录管理"
Visible = 0 'False
End
End
Begin VB.Menu MnuHelp
Caption = "帮助中心"
Begin VB.Menu MnuTip
Caption = "每日一贴"
End
Begin VB.Menu step2
Caption = "-"
End
Begin VB.Menu MnuWxy
Caption = "关于系统"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**********************************
'** Function Declarations: From Wenxingyuan
Dim MouseD As Boolean, Oldx As Single, Oldy As Single
Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
Dim showT As Boolean
Private Sub HYCX_Click()
On Error GoTo errHnd:
Me.MousePointer = 11
GetStatus "化验信息查询"
If frmHY_Qry.Visible = True Then
frmHY_Qry.SetFocus
Else
frmHY_Qry.Show
End If
Me.MousePointer = 0
Exit Sub
errHnd:
Me.MousePointer = 0
End Sub
Private Sub JZCX_Click()
On Error GoTo errHnd:
Me.MousePointer = 11
GetStatus "就诊信息查询"
If frmJZ_Qry.Visible = True Then
frmJZ_Qry.SetFocus
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -