Access会员信息系统设计报告含源文件

1、计算机信息处理综合作业系统开发说明书题目：会员管理系统姓名：准考证号：专业：年级：摘要会员管理系统是为实现会员管理系统化、规范化、自动化，用access数据库管理系统开发的应用软件。会员管理系统的目的是用最小的代价在尽可能短的时间内确定问题是否能够解决，运行可以代替人工进行许多繁杂的劳动；运行可以节省许多资源；运行可以大大的提高学校的工作效率；可以使敏感文档更加安全，等等。关键词：ACCESS资源效率安全1绪论1.1系统开发的背景和意义随着科技的发展，基本上所有的具有一定数量数据的机构都开始使用计算机数据库来做管理。几乎都已经在使用计算机管理数据的机制，大大减少了管理的工作量。该设计是设计一个

2、学校工会的数据库管理系统，数据库中要求包含会员信息、个人简历信息、会员缴纳信息、奖惩信息、家庭信息、社会关系信息，以及用户信息。方便进行查询，通过系统设计，达到把数据库理论知识更加的巩固加深。1. 2系统开发的基本目标通过应用会员管理系统，不但减少大量纸质文件的处理时间，更重要的是：通过将会员资料相关数据的记录工作自动化，能大大提高会员管理工作的效率能有效的帮助工会，为工会提供会员方面的查询。在传统模式下利用人工进行工会会员管理现在较为成熟，使得它们能在工会管理系统中得到广泛的使用，对此，我开发了这个小型学生工会会员管理系统。不断了解，达到把数据库理论知识更加的巩固加深，以加强动手能力与实践能

3、力。1 .3开发环境和开发工具介绍方便学生进行成绩查询，通过该课程设计，达到把数据库理论知识更加的巩固加深，加强动手能力与实践能力。用WindowsX喉作系统的微机系统，选用MicrosoftAccess2003操作。Access2003是目前最流行且功能强大的桌面数据库管理系统之一，它以其强大的功能和直观的操作界面，给大多数没有任何编程经验的人在管理数据库方面提供了强在的支持，而对于数据库的开发人员，Access提供了VBA(VisualBasicforApplication)编程语言，可用于开发高性能、高质量的桌面数据库系统。2 需求分析2. 1系统应用接口图系统基本信息打印会员资料会员管

4、理系统2 .2业务流程图系统管理员输入会飞费激纳信息会费激纳数据查询与浏览.输入用户信息信息用户数据查询与济浏览3 系统设计3.1 模块划分3.1 系统功能结构图王页面简单查询用户管理3.2档案编辑高级查询删除用户搞消修改保存修改W职称查询会员信息个人简历交费信息奖惩信息家庭成员社会关系年龄-二一HU性另职称政治面貌数据库设计3.2.1ER图/会员编号1k（姓名（编号工作单位f证明人部门一个人简历Q家庭成员奖惩信息奖惩名称3.3基本表设计高级查询字段名称数据类型主键（是/否）会员编号数字是姓名文本否部门文本否性别文本否年龄文本否职称文本否政治面貌文本否个人简历字段名称数据类型主键（是/否）编R

5、自动编P是会员编号数字否姓名文本否工作单位文本否部门文本否职务文本否起始年月日期/时间否结束年月日期/时间否离开原因文本否证明人文本否会员信息表字段名称数据类型主键（是/否）会员编号数字是部门文本否姓名文本否性别是/否否民族文本否出生年月日期/时间否柿文本否政治面貌文本否现任职务文本否职称文本否文化程度文本否外语水平文本否毕业院校文本否健康状况文本否婚姻状况文本否入会时间日期/时间否工资货币否家庭住址文本否相片OLE对象否备注文本否性别副文本否会费激纳信息表字段名称数据类型主键（是/否）编R自动编P是会员编号数字否姓名文本否部门文本否交费日期日期/时间否会费货币否备注文本否家庭成员表字段名称数

6、据类型主键（是/否）编R自动编P是会员编号数字否姓名文本否成员姓名文本否性别是/否否称谓文本否出生年月日期/时间否婚姻状况文本否文化程度文本否政治面貌文本否工作单位文本否联系电话数字否奖惩信息表字段名称数据类型主键（是/否）编R自动编P是会员编号数字否姓名文本否奖惩日期日期/时间否奖惩名称文本否奖惩级别文本否授予单位文本否授予原因文本否备注文本否社会关系表字段名称数据类型主键（是/否）编p自动编P是会员编号数字否姓名文本否关系姓名文本否性别文本否与本人关系文本否政治面貌文本否工作单位文本否备注文本否用户表字段名称数据类型主键（是/否）用户名文本否密码文本否备注文本否4.1系统实现此模块是用来判

7、断登录人员的身份是否为合法权限，如果用户的密码输入错误，则不能登录到系统；如果用户密码正确则进入系统，并可以对主窗体相应的功能进行操作。登录模块代码设计PrivateSubcmdenter_click()Dimstrpassword,strusernameAsStringDimflagAsIntegerDimrecordAsADODB.Recordsetflag=0'从“用户”表里读取用户名和密码openrecord"select*from用户",record'循环判断用户名是否存在，密码是否正确DoUntilrecord.EOFstrusername=re

8、cord("用户名")strpassword=record("密码")IfUCase(Me.txtusername.Value)<>UCase(strusername)Thenrecord.MoveNext'若相等，说明用户名存在，可以跳出循环Elseflag=1ExitDoEndIfLoop'flag=0说明用户名不存在，进行处理'设置文本框的内容为空，“确定”键不可用，焦点设在txtusernameIfflag=0ThenMsgBox”没有这个用户名，请重新输入”Me.txtpassword.Value="

9、;"Me.txtusername.Value=""Me.txtusername.SetFocuscmdenter.Enabled=FalseExitSub'若flag=1说明所输入的用户名存在，进一步比较密码是否正确'若密码出错，设置txtusername的内容不变，txtpassword的内容为空,'若密码出错，"确定”键不可用，并把焦点设在txtpasswordElseIfUCase(Me.txtpassword.Value)<>UCase(strpassword)ThenMsgBox("密码错误，请重新

10、输入”)Me.txtpassword.Value=""Me.txtpassword.SetFocuscmdenter.Enabled=FalseExitSubEndIfEndIf'用户名和密码都正确，打开“主界面”窗体DoCmd.CloseDoCmd.OpenForm"主界面"EndSub4.2主窗体2d的主界面：啕体理系统会员花名册高诬.查询关闭窗体退出系统档案编辑政治面貌统计本设计含源文件等完整资料联系51225467431获取，代做课设毕设ngDimflagAsIntegerDimrecordAsADODB.Recordsetflag=0&

11、#39;从“用户”表里读取用户名和密码openrecord"select*from用户",record'循环判断用户名是否存在，密码是否正确DoUntilrecord.EOFstrusername=record("用户名")strpassword=record("密码")IfUCase(Me.txtusername.Value)<>UCase(strusername)Thenrecord.MoveNext'若相等，说明用户名存在，可以跳出循环Elseflag=1ExitDoEndIfLoop'fla

12、g=0说明用户名不存在，进行处理'设置文本框的内容为空，“确定”键不可用，焦点设在txtusernameIfflag=0ThenMsgBox"没有这个用户名，请重新输入"Me.txtpassword.Value=""Me.txtusername.Value=""Me.txtusername.SetFocuscmdenter.Enabled=FalseExitSub'若flag=1说明所输入的用户名存在，进一步比较密码是否正确若密码出错，设置txtusername的内容不变，txtpassword的内容为空,若密码出错，

13、"确定”键不可用，并把焦点设在txtpasswordElseIfUCase(Me.txtpassword.Value)<>UCase(strpassword)ThenMsgBox("密码错误，请重新输入")Me.txtpassword.Value=""Me.txtpassword.SetFocuscmdenter.Enabled=FalseExitSubEndIfEndIf'用户名和密码都正确，打开“主界面”窗体DoCmd.CloseDoCmd.OpenForm"主界面"EndSubPrivateSubc

14、mdcancle_Click()设置“取消”键的事件过程点击取消后，文本框的内容为空，“确定”键不能用OnErrorGoToErr_login_cancel_ClickDoCmd.CloseExit_login_cancel_Click:ExitSubErr_login_cancel_Click:MsgBoxErr.DescriptionResumeExit_login_cancel_ClickEndSub4.3用户管理本设计含源文件等完整资料联系Q:1225467431获取，代做课设毕设OnErrorGoToErr_cmdsave_Click设置记录导航按钮可用cmdfirst.Enable

15、d=Truecmdbefore.Enabled=Truecmdnext.Enabled=Truecmdlast.Enabled=TrueIfflag=1ThenIftxtpassword.Value<>密码ThenMsgBox"两个密码不一样，无法保存，请再次输入密码txtpassword.Value=""txtpassword.SetFocusExitSubEndIfEndIfIfflag=2ThenIftxtpassword.Value<>密码ThenMsgBox"密码已改，请输入正确的确认密码或重置密码txtpassword

16、.Value=""txtpassword.SetFocusExitSubEndIfEndIfDoCmd.DoMenuItemacFormBar,acRecordsMenu,acSaveRecord,acMenuVer70'设置按钮的可用性和窗体的属性Form.AllowEdits=TrueForm.AllowDeletions=FalseForm.AllowAdditions=FalseForm.RecordLocks=0用户名.Locked=True密码.Locked=True备注.Locked=Truecmdedit.Enabled=Truecmdadd.Enabled=Truecmddel.Enabled=Falsecmdcancle.Enabled=Falsetxtpassword.Value=""cmdedit.SetFocuscmdsave.Enabled=False标记变为0flag=0Exit_cmdsave_Click:ExitSubErr_cmdsave_Click:MsgBoxErr.DescriptionResumeExit_cmdsave_ClickEndSub5 .结束语.经过几个多月的调查和研究，本会员管理系统基本完成。具使用功能基本符合在实际工作中的需要，具有一定的实用性