专业课程设计方案报告格式

南昌工程学院《数据库》课程设计汇报题目会员管理系统设计和实现课程名称数据库课程设计系院信息工程学院专业计算机软件技术班级10计算机软件技术（专）学生姓名段玉龙（011818）孙敬敬（011817）郑兴（011855）姚佳男（011854）设计地点电子信息楼B204指导教师刘文军设计起止时间：12月19日至12月30日目录TOC\o"1-1"\h\z\u一、需求分析 *二、系统总体设计 *三、系统具体设计 *四、调试和维护 *五、结束语 *六、参考文件 *七、指导老师评阅 *一、需求分析为管理和经营方便，设计此会员管理系统，实现对会员基础信息统计，对会员进行编号，分等级管理，能够按姓名，编号，性别，等级等进行查询会员相关信息。1）管理人员经过系统维护会员信息。2）会员经过系统进行查询相关信息。二、系统总体设计系统分为六个模块：用户管理，档案管理，简单查询，高级查询，会员等级统计，会员花名册三、系统具体设计1登陆窗口2关系3主界面4关键表5报表6关键代码blicFunctionopenrecord(str1AsString,recordAsADODB.Recordset)'创建一个查询，把符合str1中SQL语句统计集打开到record中'为统计集record分配空间Setrecord=NewADODB.Recordset'使用本数据库连接打开统计集record.Openstr1,CurrentProject.Connection,adOpenKeyset,adLockOptimisticEndFunctionPrivateSubform_open(CancelAsInteger)'设置打开窗体时属性cmdenter.Enabled=FalseForm.KeyPreview=TrueEndSubPrivateSubcmdenter_click()Dimstrpassword,strusernameAsStringDimflagAsIntegerDimrecordAsADODB.Recordsetflag=0'从“用户”表里读取用户名和密码openrecord"select*from用户",record'循环判定用户名是否存在，密码是否正确DoUntilrecord.EOFstrusername=record("用户名")strpassword=record("密码")IfUCase(Me.txtusername.Value)<>UCase(strusername)Thenrecord.MoveNext'若相等，说明用户名存在，能够跳出循环Elseflag=1ExitDoEndIfLoop'flag=0说明用户名不存在，进行处理'设置文本框内容为空，“确定”键不可用，焦点设在txtusernameIfflag=0ThenMsgBox"没有这个用户名，请重新输入"Me.txtpassword.Value=""Me.txtusername.Value=""Me.txtusername.SetFocuscmdenter.Enabled=FalseExitSub'若flag=1说明所输入用户名存在，深入比较密码是否正确'若密码犯错，设置txtusername内容不变，txtpassword内容为空，'若密码犯错,“确定”键不可用，并把焦点设在txtpasswordElseIfUCase(Me.txtpassword.Value)<>UCase(strpassword)ThenMsgBox("密码错误，请重新输入")Me.txtpassword.Value=""Me.txtpassword.SetFocuscmdenter.Enabled=FalseExitSubEndIfEndIf'用户名和密码全部正确，打开“主界面”窗体DoCmd.CloseDoCmd.OpenForm"主界面"EndSubPrivateSubcmdcancle_Click()'设置“取消”键事件过程'点击取消后，文本框内容为空，“确定”键不能用txtpassword=""Me.txtusername.Value=""cmdenter.Enabled=Falsetxtusername.SetFocusEndSubPrivateSubform_keyup(keycodeAsInteger,ShiftAsInteger)'检测用户名，密码文本框是否全部有字符，有话设置“确定”按钮可用'在txtusername或txtpassword中每键入一个字符，触发实施本段程序'依据目前活动控件名选择实施txtusername或txtpassword模块语句SelectCaseMe.ActiveControl.Name'若txtusername和txtpassword中全部最少有一个字符，cmdenter可用，不然不可用Case"txtusername":'焦点在txtusername时，若此文本框为空，则cmdenter不可用，退出此过程IfMe.ActiveControl.Text=""OrIsNull(Me.ActiveControl.Text)Thencmdenter.Enabled=FalseExitSub'若txtpassword文本框为空，则cmdenter不可用，退出此过程ElseIfMe.txtpassword.Value=""OrIsNull(Me.txtpassword.Value)Thencmdenter.Enabled=FalseExitSubEndIfEndIfCase"txtpassword":OnErrorGoTo11'焦点在txtpassword时，若此文本框为空，则cmdenter不可用，退出此过程IfMe.ActiveControl.Text=""OrIsNull(Me.ActiveControl.Text)Then11cmdenter.Enabled=FalseExitSub'若txtusername文本框为空，则cmdenter不可用，退出此过程ElseIfMe.txtusername.Value=""OrIsNull(Me.txtusername.Value)Thencmdenter.Enabled=FalseExitSubEndIfEndIfCaseElse:'交点在其它控件，直接退出过程ExitSubEndSelect'txtusername和txtpassword中全部最少有一个字符，设置cmdenter可用cmdenter.Enabled=TrueExitSubEndSubPrivateSubcmdExit_Click()'单击“退出”按钮，退出accessDoCmd.QuitEndSub四、调试和维护调试：介绍设计过程中碰到问题和处理方法，最好配有照片。维护：介绍系统投入使用后应注意维护事宜。五、结束语这部分篇幅不大，对整个设计中做工作、取得结果、心得体会等做一个简单小结（感想、收获、启发、存在问题）。六、参考文件参考文件应根据规范列举在论文最终。具体