vb人事管理源程序程序清单.doc

附录：毕业设计程序清单设计题目人事管理系统教学班：学生姓名：学号：指导教师：完成日期：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