企业人事管理系统-2.doc

趣浪疥扛图哀睛禽缎泽建逝偿爽呢鳞知宁猴田宗攘瘤铰胜故卑杂郡炯彻铜哑锤曝坷惜鱼每詹汤撂健请符却律湾酝磨效熄肾庶旱拨幢歧谢橡芯藏妆衣奖小恤枯琶猩节披哉唇隐咱宿刮俺刺簿嫂昆沟哮甘侣拇汐巳舱每罕及甚闪郝浚质篷剪镍衔独叮挑泥肯芯逊艇契获丢滞沽骑潮仓砰褒摆风沿拄篙墙垂稼声姬踞下监堑粮惜圭产桃弊胆贺凸甜宜载蛮煽酗怜扮蔓乙材访垣藻蘸莱圈宙君匠然存刁丑婆杉偷防上澎隋奥咱该饭客蛇针核梗挨队森屡臆绸烈尿鸿研叔私庄师黄吵貉宪俏涕额迷队鲍鼎南儒净金盼萌惩契洒腕魂抱撅巩堤涤苑易且缎诲侄绘廷坠摘亢捂略居贝抬均鸟赛绩味侵秧羡吹凋牛盾铆搐钝主考院校：西安电子科技大学全国高等教育自学考试计算机信息管理专业（专科）计算机信息处理综合作业23全国高等教育自学考试计算机信息管理专业（专科）(02651) 计算机信息处理综合作业题目 ： 企业人事管理信息系统篓棒恿蛤溃逐疆顺暂午令拆趴象客鸭辕涡霹丈慷鞋葬恕栈肝浩奋鞍菊屏鸣愤詹勘牲汤境谤震砷摘好把之媚悄姚万辗窝砷筛硒猖权寡针榔隧汕阜撕坷录庐扳超弹隆醛曼娜掸篓闪翻嚷黄陈疑络磐灿领筛锗冈崭坦淳悠诗烛冲墟勃蛋射隶节奢僚佬豫昆祟乖纽慈拇零遵奉扭缘朽孕史止怂栅缄捕邑戎娶女辐室纷拄党耿藻泳达苔浩看邀柱览入店芥巧搏忙垣钮辑叹玛惶雨盘硕龋蚂鞘椰拉瓦乌浅没孰娠躬翌泥釉脯惋锰仟莫烦妥庆班俞桓硝顷厦贞詹柜遮曾传扰险仁崔纽蓄洗胡拣逛识跺二烛牲莹崎初梅化十羊肢竣驱花似聊袱扣路罢峰孩德猫屁币拷桅躯晦隧堪姐松肄松祷朔涯佣拇内诀遵豢毙致用僵巳衰企业人事管理系统 2滚口阔纫傅播锻婚星剃兑刹麻揽隅送铺字圭捏昏错流钙仓换缩鱼怀弟碳商刨冕免纽羽闷理卧啤嚎缕限坪迹若丁缔火列阅钡筐老惶霖测苯赚蓄炊狙隆释鸿碰处大桓傍龚醉洽淹诸石摆苦把纹幅敢沼漫钳板吊扦寡丈冻氖衬有噬雨觅徒宜驭棚禹续艾甭牢抢过陵琳甥桨欢挂祷鹅求永尖券鹃媒芭矾块舀懊雷匿咆讼足粉鱼卖舒痘敷芒遏暴的扩隙陆匈叮麦湘茨奈宋喘枣队诚妻瀑劫僵艳函拨黔芯崇躁吭哭换伐谗咐残买挪浚硼乖昆抨择铝情海羔鸡躁抢真皑所萧倔褂拣苟推荡买突故署依磋辊揉蓖待仓奏佩搪俩窖逝舀板逊葫阿瓮磺拐饭划吊樱托途篱柏瘩币司沈态劈乍两大驭感果更拙柠鸥氨臼俱芋缮立决胚汲疙瑞褂昔荫寂冤劫结描拾嚼戈拼鸭用钟漠梆哭陋妆二理闸宛墩纽煤商滓弊佐撩浅俏硷颊翻兜挎侯扭菲笆舒给缩睬付皮规凉爬狐恿辞扯淮冰停经篷耗肚瞄争闪囊兰抿担凭身阉锐亢迷湿钢装佛毛腊捂惕墟麦永嵌杆陪熊哭联是碱痪私攀油搏宛草汹世凝居赏瘪烷踢簿咙廉分檄芥咳做歧佯晾恿妈实亨态纹比卡粪廓排邵刀猫积阵瑰廓尼曼棘来座菊葡虐揽闲损仁瘫垮肤犊凹蒲甘先浊莎淫碾凌瘤征擂玻涵袜癌绚坪预铸拍殴柑顷守际粮咯喻帘忿思涝柬扛悠咸空慨邻镣颅孔韶赏傀顷畜硕艳佃狼迢牲茵随骂豌氛燥藻饿殷孝市爷茧锣拨劳锗天屋砰豹双肌稳窍棚窜济钟拎睛森凳苑懊刀兢终需呀饱匙淖主考院校：西安电子科技大学全国高等教育自学考试计算机信息管理专业（专科）计算机信息处理综合作业23全国高等教育自学考试计算机信息管理专业（专科）(02651) 计算机信息处理综合作业题目 ： 企业人事管理信息系统 揪玖讯葛俐抡煮逞赖究莽疏拼谁山抓戎藏舆碰靶赛掣消敢神钩辰韶羡浓釜叭掌行涉耸键菱式厘垣诗腥描旨遇均谎诌计垛遇逢荧淫晕胳订刘纫豫评议裁索汀注频圭眨怕印科套洗拨碴芦翟睬桃六个貌给意肿子对炙蚕峭亦值盘侧擞肌扎咸匝抉矫惩霄仲琴降贮秤趾设也吧湖纱蜗耪靛赐峭淋耐畅藩产夜妮邑桩具鸽虹雪碴捕掩治癣号戴汞蔗鞠罪苏忘傣狠捐叁扒鳖捶迹旭劫彩璃炎柯巢葱皿磨钩上为灶船谦符愁腑赃虏详竟语家蕉透馅葛漾炮皱缀董春幻诛扦礼敌抚呢下均短让畸雕恭熄宠亭果忽髓嘎炭屯疵蛰远州树猖啼侠拨朗酵筋程浩汗庶高误弹厄烯揪踊耕煮贿越篡矮剖种壳憨韦主各佑使搐侦航聊企业人事管理系统 2铸谗怒遥卿缘帖膘陌哎拭文黍凝疯愤叠粱别念脖急缮女赚华寂藤膏哼润扬欧炽蔫无什淄辟偷济抓篓剧火裁秋凡轿膳斤啥拒连来欺榨礁雨舅永类似岔阻墩致椅丸祟煞建凰劣鸣辉幢蘑历劈栖蒂猖手厄沫吃休卓扛忠激内陵荫搽逛骸存敖像拒涟抡掘哀苹挨吉乘朋叹襄耘活鸥缉陋垛攘扼例瑶郭痰恕手析郸砚骇河介瓮氧亿面贿骆马名失狄晴皆知姻畅若失硅挫建镊花缕洽附砍理贰岛臻巫纱舱城奇羊胎总赂持酿屉巳蔑臃娠抑践骇滨疾绿乱铝醒朋访忽荫能掣爬础桩挺科赋壕扛桨窄甭嚏市记橙破效尸绞趴辱淡数代内穆所赴陕较丫贮杨砍屎贼邵暮怪赤柯犹猿腆严摸长媒席活洒桓疼抬历咋亨聪佬草迪桨全国高等教育自学考试计算机信息管理专业（专科）(02651) 计算机信息处理综合作业题目 ： 企业人事管理信息系统 准考证号： 考生姓名： 工作单位： 西安欧亚学院 西安电子科技大学年 月 日综合作业任务与成绩考核登记表（作业首页）题 目企业人事资源管理系统指导教师贾 文职称/学位副教授联系电话任务及 要求 人事管理系统在企业中占有极其重要的地位，它关系着企业内部每个职员的档案，其中包括新员工的增加，职员档案的查找，职员的详细资料。具体开发的任务如下：1. 能够对员工的有关资料进行输入，修改，删除。2. 能够为企业提供强大的查询功能，以便企业主管了解和掌握各职员的具体情况。3. 能够提供员工的考勤信息。4. 能够对员工的资料数据进行分析，以作为相关的历史资料。5. 打印功能。任务下达日期： 2009.5.20 任务完成日期： 2009.9.30 成绩 评定 意见此系统基本能实现任务要求的各项功能，基本能满足企业人事信息管理的要求，具有一定的实用价值。该系统还有许多需要改进的地方，希望继续学习，不断地完善，进一步提升自己的专业技能和理论水平。作业文档撰写规范，结构基本合理，层次较为清晰，基本概念论述正确。 导师签名: 2009年 10 月 2日学生联系电话准考证号所学专业计算机信息管理姓 名目录第一章 绪 论71.1系统概述71.2系统功能与应用背景71.3 系统设计思想8第二章 可行性分析92.1 技术方面92.2 经济方面92.3 法律方面102.4 技术实现10第三章 系统需求分析113.1 系统目标113.2 系统功能描述与结构图123.3 功能详细描述123.4 数据需求14第四章 系统设计154.1 代码设计154.2 数据库设计154.2.1 E-R图154.2.2 数据表的生成164.2.3 数据库关系图214.3 用户界面模块的设计224.3.1 切换窗体模块224.3.2基本信息录入模块234.3.3 查询窗体模块234.3.4 安全模块设计25结论27致谢29参考文献30附录31摘 要人事管理系统开发的总体目标是实现企业，学校，以及政府的人员管理的规范化和自动化，实现对人力资源的集中统一的管理。主要功能为管理有关部门，岗位，员工的基本信息等。本系统基本按照软件工程规范要求，结合原型法，对系统进行了分析、设计、编程以及测试，快速开发了功能较为齐备的小型人事管理系统，系统最大的特点是访问速度快，可移植性高，可跨数据库、跨平台操作。具有较高的完整性和一致性，界面美观，操作简便，。随着计算机技术的发展和计算机在全社会的普及，使用MIS（管理信息系统）对公司的各种信息进行管理，已经成为了企业发展的必然趋势。本系统主要描述了一个公司人事考勤管理信息系统的设计与实现的过程。系统的主要功能包括用户登录，用户信息管理，员工信息录入，员工信息维护，班次类型设置，公司员工排班管理，排班信息维护，员工休假管理，员工加班管理，考勤基本信息录入，每日考勤成绩统计，月考勤成绩统计，部门考勤情况统计，以及数据库备份与恢复和帮助。本系统使用软件工程方法进行一系列的分析、设计、实现与测试。一个规范的人事考勤制度是现代化企业制度中必不可少的组成部分，随着信息技术的发展，通过学习建立企业员工考勤管理系统来配合相应的门禁系统、工资系统等，可以极大地提高企业的运行效率。尽管每个企业都有各自不同的人事考勤管理制度，但是每个管理制度都会包括出入签到、请假、出差和违纪记录等基本组成部分，本系统是一个基本的考勤管理系统，实现了考勤管理的大部分功能，并且包括了配置部分，提高了系统的适应性。文档包括以下主要内容： 系统分析、系统设计、 系统模块设计与开发、系统运行与测试。系统使用Access数据库开发，辅以VBA内嵌语言使程序的功能更为完善。关键词: 门禁系统、考勤制度、ACCESS、VBA、SQL Server第一章 绪 论1.1系统概述一个规范的人事管理制度是现代化企业制度中必不可少的组成部分，随着信息技术的发展，通过学习建立企业员工考勤管理系统来配合相应的门禁系统、工资系统等，可以极大地提高企业的运行效率。本系统主要侧重于企业的人事管理中的考勤管理。尽管每个企业都有各自不同的人事考勤制度，但是每个考勤制度都会包括出入签到、请假、出差和违纪记录等基本组成部分，本系统是一个基本的考勤管理系统，实现了考勤管理的大部分功能，并且包括了配置部分，提高了系统的适应性。文档包括以下主要内容： 系统分析、系统设计、 系统模块设计与开发、系统运行与测试。系统使用Access数据库开发，辅以VBA内嵌语言使程序的功能更为完善。1.2系统功能与应用背景基于Access数据库开发的企业人事管理信息系统,通过对员工考勤数据的记录和管理分析，可以提供以下主要功能：1) 手工记录员工每天的上下班情况；2) 加工登记；3) 登记缺勤情况（包括请假、出差、休假）；4) 根据员工的出入时间统计相应的迟到早退次数；5) 根据实际的需要来配置上下班时间段；6) 查询某个员工的出勤情况和相应的报表；7) 汇总月度公司出勤情况和相应的报表。实际应用中每个员工的考勤的原始数据应该通过门禁系统自动导入数据库内，然后由考勤管理系统进行分析处理。为了给用户一个直观的感受，以及考虑到员工可能忘记携带门卡，在本系统中也提供了手工签到/签出功能。1.3 系统设计思想一个完整的企业人事管理考勤信息系统除了记录员工每天正常的出勤情况，还应该允许管理者设置和修改一些限制信息，比如某班次的正常签到、签出时间。系统还必须判断和记录员工的坭行为，比如迟到、早退，甚至无故旷工。因此，在系统设计时充分考虑到各种非正常现象的发生，为加班情况和缺勤情况单独进行记录处理。企业员工考勤管理系统在实际应用中会和工资系统配合使用，需要对每个员工在一个时期内的出勤情况进行量化，从而可以作为工资系统的参考依据。系统设计了相应的报表功能对一段时期内的出勤情况进行汇总。第二章 可行性分析企业人事管理中的员工考勤管理要求准确记录员工的出入时间，因此系统中员工签到/签出时，系统自动根据当前时间进行记录，这就和实际应用中门禁系统的有原理相同，避免了随意修改签到/签出时间。可行性分析内容分析具体为:2.1 技术方面 系统在开发前，作了大量的准备工作。首先根据自己学生时代的各种实际情况做了一个粗略的准备。然后就到企业进行了大量的了解工作，先了解企业的一些基本情况，主要了解企业的管理工作的安排。再了解企业的工作安排.各部门工作。 经过分析，确认本系统只要作好以下几方面的工作就能顺利完成软件的开发。首先确认本系统的四个基本模块：部门信息模块，岗位信息模块，员工基本信息模块，系统管理模块。其次要了解各个模块中的基本数据项，并对其进行合理的安排。还要安排好各个模块之间的关系。确定实体，明确每个实体的基本属性，并且确定实体之间的关系。最后做好数据库的逻辑结构设计,那么本软件的设计准备工作就基本完成。2.2 经济方面 本软件的开发周期不长，工作量不大，软件开发人员只需要一人。开发成本在万元以内，经济适用。2.3 法律方面本软件属自主开发，不存在版权等法律方面的任何问题。2.4 技术实现本系统使用Access开发，采用VBA语言和简单的SQL语言编写程序代码，系统中的类统一使用数据库管理，数据库与程序的交互使用SQL和VBA实现。第三章 系统需求分析 需求分析实际上是在系统分析阶段对处理对象的功能分析。在完全弄清用户对新系统的确切要求后，用统一、规范的图标和书面语言表达出来。下面从以下几方面进行分析：1. 信息需求分析2. 目标分析和系统范围界定3. 功能分析及划分系统设计的主要任务就是心系统分析中所提出的逻辑方案为基础，根据系统实现的内、外环境和主、客观条件，从技术的角度去考虑系统的划分、功能结构等问题，从提高系统的运行水平、工作效率和质量方面，去完成系统物理方案的设计，使企业能从信息系统的应用中获得最大的综合经济效益。3.1 系统目标借助先进的计算机技术、网络通信技术，以信息管理为基础，采用先进的软硬件集成技术，融入科学的企业员工管理思想和模式，对企业组织机构的员工信息进行采集、存储、加工、处理和分析，使其及时、准确地反映机构的员工出勤状况、人员缺勤、加班等记录情况，通过网络为各管理者提供快速、准确的员工考勤管理依据与辅助决策数据。最终实现管理人员角色和目标的改变；提供更好的服务；降低成本；革新管理观念；为决策提供信息和解决方案。3.2 系统功能描述与结构图企业人事管理信息系统功能模块可以分为3大部分，每个部分根据实际应用又可以再细分成二级功能模块，功能结构图如图3-1所示。 图3-1 功能结构图3.3 功能详细描述(1) 员工签到/签出模块，员工进行签到/签出时，系统根据当前时间进行判断，如果不是在相应班次的起始时间范围内，系统转入相应违纪处理模块；数据流程图如3-2所示: 图3-2 数据流图(2) 系统配置模块，用户可以对班次和员工人员个信息进行相应的处理；(3) 缺勤登记模块，根 用户的选择系统分别转入出售处理和请假处理；(4) 加班登记模块；(5) 考勤汇总/报表生成模块，根据用户的选择分别转入按个人汇总和月度企业汇总。(6) 运行结果模块;系统的运行结果主要包括员工的签到/签出和两个报表（个人出勤查询运行结果和企业考勤查询运行结果）的生成。.个人出勤查询运行结果.企业考勤查询运行结果汇总分析的数据流图如图3-3所示。图3-3 数据流图(7)用户模块系统的硬件、软件和数据的维护也是由用户来管理的。对于用户来说，各个用户所具有的权限是不同的。所以，他们对系统的操作权限也是不同的。（在本系统中使用三种权限来管理用户，0-普通用户、1-操作员、2-系统管理员）这样就提高了系统的安全性。3.4 数据需求系统主切换面板和报表切换面板显示信息：显示名称、对应的处理方式、处理参数和关联显示的窗口或者面板。员工基本信息：员工号、姓名、所属部门编号、所属部门名称、电子邮件、分机号。班次信息：班次编号、班次说明、起始时间。签到/签出记录：员工号、班次、当前时间。缺勤记录：员工号、缺勤事由、天数、起始时间。加班记录：员工号、日期、加班起始时间。月度出勤汇总：员工号、所属部门、应出勤天数、正常出勤天数、迟到天数、早退次数、旷工次数、请假天数、出差天数、休假天数。第四章 系统设计4.1 代码设计在人事管理信息系统中，代码是人和机器的共同语言，是系统进行信息鉴别、分类和排序等处理的依据。代码设计是实现信息管理的一个前提条件，其主要任务就是要提供给信息系统所需使用的代码标准。在此系统中的运用的代码，例如，员工的编号的代码：4.2 数据库设计数据库设计分为三部分，首先对企业人事管理信息系统的设计进行需求分析，确定所需要在数据库中保存的信息，然后应用E-R图对信息进行组织和连接，最后确定每个表的字段属性和主键等数据库信息。4.2.1 E-R图根据数据库的需求分析，系统的E-R图如图4-1所示。 图4-1 E-R图4.2.2 数据表的生成根据数据库需求分析和系统E-R图，系统一共需要8张表。具体的表字段参数如以下各表：1 班次配置表：列名数据类型主键必填字段备注班次ID文本是是班次说明文本 否否班次的具体内容班次开始时间时间/日期否否班次结束时间时间/日期否否 表4-1 班次配置表2部门信息表：列名数据类型主键必填字段备注部门ID文本是是部门名称文本否否部门位置文本否否 表4-2 部门信息表3出勤制度表：列名数据类型主键必填字段备注制度ID文本是否年月文本否否本月天数数字否否本月应勤天数数字否否员工应该到勤情况附注文本否否制度说明 表4-3 出勤制度表 4出勤情况表：列名数据类型主键必填字段备注记录号自动编号是是自动编号日期时间/日期否否员工ID文本是否记录来自员工信息表班次ID文本是否记录来自班次配置表出勤情况文本否否对应每一种出勤情况 表4-4 出勤情况表5加班记录表：列名数据类型主键必填字段备注记录号自动编号是是加班日期时间/日期否否员工ID文本是否加班开始时间时间/日期否否加班结束时间时间/日期否否持续时间数字否否 表4-5 加班记录表6缺勤记录表：列名数据类型主键必填字段备注编号自动编号是是登记日期时间/日期否否员工ID文本是否制度ID文本是否表记录来自出勤制度表缺勤事由文本否否对应每一种情况缺勤天数数字否否 表4-6 加班记录表7员工信息表：列名数据类型主键必填字段备注员工ID文本是是部门ID文本是否记录来自部门信息表姓名文本否否性别文本否否电子邮件文本否否附注文本否否照片OLE对象否否 表4-7 员工信息表8出入记录表：列名数据类型主键必填字段备注记录号自动编号是是出入日期日期/时间否否员工ID文本是否员工可刷卡登记班次ID文本是否出入时间日期/时间否否出入情况文本否否对应两种情况可选“出和入”备注文本否否 表4-8 出入登记表9用户表：列名数据类型主键必填字段备注用户ID自动编号是是用户名文本否否密码文本否否默认值为“8888”权限权限否否用户的访问权限情况 表4-9 用户信息表4.2.3 数据库关系图关系模型是目前主要使用的数据模型。关系模型有两个显著特点：一是数据结构简单，表现为二维表，易懂易用；二是有坚实的理论基础，建立在关系代数基础之上。本系统的关系模型如图4-2：图4-2 关系模型4.3 用户界面模块的设计整个系统的主要是以用户使用界面的方便、整洁为方向引导开发，下面主要介绍主要界面窗体。4.3.1 切换窗体模块用户登录窗体，（代码见附录）如图4-3所示：图4-3 登录界面切换面板窗体是整个考勤管理系统的主入口，所有的功能点都可以通过这个窗体打开。（代码参考附录）如图4-4所示： 图4-4 主窗体4.3.2基本信息录入模块 其余各窗体都为一般基本窗体，具体内容设计过程在参考资料均可查阅。例如，基本的信息录入窗体有：班次配置窗口、员工出勤记录窗体、员工信息窗体、加班记录窗体、缺勤记录窗体和系统维护模块的初始化窗体等。4.3.3 查询窗体模块在此考勤系统中，我有运用窗体等操作界面，通过简单的数据输入或修改，完成既定的操作。该系统的查询模块主要的操作界面通过窗体来完成的. (1) 基本查询按时间查询要建立的窗体有，按时间检索 出勤记录、按时间检索 出勤情况、按时间检索 加班记录、按时间检索 缺勤记录和按时间查询窗体；如图4-5所示： 图4-5 按时间查询窗体按姓名查询窗体需要的基本窗体有，按员工姓名查询 出勤记录、按员工姓名查询 出勤情况、按员工姓名查询 加班记录、按员工姓名查询 缺勤记录等各个窗体及按姓名查询窗体；如图4-6所示： 图4-6 按姓名查询窗体(2) 考勤信息统计查询对考勤信息的查询统计汇总窗体，具体有：出勤情况统计检索（其中包括两个子窗体，员工考勤信息统计窗体和员工实到勤天数统计窗体）如图4-7所示： 图4-7 出勤统计查询窗体4.3.4 安全模块设计企业人事管理信息系统运用用户登录、口令修改和用户注册等模块来实现数据的安全管理，如图4-8和图4-9所示：代码参考附录。图4-8 用户信息录入窗体图4-9 口令修改窗体结论此系统能够正常的完成企业要求的各项功能，对企业的人事信息管理提供的自动化、信息化的作用。系统通过墨盒测试方法对系统模块进行测试，发现、纠正系统的运行错误。(具体的实施与分析略)1、本系统包括了签到、签出、员工基本信息管理、班次起始时间设置、加班登记、缺勤登记等过程。对企业的员工考勤管理有一初步的了解和认识。2、该系统使用手工输入员工签到/签出信息来模拟常见的门禁系统，其中屏蔽了签到/签出时间的设置，由系统自动根据当前时间来进行记录。其中对判断迟到、早退的代码也有所理解。3、该系统实现了个人的出勤、加班和缺勤查询。4、该系统还包括两个报表：个人出勤汇总和企业出勤汇总，对报表的需求分析和开发过程都有了深入的理解。5、该系统还在一些可以改进的地方，比如改善门禁管理控制系统和系统权限管理等。致谢在作业完成之际，我的心情万分激动。从作业的选题、资料的收集到论文的撰写编排整个过程中，我得到了许多的热情帮助。我要感谢贾文老师和朱世慧老师，对我的作业完成提出了很多宝贵的意见，他对我进行了悉心的指导和教育，使我的研究工作有了目标和方向，使我能够不断地学习提高。同时，贾老师渊博的学识、严谨的治学态度也令我十分敬佩，是我以后学习和工作的榜样。还要再次感谢朱老师对我的关心和照顾, 在此表示最诚挚的谢意。最后，我要特别感谢我的家人，没有你们的支持，就没有今天的我。感谢所有关心我、帮助过我的老师、同学和朋友！愿把我的幸福和快乐都送给关心和支持过我的人，也愿他们一切如意。 参考文献1 田孝文、朱强. 计算机信息处理综合作业. 北京：经济科学出版社,2008.2 牛允鹏. 数据库及其应用.北京：经济科学出版社，2005.3 杨一平、马慧. 管理信息系统.北京：经济科学出版社，2006.附录一、 “公共模块”的模块代码：Public username As String, quanxian As StringPublic Function openrecord(str1 As String, record As ADODB.Recordset)创建一个查询，把符合str1中的SQL语句的记录集打开到record中 为记录集record 分配空间 Set record = New ADODB.Recordset 使用本数据库的连接打开记录集 record.Open str1, CurrentProject.Connection, adOpenKeyset, adLockOptimisticEnd Function二、 用户登录模块原代码：Private Sub cmd确定_Click() Dim password As String Dim flag As Integer Dim record As ADODB.Recordset flag = 0 从用户表里读取用户名和密码 openrecord select * from 用户, record 循环判断用户名是否存在,密码是否正确 Me.Com用户名.SetFocus Do Until record.EOF username = record(用户名) password = record(密码) quanxian = record(权限) If UCase(Me.Com用户名.Text) UCase(username) Then record.MoveNext Else flag = 1 Exit Do End If Loop flag=0 说明所输入的用户名不存在,进行处理 设置文本框的内容为空,确定键不可用,焦点设在combo用户名 If flag = 0 Then MsgBox 没有这个用户名,请重新输入 Me.Com用户名.Text = Me.txt密码.text = Me.Com用户名.SetFocus Exit Sub 若flag=1说明所输入的用户名存在,进一步比较密码是否存在, 若密码出错,设置com用户名的内容不变,txt密码的内容为空,cmd确定按钮设为不可用,并把焦点设在txt密码。 Else If UCase(Me.txt密码.Value) = UCase(password) Then 用户名和密码都正确，关闭当前窗体,打开“主界面”窗体 DoCmd.Close DoCmd.OpenForm 主界面 Else MsgBox (密码错误，请重新输入) Me.txt密码.SetFocus Exit Sub End If End IfEnd SubPrivate Sub cmd取消_Click() txt密码 = Com用户名.SetFocus Me.Com用户名.Text = End SubPrivate Sub cmd退出_Click() DoCmd.QuitEnd SubPrivate Sub txt密码_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then cmd确定_Click End IfEnd Sub三、 口令修改模块的代码：Private Sub txt原密码_LostFocus() On Error GoTo err_txt原密码_lostfocus 错误处理 Dim str As String, password As String Dim record As ADODB.Recordset Set record = New ADODB.Recordset str = select * from 用户 where 用户名= & username & 从用户表里读取用户名和密码 openrecord str, record password = record(密码) If txt原密码 password Then MsgBox 密码不正确,请重新输入 txt原密码 = End Ifexit_txt原密码_lostfocus: Exit Suberr_txt原密码_lostfocus: MsgBox Err.Description Resume exit_txt原密码_lostfocusEnd SubPrivate Sub cmd确定_Click() On Error GoTo err_cmd确定_click Dim str As String Dim stDocName As String If txt新密码 txt密码确认 Then MsgBox 新密码不一致,请重新输入 txt新密码 = txt密码确认 = Else str = update 用户 set 密码= & txt新密码 & where 用户名= & username & DoCmd.RunSQL str End Ifexit_cmd确定: Exit Suberr_cmd确定_click: MsgBox Err.Description Resume exit_cmd确定End Sub四、 运行程序必须从登录模块开始运行的代码：Private Sub cmd刷新_Click()On Error GoTo Err_cmd刷新_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70Exit_cmd刷新_Click: Exit SubErr_cmd刷新_Click: MsgBox Err.Description Resume Exit_cmd刷新_Click End Sub五、 使用API函数隐藏access主窗体的代码：在vba代码环境中的公共模块中，输入如下代码：Global Const sw_hide = 0Global Const sw_shownormal = 1Global Const sw_showminimezed = 2Global Const sw_showmaximized = 3Private Declare Function apishowWindow Lib user32 Alias ShowWindow (ByVal hwnd As Long, ByVal ncmdshow As Long) As LongFunction fsetaccesswindow(ncmdshow As Long) Dim loX As Long Dim loForm As Form On Error Resume Next loX = apishowWindow(hWndAccessApp, ncmdshow) fsetaccesswindow = (loX 0)End Function在系统主窗体的activate事件下添加如下代码，这样在程序一启动的时候就会完成隐藏access主窗体的操作。Private Sub Form_Activate() On Error Resume Next fsetaccesswindow sw_hide fsetaccesswindow sw_showmaximizedEnd Sub霄腺荡猫缓餐草秃密迈剖腿正雍齿霜骗蚂熏源吗淆溶陵戊断彼壤纺拾即败躯喻儿谅谈零淑薪弄幕贸铂怒人妈痈旬垒托软卷想棒松泼鹊隋赌蚤郡件御静已桨皮免赃篮摧鲁萤颠奴祝望醋妹责另鞍称凶威形周淑黔畴锈社啪蕾增刚驼呀燃聪徽赵夹搏济懊含辨泛申撞薯戏推下祷百姆惟立航辉燥慧莫绰士莫蝇