frm_main.frm

中小型企业员工管理系统 教程 教程 教程 教程 教程

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Frm_Main 
   BackColor       =   &H80000013&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "中小型企业员工管理系统"
   ClientHeight    =   6810
   ClientLeft      =   45
   ClientTop       =   735
   ClientWidth     =   11745
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   ScaleHeight     =   6810
   ScaleWidth      =   11745
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   8400
      Top             =   4815
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   345
      Left            =   0
      TabIndex        =   1
      Top             =   6465
      Width           =   11745
      _ExtentX        =   20717
      _ExtentY        =   609
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   5
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   6086
            MinWidth        =   6086
            Text            =   " 吉林省智源科技有限公司"
            TextSave        =   " 吉林省智源科技有限公司"
            Object.ToolTipText     =   "吉林省智源科技有限公司"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   4674
            MinWidth        =   4674
            Object.ToolTipText     =   "当前操作员"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3351
            MinWidth        =   3351
            Object.ToolTipText     =   "登录日期"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3351
            MinWidth        =   3351
            Object.ToolTipText     =   "系统时间"
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   4410
            MinWidth        =   4410
            Text            =   "www.zhao58.cn"
            TextSave        =   "www.zhao58.cn"
            Object.ToolTipText     =   "公司网址"
         EndProperty
      EndProperty
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "中小型企业员工管理系统"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   26.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   615
      Left            =   3030
      TabIndex        =   0
      Top             =   2880
      Width           =   6135
   End
   Begin VB.Menu SYS_GL 
      Caption         =   "系统管理"
      Begin VB.Menu SYS_YHGL 
         Caption         =   "用户管理"
      End
      Begin VB.Menu SYS_MMXG 
         Caption         =   "密码修改"
      End
      Begin VB.Menu AA 
         Caption         =   "-"
      End
      Begin VB.Menu SYS_EXIT 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu YGXXGL 
      Caption         =   "员工信息管理"
      Begin VB.Menu YGXX_ZJ 
         Caption         =   "员工信息增加"
      End
      Begin VB.Menu YGXX_XG 
         Caption         =   "员工信息修改"
      End
      Begin VB.Menu YGXX_SC 
         Caption         =   "员工信息删除"
      End
      Begin VB.Menu BB 
         Caption         =   "-"
      End
      Begin VB.Menu YGXX_CX 
         Caption         =   "员工信息查询"
      End
      Begin VB.Menu YGXX_DY 
         Caption         =   "员工信息打印"
      End
   End
   Begin VB.Menu YGGZGL 
      Caption         =   "员工工资管理"
      Begin VB.Menu GZTZ 
         Caption         =   "员工工资调整"
      End
      Begin VB.Menu GZHS 
         Caption         =   "员工工资核算"
      End
   End
   Begin VB.Menu CQGL 
      Caption         =   "员工出勤管理"
      Begin VB.Menu CQBZ 
         Caption         =   "员工出勤标准"
      End
      Begin VB.Menu CC 
         Caption         =   "-"
      End
      Begin VB.Menu CQXXWH 
         Caption         =   "出勤信息维护"
      End
      Begin VB.Menu CQXXCX 
         Caption         =   "出勤信息查询"
      End
   End
End
Attribute VB_Name = "Frm_Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CQBZ_Click()
  Frm_ygcqbz.Show
End Sub

Private Sub CQXXCX_Click()
  Frm_ygcqcx.Show
End Sub
Private Sub CQXXWH_Click()
  Frm_ygcqgl.Show
End Sub
Private Sub Form_Load()
   StatusBar1.Panels.Item(3).Text = Format(Now, "yyyy年mm月dd日")
End Sub
Private Sub GZHS_Click()
  Frm_gzhs.Show
End Sub
Private Sub GZTZ_Click()
  Frm_gzgl.Show
End Sub
Private Sub SYS_EXIT_Click()
  End
End Sub
Private Sub SYS_MMXG_Click()
  Frm_Pas.Show
End Sub
Private Sub SYS_YHGL_Click()
  Frm_sys.Show
End Sub
Private Sub YGXX_CX_Click()
  Frm_ygxxcx.Show
End Sub
Private Sub YGXX_DY_Click()
  Dep_ygxx.Show
End Sub
Private Sub YGXX_SC_Click()
  Frm_yggl.Show
  Frm_yggl.Caption = "员工信息删除"
  Frm_yggl.Cmd_Del.Enabled = True
End Sub
Private Sub YGXX_XG_Click()
  Frm_yggl.Show
  Frm_yggl.Caption = "员工信息修改"
  Frm_yggl.cmd_edit.Enabled = True
End Sub
Private Sub YGXX_ZJ_Click()
  Frm_yggl.Show
  Frm_yggl.Caption = "员工信息增加"
  Frm_yggl.Cmd_Add.Enabled = True
End Sub
Private Sub Timer1_Timer()
  StatusBar1.Panels.Item(4).Text = Time
End Sub