5.课程设计报告格式.docVIP

南昌工程学院 《数据库》课程设计报告 题 目 会员管理系统的设计和实现 课 程 名 称 数据库课程设计 系 院 信息工程学院 专 业 计算机软件技术 班 级 10计算机软件技术（专） 学 生 姓 名 段玉龙（2010011818） 孙敬敬（2010011817） 郑兴（2010011855） 姚佳男（2010011854） 设 计 地 点 电子信息楼B204 指 导 教 师 刘文军 设计起止时间： 2011年 12月 19日至 2011年 12月 30日 目 录 TOC \o 1-1 \h \z \u 一、需求分析 * 二、系统总体设计 * 三、系统详细设计 * 四、调试和维护 * 五、结束语 * 六、参考文献 * 七、指导教师评阅 * 一、需求分析 为管理和经营方便，设计此会员管理系统，实现对会员基本信息的统计，对会员进行编号，分等级管理，可以按姓名，编号，性别，等级等进行查询会员相关信息。 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 If UCase(Me.txtpassword.Value) UCase(strpassword) Then MsgBox (密码错误，请重新输入) Me.txtpasswor