mdimain.frm

企业人事管理系统,有考勤,人员管理等功能,值得研究,也是我付费弄来的,绝对超值

Private Sub addStuffErradInfo_Click()
frmAddErrandInfo.Show

End Sub

Private Sub addStuffErrandInfo_Click()
      frmAddErrandInfo.Show
End Sub

Private Sub addStuffLeaveInfo_Click()
 frmAddLeaveInfo.Show
End Sub

Private Sub addStuffOverTimeInfo_Click()
frmAddOverTimeInfo.Show

End Sub

Private Sub bm_Click()
 frmPart.Show
End Sub





Private Sub ChangeInOutInfo_Click()
frmChgInOutInfo.Show

End Sub

Private Sub ChangeOtherKQInfo_Click()
frmChgOtherKQInfo.Show
End Sub

Private Sub ChangeDDInfo_Click()
  frmchgDDinfo.Show
End Sub

Private Sub CheckDDInfo_Click()
frmCheckDDInfo.Show
End Sub





Private Sub DelDDInfo_Click()
frmdaylist.Show
End Sub

Private Sub gzlb_Click()
   frmPayStyle.Show
End Sub

Private Sub hf_Click()
 frmDBBackup.SSTab1.Tab = 0
 frmDBBackup.Show vbModal
End Sub

Private Sub MDIForm_Load()

 '设置使用权限
   Call setQx

  '设定保存的文件夹路径
  pInfoFolderPath = App.path & "\InfoBox"
  '帮助文件的路径
  App.HelpFile = App.path & "\help.chm"
  '提醒功能
   Timer1.Enabled = True
End Sub

Private Sub MDIForm_Resize()
   If Me.WindowState = vbMinimized Then
     frmTray.mnuTrayRestore.Enabled = True
    Me.Hide
   Else
     frmTray.mnuTrayRestore.Enabled = False
  End If
 
  If WindowState <> vbMinimized Then frmTray.intLastState = WindowState
End Sub

Private Sub mnuBd_Click()
 frmSRTX.Show
End Sub

Private Sub mnuCal_Click()
  Shell App.path & "\calc.exe", vbNormalFocus
End Sub

Private Sub mnuChgPwd_Click()
  frmChgPwd.Show
End Sub

Private Sub mnuCtlRdr_Click()
  frmtlogin.Show
End Sub

Private Sub mnuEMAL_Click()
  frmEMAIL.Show
End Sub

Private Sub mnuExit_Click()
    Unload Me
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
   '选择是否退出
    Dim rtn As Integer
    rtn = MsgBox("您要退出吗？", vbYesNo, "请选择!")
    If rtn = vbNo Then
        
        Cancel = True
    
    Else
    Unload frmTP
    End
    End If
End Sub

    
    

    


Private Sub mnuHelpZT_Click()
 SendKeys "{F1}"
End Sub

Private Sub mnuHT_Click()
frmHT.Show
End Sub

Private Sub mnuInstruction_Click()
   SendKeys "{F1}"
End Sub

Private Sub mnuLock_Click()
  frmTray.mnuTrayExit.Enabled = False
  frmLock.Show vbModal
End Sub

Private Sub mnuNativePlace_Click()
   frmNativePlace.Show
End Sub



Private Sub mnuNote_Click()
  On Error Resume Next
  Shell "notepad.exe", vbNormalFocus
End Sub

Private Sub mnuOpenWeb_Click()
  frmWY.Show
End Sub

Private Sub mnuRSDShow_Click()
  frmRS.Show
End Sub

Private Sub mnuRSDStat_Click()
   frmTJ.Show
End Sub

Private Sub mnuSpec_Click()
  frmSpeciality.Show
End Sub



Private Sub mnuUManage_Click()
frmAddUser.Show
End Sub

Private Sub mnuZManage_Click()
  frmZManage.Show
End Sub

Private Sub mz_Click()
  frmNation.Show
End Sub

Private Sub sdbf_Click()
frmDBBackup.SSTab1.Tab = 1
frmDBBackup.Show vbModal
End Sub

Private Sub SetInOutTime_Click()
frmSetInOutTime.Show

End Sub

Private Sub StuffAllCqInfoList_Click()
  frmAllCQInfoList.Show
  
End Sub

Private Sub StuffErrandInfoList_Click()
   frmErrandInfoList.Show
End Sub

Private Sub StuffInOutInfoList_Click()
   frmInOutInfoList.Show
End Sub



Private Sub StuffLeaveInfoList_Click()
 frmLeaveInfoList.Show
End Sub

Private Sub StuffOverTimeInfoList_Click()
   frmOverTimeInfoList.Show
End Sub

Private Sub tbrMain_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 2 '人事档案
  frmRS.Show
Case 4 '数据统计
  frmTJ.Show
Case 6 '添加上下班信息
 frmAddInOutInfo.Show
Case 8 '添加调动
frmAddDDInfo.Show
Case 10 '计算器
    Shell App.path & "\calc.exe", vbNormalFocus
 Case 11 '记事本
      On Error Resume Next
    Shell "notepad.exe", vbNormalFocus
 Case 12 'email
   frmEMAIL.Show
Case 14 '退出系统
   Unload Me
End Select
End Sub


Private Sub Timer1_Timer()
'生日提醒
  Dim rs As ADODB.Recordset
  Dim strSql As String
  Dim strMsg As String
  Dim sr As Date '生日
  Dim rz As Date '今天的date
  Dim pMPath As String
  Dim strBMsg As String
  
  
  pMPath = ReadSIni("生日提醒", "音乐路径")
  pMPath = Left(pMPath, InStr(pMPath, Chr(0)) - 1)

  strSql = "select * from t_br"
  Set rs = ExecuteSQL(strSql, strMsg)
     rs.MoveFirst
   Do While Not rs.EOF
  sr = rs.Fields("生日").Value
  rz = Date
  If isBirthday(rz, sr) = True Then

  '要提醒
     If ReadIni("生日提醒", "启动时播放音乐") = 1 Then
        playmusic pMPath '"D:\企业人事管理系统\勇气.mp3"
     End If
     If ReadIni("生日提醒", "启动时弹出对话框") = 1 Then
         strBMsg = ReadSIni("生日提醒", "提示文本")
         strBMsg = Left(strBMsg, InStr(strBMsg, Chr(0)) - 1)
         MsgBox strBMsg
     End If
     
     Exit Do
  End If
  rs.MoveNext
 Loop
 
    
    
'合同到期提醒
  strSql = "select * from t_br where 合同终止时间=#" & Date & "#"
  Set rs = ExecuteSQL(strSql, strMsg)
    
   pMPath = ReadSIni("合同到期提醒", "音乐路径")
  pMPath = Left(pMPath, InStr(pMPath, Chr(0)) - 1)
  
  If Not rs.EOF Then
      If ReadIni("合同到期提醒", "启动时播放音乐") = 1 Then
        playmusic pMPath
     End If
     If ReadIni("合同到期提醒", "启动时弹出对话框") = 1 Then
        strBMsg = ReadSIni("合同到期提醒", "提示文本")
         strBMsg = Left(strBMsg, InStr(strBMsg, Chr(0)) - 1)
         MsgBox strBMsg
     End If
  End If
 
 
 
 
 
 Timer1.Enabled = False
End Sub

Private Sub wwcd_Click()
   frmCulture.Show
End Sub

Private Sub zw_Click()
  frmDuty.Show
End Sub

Private Sub zylx_Click()
  frmEmployeeStyle.Show
End Sub

'比较今天和生日的月日，得出今天 是不是生日
Private Function isBirthday(ByVal td As Date, ByVal bd As Date) As Boolean
        If Month(td) = Month(bd) And Day(td) = Day(bd) Then
           isBirthday = True
           Exit Function
        End If
        isBirthday = False
End Function

'设置用户使用的权限子程序
Private Sub setQx()
   Dim strSql As String
   Dim strMsg As String
   Dim rs As New ADODB.Recordset
   
   strSql = "select * from t_zqx where 组名='" & m_UZ & "'"
   Set rs = ExecuteSQL(strSql, strMsg)
   mnuCtlRdr.Enabled = rs.Fields("操作员登陆记录").Value
   mnuLock.Enabled = rs.Fields("锁定操作画面")
   
    mnuRSDShow.Enabled = rs.Fields("人事资料查看")
    tbrMain.Buttons(2).Enabled = rs.Fields("人事资料查看")
    mnuRSDStat.Enabled = rs.Fields("人事资料统计")
     tbrMain.Buttons(4).Enabled = rs.Fields("人事资料统计")
     
    SetInOutTime.Enabled = rs.Fields("设置上下班时间")
    AddKQInfo.Enabled = rs.Fields("添加考勤信息")
    AddInOutInfo.Enabled = rs.Fields("添加上下班信息")
    addOtherKQInfo.Enabled = rs.Fields("添加其它考勤信息")
    addStuffLeaveInfo.Enabled = rs.Fields("添加员工请假信息")
    addStuffOverTimeInfo.Enabled = rs.Fields("添加员工加班信息")
    addStuffErrandInfo.Enabled = rs.Fields("添加员工出差信息")
    StuffLeaveInfoList.Enabled = rs.Fields("员工请假信息列表")
    StuffOverTimeInfoList.Enabled = rs.Fields("员工加班信息列表")
    StuffErrandInfoList.Enabled = rs.Fields("员工出差信息列表")
     
       
       
    'ChangKQInfo.Enabled = rs.Fields("修改考勤信息")
     '  ChangeInOutInfo.Enabled = rs.Fields("修改上下班信息")
     '  ChangeOtherKQInfo.Enabled = rs.Fields("修改其它考勤信息")
     '  chgStuffLeaveInfo.Enabled = rs.Fields("修改员工请假信息")
     '  chgStuffOverTimeInfo.Enabled = rs.Fields("修改员工加班信息")
     '  chgStuffErrandInfo.Enabled = rs.Fields("修改员工出差信息")
   checkKQInfo.Enabled = rs.Fields("查询考勤信息")
     
    'DelKQInfo.Enabled = rs.Fields("删除考勤信息")
   'DelInOutInfo.Enabled = rs.Fields("删除上下班信息")
    'delOtherKqInfo.Enabled = rs.Fields("删除其它考勤信息")
     
    AddDDInfo.Enabled = rs.Fields("添加调动信息")
   ChangeDDInfo.Enabled = rs.Fields("修改调动信息")
    CheckDDInfo.Enabled = rs.Fields("查询调动信息")
    DelDDInfo.Enabled = rs.Fields("删除调动信息")
     
     
    DataBase.Enabled = rs.Fields("数据库")
   mnuInfoInit.Enabled = rs.Fields("信息初始化")
    mnuBd.Enabled = rs.Fields("生日提醒")
    mnuHT.Enabled = rs.Fields("合同到期提醒")
     
    rs.Close
   Set rs = Nothing
   
End Sub