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

计算机信息处理综合作业系统开发说明书

题目：会员管理系统

姓名：

准考证号：

专业：

年级：

摘要

会员管理系统是为实现会员管理系统化、规范化、自动化，用access数据库管理系统开发的应用软件。会员管理系统的目的是用最小的代价在尽可能短的时间内确定问题是否能够解决，运行可以代替人工进行许多繁杂的劳动；运行可以节省许多资源；运行可以大大的提高学校的工作效率；可以使敏感文档更加安全，等等。

关键词：ACCESS 资源效率安全

1绪论

1．1系统开发的背景和意义

随着科技的发展，基本上所有的具有一定数量数据的机构都开始使用计算机数据库来做管理。几乎都已经在使用计算机管理数据的机制，大大减少了管理的工作量。该设计是设计一个学校工会的数据库管理系统，数据库中要求包含会员信息、个人简历信息、会员缴纳信息、奖惩信息、家庭信息、社会关系信息，以及用户信息。方便进行查询，通过系统设计，达到把数据库理论知识更加的巩固加深。

1．2系统开发的基本目标

通过应用会员管理系统，不但减少大量纸质文件的处理时间，更重要的是：通过将会员资料相关数据的记录工作自动化，能大大提高会员管理工作的效率能有效的帮助工会，为工会提供会员方面的查询。在传统模式下利用人工进行工会会员管理现在较为成熟，使得它们能在工会管理系统中得到广泛的使用，对此，我开发了这个小型学生工会会员管理系统。不断了解，达到把数据库理论知识更加的巩固加深，以加强动手能力与实践能力。

1．3开发环境和开发工具介绍

方便学生进行成绩查询，通过该课程设计，达到把数据库理论知识更加的巩固加深，加强动手能力与实践能力。用WindowsXP操作系统的微机系统，选用Microsoft Access2003操作。Access 2003是目前最流行且功能强大的桌面数据库管理系统之一，它以其强大的功能和直观的操作界面，给大多数没有任何编程经验的人在管理数据库方面提供了强在的支持，而对于数据库的开发人员，Access 提供了VBA(Visual Basic for Application)编程语言，可用于开发高性能、高质量的桌面数据库系统。

2需求分析

2．1系统应用接口图

系统基本信息打印会员资料

会员管理系统

2．2业务流程图

3系统设计

3.1模块划分

3.1 系统功能结构图

3.2数据库设计

3.2.1 ER图

3.3 基本表设计

社会关系表

用户表

4.1系统实现

此模块是用来判断登录人员的身份是否为合法权限，如果用户的密码输入错误，则不能登录到系统；如果用户密码正确则进入系统，并可以对主窗体相应的功能进行操作。

登录模块

代码设计

Private Sub cmdenter_click()

Dim strpassword, strusername As String

Dim flag As Integer

Dim record As ADODB.Recordset

flag = 0

'从“用户”表里读取用户名和密码

openrecord "select * from 用户", record

'循环判断用户名是否存在，密码是否正确

Do Until record.EOF

strusername = record("用户名")

strpassword = record("密码")

If UCase(Me.txtusername.Value) <> UCase(strusername) Then

record.MoveNext

'若相等，说明用户名存在，可以跳出循环

Else

flag = 1

Exit Do

End If

Loop

'flag=0 说明用户名不存在，进行处理

'设置文本框的内容为空，“确定”键不可用，焦点设在txtusername If flag = 0 Then

MsgBox "没有这个用户名，请重新输入"

Me.txtpassword.Value = ""

Me.txtusername.Value = ""

Me.txtusername.SetFocus

cmdenter.Enabled = False

Exit Sub

'若flag=1 说明所输入的用户名存在，进一步比较密码是否正确

'若密码出错，设置txtusername的内容不变，txtpassword的内容为空，'若密码出错,“确定”键不可用，并把焦点设在txtpassword

Else

If UCase(Me.txtpassword.Value) <> UCase(strpassword) Then

MsgBox ("密码错误，请重新输入")

Me.txtpassword.Value = ""

Me.txtpassword.SetFocus

cmdenter.Enabled = False

Exit Sub

End If

End If

'用户名和密码都正确，打开“主界面”窗体

DoCmd.Close

DoCmd.OpenForm "主界面"

End Sub

4.2 主窗体

ng

Dim flag As Integer

Dim record As ADODB.Recordset

flag = 0

'从“用户”表里读取用户名和密码

openrecord "select * from 用户", record

'循环判断用户名是否存在，密码是否正确

Do Until record.EOF

strusername = record("用户名")

strpassword = record("密码")

If UCase(Me.txtusername.Value) <> UCase(strusername) Then

record.MoveNext

'若相等，说明用户名存在，可以跳出循环

Else

flag = 1

Exit Do

End If

Loop

'flag=0 说明用户名不存在，进行处理

'设置文本框的内容为空，“确定”键不可用，焦点设在txtusername

If flag = 0 Then

MsgBox "没有这个用户名，请重新输入"

Me.txtpassword.Value = ""

Me.txtusername.Value = ""

Me.txtusername.SetFocus

cmdenter.Enabled = False

Exit Sub

'若flag=1 说明所输入的用户名存在，进一步比较密码是否正确

'若密码出错，设置txtusername的内容不变，txtpassword的内容为空，'若密码出错,“确定”键不可用，并把焦点设在txtpassword

Else

If UCase(Me.txtpassword.Value) <> UCase(strpassword) Then

MsgBox ("密码错误，请重新输入")

Me.txtpassword.Value = ""

Me.txtpassword.SetFocus

cmdenter.Enabled = False

Exit Sub

End If

End If

'用户名和密码都正确，打开“主界面”窗体

DoCmd.Close

DoCmd.OpenForm "主界面"

End Sub

Private Sub cmdcancle_Click()

'设置“取消”键的事件过程

'点击取消后，文本框的内容为空，“确定”键不能用

On Error GoTo Err_login_cancel_Click

DoCmd.Close

Exit_login_cancel_Click:

Exit Sub

Err_login_cancel_Click:

MsgBox Err.Description

Resume Exit_login_cancel_Click

End Sub

4.3用户管理

On Error GoTo Err_cmdsave_Click

'设置记录导航按钮可用

cmdfirst.Enabled = True

cmdbefore.Enabled = True

cmdnext.Enabled = True

cmdlast.Enabled = True

If flag = 1 Then

If txtpassword.Value <> 密码Then

MsgBox "两个密码不一样，无法保存,请再次输入密码"

txtpassword.Value = ""

txtpassword.SetFocus

Exit Sub

End If

End If

If flag = 2 Then

If txtpassword.Value <> 密码Then

MsgBox "密码已改，请输入正确的确认密码或重置密码"

txtpassword.Value = ""

txtpassword.SetFocus

Exit Sub

End If

End If

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 '设置按钮的可用性和窗体的属性

Form.AllowEdits = True

Form.AllowDeletions = False

Form.AllowAdditions = False

Form.RecordLocks = 0

用户名.Locked = True

密码.Locked = True

备注.Locked = True

cmdedit.Enabled = True

cmdadd.Enabled = True

cmddel.Enabled = False

cmdcancle.Enabled = False

txtpassword.Value = ""

cmdedit.SetFocus

cmdsave.Enabled = False

'标记变为0

flag = 0

Exit_cmdsave_Click:

Exit Sub

Err_cmdsave_Click:

MsgBox Err.Description

Resume Exit_cmdsave_Click

End Sub

5.结束语.

经过几个多月的调查和研究，本会员管理系统基本完成。其使用功能基本符合在实际工作中的需要，具有一定的实用性；能够帮助会员管理人员及时方便管理会员信息。由于本人开发水平有限和设计经验不足，仍存在系统功能不够完善，设计步骤欠完整等不足会员管理系统涉及范围宽，要解决的问题多，功能复杂，实现困难，由于时间比较仓促，本系统只能做出其中的一部份功能；这些需要在今后的设计中加以改进和完善。

6.参考文献.

[1] 田孝文，朱强．计算机信息处理综合作业．经济科学出版社．2008

[2] 牛允鹏．数据库及其应用．经济科学出版社．2005

[3] 杨一平，马慧．管理信息系统．经济科学出版社．2007

[4] 刘佳，张芳．Access 2003 数据库实用教程．机械工业出版社．2008.1