📄 close.frm
字号:
VERSION 5.00
Object = "{C1A8AF28-1257-101B-8FB0-0020AF039CA3}#1.1#0"; "MCI32.OCX"
Begin VB.Form Form5
BackColor = &H00400000&
BorderStyle = 1 'Fixed Single
Caption = " 人事管理系统"
ClientHeight = 8175
ClientLeft = 45
ClientTop = 330
ClientWidth = 11880
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "close.frx":0000
LinkTopic = "Form5"
MaxButton = 0 'False
ScaleHeight = 8175
ScaleWidth = 11880
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = "C:\人事管理系统\data\rsda.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "bm"
Top = 7800
Visible = 0 'False
Width = 1140
End
Begin VB.OptionButton Option2
BackColor = &H00400000&
Caption = "Option2"
Height = 495
Left = 5400
TabIndex = 16
Top = 3960
Visible = 0 'False
Width = 255
End
Begin VB.OptionButton Option1
BackColor = &H00400000&
Caption = "Option1"
Height = 495
Left = 3840
MaskColor = &H00800000&
TabIndex = 15
Top = 3960
Visible = 0 'False
Width = 255
End
Begin VB.Timer Timer1
Left = 1800
Top = 0
End
Begin MCI.MMControl mic
Height = 495
Left = 2400
TabIndex = 12
Top = 0
Visible = 0 'False
Width = 3540
_ExtentX = 6244
_ExtentY = 873
_Version = 393216
DeviceType = ""
FileName = ""
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "C:\人事管理系统\data\rsda.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 345
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "zgbh"
Top = 0
Visible = 0 'False
Width = 1140
End
Begin VB.Label Label14
BackColor = &H00400000&
Caption = "关闭音乐"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 375
Left = 5640
MouseIcon = "close.frx":0442
MousePointer = 99 'Custom
TabIndex = 14
Top = 4080
Visible = 0 'False
Width = 1095
End
Begin VB.Label Label13
BackColor = &H00400000&
Caption = "打开音乐"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
Height = 375
Left = 4080
MouseIcon = "close.frx":074C
MousePointer = 99 'Custom
TabIndex = 13
Top = 4080
Visible = 0 'False
Width = 1095
End
Begin VB.Line Line1
BorderColor = &H00E0E0E0&
BorderWidth = 2
Visible = 0 'False
X1 = 3600
X2 = 6840
Y1 = 4560
Y2 = 4560
End
Begin VB.Line Line3
BorderColor = &H00E0E0E0&
BorderWidth = 2
Visible = 0 'False
X1 = 3600
X2 = 6840
Y1 = 3840
Y2 = 3840
End
Begin VB.Line Line2
BorderColor = &H00E0E0E0&
BorderWidth = 2
Visible = 0 'False
X1 = 6840
X2 = 6840
Y1 = 3840
Y2 = 4560
End
Begin VB.Line Line4
BorderColor = &H00E0E0E0&
BorderWidth = 2
Visible = 0 'False
X1 = 3600
X2 = 3600
Y1 = 3840
Y2 = 4560
End
Begin VB.Label Label12
BackColor = &H00400000&
Caption = "背景音乐"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 1920
MouseIcon = "close.frx":0A56
MousePointer = 99 'Custom
TabIndex = 11
Top = 3240
Width = 1095
End
Begin VB.Image Image1
Height = 4215
Left = 6240
Picture = "close.frx":0D60
Stretch = -1 'True
Top = 3000
Width = 3345
End
Begin VB.Label Label11
BackColor = &H00400000&
Caption = "欢 迎 进 入 实 创 有 限 公 司 人 事 劳 资 管 理 系 统"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 1455
Left = 2880
TabIndex = 10
Top = 840
Width = 7095
End
Begin VB.Label Label10
BackColor = &H00400000&
Caption = "工资管理"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 600
MouseIcon = "close.frx":2C5BA
MousePointer = 99 'Custom
TabIndex = 9
Top = 3720
Width = 1095
End
Begin VB.Label Label9
BackColor = &H00400000&
Caption = "报表查询"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 600
MouseIcon = "close.frx":2C8C4
MousePointer = 99 'Custom
TabIndex = 8
Top = 6600
Width = 1095
End
Begin VB.Label Label8
BackColor = &H00400000&
Caption = "特殊查询"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 600
MouseIcon = "close.frx":2CBCE
MousePointer = 99 'Custom
TabIndex = 7
Top = 5880
Width = 1095
End
Begin VB.Label Label7
BackColor = &H00400000&
Caption = "关于系统"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 375
Left = 1920
MouseIcon = "close.frx":2CED8
MousePointer = 99 'Custom
TabIndex = 6
Top = 5400
Width = 1095
End
Begin VB.Label Label6
BackColor = &H00400000&
Caption = "用户注册"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -