VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "人力資源管理系統"
   ClientHeight    =   6930
   ClientLeft      =   150
   ClientTop       =   540
   ClientWidth     =   10035
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6930
   ScaleWidth      =   10035
   StartUpPosition =   2  '屏幕中心
   Begin MSComctlLib.StatusBar StatusBarUser 
      Align           =   2  'Align Bottom
      Height          =   405
      Left            =   0
      TabIndex        =   1
      Top             =   6525
      Width           =   10035
      _ExtentX        =   17701
      _ExtentY        =   714
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   12702
            MinWidth        =   12702
            Key             =   "stu1"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Key             =   "stu2"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Key             =   "stu3"
         EndProperty
      EndProperty
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "歡迎您使用企業人事管理系統"
      DragMode        =   1  'Automatic
      BeginProperty Font 
         Name            =   "隸書"
         Size            =   24
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   1680
      OLEDropMode     =   1  'Manual
      TabIndex        =   0
      Top             =   1800
      Width           =   6615
   End
   Begin VB.Menu menuSystem 
      Caption         =   "系統管理"
      Begin VB.Menu subMenuClient 
         Caption         =   "用戶管理"
      End
      Begin VB.Menu subMenuPassword 
         Caption         =   "修改密碼"
      End
   End
   Begin VB.Menu menuDataMange 
      Caption         =   "基礎數據管理"
   End
   Begin VB.Menu menuDept 
      Caption         =   "部門信息管理"
      HelpContextID   =   1
   End
   Begin VB.Menu menuEmloyee 
      Caption         =   "職員信息管理"
      Begin VB.Menu subMenuEmployee 
         Caption         =   "職員信息管理"
      End
      Begin VB.Menu subRpt 
         Caption         =   "報表"
         Begin VB.Menu subRptBasic 
            Caption         =   "基本信息"
         End
         Begin VB.Menu subPostion 
            Caption         =   "入職信息"
         End
         Begin VB.Menu subRptRecord 
            Caption         =   "通訊錄"
         End
      End
   End
   Begin VB.Menu menuQuery 
      Caption         =   "考勤信息查詢"
   End
   Begin VB.Menu menuValue 
      Caption         =   "考評信息管理"
   End
   Begin VB.Menu help 
      Caption         =   "幫助"
   End
   Begin VB.Menu exit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub exit_Click()
Dim str As String
'退出系統，并且詢問是否要以其他用戶名登錄
str = MsgBox("是否要改變用戶重新登錄？", vbOKCancel, "刪除當前記錄")
    If str = vbOK Then
        Unload Me
        frmLogin.Show
        frmLogin.txtPassword = ""
        frmLogin.txtUserName = ""
    Else
        End
    End If
End Sub
Private Sub Form_Load()
  Call initial   '調用初始化過程
  Call purview   '設置部分權限
End Sub
Private Sub help_Click()
frmAbout.Show  '顯示幫助對話框
End Sub
Private Sub menuDataMange_Click()
frmOptions.Show '顯示基礎數據設置窗體
End Sub
Private Sub menuDept_Click()
frmDep.Show  '顯示部門信息管理窗體
End Sub
Private Sub menuQuery_Click()
frmWorkRecord.Show  '顯示考勤信息查詢窗體
End Sub
Private Sub menuValue_Click()
frmValue.Show  '顯示考評信息管理窗體
End Sub
Private Sub subMenuClient_Click()
frmUser.Show  '顯示用戶信息管理窗體
End Sub
Private Sub subMenuEmployee_Click()
frmEmployee.Show  '顯示職員信息管理窗體
End Sub
Private Sub subMenuPassword_Click()
frmPassord.Show '顯示修改密碼窗體
End Sub
' ******************************************************************************
'過程名：initial
'說  明：設置窗體加載時顯示的圖片，設置狀態欄信息
'參  數：無
'返回值：無
' ******************************************************************************
Private Sub initial()
    '加載背景圖片
    Dim strpath As String
    strpath = "\ren.jpg"
    frmMain.Picture = LoadPicture(App.Path & strpath)
    '設置狀態欄顯示系統信息
    StatusBarUser.Panels.Add (1)
    StatusBarUser.Panels.Item(1).Width = 7201.13
    StatusBarUser.Panels.Add (2)
    StatusBarUser.Panels.Add (3)
    StatusBarUser.Panels.Item(1).Style = sbrText
    StatusBarUser.Panels.Item(2).Style = sbrDate
    StatusBarUser.Panels.Item(3).Style = sbrTime
    StatusBarUser.Panels.Item(1).Text = "當前系統用戶是" + gUserName + "，您是" + gUserKind
End Sub
Private Sub subPostion_Click()
rptEmployee2.Show '顯示職員入職信息報表
End Sub
Private Sub subRptBasic_Click()
rptEmployee1.Show '顯示職員基本信息報表
End Sub
Private Sub subRptRecord_Click()
rptEmployee3.Show '顯示職員通訊錄
End Sub
Private Sub purview()
  Select Case gUserKind  '設置系統權限
    Case "系統管理員"
        Me.subMenuClient.Enabled = True
        Me.menuDataMange.Enabled = True
    Case Else
        Me.subMenuClient.Enabled = False
        Me.menuDataMange.Enabled = False
  End Select
End Sub