frmmain.frm

一套比较完整的VB开发的员工请假管理系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "员工请假管理系统"
   ClientHeight    =   6735
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   9510
   Icon            =   "frmMain.frx":0000
   LinkMode        =   1  'Source
   LinkTopic       =   "MDIForm1"
   Picture         =   "frmMain.frx":0CCA
   ScrollBars      =   0   'False
   Begin VB.Timer tmrSta 
      Interval        =   1000
      Left            =   1800
      Top             =   2040
   End
   Begin MSComctlLib.StatusBar staMain 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   6360
      Width           =   9510
      _ExtentX        =   16775
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   4
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   1411
            MinWidth        =   1411
            Key             =   "space"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   6174
            MinWidth        =   6174
            Text            =   "【欢迎使用员工请假管理系统】"
            TextSave        =   "【欢迎使用员工请假管理系统】"
            Key             =   "company"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   5292
            MinWidth        =   5292
            Text            =   "【用户名：】"
            TextSave        =   "【用户名：】"
            Key             =   "user"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   1
            Object.Width           =   3528
            MinWidth        =   3528
            Key             =   "time"
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnuMainBasic 
      Caption         =   "基础设置"
      Begin VB.Menu mnuUnit 
         Caption         =   "基础单元设置"
      End
      Begin VB.Menu mnuOperater 
         Caption         =   "操作员工管理"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mnuMainEmpManager 
      Caption         =   "员工管理"
      Begin VB.Menu mnuEmpmanager 
         Caption         =   "员工管理"
      End
      Begin VB.Menu mnuEmpQuery 
         Caption         =   "员工查询"
      End
   End
   Begin VB.Menu mnuMainLeavel 
      Caption         =   "请假管理"
      Begin VB.Menu mnuSubLeavle 
         Caption         =   "请假管理"
      End
      Begin VB.Menu mnuLeavelQuery 
         Caption         =   "请假查询"
      End
   End
   Begin VB.Menu MnuHelp 
      Caption         =   "帮助"
      Begin VB.Menu mnuAbout 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
'Download by http://www.codefans.net
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnuAbout_Click()
    frmAbout.Show vbModal, Me
End Sub

Private Sub mnuEmpmanager_Click()
    frmEmployees.Show vbModal
End Sub

Private Sub mnuEmpQuery_Click()
    frmEmployees.tblEmployees.Visible = False
    frmEmployees.tlbPrint.Left = 30
    frmEmployees.tlbExit.Left = frmEmployees.tlbPrint.Left + frmEmployees.tlbPrint.Width
    frmEmployees.Caption = "员工查询"
    
    frmEmployees.Show vbModal, Me
End Sub

Private Sub mnuExit_Click()
    Unload Me
End Sub

Private Sub mnuLeavelQuery_Click()
    frmLeavel.tblEmployees.Buttons("add").Visible = False
    
    frmLeavel.tblEmployees.Buttons("delete").Visible = False
    frmLeavel.tblEmployees.Buttons("modify").Visible = False
    
    frmLeavel.tlbPrint.Left = 30
    frmLeavel.tlbExit.Left = frmLeavel.tlbPrint.Width
    
    frmLeavel.Caption = "请假查询"
    frmLeavel.Show vbModal, Me
End Sub

Private Sub mnuOperater_Click()
    frmOperator.Show vbModal, Me
End Sub

Private Sub mnuSubLeavle_Click()
    frmLeavel.Show vbModal, Me
End Sub

Private Sub mnuUnit_Click()
    frmUnit.Show vbModal
End Sub

Private Sub tmrSta_Timer()
    staMain.Panels("time").Text = Now()
End Sub