vb人事工资管理系统设计源代码

附录 系统的实现代码系统公用模块代码：PublicfMainFormAsfrmmainPublicgintModeAsIntegerPublicflagEditAsBooleanPublicusernameAsStringSubMain()DimfLoginAsNewfrmloginfLogin.ShowvbModalIfNotfLogin.OKThenEndUnloadSetfMainForm=NewfrmmainEndPublicFunctionExecuteSQL(ByValSQL_AsString,MsgStringAsString)_As AsADODB.ConnectionDimrstAsADODB.RecordsetDimsTokens()AsStringOnErroToExecuteSQL_ErrorsTokens=Split(SQL) =New.OpenIfInStr("INSERT,DELETE,UPDATE",UCase$(sTokens(0))).ExecuteMsgString=sTokens(0)&"querysuccessful"Setrst=NewADODB.Recordsetrst.OpenTrim$(SQL), ,_adOpenKeyset,_SetExecuteSQL=MsgString="查询到"&rst.RecordCount&_"条记录"EndIfSetrst=NothingSet=NothingExitFunctionMsgString="查询错误:"&_ResumeExecuteSQL_ExitEndFunctionPublicFunctionConnectString()AsStringConnectString="FileDSN=renshi.dsn"End员工基本信息模块代码：OptionDimmblchangeAsBooleanPublictxtSQLAsStringPublicmsgtextAsStringDimmrcAsADODB.RecordsetPrivateSubcmdcancle_Click()UnloadMeEndPrivateSubcmdOK_Click()DimintCountAsIntegerDimtxtSQLAsStringDimMsgStringAsStringDimsMegAsStringDimiAsForintCount=0ToIfTrim(Text1(intCount)&"")=""ThenSelectCaseintCountCasesMeg="工号"CasesMeg="EndsMeg=sMeg&"不能为空"MsgBoxsMeg,vbOKOnly+vbExclamation,"警告"ExitSubEndIfNextIfTrim(Text1(3)&"")=""MsgBox"出生日期不能为空",vbOKOnly+vbExclamation,"警告"EndIfIfTrim(Text1(3)&"")<>""ThenIfNotIsDate(Text1(3))ThenMsgBox"出生日期应为(yyyy-mm-dd)!",vbOKOnly+vbExclamation,"警告"ExitSubText1(3)=Format(Text1(3),"yyyy-mm-dd")EndIfEndIfTrim(Text1(2)&"")=""MsgBox"不能为空",vbOKOnly+vbExclamation,"警告"ExitSubEndIfgintMode=1txtSQL="select*fromdanganwhereygid='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,msgtext)Ifmrc.EOF=FalseMsgBox"有重复记录",vbOKOnly+vbExclamation,"警告"EndIftxtSQL="delete*fromdanganwhereygid='"&Trim(Text1(0))&"'"Setmrc=ExecuteSQL(txtSQL,msgtext)txtSQL="select*fromSetmrc=ExecuteSQL(txtSQL,msgtext)ForintCount=0Tomrc.Fields(intCount)=Trim(Text1(intCount))NextintCountForintCount=2Tomrc.Fields(intCount)=Trim(Text1(intCount))NextintCountForintCount=6Tomrc.Fields(intCount)=Nextmrc.Fields(11)=Trim(Combo1.Text)IfgintMode=1MsgBox"添加记录成功",vbOKOnly,"提示"Fori=0To10Text1(i).Text=""Nextifrmyuangong.ZOrder0frmmanrecord.ZOrder1EndIfElseIfgintMode=2txtSQL="select*fromdanganwhereygid='"&Trim(Text1(0).Text)&"'"Setmrc=ExecuteSQL(txtSQL,msgtext)ForintCount=0Tomrc.Fields(intCount)=Nextmrc.Fields(11)=Trim(Combo1.Text)MsgBox"修改成功",vbOKOnly,"提示"UnloadMefrmmanrecord.ZOrder0EndIfgintMode=0EndSubPrivateSubForm_Load()DimmsgtextAsStringDimintCountAsIntegerWithCombo1.AddItem"男".AddItem"女"EndIfgintMode=1Me.Caption=Me.Caption&"添加"Combo1.ListIndex=0ElseIfgintMode=2Setmrc=ExecuteSQL(txtSQL,msgtext)Ifmrc.EOF=FalseThenWithForintCount=0To10Text1(intCount)=.Fields(intCount)NextintCountIfNotIsNull(!sex)ThenCombo1=!sexEndIfMe.Caption=Me.Caption&"修改"EndWithEndIfEndmblchange=FalseEndSubOptionPublicsQSqlAsPublicmrcAsADODB.RecordsetPublictxtSQLAsStringPublicmsgtextAsStringPrivateSubCheck1_Click(IndexAsInteger)IfIndex=0ThenEndIfIfIndex=1ThenEndIfEndPrivateSubcmdcancel_Click()UnloadMeEndPrivateSubIfCheck1(0).Value=vbCheckedsQSql="ygname='"&Trim(Text1(0)&"")&"'"EndIfIfCheck1(1).Value=vbCheckedThenIfTrim(sQSql&"")=""ThensQSql="ygid='"&Trim(Text1(1)&"")&sQSql=sQSql&"andygid='"&Trim(Text1(1)&"")&"'"EndIfEndIfCheck1(2).Value=vbCheckedThenIfTrim(sQSql&"")=""ThensQSql="ygdept='"&Trim(Text1(2)&"")&sQSql=sQSql&"andygdept='"&Trim(Text1(2)&"")&"'"EndIfEndIfTrim(sQSql&"")=""Thenfrmmanrecord.txtSQL="select*fromdangan"flagEdit=Truefrmmanrecord.txtSQL="select*fromdanganwhere"&sQSqlflagEdit=TrueEndIfEndPrivateSubForm_Load()DimiAsIntegerFori=0To2Text1(i)=""End员工考勤模块代码：OptionDimmblchangeAsBooleanDimmrcAsADODB.RecordsetPublictxtSQLAsStringPrivateSubcboItem_Click(IndexAsDimmsgtextAstxtSQL="selectygid,ygnamefromdanganwhereygdept='"&Trim( &"'"Setmrc=ExecuteSQL(txtSQL,msgtext)mrc.MovecboItem(1).ListIndextxtid=Trim(mrc!ygid)EndPrivateSubcboItem_KeyDown(IndexAsInteger,KeyCodeAsInteger,ShiftAsInteger)EnterToTabKeyCodeEndSubPrivateSubDimdateTempAsdateTemp=DateAdd("d",-1,DateAdd("m",1,DateSerial(CInt(cboYear),CInt(cboMonth),1)))txtItem(0)=Day(dateTemp)EndSubPrivateSubcboYear_Click()DimdateTempAsDateIfTrim(cboMonth&"")<>""dateTemp=DateAdd("d",-1,DateAdd("m",1,DateSerial(CInt(cboYear),CInt(cboMonth),1)))txtItem(0)=Day(dateTemp)EndIfEndPrivateSubIfmblchangeAndgintMode<>3AndcmdSave.EnabledIfMsgBox("保存当前记录的变化吗？",vbOKCancel+vbExclamation")=vbOKThenCallcmdSave_ClickEndIfEndIfUnloadMeEndSubPrivateSubcmdSave_Click()DimintCountAsIntegerDimsMegAsDimrectempAsRecordsetDimsSqlAsStringDimmsgtextAsForintCount=0ToIfTrim(txtItem(intCount)&"")=""ThenSelectCaseintCountCasesMeg="本月天数"CasesMeg="应出勤天数"CasesMeg="出勤"EndSelectIfintCount<>1sMeg=sMeg&"不能为空！"MsgBoxsMeg,vbOKOnly+vbExclamation,"警告"ExitSubEndIfEndIfNextIfgintMode=1txtSQL="select*fromcheckinwherekqid='"&Trim(txtid)&"'andkqdate='"&Format(cboYear.Text&"-"&cboMonth.Text&"-01","yyyy-mm-dd")&Setmrc=ExecuteSQL(txtSQL,msgtext)Ifmrc.EOF=FalseThenMsgBox"已经存在该员工在该月的考勤记录！",vbOKOnly+vbExclamation,"警告"ExitSubEndIftxtSQL="deletefromcheckinwherekqid='"&Trim(txtid)&"'andkqdate='"&Format(cboYear&"-"&cboMonth&"-01","yyyy-mm-dd")&"'"Setmrc=ExecuteSQL(txtSQL,msgtext)txtSQL="select*fromSetmrc=ExecuteSQL(txtSQL,msgtext)mrc.Fields(0)=Trim(txtid)mrc.Fields(1)=Trim(cboItem(1))mrc.Fields(2)=Format(cboYear&"-"&cboMonth&"-01","yyyy-mm-ForintCount=0Tomrc.Fields(intCount+3)=Trim(txtItem(intCount).Text)NextintCountForintCount=16Tomrc.Fields(intCount+3)=NextintCountMsgBox"记录添加成功！",vbOKOnly+vbExclamation,"警告"ForintCount=0To17txtItem(intCount)=""NextintCountmblchange=FalseElseIfgintMode=2 ,kqremarkfromcheckinwherekqid='"&Trim(txtid)&"'"Setmrc=ExecuteSQL(txtSQL,msgtext)mrc.Fields(0)=Trim(txtid)mrc.Fields(1)=Trim(cboItem(1))ForintCount=0Tomrc.Fields(intCount+2)=Trim(txtItem(intCount).Text)NextintCountForintCount=16Tomrc.Fields(intCount+2)=Trim(txtItem(intCount).Text)NextintCountMsgBox"记录修改成功!",vbOKOnly,"提示"UnloadMefrmCheck.ZOrder0EndIfgintMode=0EndSubPrivateSub bo1_Click(AreaAsInteger)DimsSqlAsStringDimmsgtextAstxtSQL="selectygid,ygnamefromdanganwhereygdept='"&Trim( &"'"Setmrc=ExecuteSQL(txtSQL,msgtext)IfNotmrc.EOFThenWithcboItem(1)DoWhileNot.AddItemTrim(mrc!ygname).ListIndex=0EndWithcmdSave.Enabled=TrueMsgBox"请先建立员工！",vbOKOnly+vbExclamation,"警告"cmdSave.Enabled=FalseExitSubEndIfEndSubPrivateSubDimintCountAsIntegerDimdateTempAsDateDimmsgtextAsStringAdodc1.Visible=FalsecboYear.AddItemYear(Now)cboYear.AddItemYear(Now)-1cboYear.ListIndex=0ForintCount=1To12cboMonth.AddItemintCountNextintCountcboMonth=Month(Now)IfgintMode=1ThenMe.Caption=Me.Caption&"添加"'初始化部门名称txtSQL="selectDISTINCTygdeptfromdangan"Setmrc=ExecuteSQL(txtSQL,msgtext)Ifmrc.EOFMsgBox"请先进行员工登记！",vbOKOnly+vbExclamation,"警告"cmdSave.Enabled=FalseExitSubEndIf'初始化本月天数dateTemp=DateAdd("d",-1,DateAdd("m",1,DateSerial(CInt(cboYear),CInt(cboMonth),1)))txtItem(0)=Day(dateTemp)ElseIfgintMode=2Setmrc=ExecuteSQL(txtSQL,msgtext)Ifmrc.EOF=FalseThenWithcboItem(1).AddItem.Fields(1)cboItem(1).ListIndex=0ForintCount=2ToIfNotIsNull(.Fields(intCount))ThentxtItem(intCount-2)=.Fields(intCount)EndIfNextintCounttxtid=.Fields(0)EndWithEndIfMe.Caption=Me.Caption&"修改"Endmblchange=FalseEndSub员工评价模块代码：OptionDimmblchangeAsBooleanPublictxtSQLAsStringDimmsgtextAsStringDimmrcAsPrivateSubIfmblchangeAndcmdok.EnabledIfMsgBox("保存当前记录的变化吗？",vbOKCancel+vbExclamation")=vbOKThen'保存CallcmdOK_ClickEndIfEndIfUnloadMeEndSubPrivateSubcmdOK_Click()DimintCountAsIntegerDimsMegAsStringDimsSqlAsIfTrim(Text2&"")=""ThensMeg="时间"sMeg=sMeg&"不能为空"MsgBoxsMeg,vbOKOnly+vbExclamation,"提示"EndIfTrim(Text2&"")<>""ThenIfNotIsDate(Text2)ThenMsgBox"输入日期应为yyyy-mm-dd!",vbOKOnly+vbExclamation,"警告"ExitSubText2=Format(Text2,"yyyy-mm-dd")EndIfEndIfgintMode=1txtSQL="select*fromjiawherepjid='"&Trim(Text1)&"'"Setmrc=ExecuteSQL(txtSQL,msgtext)MsgBox"己有此记录!",vbOKOnly,"提示txtSQL="deletefromjiawherepjid='"&Trim(Text1)&"'"Setmrc=ExecuteSQL(txtSQL,msgtext)txtSQL="select*fromSetmrc=ExecuteSQL(txtSQL,msgtext)mrc.Fields(6)= mrc.Fields(1)=Combo(1)ForintCount=0Tomrc.Fields(intCount+2)=Nextmrc.Fields(7)=mrc.Fields(0)=Trim(Text1)MsgBox"添加记录成功！",vbOKOnly+vbExclamation,"提示"ForintCount=0To3Text(intCount)=""NextintCountText2=ElseIfgintMode=2txtSQL="select*fromjiawherepjid='"&Trim(Text1)&"'"Setmrc=ExecuteSQL(txtSQL,msgtext)mrc.Fields(6)= mrc.Fields(1)=Combo(1)ForintCount=0Tomrc.Fields(intCount+2)=Nextmrc.Fields(7)=Trim(Text2.Text)mrc.Fields(0)=Trim(Text1)MsgBox"修改记录成功！",vbOKOnly+vbExclamation,"提示"frmpjchange.ZOrdergintMode=0mblchange=FalseEndIfExitSubEndSubPrivateSubCombo_Click(IndexAsDimmsgtextAstxtSQL="selectygid,ygnamefromdanganwhereygdept='"&Trim( &"'"Setmrc=ExecuteSQL(txtSQL,msgtext)mrc.MoveCombo(1).ListIndexText1=Trim(mrc!ygid)EndPrivateSub bo1_Click(AreaAsInteger)DimsSqlAsStringDimmsgtextAstxtSQL="selectygid,ygnamefromdanganwhereygdept='"&Trim( &"'"Setmrc=ExecuteSQL(txtSQL,msgtext)IfNotmrc.EOFThenWithCombo(1)DoWhileNot.AddItemTrim(mrc!ygname).ListIndex=0EndWithcmdok.Enabled=Text2=Format(Now,"yyyy-mm-dd")MsgBox"请先建立员工！",vbOKOnly+vbExclamation,"警告"cmdok.Enabled=FalseExitSubEndIfEndSubPrivateSubForm_Load()DimmsgtextAsStringDimintCountAsIntegerAdodc1.Visible=FalseIfgintMode=1ThenMe.Caption=Me.Caption&"添加"Text1='初始化部门名称txtSQL="selectDISTINCTygdeptfromdangan"Setmrc=ExecuteSQL(txtSQL,msgtext)IfNotmrc.EOFThenMsgBox"请先进行员工登记！",vbOKOnly+vbExclamation,"警告"cmdok.Enabled=FalseExitSubEndIfElseIfgintMode=2Setmrc=ExecuteSQL(txtSQL,msgtext)Ifmrc.EOF=FalseThenWithCombo(1).AddItem.Fields(1)Combo(1).ListIndex=0ForintCount=2ToIfNotIsNull(.Fields(intCount+2))ThenText(intCount-2)=.Fields(intCount)Text1=.Fields(0)Text2=.Fields(7)EndIfNextintCountEndWithEndIfgintMode=3Thencmdok.Enabled=FalseMe.Caption=Me.Caption&"内容"Me.Caption=Me.Caption&"修改"EndIfEndmblchange=FalseEndSubPrivateSubText_Change(IndexAsInteger)mblchange=TrueEnd员工工资模块代码：OptionDimmrcAsRecordsetPublictxtSQLAsStringDimmsgtextAsStringDimmblchangeAsBooleanPrivateSubText(9)=Str(Val(Text(2))+Val(Text(3))+Val(Text(4))+-Val(Text(6))-Val(Text(7))-Val(Text(8)))EndSubPrivateSubcmdOK_Click()DimintCountAsIntegerDimsMegAsStringDimrectempAsRecordsetDimmsgtextAsStringDimtxtSQLAsStringIfTrim(Text(2)&"")=""ThensMeg="底薪"sMeg=sMeg&"不能为空"MsgBoxsMeg,vbOKOnly+vbExclamation,"警告"ExitSubEndIfIfTrim(Text(1)&"")<>""ThenIfNotIsDate(Text(1))ThenMsgBox"输入日期格式不正确，应为(yyyy-mm-dd)!",vbOKOnly+vbExclamation,"警告"ExitSubEndIfgintMode=1txtSQL="select*fromgongziwheregzid='"&Trim(Text(0))&"'"Setmrc=ExecuteSQL(txtSQL,msgtext)Ifmrc.EOF=FalseMsgBox"已经存在该员工在该月的工资记录！",vbOKOnly+vbExclamation,"警告"ExitSubEndIfEndIftxtSQL="deletefromgongziwheregzid='"&Trim(Text(0))&"'andmonth1='"&Format(Text(1),"yyyy-mm-dd")&"'"Setmrc=ExecuteSQL(txtSQL,msgtext)txtSQL="select*fromgongzi"Setmrc=ExecuteSQL(txtSQL,msgtext)mrc.Fields(0)=Trim(Text(0))mrc.Fields(1)=Trim(Combo(1))ForintCount=2Tomrc.Fields(intCount)=Nextmrc.Fields(10)=Trim(Text(1))MsgBox"计发工资成功！",vbOKOnly+vbExclamation,"提示"ForintCount=0To9Text(intCount)=""NextintCountmblchange=Falsecmdok.Enabled=Falsefrmgzchange.txtSQL="select*fromgongzi"frmgzchange.ZOrder1ElseIfgintMode=2ThenMsgBox"修改工资成功！",vbOKOnly+vbExclamation,"警告"Unloadfrmgzchange.txtSQL="select*fromgongzi"frmgzchange.ZOrder0EndIfEndPrivateSubCombo_Click(IndexAsDimmsgtextAstxtSQL="selectygid,ygnamefromdanganwhereygdept='"&Trim( &"'"Setmrc=ExecuteSQL(txtSQL,msgtext)mrc.MoveCombo(1).ListIndexText(0)=Trim(mrc!ygid)EndSubPrivateSubcombo_KeyDown(IndexAsInteger,KeyCodeAsInteger,ShiftAsEnterToTabEndPrivateSubIfmblchangeAndcmdok.EnabledIfMsgBox("保存当前记录的变化吗？",vbOKCancel+vbExclamation")=vbOKThenCallcmdOK_ClickEndIfEndIfUnloadMeEndSubPrivateSub bo1_Click(AreaAsInteger)DimsSqlAsStringDimmsgtextAstxtSQL="selectygid,ygnamefromdanganwhereygdept='"&Trim( &"'"Setmrc=ExecuteSQL(txtSQL,msgtext)IfNotmrc.EOFThenWithCombo(1)DoWhileNot.AddItemTrim(mrc!ygname).ListIndex=0EndWithcmdok.Enabled=TrueMsgBox"请先建立员工！",vbOKOnly+vbExclamation,"警告"cmdok.Enabled=FalseExitSubEndIfEndSubPrivateSubForm_Load()DimmsgtextAsStringDimintCountAsIntegerDimdateTempAsDateAdodc1.Visible=FalseIfgintMode=1ThenMe.Caption=Me.Caption&"添加"Text(1)=Format(Now,"yyyy-mm-dd")txtSQL="selectygid,ygnamefromdanganwhereygdept='"&Trim( &"'"Setmrc=ExecuteSQL(txtSQL,msgtext)Ifmrc.EOF=FalseThenWithCombo(1).AddItemTrim(mrc!ygname)Combo(1).ListIndex=0Text(0)=.Fields(0)EndWithEndMe.Caption=Me.Caption&"修改"ElseIfgintMode=2ThenSetmrc=ExecuteSQL(txtSQL,msgtext)Ifmrc.EOF=FalseThenWithCombo(1).AddItem.Fields(1)Combo(1).ListIndex=0ForintCount=2ToIfNotIsNull(.Fields(intCount))ThenText(intCount)=.Fields(intCount)EndIfNextintCountText(0)=.Fields(0)Text(1)=.Fields(10)EndWithEndIfEndIfmblchange=FalseEndSub管理模块代码：OptionDimmblchangeAsBooleanPublictxtSQLAsStringPublicmsgtextAsStringDimmrcAsADODB.RecordsetDimmybookmarkAsVariantPrivateSubcmdcancel_Click()UnloadMeEndPrivateSubcmdchange_Click()cmdchange.Enabled=FalseCommand1.Enabled=Falsecmddelete.Enabled=FalsegintMode=2EndPrivateSubDimstAsStringmybookmark=mrc.Bookmarkst=MsgBox("是否删除当前记录?",vbOKCancel,"提示")Ifst=vbOKThenIfmrc.EOFThenmybookmark=mrc.Bookmarkmybookmark=mrc.BookmarkCallviewdatamybookmark=mrc.Bookmarkmrc.Bookmark=mybookmarkCallviewdataEndIfmrc.Bookmark=mybookmarkCallviewdataEndIfEndSubPrivateSubcmdOK_Click()DimintCountAsIntegerDimtxtSQLAsStringDimMsgStringAsStringIfText(0)=""ThenMsgBox"不能为空!",vbOKOnly+vbExclamation,"警告"EndIfText(1)=""MsgBox"事件不能为空!",vbOKOnly+vbExclamation,"警告"EndIfgintMode=1txtSQL="select*fromrenshi1whereid='"&Trim(Text(0))&"'"Setmrc=ExecuteSQL(txtSQL,msgtext)Ifmrc.EOF=FalseMsgBox"己存在此的记录,请重新输入!",vbOKOnly+vbExclamation,"警告"ExitSubEndIftxtSQL="delete*fromrenshi1whereid='"&Trim(Text(0))&"'"Setmrc=ExecuteSQL(txtSQL,msgtext)txtSQL="select*fromSetmrc=ExecuteSQL(txtSQL,msgtext)ForintCount=0Tomrc.Fields(intCount)=NextintCountMsgBox"添加记录成功!",vbOKOnly,"提示"frmrenshi.ZOrder1Command1.Enabled=Truecmdchange.Enabled=Truecmddelete.Enabled=True.Enabled=Trueprevious.Enabled=Truenext1.Enabled=Truelast.Enabled=TrueEndIfgintMode=2txtSQL="select*fromSetmrc=ExecuteSQL(txtSQL,ForintCount=0Tomrc.Fields(intCount)=Text(intCount).TextNextintCountMsgBox"记录修改成功!",vbOKOnly,"提示"cmdchange.Enabled=TrueCommand1.Enabled=Truecmddelete.Enabled=TrueEndIfgintMode=0EndSubPrivateSubCommand1_Click()DimiAsIntegerFori=0To2Text(i).Text=""NextiCommand1.Enabled=Falsecmdchange.Enabled=Falsecmddelete.Enabled=False.Enabled=Falseprevious.Enabled=Falsenext1.Enabled=Falselast.Enabled=FalsegintMode=1EndPrivateSub_Click()CallviewdataEndSubPrivateSubForm_Load()DimtxtSQLAsStringDimmsgtextAsStringDimiAsIntegertxtSQL="select*fromrenshi1Setmrc=ExecuteSQL(txtSQL,msgtext)Ifmrc.EOF=TrueThenMsgBox"没有任何记录,请添加!",vbOKOnly,"提示"Callmybookmark=mrc.Bookmarkmblchange=TrueEndmblchange=TrueEndSubPrivateSubnext1_Click()Ifmrc.EOFThenEndIfCallviewdataEndSubPrivateSubprevious_Click()Ifmrc.BOFTh