數據庫原理課程設計報告課程設計題目：學分管理系統學生姓名:張宗良專業:軟件工程班級:081106學號：08110631指導教師:謝小林2009年12月25日·······目錄········題目要求··································3程序截圖··································4程序代碼·································10課程設計心得·····························26題目要求：設計一個學分管理系統。假定每位學生一定達成基礎課50學分，專業課50學分，選修課24學分，人文類課程8學分和實驗性課程20學分才能畢業。實現以下功能：1．錄入某位學生的學分信息2．給定學號，顯示某位學生的學分達成情況；3．給定班號，顯示該班全部學生的學分完成狀況；4．給定學號，改正該學生的學分信息；5．依據某類課程的學分高低進行排序；給定學號，對該學生可否畢業進行確立。登岸界面以下：主界面以下：進行插入操作：按班號顯示操作：查問結果界面以下：進行按學號進行查問的界面：查問結果以下：排序界面：查問學生能否能夠畢業：刪除操作：代碼以下：Module1：PubliccnAsNewPublicrsAsNewForm1：PublicrsAsSubdisp( )Set=rsFori=0To-1Text1(i).Text=(i).ValueNextEndSubSubrenew( )Setrs=NewSet=rs"dsn=123;uid=sa;pwd=""select*fromcredit",cn,adOpenStatic,adLockOptimisticdispEndSubPrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)EndSubPrivateSubCommand1_Click( )Fori=0To7Text1(i).Text=""NextText1(0).SetFocusText1(1).Enabled=TrueText1(2).Enabled=TrueTrueEndSubPrivateSubCommand10_Click( )IfThenmsg=MsgBox("已達到第一條",48+0,"提示")EndIfdispEndSubPrivateSubCommand11_Click( )Text1(1).Enabled=TrueText1(2).Enabled=Trueinsert_str="insertintocreditvalues('"&Text1(0).Text&"','"&Text1(1).Text&"','"&Text1(2).Text&"','"&Text1(3).Text&"','"&Text1(4).Text&"','"&Text1(5).Text"','"&Text1(6).Text&"','"&Text1(7).Text&"')"IfText1(0).Text<>(0)Then(insert_str)MsgBox"插入成功"ElseMsgBox"重復輸入數據"EndIfdisprenewEndSubPrivateSubCommand12_Click( )renewEndSubPrivateSubCommand13_Click( )update_str="updatecreditsetbasic='"&Text1(3).Text&"',major='"&Text1(4).Text&"',soption='"&Text1(5).Text"',speople='"&Text1(6).Text&"',sexperiment='"

&&Text1(7).Text&"'wheresno='"&Text1(0).Text&"'"IfText1(0).Text<>(0)Then(update_str)ElseMsgBox"無此內容"EndIfrenewEndSubPrivateSubCommand14_Click( )sno1=InputBox("請輸入要刪除學生的學號：","查問",200,100)delete_str="deletefromcreditwheresno="&sno1Ifsno1<>""Then'If=0Then'MsgBox"輸入學號不正確"'Else(delete_str)disprenew'EndIfElseMsgBox"error"EndIfEndSubPrivateSubCommand15_Click( )EndSubPrivateSubCommand2_Click( )EndSubPrivateSubCommand3_Click( )EndSubPrivateSubCommand4_Click( )Text1(0).SetFocusFori=0To7Text1(i).Text=""NextText1(1).Enabled=FalseText1(2).Enabled=False'dispEndSubPrivateSubCommand5_Click( )EndSubPrivateSubCommand6_Click( )Dima(4)AsIntegersno1=InputBox("Setrs=New"select*from

請輸入學生的學號：","creditwheresno='"

查問",200,100)&sno1&"'",

cn,adOpenStatic,adLockOptimisticIf=0ThenMsgBox"輸入學號不正確"Elsei=0Forj=3To-1a(i)=Val(j).Value)i=i+1NextIfa(0)>=50Anda(1)>=50Anda(2)>=24Anda(3)>=8Anda(4)>=20ThenMsgBox"該學生已修滿學分，能夠畢業"ElseMsgBox"該學生因為未修滿學分，不可以畢業"EndIfEndIfEndSubPrivateSubCommand7_Click( )dispEndSubPrivateSubCommand8_Click( )dispEndSubPrivateSubCommand9_Click( )IfThenmsg=MsgBox("已達到最后一條",48+0,"提示")EndIfdispEndSubPrivateSubForm_Load( )Setrs=New'Setcn=New"dsn=123;uid=sa;pwd=""select*fromcredit",cn,adOpenStatic,adLockOptimisticdispFalseFalseEndSubForm2：PrivateSubCommand1_Click( )EndSubPrivateSubForm_Load( )classno=InputBox("請輸入學生的班號","查問",200,100)'''Setrs1=NewSetcn=NewSetrs=New"dsn=123;uid=sa;pwd=""select*fromcreditwheresclass='"&classno&"'",cn,adOpenStatic,adLockOptimisticIf>0ThenSet=rsElseMsgBox"無此記錄！"EndIfEndSubForm3：PrivateSubCommand1_Click( )EndSubPrivateSubForm_Load( )sno=InputBox("請輸入學生的學號Setcn=NewSetrs=New"dsn=123;uid=sa;pwd=""select*fromcreditwhere

","查問",200,100)sno='"&sno&"'",

cn,adOpenStatic,adLockOptimisticIf>0ThenSet=rsElseMsgBox"無此記錄！"EndIfEndSubForm4：PrivateSubCommand1_Click( )EndSubPrivateSubOption1_Click( )subject=InputBox("請輸入課程名：","查問",200,100)Setcn=NewSetrs=New"dsn=123;uid=sa;pwd="Ifsubject="basic"Orsubject="major"Orsubject="soption"Orsubject="speople"Orsubject="sexperiment"Then"select*fromcreditorderby"&subject,cn,adOpenStatic,adLockOptimisticSet=rsElsemsg=MsgBox("error",48+0,"提示")EndIfEndSubPrivateSubOption2_Click( )subject=InputBox("請輸入課程名：","查問",200,100)Setcn=NewSetrs=New"dsn=123;uid=sa;pwd="Ifsubject="basic"Orsubject="major"Orsubject="soption"Orsubject="speople"Orsubject="sexperiment"Then"select*fromcreditorderby"&subject&"desc",cn,adOpenStatic,adLockOptimisticSet=rsElsemsg=MsgBox("error",48+0,"提示")EndIfEndSubFrmlogin：DimrsuserAsPubliccn1As'PublicLoginSucceededAsBooleanPrivateSubcmdCancel_Click( )設置全局變量為false不提示失敗的登錄LoginSucceeded=FalseEndEndSubPrivateSubcmdOK_Click( )Dimquery_strAsStringSetrsuser=Newuser_str="select*fromuserinfowhereuserid='"&txtUserName&"'andpassword='"&txtPassword&"'"user_str,cn1,adOpenStatic,adLockOptimisticIf>0ThenIf("power")="admin"Then=TrueElse=FalseEndIfLoginSucceeded=TrueUnloadfrmLoginElseMsgBox"無效的用戶或密碼，請重試!",,"登錄"SendKeys"{Home}+{End}"EndIf''EndSubPrivateSubForm_Load( )'"select*fromuserinfo",cn,adOpenStatic,adLockOptimisticSetcn1=New"dsn=123;uid=sa;pwd="EndSub課程設計總結：沒接觸數據庫的時候老是感覺它比較高深或是不行靠近的電腦知識，只管自己對電腦特別感興趣，其實仍是有些心理上的陌生感。學習電腦就和我們平常的其余