.课程设计报告格式

南昌工程学院

《数据库》课程设计报告

题目会员管理系统的设计与实现

课程名称数据库课程设计

系院信息工程学院

专业计算机软件技术

班级 10计算机软件技术（专）

学生姓名段玉龙（2010011818）

孙敬敬（2010011817）

郑兴（2010011855）

姚佳男（2010011854）

设计地点电子信息楼B204

指导教师刘文军

设计起止时间：2011年12月19日至2011年12月30日

目录

一、需求分析 ........................................................................................................... *

二、系统总体设计.................................................................................................... *

三、系统详细设计.................................................................................................... *

四、调试与维护........................................................................................................ *

五、结束语 ............................................................................................................... *

六、参考文献 ........................................................................................................... *

七、指导教师评阅.................................................................................................... *一、需求分析

为管理和经营方便，设计此会员管理系统，实现对会员基本信息的统计，对会员进行编号，分等级管理，可以按姓名，编号，性别，等级等进行查询会员相关信息。

1）管理人员通过系统维护会员信息。

2）会员通过系统进行查询的相关信息。

二、系统总体设计

系统分为六个模块：用户管理，档案管理，简单查询，高级查询，会员等级统计，会员花名册

三、系统详细设计

1 登陆窗口

2 关系

3主界面

4 主要表

5报表

6 重要代码

blic Function openrecord(str1 As String, record As ADODB.Recordset)

'创建一个查询，把符合str1中的SQL语句的记录集打开到record中'为记录集record 分配空间

Set record = New ADODB.Recordset

'使用本数据库的连接打开记录集

record.Open str1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic End Function

Private Sub form_open(Cancel As Integer)

'设置打开窗体时的属性

cmdenter.Enabled = False

Form.KeyPreview = True

End Sub

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