frmmain.frm

员工管理系统 vb+sql 文档全 管理员admin 密码 123

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.MDIForm FrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "企业人事信息管理系统"
   ClientHeight    =   4305
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   6885
   LinkTopic       =   "MDIForm1"
   Picture         =   "FrmMain.frx":0000
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin ComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   3930
      Width           =   6885
      _ExtentX        =   12144
      _ExtentY        =   661
      SimpleText      =   ""
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   4
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Bevel           =   0
            Object.Width           =   1677
            MinWidth        =   1677
            Text            =   "当前用户："
            TextSave        =   "当前用户："
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Object.Width           =   3528
            MinWidth        =   3528
            Key             =   "XSHyonghu"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Style           =   5
            TextSave        =   "0:33"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Style           =   6
            TextSave        =   "2005-10-24"
            Object.Tag             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu 系统 
      Caption         =   "系统"
      Begin VB.Menu 添加用户 
         Caption         =   "添加用户"
      End
      Begin VB.Menu 修改密码 
         Caption         =   "修改密码"
      End
      Begin VB.Menu 退出系统 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu 员工基本信息 
      Caption         =   "员工基本信息"
      Begin VB.Menu 员工信息查看 
         Caption         =   "员工信息查看"
      End
      Begin VB.Menu 员工信息添加 
         Caption         =   "员工信息添加"
      End
      Begin VB.Menu 员工信息修改 
         Caption         =   "员工信息修改"
      End
      Begin VB.Menu 删除员工信息 
         Caption         =   "删除员工信息"
      End
   End
   Begin VB.Menu 员工考勤管理 
      Caption         =   "员工考勤管理"
      Begin VB.Menu 考勤信息查看 
         Caption         =   "考勤信息查看"
      End
      Begin VB.Menu 添加考勤信息 
         Caption         =   "添加考勤信息"
      End
      Begin VB.Menu 修改考勤信息 
         Caption         =   "修改考勤信息"
      End
      Begin VB.Menu 删除考勤信息 
         Caption         =   "删除考勤信息"
      End
   End
   Begin VB.Menu 员工工作信息管理 
      Caption         =   "员工工作信息管理"
      Begin VB.Menu 工作信息查看 
         Caption         =   "工作信息查看"
      End
      Begin VB.Menu 添加工作信息 
         Caption         =   "添加工作信息"
      End
      Begin VB.Menu 修改工作信息 
         Caption         =   "修改工作信息"
      End
      Begin VB.Menu 删除工作信息 
         Caption         =   "删除工作信息"
      End
   End
   Begin VB.Menu 员工工资管理 
      Caption         =   "员工工资管理"
      Begin VB.Menu 员工工资信息查看 
         Caption         =   "员工工资信息查看"
      End
      Begin VB.Menu 计发员工工资信息 
         Caption         =   "计发员工工资信息"
      End
      Begin VB.Menu 删除员工工资信息 
         Caption         =   "删除员工工资信息"
      End
   End
   Begin VB.Menu 关于 
      Caption         =   "关于"
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
  Picture = LoadPicture("")
  StatusBar1.Panels(2) = DLyonghuM & "(" & DLyonghuQX & ")"
  If DLyonghuQX = "普通用户" Then
     FrmMain.计发员工工资信息.Visible = False
     FrmMain.删除工作信息.Visible = False
     FrmMain.删除考勤信息.Visible = False
     FrmMain.删除员工信息.Visible = False
     FrmMain.添加工作信息.Visible = False
     FrmMain.添加考勤信息.Visible = False
     FrmMain.添加用户.Visible = False
     FrmMain.修改工作信息.Visible = False
     FrmMain.修改考勤信息.Visible = False
'     FrmMain.修改员工工资信息.Visible = False
     FrmMain.员工信息添加.Visible = False
     FrmMain.员工信息修改.Visible = False
     FrmMain.修改密码.Visible = False
  End If
End Sub

Private Sub 工作信息查看_Click()
  Unload GongZuoXinXi
  ChakanGZ_PD = True
  TianJiaGZ_PD = False
  XiuGaiGZ_PD = False
  ShanChuGZ_PD = False
  Load GongZuoXinXi
  GongZuoXinXi.Show
End Sub

Private Sub 关于_Click()
  GuangYu.Show
End Sub

Private Sub 计发员工工资信息_Click()
  Unload GongZi
  GongZiChK_PD = False
  GongZiXG_PD = False
  GongZiTJ_PD = True
  GongZiShCh_PD = False
  Load GongZi
  GongZi.Show
End Sub

Private Sub 考勤信息查看_Click()
  Load chaKanYGKQ
  chaKanYGKQ.Show
End Sub

Private Sub 删除工作信息_Click()
  Unload GongZuoXinXi
  ChakanGZ_PD = False
  TianJiaGZ_PD = False
  XiuGaiGZ_PD = False
  ShanChuGZ_PD = True
  Load GongZuoXinXi
  GongZuoXinXi.Show
End Sub

Private Sub 删除考勤信息_Click()
  Unload XiuGaiKQ
  XiuGaiKQ_PD = False
  TianJiaKQ_PD = False
  ShanChuKQ_PD = True
  Load XiuGaiKQ
  XiuGaiKQ.Show
End Sub

Private Sub 删除员工工资信息_Click()
  Unload GongZi
  GongZiChK_PD = False
  GongZiXG_PD = False
  GongZiTJ_PD = False
  GongZiShCh_PD = True
  Load GongZi
  GongZi.Show
End Sub

Private Sub 删除员工信息_Click()
  Unload xiugaiXX
  ShanChuJB = True
  XiuGaiJB_PD = False
  TianJiaJB = False
  Load xiugaiXX
  xiugaiXX.Show
End Sub

Private Sub 添加工作信息_Click()
  Unload GongZuoXinXi
  ChakanGZ_PD = False
  TianJiaGZ_PD = True
  XiuGaiGZ_PD = False
  ShanChuGZ_PD = False
  Load GongZuoXinXi
  GongZuoXinXi.Show
End Sub

Private Sub 添加考勤信息_Click()
  Unload XiuGaiKQ
  XiuGaiKQ_PD = False
  TianJiaKQ_PD = True
  ShanChuKQ_PD = False
  Load XiuGaiKQ
  XiuGaiKQ.Show
End Sub

Private Sub 添加用户_Click()
  Load tianjiaYH
  tianjiaYH.Show
End Sub

Private Sub 退出系统_Click()
  End
End Sub

Private Sub 修改工作信息_Click()
  Unload GongZuoXinXi
  ChakanGZ_PD = False
  TianJiaGZ_PD = False
  XiuGaiGZ_PD = True
  ShanChuGZ_PD = False
  Load GongZuoXinXi
  GongZuoXinXi.Show
End Sub

Private Sub 修改考勤信息_Click()
  Unload XiuGaiKQ
  XiuGaiKQ_PD = True
  TianJiaKQ_PD = False
  ShanChuKQ_PD = False
  Load XiuGaiKQ
  XiuGaiKQ.Show
End Sub

Private Sub 修改密码_Click()
  Load XiuGaimima
  XiuGaimima.Show
End Sub

'Private Sub 修改员工工资信息_Click()
'  Unload GongZi
'  GongZiChK_PD = False
'  GongZiXG_PD = True
'  GongZiTJ_PD = False
'  GongZiShCh_PD = False
'  Load GongZi
'  GongZi.Show
'End Sub

Private Sub 员工工资信息查看_Click()
  Unload GongZi
  GongZiChK_PD = True
  GongZiXG_PD = False
  GongZiTJ_PD = False
  GongZiShCh_PD = False
  Load GongZi
  GongZi.Show
End Sub

Private Sub 员工信息查看_Click()
  Load chakanXX
  chakanXX.Show
End Sub

Private Sub 员工信息添加_Click()
  Unload xiugaiXX
  TianJiaJB = True
  XiuGaiJB_PD = False
  ShanChuJB = False
  Load xiugaiXX
  xiugaiXX.Show
End Sub

Private Sub 员工信息修改_Click()
  Unload xiugaiXX
  XiuGaiJB_PD = True
  TianJiaJB = False
  ShanChuJB = False
  Load xiugaiXX
  xiugaiXX.Show
End Sub