📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form FrmMain
BorderStyle = 3 'Fixed Dialog
Caption = "主菜单"
ClientHeight = 6465
ClientLeft = 150
ClientTop = 435
ClientWidth = 8775
Icon = "FrmMain.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6465
ScaleWidth = 8775
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer2
Interval = 800
Left = 720
Top = 5640
End
Begin VB.Timer Timer1
Interval = 1000
Left = 240
Top = 5640
End
Begin MSComctlLib.ImageList ImageList1
Left = 7200
Top = 240
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":08CA
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":11A4
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":1A7E
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":2358
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":2C32
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":3084
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":34D6
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmMain.frx":3DB0
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 375
Left = 0
TabIndex = 2
Top = 6090
Width = 8775
_ExtentX = 15478
_ExtentY = 661
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 2
Object.Width = 18415
MinWidth = 18415
EndProperty
EndProperty
End
Begin VB.PictureBox Picture1
Height = 4935
Left = 240
ScaleHeight = 4875
ScaleWidth = 8235
TabIndex = 1
Top = 1080
Width = 8295
Begin VB.TextBox Text1
Appearance = 0 'Flat
BackColor = &H8000000B&
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1575
Left = 1080
MultiLine = -1 'True
TabIndex = 3
Text = "FrmMain.frx":4202
Top = 4800
Width = 6495
End
Begin VB.Label Label1
Caption = $"FrmMain.frx":4285
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 735
Left = 4800
TabIndex = 4
Top = 4920
Width = 2415
End
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 855
Left = 0
TabIndex = 0
Top = 0
Width = 8775
_ExtentX = 15478
_ExtentY = 1508
ButtonWidth = 1455
ButtonHeight = 1349
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "职工信息"
Key = "ToolBasic"
Description = "编辑职工的基本信息"
ImageIndex = 1
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "班次显示"
Key = "ToolListClass"
ImageIndex = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "假期安排"
Key = "ToolLeave"
Description = "安排假期"
ImageIndex = 3
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "考勤系统"
Key = "ToolCheck"
Description = "考勤"
ImageIndex = 4
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "考勤统计"
Key = "ToolStat"
ImageIndex = 5
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "参数设定"
Key = "ToolSetup"
ImageIndex = 7
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "密码设定"
Key = "ToolKey"
ImageIndex = 8
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退出"
Key = "ToolExit"
ImageIndex = 6
EndProperty
EndProperty
End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Basic_DB As Database
Dim Basic_RS As Recordset
Private Sub Form_Load()
ListTools
End Sub
Private Sub Form_Unload(Cancel As Integer)
EndSub
End Sub
Private Sub Timer1_Timer()
StatusBar1.Panels(1).Text = CStr(Now)
End Sub
Private Sub Timer2_Timer()
If Text1.Top < -2000 Then Text1.Top = 5000: Exit Sub
Text1.Top = Text1.Top - 300
Label1.Top = Text1.Top + 1700
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "ToolBasic"
FrmBasic.Show
Case "ToolListClass" '班次显示
FrmListClass.Show
Case "ToolLeave" '假期安排
FrmLeave.Show
Case "ToolCheck" '考勤系统
FrmCheck.Show
Case "ToolStat" '考勤统计
FrmStat.Show
Case "ToolSetup"
FrmSetup.Show
Case "ToolKey"
FrmPassword.Show
Case "ToolExit"
EndSub
End Select
Me.Hide
End Sub
Public Sub ListTools()
Set Basic_DB = OpenDatabase(App.Path + "\Basic.mdb")
Set Basic_RS = Basic_DB.OpenRecordset("基本信息")
If Basic_RS.EOF Then
Toolbar1.Buttons("ToolListClass").Enabled = False
Toolbar1.Buttons("ToolLeave").Enabled = False
Toolbar1.Buttons("ToolCheck").Enabled = False
Toolbar1.Buttons("ToolStat").Enabled = False
Else
Toolbar1.Buttons("ToolListClass").Enabled = True
Toolbar1.Buttons("ToolLeave").Enabled = True
Toolbar1.Buttons("ToolCheck").Enabled = True
If Dir(App.Path + "\DATA\CHECK.mdb") = "" Then
Toolbar1.Buttons("ToolStat").Enabled = False
Else
Toolbar1.Buttons("ToolStat").Enabled = True
End If
End If
End Sub
Public Sub EndSub()
Unload Me
Aboutct.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -