已阅读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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 公路养护技术规范JTG H10-宣贯
- 葡萄儿童画课件
- 贵州省贵阳市食品公司消防安全测试题七(含答案)
- 贵州省安顺市旅游景区消防安全测试题十五(含答案)
- 5.3 中国国家发展战略举例(教学设计)高一地理同步备课系列(人教版2019必修第二册)
- 2.1 细胞膜的结构和功能 教学设计 2023-2024学年高一上学期生物人教版必修1
- 2023-2024比赛承办合同样本范本书标准版
- 《交流损耗测量+多丝复合超导材料磁滞损耗的磁强计测量法gbt+21227-2021》详细解读
- 2023-2024学年人教版数学八年级下册期末提升训练
- 关于大学军训小结(6篇)
- 公园绿化养护管理方案
- 工务标准化作业课件
- 三年级下册面积单位换算练习100道及答案
- (部编版)历史七年级下册 第一单元 大单元教学设计与单元评价
- 玻璃体积血护理课件
- 护理医学公众号做
- 2024年四川省达州水务集团有限公司招聘笔试参考题库含答案解析
- 2024年中国东方航空招聘笔试参考题库附带答案详解
- 2023-2024学年高中政治统编版选择性必修二第八课 自主创业与诚信经营 课件(30张)
- 矿山运输车辆安全教育课件
- 品宣知识讲座
评论
0/150
提交评论