frmmain.frm

人事管理系统的一个比较不错的VB软件 有管理系统的功能

VERSION 5.00
Begin VB.MDIForm FrmMain 
   BackColor       =   &H8000000C&
   Caption         =   "人事考勤系统"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "MDIForm1"
   LockControls    =   -1  'True
   Picture         =   "FrmMain.frx":0000
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu hrd1 
      Caption         =   "基本资料"
      Begin VB.Menu hrd101 
         Caption         =   "上班时段设定"
         Enabled         =   0   'False
      End
      Begin VB.Menu hrd102 
         Caption         =   "假日设定"
         Enabled         =   0   'False
      End
      Begin VB.Menu hrd103 
         Caption         =   "部门代号维护"
         Enabled         =   0   'False
      End
   End
   Begin VB.Menu hrd2 
      Caption         =   "日常资料"
      Begin VB.Menu hrd201 
         Caption         =   "员工基本资料输入"
         Enabled         =   0   'False
      End
      Begin VB.Menu hrd202 
         Caption         =   "日考勤"
         Enabled         =   0   'False
      End
      Begin VB.Menu hrd203 
         Caption         =   "请假维护"
         Enabled         =   0   'False
      End
      Begin VB.Menu hrd204 
         Caption         =   "日考勤处理"
         Enabled         =   0   'False
      End
   End
   Begin VB.Menu hrd3 
      Caption         =   "信息查询"
      Begin VB.Menu hrd301 
         Caption         =   "考勤资料查询"
         Enabled         =   0   'False
      End
   End
   Begin VB.Menu hrd4 
      Caption         =   "系统维护"
      Begin VB.Menu hrd401 
         Caption         =   "修改密码"
      End
      Begin VB.Menu hrd402 
         Caption         =   "用户维护"
         Enabled         =   0   'False
      End
      Begin VB.Menu hrd403 
         Caption         =   "程序权限设置"
         Enabled         =   0   'False
      End
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public mrc As ADODB.Recordset
Dim txtSql As String



Private Sub hrd101_Click()
   frmPeriod.Show
   'frmBasic.Show
End Sub

Private Sub hrd102_Click()
   frmFeria.Show
End Sub

Private Sub hrd103_Click()
   frmDept.Show
End Sub

Private Sub hrd201_Click()
   frmEmployee.Show
End Sub

Private Sub hrd202_Click()
   frmDayData.Show
End Sub

Private Sub hrd203_Click()
   frmHoliday.Show
End Sub

Private Sub hrd204_Click()
   frmDealData.Show
End Sub

Private Sub hrd301_Click()
   frmhrd301.Show
End Sub

Private Sub hrd401_Click()
   frmPassword.Show
End Sub

Private Sub hrd402_Click()
   frmUserId.Show
End Sub

Private Sub hrd403_Click()
   frmLimit.Show
End Sub

Private Sub MDIForm_Load()
   'hrd101
   txtSql = "select * from limit where Id = '" & PublicUserId & "' and  Program='hrd101'"
   Set mrc = Nothing
   Set mrc = ExecuteSQL(txtSql)
   If Not mrc.EOF Then
      hrd101.Enabled = True
   End If
   'hrd102
   txtSql = "select * from limit where Id = '" & PublicUserId & "' and  Program='hrd102'"
   Set mrc = Nothing
   Set mrc = ExecuteSQL(txtSql)
   If Not mrc.EOF Then
      hrd102.Enabled = True
   End If
   'hrd103
   txtSql = "select * from limit where Id = '" & PublicUserId & "' and  Program='hrd103'"
   Set mrc = Nothing
   Set mrc = ExecuteSQL(txtSql)
   If Not mrc.EOF Then
      hrd103.Enabled = True
   End If
   'hrd201
   txtSql = "select * from limit where Id = '" & PublicUserId & "' and  Program='hrd201'"
   Set mrc = Nothing
   Set mrc = ExecuteSQL(txtSql)
   If Not mrc.EOF Then
      hrd201.Enabled = True
   End If
   'hrd202
   txtSql = "select * from limit where Id = '" & PublicUserId & "' and  Program='hrd202'"
   Set mrc = Nothing
   Set mrc = ExecuteSQL(txtSql)
   If Not mrc.EOF Then
      hrd202.Enabled = True
   End If
   'hrd203
   txtSql = "select * from limit where Id = '" & PublicUserId & "' and  Program='hrd203'"
   Set mrc = Nothing
   Set mrc = ExecuteSQL(txtSql)
   If Not mrc.EOF Then
      hrd203.Enabled = True
   End If
   'hrd204
   txtSql = "select * from limit where Id = '" & PublicUserId & "' and  Program='hrd204'"
   Set mrc = Nothing
   Set mrc = ExecuteSQL(txtSql)
   If Not mrc.EOF Then
      hrd204.Enabled = True
   End If
   'hrd301
   txtSql = "select * from limit where Id = '" & PublicUserId & "' and  Program='hrd301'"
   Set mrc = Nothing
   Set mrc = ExecuteSQL(txtSql)
   If Not mrc.EOF Then
      hrd402.Enabled = True
   End If
   'hrd402
   txtSql = "select * from limit where Id = '" & PublicUserId & "' and  Program='hrd402'"
   Set mrc = Nothing
   Set mrc = ExecuteSQL(txtSql)
   If Not mrc.EOF Then
      hrd402.Enabled = True
   End If
   'hrd403
   txtSql = "select * from limit where Id = '" & PublicUserId & "' and  Program='hrd403'"
   Set mrc = Nothing
   Set mrc = ExecuteSQL(txtSql)
   If Not mrc.EOF Then
      hrd403.Enabled = True
   End If
End Sub