frmmain.frm

人事资源管理系统

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