南昌工程学院《数据库》课程设计报告题目会员管理系统的设计与实现课程名称数据库课程设计系院信息工程学院专业计算机软件技术班级 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 FunctionPrivate Sub form_open(Cancel As Integer)'设置打开窗体时的属性cmdenter.Enabled = FalseForm.KeyPreview = TrueEnd SubPrivate Sub cmdenter_click()Dim strpassword, strusername As StringDim flag As IntegerDim record As ADODB.Recordsetflag = 0'从“用户”表里读取用户名和密码openrecord "select * from 用户", record'循环判断用户名是否存在，密码是否正确Do Until record.EOFstrusername = record("用户名")strpassword = record("密码")If UCase(Me.txtusername.Value) <> UCase(strusername) Thenrecord.MoveNext'若相等，说明用户名存在，可以跳出循环Elseflag = 1Exit DoEnd IfLoop'flag=0 说明用户名不存在，进行处理'设置文本框的内容为空，“确定”键不可用，焦点设在txtusernameIf flag = 0 ThenMsgBox "没有这个用户名，请重新输入"Me.txtpassword.Value = ""Me.txtusername.Value = ""Me.txtusername.SetFocuscmdenter.Enabled = FalseExit Sub'若flag=1 说明所输入的用户名存在，进一步比较密码是否正确'若密码出错，设置txtusername的内容不变，txtpassword的内容为空，'若密码出错,“确定”键不可用，并把焦点设在txtpasswordElseIf UCase(Me.txtpassword.Value) <> UCase(strpassword) ThenMsgBox ("密码错误，请重新输入")Me.txtpassword.Value = ""Me.txtpassword.SetFocuscmdenter.Enabled = FalseExit SubEnd IfEnd If'用户名和密码都正确，打开“主界面”窗体DoCmd.CloseDoCmd.OpenForm "主界面"End SubPrivate Sub cmdcancle_Click()'设置“取消”键的事件过程'点击取消后，文本框的内容为空，“确定”键不能用txtpassword = ""Me.txtusername.Value = ""cmdenter.Enabled = Falsetxtusername.SetFocusEnd SubPrivate Sub form_keyup(keycode As Integer, Shift As Integer)'检测用户名，密码文本框是否都有字符，有的话设置“确定”按钮可用'在txtusername 或txtpassword 中每键入一个字符，触发执行本段程序'根据当前活动的控件名选择执行txtusername 或txtpassword 的模块语句Select Case '若txtusername 和txtpassword 中都至少有一个字符，cmdenter可用，否则不可用Case "txtusername":'焦点在txtusername 时，若此文本框为空，则cmdenter不可用，退出此过程If Me.ActiveControl.Text = "" Or IsNull(Me.ActiveControl.Text) Thencmdenter.Enabled = FalseExit Sub'若txtpassword文本框为空，则cmdenter不可用，退出此过程ElseIf Me.txtpassword.Value = "" Or IsNull(Me.txtpassword.Value) Thencmdenter.Enabled = FalseExit SubEnd IfEnd IfCase "txtpassword":On Error GoTo 11'焦点在txtpassword 时，若此文本框为空，则cmdenter不可用，退出此过程If Me.ActiveControl.Text = "" Or IsNull(Me.ActiveControl.Text) Then11 cmdenter.Enabled = FalseExit Sub'若txtusername文本框为空，则cmdenter不可用，退出此过程ElseIf Me.txtusername.Value = "" Or IsNull(Me.txtusername.Value) Thencmdenter.Enabled = FalseExit SubEnd IfEnd IfCase Else:'交点在其他控件，直接退出过程Exit SubEnd Select'txtusername 和txtpassword 中都至少有一个字符，设置cmdenter可用cmdenter.Enabled = TrueExit SubEnd SubPrivate Sub cmdExit_Click()'单击“退出”按钮，退出accessDoCmd.QuitEnd Sub四、调试与维护调试：介绍设计过程中遇到的问题和解决方法，最好配有照片。
维护：介绍系统投入使用后应注意的维护事宜。
五、结束语这部分篇幅不大，对整个设计中做的工作、获得的成果、心得体会等做一个简单小结（感想、收获、启发、存在的问题）。
六、参考文献参考文献应按照规范列举在论文最后。
具体格式可参见各课程教材后参考文献的写法。
一般格式如下：[序号] 作者名著，文章或书籍名，出版社名，出版年份（或期刊名称，年月）七、指导教师评阅（手写）成绩（百分制）：。