main.frm

人力资源管理系统

      Begin VB.Menu HumanAccountManage 
         Caption         =   "员工帐号管理"
         Enabled         =   0   'False
      End
      Begin VB.Menu OverdueDataClean 
         Caption         =   "过期数据清理"
         Enabled         =   0   'False
      End
      Begin VB.Menu Line9 
         Caption         =   "-"
      End
      Begin VB.Menu SetupNewMonth 
         Caption         =   "建立新的工资月份"
      End
      Begin VB.Menu Line10 
         Caption         =   "-"
      End
      Begin VB.Menu PieceWageManage 
         Caption         =   "计件工资管理"
      End
      Begin VB.Menu TimeWageManage 
         Caption         =   "计时工资管理"
      End
      Begin VB.Menu LiftWageManage 
         Caption         =   "提成工资管理"
      End
      Begin VB.Menu HumanRewardMana 
         Caption         =   "员工奖励管理"
      End
      Begin VB.Menu HumanPunishManage 
         Caption         =   "员工惩罚管理"
      End
      Begin VB.Menu DutyInfoManage 
         Caption         =   "考勤信息管理"
      End
      Begin VB.Menu Line11 
         Caption         =   "-"
      End
      Begin VB.Menu MonthlyWageManage 
         Caption         =   "月末工资管理"
      End
   End
   Begin VB.Menu SystemSelectMenu 
      Caption         =   "系统查询"
      Begin VB.Menu HumanFileSearch 
         Caption         =   "人事信息查询"
      End
      Begin VB.Menu HumanLeave_ReworkSearch 
         Caption         =   "员工离/复职查询"
      End
      Begin VB.Menu HumanTransferSearch 
         Caption         =   "员工调动查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu Line12 
         Caption         =   "-"
      End
      Begin VB.Menu WorkExperienceSearch 
         Caption         =   "工作经验查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu SocialRelationshipSearch 
         Caption         =   "社会关系查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu LaborSkillSearch 
         Caption         =   "劳动技能查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu LicenceInfoSearch 
         Caption         =   "证照资料查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu TrainningSearch 
         Caption         =   "员工培训查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu InvestigateSearch 
         Caption         =   "员工考核查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu InsuranceSearch 
         Caption         =   "员工保险查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu ContractSearch 
         Caption         =   "员工合同查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu ExpireContractSearch 
         Caption         =   "到期合同查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu EmploymentSearch 
         Caption         =   "员工聘用查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu ExpireEmploymentSearch 
         Caption         =   "到期聘用查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu Line13 
         Caption         =   "-"
      End
      Begin VB.Menu DutyInfoSearch 
         Caption         =   "考勤信息查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu WageFileSearch 
         Caption         =   "工资档案查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu Line14 
         Caption         =   "-"
      End
      Begin VB.Menu RewardSearch 
         Caption         =   "员工奖励查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu PunishSearch 
         Caption         =   "员工惩罚查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu PieceWageSearch 
         Caption         =   "计件工资查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu TimeWageSearch 
         Caption         =   "计时工资查询"
         Enabled         =   0   'False
      End
      Begin VB.Menu LiftWageSearch 
         Caption         =   "提成工资查询"
         Enabled         =   0   'False
      End
   End
   Begin VB.Menu StatisticsAnalyzeMenu 
      Caption         =   "统计分析"
      Enabled         =   0   'False
      Begin VB.Menu HumanFileTable 
         Caption         =   "人事档案报表"
      End
      Begin VB.Menu LoginTable 
         Caption         =   "员工登记报表"
      End
      Begin VB.Menu LeavePostTable 
         Caption         =   "员工离职报表"
      End
      Begin VB.Menu ResumePostTable 
         Caption         =   "员工复职报表"
      End
      Begin VB.Menu TransferTable 
         Caption         =   "员工调动报表"
      End
      Begin VB.Menu Line15 
         Caption         =   "-"
      End
      Begin VB.Menu SocialRelationshipTable 
         Caption         =   "社会关系报表"
      End
      Begin VB.Menu WorkExperienceTable 
         Caption         =   "工作经历报表"
      End
      Begin VB.Menu LaborSkillTable 
         Caption         =   "劳动技能报表"
      End
      Begin VB.Menu LicenceInfoTable 
         Caption         =   "证照资料报表"
      End
      Begin VB.Menu ContractTable 
         Caption         =   "员工合同报表"
      End
      Begin VB.Menu EmploymentTable 
         Caption         =   "员工聘用报表"
      End
      Begin VB.Menu InsuranceTable 
         Caption         =   "员工保险报表"
      End
      Begin VB.Menu InvestigationTable 
         Caption         =   "员工考核报表"
      End
      Begin VB.Menu TrainningTable 
         Caption         =   "员工培训报表"
      End
      Begin VB.Menu Line16 
         Caption         =   "-"
      End
      Begin VB.Menu DutyFileTable 
         Caption         =   "考勤档案报表"
      End
      Begin VB.Menu DutyGatherTable 
         Caption         =   "考勤汇总报表"
      End
      Begin VB.Menu WageFileTable 
         Caption         =   "工资档案报表"
      End
      Begin VB.Menu WagePieceTable 
         Caption         =   "工资发放条报表"
      End
      Begin VB.Menu WageGatherTable 
         Caption         =   "工资汇总报表"
      End
      Begin VB.Menu Line17 
         Caption         =   "-"
      End
      Begin VB.Menu HumanStaticAnalyzePicture 
         Caption         =   "人事项目统计分析图"
      End
      Begin VB.Menu WageChangeStaticAnalyzePicture 
         Caption         =   "工资增降统计分析图"
      End
      Begin VB.Menu WageStractureAnalyzePicture 
         Caption         =   "员工工资结构分析图"
      End
   End
   Begin VB.Menu DataMantainMenu 
      Caption         =   "数据维护"
      Enabled         =   0   'False
      Begin VB.Menu DataCopy 
         Caption         =   "数据备份"
      End
      Begin VB.Menu DataRestore 
         Caption         =   "数据还原"
      End
   End
   Begin VB.Menu ToolMenu 
      Caption         =   "工具"
      Enabled         =   0   'False
      Begin VB.Menu Daily 
         Caption         =   "日常记事"
      End
      Begin VB.Menu AddressBook 
         Caption         =   "通讯录"
      End
      Begin VB.Menu Meeting 
         Caption         =   "会议记录"
      End
      Begin VB.Menu Line18 
         Caption         =   "-"
      End
      Begin VB.Menu Booklet 
         Caption         =   "记事本"
      End
      Begin VB.Menu Calculate 
         Caption         =   "计算器"
      End
      Begin VB.Menu Line19 
         Caption         =   "-"
      End
      Begin VB.Menu OfficeWord 
         Caption         =   "Office-Word"
      End
      Begin VB.Menu OfficeExcel 
         Caption         =   "Office-Excel"
      End
   End
   Begin VB.Menu HelpMenu 
      Caption         =   "帮助"
      Enabled         =   0   'False
      Begin VB.Menu UseHelp 
         Caption         =   "使用帮助"
      End
      Begin VB.Menu Line20 
         Caption         =   "-"
      End
      Begin VB.Menu About 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub AutoComputeWorkTime_Click()
    Dim adors As New Recordset
    Dim strSQL As String
 
    Set adors.ActiveConnection = ADOcn
     
    strSQL = "Select * from 人事档案 order by 编号"
    adors.Open strSQL
    
    If adors.EOF Then
    Else
      Do While Not adors.EOF
      SQL = "Update 人事档案 Set 本单位工龄=" + CStr(Left(CurMonth, 4) - Year(adors("调入时间"))) + ",总工龄=" + CStr(Left(CurMonth, 4) - Year(adors("调入时间")) + Val(LTrim(adors("总工龄")))) + " where 编号='" + adors("编号") + "'"
      ADOcn.Execute SQL
      adors.MoveNext
      Loop
    End If
MsgBox "处理完成！", , "完成"
End Sub

Private Sub DefaultWage_Click()
frmDefaultWage.Show
End Sub

Private Sub DutyInfo_Click()
frmDutySet.Show
End Sub

Private Sub DutyInfoManage_Click()
frmDutyManage.Show
End Sub

Private Sub Form_Unload(Cancel As Integer)
frmClose.Show
End Sub

Private Sub HumanFileSearch_Click()
Search = 1
frmSelect.Show
End Sub

Private Sub HumanInfoFile_Click()
frmHumanManage.Show

End Sub

Private Sub HumanLeave_ReworkSearch_Click()
frmLeave_ReworkSelect.Show
End Sub

Private Sub HumanLeavePost_Click()
frmHumanLeave.Show
End Sub

Private Sub HumanPunishManage_Click()
WageType = "punish"
frmTime_Piece_LiftWage.Show
MyRefresh_frmPunishWage
frmTime_Piece_LiftWage.Caption = "员工惩罚管理："
End Sub

Private Sub HumanResumePost_Click()
frmHumanRework.Show
End Sub

Private Sub HumanRewardMana_Click()
WageType = "reward"
frmTime_Piece_LiftWage.Show
MyRefresh_frmRewardWage
frmTime_Piece_LiftWage.Caption = "员工奖励管理："
End Sub

Private Sub HumanTransfer_Click()
frmHumanTransfer.Show
End Sub

Private Sub LiftWageManage_Click()
WageType = "lift"
frmTime_Piece_LiftWage.Show
MyRefresh_frmLiftWage
frmTime_Piece_LiftWage.Caption = "提成工资管理："
End Sub

Private Sub NewLogin_Click()
frmHumanManage.Show
frmHumanInfo.Show
End Sub

Private Sub PictureSet_Click()
 Dim sFile As String
    With dlgCommonDialog
        .DialogTitle = "打开"
        .CancelError = False
        'ToDo: 设置 common dialog 控件的标志和属性
        .Filter = "所有图像文件 (*.*)|*.*"
        .ShowOpen
        If Len(.FileName) = 0 Then
            Exit Sub
        End If
        sFile = .FileName
    End With
    'ToDo: 添加处理打开的文件的代码
End Sub

Private Sub PieceWageManage_Click()
WageType = "piece"
frmTime_Piece_LiftWage.Show
MyRefresh_frmPieceWage
frmTime_Piece_LiftWage.Caption = "计件工资管理："
End Sub

Private Sub SetupNewMonth_Click()
frmNewMonth.Show
End Sub

Private Sub TimeWageManage_Click()
WageType = "time"
frmTime_Piece_LiftWage.Show
MyRefresh_frmTimeWage
End Sub

Private Sub WageInfoFile_Click()
frmWageManage.Show
End Sub