js做网站登录,wordpress主机404,企业网服务器如何搭建,网站建设功能模块图人事管理系统(源代码附录#xff1a;毕业设计程序清单设计题目 人事管理系统教 学 班#xff1a;学生姓名#xff1a;学 号#xff1a;指导教师#xff1a;完成日期#xff1a;Option ExplicitDim Bupdata As BooleanDim i As IntegerPrivate Sub Cmbdegree_Click()If Cm…人事管理系统(源代码附录毕业设计程序清单设计题目 人事管理系统教 学 班学生姓名学 号指导教师完成日期Option ExplicitDim Bupdata As BooleanDim i As IntegerPrivate Sub Cmbdegree_Click()If Cmbdegree.Text 定制 ThenFrmTable.ShowCmbdegree.ListIndex 0End IfEnd SubPrivate Sub Cmbdepart_Click()If Cmbdepart.Text 定制 ThenFrmTable.ShowCmbdepart.ListIndex 0End IfEnd SubPrivate Sub CmdAddNew_Click()If CmdAddNew.Caption 添加 ThenCmdAddNew.Caption 确认CmdDel.Enabled FalseCmdOK.Enabled FalseDataA.ReadOnly FalseFor i 1 To 12If Txt(i).Text Then Txt(i).Text 0 DataA.Recordset.Fields(i) 0Next iDataA.Recordset.AddNewTxt(0).Locked FalseIf FrmMain.cutable employee ThenDataA.Recordset.Fields(13) frmLogin.EmploIDDataA.Recordset.Fields(14) NowIf Opsex(0) ThenDataA.Recordset.Fields(4) 男ElseDataA.Recordset.Fields(4) 女End IfDataA.Recordset.Fields(7) Cmbdegree.TextDataA.Recordset.Fields(8) Cmbdepart.TextElseIf FrmMain.cutable leave ThenDataA.Recordset.Fields(8) frmLogin.EmploIDDataA.Recordset.Fields(9) NowElseDataA.Recordset.Fields(13) frmLogin.EmploIDDataA.Recordset.Fields(14) NowEnd IfTxt(0).SetFocusElse OKIf Txt(0).Text ThenMsgBox 不可以为空Txt(0).SetFocus
