已阅读5页,还剩28页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
附录:毕业设计程序清单设计题目人事管理系统教学班:学生姓名:学号:指导教师:完成日期: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
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 新Unit-10-I27d-like-some-noodles全单元市公开课一等奖省赛课微课金奖PP
- 哥哥的心愿教学课件市公开课一等奖市赛课金奖课件
- 土地面积练习市公开课特等奖市赛课微课一等奖课件
- 高分子化学第四版2-缩聚和逐步聚合省公开课金奖全国赛课一等奖微课获奖课件
- 高考数学复习第八章立体几何第5课时直线平面垂直的文市赛课公开课一等奖省名师获奖课件
- 3-化学平衡、离子对与络合省公开课金奖全国赛课一等奖微课获奖课件
- 民间个人借款合同协议
- 【货物租赁合同】 简单租场地合同协议书
- 崇尚科学演讲稿7篇
- 第四版《高分子化学》思考题课后答案-潘祖仁
- 模具合格证(共1页)
- 资产负债表模板
- 新教师自我诊断报告(共9页)
- 陕西省2020年中考化学试题(副卷)
- 六年级心理健康教学设计第10课当危险来临时
- 《2021国标动力专业图集资料》03R401-2 开式水箱
- 应急避难场所设计规范
- 幼儿园活动教案表格模板
- 建设项目初步设计审查管理办法
- 东莞东江口预制厂“413”起重机倾覆重大事故案例综述
- 行星齿轮减速器设计
评论
0/150
提交评论