vb人事管理系統(tǒng)2程序清單.doc

附錄：畢業(yè)設計程序清單設計題目人事管理系統(tǒng)教學班：學生姓名：學號：指導教師：完成日期：1OptionExplicitDimBupdataAsBooleanDimiAsIntegerPrivateSubCmbdegree_Click()IfCmbdegree.Text=定制ThenFrmTable.ShowCmbdegree.ListIndex=0EndIfEndSubPrivateSubCmbdepart_Click()IfCmbdepart.Text=定制ThenFrmTable.ShowCmbdepart.ListIndex=0EndIfEndSubPrivateSubCmdAddNew_Click()IfCmdAddNew.Caption=添加ThenCmdAddNew.Caption=確認CmdDel.Enabled=FalseCmdOK.Enabled=FalseDataA.ReadOnly=FalseFori=1To12IfTxt(i).Text=ThenTxt(i).Text=0DataA.Recordset.Fields(i)=0NextiDataA.Recordset.AddNewTxt(0).Locked=FalseIfFrmMain.cutable=employeeThenDataA.Recordset.Fields(13)=frmLogin.EmploIDDataA.Recordset.Fields(14)=NowIfOpsex(0)ThenDataA.Recordset.Fields(4)=男Else2DataA.Recordset.Fields(4)=女EndIfDataA.Recordset.Fields(7)=Cmbdegree.TextDataA.Recordset.Fields(8)=Cmbdepart.TextElseIfFrmMain.cutable=leaveThenDataA.Recordset.Fields(8)=frmLogin.EmploIDDataA.Recordset.Fields(9)=NowElseDataA.Recordset.Fields(13)=frmLogin.EmploIDDataA.Recordset.Fields(14)=NowEndIfTxt(0).SetFocusElseOKIfTxt(0).Text=ThenMsgBox不可以為空Txt(0).SetFocusExitSubEndIfFori=1To12IfTxt(i).Text=ThenTxt(i).Text=0DataA.Recordset.Fields(i)=0NextiIfFrmMain.cutable=employeeThenDataB.Recordset.FindFirst職工編號=+Txt(0).TextIfNotDataB.Recordset.NoMatchThenMsgBox職員編號重復Txt(0).Text=Txt(0).SetFocusExitSubEndIf3ElseIfFrmMain.cutable=leaveThenDataB.Recordset.FindFirst假條編號=+Txt(0).TextIfNotDataB.Recordset.NoMatchThenMsgBox假條編號重復Txt(0).Text=Txt(0).SetFocusExitSubEndIfElseFori=4To10IfNotIsNumeric(Txt(i).Text)ThenMsgBoxnotanumberTxt(i).SetFocusExitSubEndIfNextiDataB.Recordset.FindFirst工資編號=+Txt(0).TextIfNotDataB.Recordset.NoMatchThenMsgBox工資編號重復Txt(0).Text=Txt(0).SetFocusExitSubEndIfEndIfDataA.Recordset.UpdateDataA.Recor