工程學(xué)院《數(shù)據(jù)庫原理及應(yīng)用》課程設(shè)計(jì)

成果報(bào)告學(xué)生信息管理系統(tǒng)設(shè)計(jì)與開發(fā)學(xué)生學(xué)號：學(xué)生：學(xué)院：計(jì)算機(jī)學(xué)院專業(yè)班級：專業(yè)課程：數(shù)據(jù)庫原理及應(yīng)用課程設(shè)計(jì)指導(dǎo)教師:

年月曰課程設(shè)計(jì)指導(dǎo)教師評分表課程設(shè)計(jì)題目學(xué)生信息管理系統(tǒng)設(shè)計(jì)與開發(fā)成員學(xué)號任務(wù)分工201420910115VB系統(tǒng)窗體設(shè)計(jì)及數(shù)據(jù)庫設(shè)計(jì)數(shù)據(jù)庫代碼片段篩選及整理數(shù)據(jù)庫及系統(tǒng)整體修改調(diào)試評分項(xiàng)目及分值要素成績評定項(xiàng)目最高分評分要素成績1.學(xué)習(xí)態(tài)度20上機(jī)出勤及端正的學(xué)習(xí)態(tài)度、認(rèn)真刻苦程度，工作量飽滿程度等2.軟件設(shè)計(jì)質(zhì)量40采用的算法、設(shè)計(jì)方案，設(shè)計(jì)結(jié)果，界面友好等方面進(jìn)行綜合評定3.答辯過程20能簡明扼要地闡述設(shè)計(jì)的主要容，能準(zhǔn)確流利地回答各種問艦4.設(shè)計(jì)報(bào)告書寫10容按要求步驟書寫，條理清晰，表述清楚、措詞得當(dāng)5.實(shí)際動手能力10熟練使用開發(fā)工具，能夠迅速準(zhǔn)確

的進(jìn)行調(diào)試、糾錯(cuò)和運(yùn)行；組長全面負(fù)責(zé)，承擔(dān)復(fù)雜的模塊設(shè)計(jì)分值就高總成績等級評語系統(tǒng)設(shè)計(jì)目的1系統(tǒng)實(shí)現(xiàn)思路1需求分析12、總體設(shè)計(jì)1三、系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)32、總體設(shè)計(jì)1TOC\o"1-5"\h\z1、敬據(jù)需求分析.3.2、概念結(jié)構(gòu)設(shè)計(jì)（ER圖）,3、邏輯結(jié)構(gòu)設(shè)計(jì)（規(guī)化）54、物理結(jié)構(gòu)設(shè)計(jì)（素弓I）1四、系統(tǒng)詳細(xì)設(shè)計(jì)7五、系統(tǒng)調(diào)試運(yùn)行12六、總結(jié)設(shè)計(jì)體會19學(xué)生信息管理系統(tǒng)設(shè)計(jì)與開發(fā)一、設(shè)計(jì)目的設(shè)計(jì)目的：建立高效利用的學(xué)生信息管理系統(tǒng)，實(shí)現(xiàn)大量信息的規(guī)管理、科學(xué)統(tǒng)計(jì)和快速查詢，從而更好的減少管理方面的工作量。學(xué)生信息管理系統(tǒng)提供了強(qiáng)大的學(xué)生信息管理功能，方便管理員對學(xué)生信息進(jìn)行添加、修改、刪除、查詢、統(tǒng)計(jì)等操作。因此，學(xué)生信息管理系統(tǒng)能夠滿足學(xué)校的需要，簡化學(xué)生信息的管理過程，提高管理效率，是學(xué)校學(xué)生信息管理的一種重要的工具。系統(tǒng)實(shí)現(xiàn)思1、需求分析本次的實(shí)訓(xùn)課程著手于學(xué)生信息管理系統(tǒng)，原因在于學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量也在急劇增加，有關(guān)學(xué)生的各種信息量也在成倍增長。對于龐大的信息量，一個(gè)高效的信息管理系統(tǒng)是能夠很大程度上提高學(xué)生管理工作的效率。2、總體設(shè)計(jì)系統(tǒng)功能分析：系統(tǒng)開發(fā)的目的是實(shí)現(xiàn)學(xué)生信息管理系統(tǒng)的關(guān)系化、規(guī)化和自動化。學(xué)生信

息管理系統(tǒng)主要提供對學(xué)生信息的管理、班級信息的管理、課程信息的管理以及學(xué)生成績的管理。主要功能有：有關(guān)學(xué)生信息的輸入、修改和查詢。班級信息的輸入、修改和查詢?；菊n程的輸入、修改和查詢。成績的輸入、修改和查詢。學(xué)生成績信息的統(tǒng)計(jì)。模擬用戶登錄操作。系統(tǒng)功能模塊設(shè)計(jì)：學(xué)生信息管理系統(tǒng)課程信班級信息管理學(xué)生信息管理課程信息管理成績信息管理系統(tǒng)管理課程信課程信班級信息管理學(xué)生信息管理課程信息管理成績信息管理系統(tǒng)管理課程信三、系統(tǒng)數(shù)據(jù)庫設(shè)計(jì)1、數(shù)據(jù)需求分析用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新和查詢方面，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。收集基本的數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份相近的數(shù)據(jù)字典，為后面的具體設(shè)計(jì)打下良好的基礎(chǔ)。2、概念結(jié)構(gòu)設(shè)計(jì)（ER圖）圖2學(xué)生實(shí)體E-R圖圖4課程實(shí)體E-R圖圖5實(shí)體和實(shí)體NIWE-R圖3、邏輯結(jié)構(gòu)設(shè)計(jì)（規(guī)化）學(xué)生管理系統(tǒng)數(shù)據(jù)庫中各個(gè)表格的設(shè)計(jì)如下所示:表1學(xué)生基本信息字段名數(shù)據(jù)類型大小是否為空說明student_no學(xué)號int4否主鍵student_namechar10能無student_sex性別char2否無Born_date出生日期Datatime8能無class_no班級號int能無Tele_number聯(lián)系方式char10能外關(guān)鍵字ru_date入學(xué)日期Datatime能無address地址Varchar50能無comment備注Varcher200能無

字段名數(shù)據(jù)類型大小是否可空說明class_no班級編號Int10否主關(guān)鍵字class_name班級名Char20否無profession專業(yè)Char14能無director班主任charr10能外關(guān)鍵字字段名數(shù)據(jù)類型大小是否可空說明course_no課程號Int否關(guān)鍵字course_name課程名Char10否無course_score學(xué)分Int4能無course_time學(xué)時(shí)int4能無course_type課程類型char10能無course_start開課時(shí)間char1能無表3課程基本信息表4成績基本信息字段名數(shù)據(jù)類型大小是否可空說明exam_no成績號Char10否主關(guān)鍵字Student_no學(xué)號Int4否外關(guān)鍵字course_no課程號Char10否外關(guān)鍵字result成績Int4是無4、物理結(jié)構(gòu)設(shè)計(jì)（索弓I）圖6學(xué)生信息管理系統(tǒng)數(shù)據(jù)流程圖學(xué)生基本信息：包括學(xué)生學(xué)號、、性別、出生日期、聯(lián)系、家庭住址等。班級基本信息：包括班級號、班級名、班主任等。課程基本信息：包括課程編號、課程名稱、課程類型、學(xué)分等。

學(xué)生成績信息：包括學(xué)生學(xué)號、課程編號和考試成績等。四、詳細(xì)系統(tǒng)設(shè)計(jì)針對此次學(xué)生信息管理系統(tǒng)，分為了學(xué)生信息管理，班級信息管理，課程信息管理和成績信息管理界面，分多種功能操作，由于時(shí)間原因，簡單針對學(xué)生信息管理進(jìn)行了比較詳細(xì)的功能操作測試，先是通過菜單編輯器實(shí)現(xiàn)了多功能布局操作，選取了學(xué)生信息進(jìn)行了窗口功能操作。例如：點(diǎn)擊添加學(xué)生信息，可以實(shí)現(xiàn)添加學(xué)生信息功能，并且單獨(dú)設(shè)置了模擬用戶登錄界面，實(shí)現(xiàn)了用戶隱私安全性保護(hù)數(shù)據(jù)。圖7窗口

的創(chuàng)建2.亢m巽加系點(diǎn)窗學(xué)生信巨典班姬任昌典設(shè)匿含息甘理擊w藉受起我標(biāo)瓶叫.學(xué)生信息首理辭助上下玄hdo：|dtibWE們）-加-g切］廣復(fù)迭匯）丁有噬?卬可刃mr下Tool插入伉|I刑擠（II名稱血）:成村Oi）：。rormi至挑學(xué)生信息芭理噫直班爆信日惜至班技住雖目錄圖9學(xué)生信息管理創(chuàng)建圖11成績信息管理創(chuàng)建白學(xué)生信息萱理案貌o|旦i臣登錄學(xué)生信息琶理班抽信息笆理浬程信息售爰成游息售坦有助："：：："：："：："￡TSL-Main(Code]}€itong<Click歡迎jPrivateSuLa.d-￡_s__irL￡o_CLickQadd_stu.歡迎jEniSubPi-]vateSulilnquirt_5_in￡dCllckIJCh蛭or*til.Sho#EndSubFr3vateSahno-li￡}^_=_1n.￡o11ck(Jmodify^Etu..ShowEndSubPravitaSulziticlc(jdengLu.ShoviEndSub用戶登錄：DimaAsStringDimbAsStringDimstrAsStringDimstrrAsStringstr=InStr(Text2.Text,"'")Ifstr<>0ThenMsgBox"不能輸入非法字符??！",vbCritical+vbOKOnly,"錯(cuò)誤ExitSubElsestrr=InStr(Text1.Text,"'")Ifstrr<>0ThenMsgBox"不能輸入非法字符！！",vbCritical+vbOKOnly,"錯(cuò)誤ExitSubEndIfEndIfa=Trim(Text1)b=Trim(Text2)Ifa=""ThenMsgBox"用戶名不能為空!",vbCritical,"錯(cuò)誤"Textl.SetFocusText1.SelStart=0Text1.SelLength=Len(Text1)ElseDimrAsNewADODB.RecordsetSetr=DataEnvironment1.rsuserDimcAsStringStaticnTryCountAsIntegerc="select*from用戶登陸where用戶名='"&a&"'"Ifr.State=adStateOpenThenr.Closer.OpencIfr.EOFThenMsgBox"無此用戶！請重新登陸!!",vbCritical,"錯(cuò)誤"Text1.SetFocusText1.SelStart=0Text1.SelLength=Len(Text1)nTryCount=nTryCount+1IfnTryCount>=5ThenMsgBox"您無權(quán)操作本系統(tǒng)！",vbCritical,"錯(cuò)誤"UnloadMeEndIfElseIfb=Trim(r.Fields(1))Thenquanxian=Trim(r.Fields(2))MDIForml.ShowUnloadMeElseMsgBox"密碼錯(cuò)誤！請重新登陸!!",vbCritical,"錯(cuò)誤"Text2.SetFocusText2.SelStart=0Text2.SelLength=Len(Text2)nTryCount=nTryCount+1IfnTryCount>=5ThenMsgBox"您無權(quán)操作本系統(tǒng)！",vbCritical,"錯(cuò)誤"UnloadMeEndIfEndIfEnd圖14用戶登錄窗體五、系統(tǒng)調(diào)試運(yùn)行數(shù)據(jù)庫的創(chuàng)建與調(diào)試：1、創(chuàng)建學(xué)生信息表CREATETABLE[dbo].[student_Info]([student_ID][int]NOTNULL,[student_Name][char](10)COLLATEChinese_PRC_CI_ASNULL,[student_Sex][char](2)COLLATEChinese_PRC_CI_ASNULL,[born_Date][datetime]NULL,[class_NO][int]NULL,[tale_Number][char](10)COLLATEChinese_PRC_CI_ASNULL,[ru_Date][datetime]NULL,[address][varchar](50)COLLATEChinese_PRC_CI_ASNULL,[comment][varchar](200)COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]GO2、創(chuàng)建班級信息表CREATETABLE[dbo].[class_info]([class_No][int]NOTNULL,[class_Name][char](20)COLLATEChinese_PRC_CI_ASNOTNULL,[director][char](10)COLLATEChinese_PRC_CI_ASNULL,[profession][char](14)COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]GO3、創(chuàng)建課程信息表CREATETABLE[dbo].[class_info]([course_No][int]NOTNULL,[course_Name][char](10)COLLATEChinese_PRC_CI_ASNOTNULL,[course_Type][char](10)COLLATEChinese_PRC_CI_ASNULL,[course_start][char](1)COLLATEChinese_PRC_CI_ASNULL,[course_time][int]NULL,[course_score][int]NULL)ON[PRIMARY]GO4、創(chuàng)建成績信息表CREATETABLE[dbo].[class_info]([student_Id][int]NOTNULL,[course_No][char](10)COLLATEChinese_PRC_CI_ASNOTNULL,[result][float]NULL)ON[PRIMARY]GO學(xué)生信息管理系統(tǒng)主窗體的創(chuàng)建與調(diào)試：工程-T-gix旦國叵日序工程1□:程旦??咨窗嚎；.addtu(5tu.frmjCch.axiiii_stu.frmj?-■-Qden^Lutdenglu.￡rm)Erminfo;.frmaddclas:'-Qlogic(logic.Efm)I"jMaintForml.frm):;““QmodifyituCjnodi￡ystu.frm]模塊Modulel(Modul&l.has)圖15基礎(chǔ)工程窗體概覽歡迎并3學(xué)生盲忌甥〃二：三Ml命M生倍M戲睬瞠.旦爵?票參M買戌球目2FriirfttiSub■id[1_=_Liifu_lict0|&dd_EtiiShtfji血dSnhITri件H5訥iiiQiiirt_5_Lnfi]_ClirkOrhaNTin_sti].5b.wEsdSobfrigateStibLabell.aickOEndSubhrivEiteSub?[>iif^sJiifo-CLickCnodity.stn.jLw￡ndSub圖16工程窗體的代碼展示添加學(xué)生信息:圖17添加學(xué)生信息窗體PrivateSubFrom_Load()DimrstAsADODB.RecordsetDimsqlstrAsStringDimMsgTextAsStringDimiAsIntegerTextl.Text="20000101”:Text2.Text="”:Combol.Text=“男”Combo2.Text="200001”:Text5.Text="2000-01-01”:Text6.Text=“2000-01-01”Text7.Text="”:Text8.Text="”:Text9.Text="”Combo1.AddItem"男”Combo1.AddItem"女”sqlstr="selectfromclass_Info"Setrst=QuerySQL(sqlstr,MsgText)Fori=1Torst.RecordCountCombo2.AddItemrst.Fields(0)Rst.moveNextNextiRst.CloseEndSubPrivateSubCommand1_Click()DimrstAsADODB.RecordsetDimsqlstrAsStringDimMsgTextAsStringIfNotTesttxt(Text1.Text)ThenMsgBox"請輸入學(xué)號!”，vbOKOnly+vbExclamation,“警告”Text1.SetFocusExitSubEndIfIfNotTesttxt(Text2.Text)ThenMsgBox"請輸入!”，vbOKOnly+vbExclamation,“警告”Text2.SetFocusExitSubEndIfIfNotTesttxt(Combo1.Text)ThenMsgBox"請選擇性別!”，vbOKOnly+vbExclamation,“警告”Combo1.SetFocusExitSubEndIfIfNotTesttxt(Combo2.Text)ThenMsgBox"請輸入班號!”，vbOKOnly+vbExclamation,“警告”Combo2.SetFocusExitSubEndIfIfNotTesttxt(Text5.Text)ThenMsgBox"請輸入出生日期!”，vbOKOnly+vbExclamation,“警告”Text5.SetFocusExitSubEndIfIfNotTesttxt(Text6.Text)ThenMsgBox"請輸入入校日期!”，vbOKOnly+vbExclamation,“警告Text6.SetFocusExitSubEndIfIfNotTesttxt(Text7.Text)ThenMsgBox"請輸入!”，vbOKOnly+vbExclamation,“警告”Text7.SetFocusExitSubEndIfIfNotTesttxt(Text8.Text)ThenMsgBox"請輸入家庭住址!”，vbOKOnly+vbExclamation,“警告Text8.SetFocusExitSubEndIfIfNotTesttxt(Text9.Text)ThenMsgBox"請輸入備注信息!”，vbOKOnly+vbExclamation,“警告Text9.SetFocusExitSubEndIfIfNotIsNumeric(Trim(Text1.Text))ThenMsgBox"請輸入數(shù)字!”，vbOKOnly+vbExclamation,“警告”Text5.SetFocusExitSubEndIfsqlstr=“selectfromclass_Info"student_ID=’”&Trim(Text1.Text)&“’”Setrst=QuerySQL(sqlstr,MsgText)Ifrst.EOF=FalseThenMsgBox"學(xué)號重復(fù)，請重新輸入！”，vbOKOnly+vbExclamation,“警告”rst.CloseText1.SetFocusElserst.CloseIfNotIsDate(Text5.Text)ThenMsgBox“此出生日期應(yīng)輸入格式(yyyy-mm-dd)!”，vbOKOnly+vbExclamation,“警告”Text5.SetFocusElseText5=Format(Text5,“yyyy-mm-dd”)IfNotIsDate(Text6.Text)ThenMsgBox“入校時(shí)間應(yīng)填日期格式(yyyy-mm-dd)!”，vbOKOnly+vbExclamation,“警告”Text6.SetFocusElseText6=Format(Text6,“yyyy-mm-dd”)sqlstr=“select*fromstudent_Info”Setrst=QuerySQL(sqlstr,MsgText)rst.AddNewrst.Fields(0)=Trim(Text1.Text)rst.Fields(1)=Trim(Text2.Text)rst.Fields(2)=Trim(Combo1.Text)rst.Fields(3)=Trim(Text5.Text)rst.Fields⑷=Trim(Combo2.Text)rst.Fields(5)=Trim(Text7.Text)rst.Fields(6)=Trim(Text6.Text)rst.Fields(7)=Trim(Text8.Text)rst.Fields(8)=Trim(Text9.Text)MsgBox"添加學(xué)籍信息成功！”，vbOKOnly+vbExclamation,“警口rst.CloseEndIfEndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMe圖18修改學(xué)生信息窗體圖19查詢學(xué)生信息窗體模塊的創(chuàng)建調(diào)試:PublicfMainFormAsfrmMainPublicUserNameAsStringSubMain()DimfLoginAsNewfrmLoginfLogin.ShowvbModal■福工程衛(wèi)-Modukl|用)AcStrintHleA.nAcADODE.Ri-rE-r-lT-itI>Lb!SbAkkicifl土皿|?"L皿I>l*eSAsftecwdsstDessOMWeI網(wǎng)IDtiDfifOJf知I■口Qii4ry3aL_TYYatfix=S?Lcn.—TTm-MJDDH.CoriTii-EkiaaCcovnKtStrinx：='nrivBr^QLSir^irSbpvm-=e=J|UTI^-i.kTHD=tsHktkl-i.-a4=SludfrTit.ctiDp<nCoTWii-rtEtiraTbfIfIn￡lrC.-CJElB.T.DELEJ1.WOftTE^l￡keifTl?a血.EKtcuteSSLm理===i?)*_~宣洵rfctrELeriEUrS=JIe-vAIODB.duIr￡.Dp-uTxLrfSQL.?,,g.alOp-njEvyiiitjLJIr?c]^F-tLriLs^i-=S?Lquar^SQCL二rSBrr=L宣lH?ritvS.R-FMFifdUfltA*染記聚〃哭I￡QatT>5flL_EKitEsttrE1-Mo>:JiL[X4SatCCL=MorJiL&iEau.I.Pune11baQnnI]L_￡rx*/：.-p:"+Tjt]-fliersptic-iiJifruu-aQubf>^4^C_Bx31Pot-1[FPiinctaoTiTeillKtiJstJis疑F&j如Eh血《nIfTtinCtxt)?""ThtrilisxiKi=Fil■=?U"I-iiitci=Te-u?IlrlIfEndFun-=LianIfNotfLogin.succThen‘登錄失敗，退出應(yīng)用程序EndEndIfUnloadfLoginSetfMainForm.ShowEndSubPublicFunctionQuerySQL(ByValSQL_圖20模塊的創(chuàng)建與調(diào)試AsString,MsgAsString)_AsADODB.RecordsetDimAsADODB.ConnecrionDimrSAsADODB.RecordsetDimss()AsStringOnErrorGoToQuerySQL_Errorss=Sqlit(SQL)Set=NewADODB.ConnectionConnectString="Driver=SQLServer;Server=zcj;UID=sa;PWD=sa;Database=Student”.OpenConnectStringIfInStr(“INSERT,DEL