專業(yè)課程設(shè)計(jì)方案報(bào)告格式

南昌工程學(xué)院《數(shù)據(jù)庫(kù)》課程設(shè)計(jì)匯報(bào)題目會(huì)員管理系統(tǒng)設(shè)計(jì)和實(shí)現(xiàn)課程名稱數(shù)據(jù)庫(kù)課程設(shè)計(jì)系院信息工程學(xué)院專業(yè)計(jì)算機(jī)軟件技術(shù)班級(jí)10計(jì)算機(jī)軟件技術(shù)（專）學(xué)生姓名段玉龍（011818）孫敬敬（011817）鄭興（011855）姚佳男（011854）設(shè)計(jì)地點(diǎn)電子信息樓B204指導(dǎo)教師劉文軍設(shè)計(jì)起止時(shí)間：12月19日至12月30日目錄TOC\o"1-1"\h\z\u一、需求分析 *二、系統(tǒng)總體設(shè)計(jì) *三、系統(tǒng)具體設(shè)計(jì) *四、調(diào)試和維護(hù) *五、結(jié)束語(yǔ) *六、參考文件 *七、指導(dǎo)老師評(píng)閱 *一、需求分析為管理和經(jīng)營(yíng)方便，設(shè)計(jì)此會(huì)員管理系統(tǒng)，實(shí)現(xiàn)對(duì)會(huì)員基礎(chǔ)信息統(tǒng)計(jì)，對(duì)會(huì)員進(jìn)行編號(hào)，分等級(jí)管理，能夠按姓名，編號(hào)，性別，等級(jí)等進(jìn)行查詢會(huì)員相關(guān)信息。1）管理人員經(jīng)過(guò)系統(tǒng)維護(hù)會(huì)員信息。2）會(huì)員經(jīng)過(guò)系統(tǒng)進(jìn)行查詢相關(guān)信息。二、系統(tǒng)總體設(shè)計(jì)系統(tǒng)分為六個(gè)模塊：用戶管理，檔案管理，簡(jiǎn)單查詢，高級(jí)查詢，會(huì)員等級(jí)統(tǒng)計(jì)，會(huì)員花名冊(cè)三、系統(tǒng)具體設(shè)計(jì)1登陸窗口2關(guān)系3主界面4關(guān)鍵表5報(bào)表6關(guān)鍵代碼blicFunctionopenrecord(str1AsString,recordAsADODB.Recordset)'創(chuàng)建一個(gè)查詢，把符合str1中SQL語(yǔ)句統(tǒng)計(jì)集打開到record中'為統(tǒng)計(jì)集record分配空間Setrecord=NewADODB.Recordset'使用本數(shù)據(jù)庫(kù)連接打開統(tǒng)計(jì)集record.Openstr1,CurrentProject.Connection,adOpenKeyset,adLockOptimisticEndFunctionPrivateSubform_open(CancelAsInteger)'設(shè)置打開窗體時(shí)屬性cmdenter.Enabled=FalseForm.KeyPreview=TrueEndSubPrivateSubcmdenter_click()Dimstrpassword,strusernameAsStringDimflagAsIntegerDimrecordAsADODB.Recordsetflag=0'從“用戶”表里讀取用戶名和密碼openrecord"select*from用戶",record'循環(huán)判定用戶名是否存在，密碼是否正確DoUntilrecord.EOFstrusername=record("用戶名")strpassword=record("密碼")IfUCase(Me.txtusername.Value)<>UCase(strusername)Thenrecord.MoveNext'若相等，說(shuō)明用戶名存在，能夠跳出循環(huán)Elseflag=1ExitDoEndIfLoop'flag=0說(shuō)明用戶名不存在，進(jìn)行處理'設(shè)置文本框內(nèi)容為空，“確定”鍵不可用，焦點(diǎn)設(shè)在txtusernameIfflag=0ThenMsgBox"沒(méi)有這個(gè)用戶名，請(qǐng)重新輸入"Me.txtpassword.Value=""Me.txtusername.Value=""Me.txtusername.SetFocuscmdenter.Enabled=FalseExitSub'若flag=1說(shuō)明所輸入用戶名存在，深入比較密碼是否正確'若密碼犯錯(cuò)，設(shè)置txtusername內(nèi)容不變，txtpassword內(nèi)容為空，'若密碼犯錯(cuò),“確定”鍵不可用，并把焦點(diǎn)設(shè)在txtpasswordElseIfUCase(Me.txtpassword.Value)<>UCase(strpassword)ThenMsgBox("密碼錯(cuò)誤，請(qǐng)重新輸入")Me.txtpassword.Value=""Me.txtpassword.SetFocuscmdenter.Enabled=FalseExitSubEndIfEndIf'用戶名和密碼全部正確，打開“主界面”窗體DoCmd.CloseDoCmd.OpenForm"主界面"EndSubPrivateSubcmdcancle_Click()'設(shè)置“取消”鍵事件過(guò)程'點(diǎn)擊取消后，文本框內(nèi)容為空，“確定”鍵不能用txtpassword=""Me.txtusername.Value=""cmdenter.Enabled=Falsetxtusername.SetFocusEndSubPrivateSubform_keyup(keycodeAsInteger,ShiftAsInteger)'檢測(cè)用戶名，密碼文本框是否全部有字符，有話設(shè)置“確定”按鈕可用'在txtusername或txtpassword中每鍵入一個(gè)字符，觸發(fā)實(shí)施本段程序'依據(jù)目前活動(dòng)控件名選擇實(shí)施txtusername或txtpassword模塊語(yǔ)句SelectCaseMe.ActiveControl.Name'若txtusername和txtpassword中全部最少有一個(gè)字符，cmdenter可用，不然不可用Case"txtusername":'焦點(diǎn)在txtusername時(shí)，若此文本框?yàn)榭?，則cmdenter不可用，退出此過(guò)程IfMe.ActiveControl.Text=""OrIsNull(Me.ActiveControl.Text)Thencmdenter.Enabled=FalseExitSub'若txtpassword文本框?yàn)榭眨瑒tcmdenter不可用，退出此過(guò)程ElseIfMe.txtpassword.Value=""OrIsNull(Me.txtpassword.Value)Thencmdenter.Enabled=FalseExitSubEndIfEndIfCase"txtpassword":OnErrorGoTo11'焦點(diǎn)在txtpassword時(shí)，若此文本框?yàn)榭?，則cmdenter不可用，退出此過(guò)程IfMe.ActiveControl.Text=""OrIsNull(Me.ActiveControl.Text)Then11cmdenter.Enabled=FalseExitSub'若txtusername文本框?yàn)榭?，則cmdenter不可用，退出此過(guò)程ElseIfMe.txtusername.Value=""OrIsNull(Me.txtusername.Value)Thencmdenter.Enabled=FalseExitSubEndIfEndIfCaseElse:'交點(diǎn)在其它控件，直接退出過(guò)程ExitSubEndSelect'txtusername和txtpassword中全部最少有一個(gè)字符，設(shè)置cmdenter可用cmdenter.Enabled=TrueExitSubEndSubPrivateSubcmdExit_Click()'單擊“退出”按鈕，退出accessDoCmd.QuitEndSub四、調(diào)試和維護(hù)調(diào)試：介紹設(shè)計(jì)過(guò)程中碰到問(wèn)題和處理方法，最好配有照片。維護(hù)：介紹系統(tǒng)投入使用后應(yīng)注意維護(hù)事宜。五、結(jié)束語(yǔ)這部分篇幅不大，對(duì)整個(gè)設(shè)計(jì)中做工作、取得結(jié)果、心得體會(huì)等做一個(gè)簡(jiǎn)單小結(jié)（感想、收獲、啟發(fā)、存在問(wèn)題）。六、參考文件參考文件應(yīng)根據(jù)規(guī)范列舉在論文最終。具體