📄 frm_main.frm
字号:
VERSION 5.00
Begin VB.Form frm_main
BackColor = &H00C0E0FF&
BorderStyle = 3 'Fixed Dialog
Caption = "医院住院管理系统"
ClientHeight = 3675
ClientLeft = 150
ClientTop = 630
ClientWidth = 6945
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
MouseIcon = "frm_main.frx":0000
ScaleHeight = 3675
ScaleWidth = 6945
ShowInTaskbar = 0 'False
Begin VB.CheckBox Check10
Caption = "Check10"
Height = 375
Left = 5880
TabIndex = 18
Top = 4800
Width = 1095
End
Begin VB.CheckBox Check9
Caption = "Check9"
Height = 180
Left = 4560
TabIndex = 17
Top = 4875
Width = 1095
End
Begin VB.CheckBox Check8
Caption = "Check8"
Height = 255
Left = 3120
TabIndex = 16
Top = 4800
Width = 1215
End
Begin VB.CheckBox Check7
Caption = "Check7"
Height = 255
Left = 1560
TabIndex = 15
Top = 4800
Width = 1215
End
Begin VB.CheckBox Check6
Caption = "Check6"
Height = 255
Left = 240
TabIndex = 14
Top = 4800
Width = 1095
End
Begin VB.CheckBox Check5
Caption = "Check5"
Height = 375
Left = 5880
TabIndex = 13
Top = 4320
Width = 1095
End
Begin VB.CheckBox Check4
Caption = "Check4"
Height = 375
Left = 4680
TabIndex = 12
Top = 4320
Width = 1095
End
Begin VB.CheckBox Check3
Caption = "Check3"
Height = 255
Left = 3120
TabIndex = 11
Top = 4320
Width = 1335
End
Begin VB.CheckBox Check2
Caption = "Check2"
Height = 255
Left = 1560
TabIndex = 10
Top = 4320
Width = 1215
End
Begin VB.CheckBox Check1
Caption = "Check1"
Height = 255
Left = 240
TabIndex = 9
Top = 4320
Width = 1095
End
Begin VB.CommandButton Command4
BackColor = &H00C0C0FF&
Caption = "信息查询"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
MouseIcon = "frm_main.frx":0CCA
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 3
Top = 2640
Width = 1575
End
Begin VB.CommandButton Command3
BackColor = &H00C0C0FF&
Caption = "住院管理"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
MouseIcon = "frm_main.frx":1594
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 2
Top = 1920
Width = 1575
End
Begin VB.CommandButton Command2
BackColor = &H00C0C0FF&
Caption = "病房管理"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
MouseIcon = "frm_main.frx":1E5E
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 1
Top = 1200
Width = 1575
End
Begin VB.CommandButton Command1
BackColor = &H00C0C0FF&
Caption = "系统管理"
BeginProperty Font
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 240
MouseIcon = "frm_main.frx":2728
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 0
Top = 480
Width = 1575
End
Begin VB.Image Image1
Height = 480
Left = 2880
MouseIcon = "frm_main.frx":2FF2
MousePointer = 99 'Custom
Picture = "frm_main.frx":38BC
Top = 600
Width = 480
End
Begin VB.Label Label6
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 210
Left = 360
TabIndex = 19
Top = 3360
Visible = 0 'False
Width = 105
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "系统初始化"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 210
Left = 4155
TabIndex = 8
Top = 2640
Width = 1050
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "权限设置"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 210
Left = 2670
TabIndex = 7
Top = 2640
Width = 840
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用户删除"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 210
Left = 5715
TabIndex = 6
Top = 1320
Width = 840
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密码修改"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 210
Left = 4200
TabIndex = 5
Top = 1320
Width = 840
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用户注册"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 210
Left = 2670
TabIndex = 4
Top = 1320
Width = 840
End
Begin VB.Line Line1
BorderColor = &H00808000&
BorderStyle = 6 'Inside Solid
X1 = 2160
X2 = 2160
Y1 = 120
Y2 = 3600
End
Begin VB.Image Image17
Height = 480
Left = 4320
MouseIcon = "frm_main.frx":4186
MousePointer = 99 'Custom
Picture = "frm_main.frx":4A50
Top = 1920
Width = 480
End
Begin VB.Image Image11
Height = 480
Left = 4400
MouseIcon = "frm_main.frx":4E92
MousePointer = 99 'Custom
Picture = "frm_main.frx":575C
Top = 600
Width = 480
End
Begin VB.Image Image10
Height = 480
Left = 4400
MouseIcon = "frm_main.frx":6026
MousePointer = 99 'Custom
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -