已阅读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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 广东省云浮市新兴县重点名校2024届中考历史考前最后一卷含解析
- 广东省云浮市达标名校2023-2024学年中考联考物理试卷含解析
- 广东省阳江地区重点名校2024年十校联考最后物理试题含解析
- 广东省五华县联考2024年中考语文模拟试题含解析
- 广东省省际名校2023-2024学年高三适应性调研考试生物试题含解析
- 广东省深圳市助力教育2023-2024学年初中历史毕业考试模拟冲刺卷含解析
- 广东省深圳市龙岗实验中学2023-2024学年中考语文猜题卷含解析
- 广东省深圳市福田片区2024年中考历史对点突破模拟试卷含解析
- 养生壶市场发展分析及行业投资战略研究报告(2024-2030)
- 全球和2024-2030年中国口腔扫描仪市场发展分析及发展趋势预测研究报告
- 牛仔洗水行业分析
- 广东开放大学(专科)工商企业管理专业 案例分析报告
- 2024届北京四中高三第二次模拟考试历史试卷含解析
- 班组长管理培训之新员工管理培训课件
- 妇产科课件-子宫内膜息肉临床诊疗路径(2022版)解读
- 量价战法指南:探寻成交量的秘密
- 《经济法概论》考试复习题库(含答案)
- 安全生产应知应会手册
- 如何应对企业安全管理中的外部合规挑战
- 迁客的归途 -初中语文 古典散文群文阅读公开课一等奖创新教学设计
- 中式蔬果雕刻 课件 重大任务9牡丹花
评论
0/150
提交评论