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 说明所输入的用户名存 …… 此处隐藏：2419字，全部文档内容请下载后查看。喜欢就下载吧 ……