?? frmsystem.frm
字號(hào):
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm frmSystem
BackColor = &H00808000&
Caption = "藍(lán)牙數(shù)碼考勤管理系統(tǒng)"
ClientHeight = 3810
ClientLeft = 2550
ClientTop = 1950
ClientWidth = 6210
Icon = "frmSystem.frx":0000
LinkTopic = "MDIForm1"
ScrollBars = 0 'False
WindowState = 2 'Maximized
Begin MSComctlLib.ImageList ImageList1
Left = 720
Top = 1800
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSystem.frx":0442
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSystem.frx":0894
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSystem.frx":0CE6
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSystem.frx":16C0
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSystem.frx":20D2
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmSystem.frx":2524
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 0
Top = 0
Width = 6210
_ExtentX = 10954
_ExtentY = 1164
ButtonWidth = 1032
ButtonHeight = 1005
AllowCustomize = 0 'False
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 11
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "職工信息"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "時(shí)間設(shè)定"
ImageIndex = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "公休設(shè)定"
ImageIndex = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "查詢打印 "
ImageIndex = 4
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "請(qǐng)假管理"
ImageIndex = 5
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Object.ToolTipText = "退出系統(tǒng)"
ImageIndex = 6
EndProperty
EndProperty
BorderStyle = 1
End
Begin VB.Menu mnuJiBenSet
Caption = "基本設(shè)置"
Begin VB.Menu mnuTimeSet
Caption = "時(shí)間設(shè)定"
End
Begin VB.Menu mnuManSet
Caption = "職工信息設(shè)定"
End
Begin VB.Menu mnuGongXiuSet
Caption = "公休日設(shè)定"
End
Begin VB.Menu mnuQingJia
Caption = "請(qǐng)假管理"
End
End
Begin VB.Menu mnuFind_Print
Caption = "查詢報(bào)表"
Begin VB.Menu muKaoQin
Caption = "考勤查詢"
End
End
Begin VB.Menu mnuSystemSet
Caption = "系統(tǒng)管理"
Begin VB.Menu mnuUserSet
Caption = "用戶管理"
End
Begin VB.Menu mnuSet_Card
Caption = "設(shè)置磁卡"
End
Begin VB.Menu MnuINput_KaoQin
Caption = "手動(dòng)錄入記錄"
End
Begin VB.Menu mnuSet_KaoQin
Caption = "設(shè)置考勤機(jī)"
End
Begin VB.Menu MnuAuto
Caption = "系統(tǒng)自動(dòng)"
End
End
Begin VB.Menu munLong
Caption = "登陸"
Begin VB.Menu mnuRefLog
Caption = "重新登陸"
End
End
Begin VB.Menu mnuHelp
Caption = "幫助"
Begin VB.Menu mnuReadMe
Caption = "使用說明"
End
Begin VB.Menu mnuVer
Caption = "版本信息"
End
End
Begin VB.Menu mnuExit
Caption = "退出系統(tǒng)"
End
End
Attribute VB_Name = "frmSystem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
Select Case lNum
Case 0
mnuSystemSet.Visible = False
mnuUserSet.Visible = False
Case 1
mnuSystemSet.Visible = False
mnuUserSet.Visible = False
Case 2
End Select
End Sub
Private Sub mnuExit_Click()
If MsgBox("是否退出考勤系統(tǒng)？", vbYesNo, "系統(tǒng)提示") = vbYes Then
adoCon.Close
Set adoRs = Nothing
Set adoCon = Nothing
End
End If
End Sub
Private Sub mnuGongXiuSet_Click()
frmGongXiu.Show
End Sub
Private Sub mnuKaoQin_Record_Click()
frmSet_rec.Show
End Sub
Private Sub MnuINput_KaoQin_Click()
frmSet_rec.Show
End Sub
Private Sub mnuManSet_Click()
frmWorker.Show
End Sub
Private Sub mnuRecordSet_Click()
frmUpDate.Show
End Sub
Private Sub mnuQingJia_Click()
frmQingJia.Show
End Sub
Private Sub mnuRefLog_Click()
frmLogin.Show
Unload frmSystem
End Sub
Private Sub mnuSet_Card_Click()
frmKaoQinSET.Show
End Sub
Private Sub mnuSetJiaBan_Click()
frmSetJiaBan.Show
End Sub
Private Sub mnuTimeSet_Click()
frmSetTime.Show
End Sub
Private Sub mnuUserSet_Click()
frmMG.Show
End Sub
Private Sub muKaoQin_Click()
frmPrint.Show
End Sub
Private Sub Toolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
frmWorker.Show
Case 3
frmSetTime.Show
Case 5
frmGongXiu.Show
Case 7
frmPrint.Show
Case 9
frmQingJia.Show
Case 11
If MsgBox("是否退出考勤系統(tǒng)？", vbYesNo, "系統(tǒng)提示") = vbYes Then
adoCon.Close
Set adoRs = Nothing
Set adoCon = Nothing
End
End If
End Select
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -