數(shù)據(jù)庫課程設(shè)計--- 學(xué)生學(xué)籍管理系統(tǒng)

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：30 大小：729.50KB 人氣指數(shù)：12 舉報 版權(quán)申訴

數(shù)據(jù)庫課程設(shè)計--- 學(xué)生學(xué)籍管理系統(tǒng)_第1頁

已閱讀1頁，還剩29頁未讀，繼續(xù)免費閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

1、　　數(shù)據(jù)庫原理與應(yīng)用　　課程設(shè)計　　題目學(xué)生學(xué)籍管理系統(tǒng) 　　班級 09計科二班 &

2、#160; 　　學(xué)生姓名 　　專業(yè)名稱計算機科學(xué)與技術(shù)

3、　指導(dǎo)教師 　　2011年12 月 27日　　摘要　　隨著信息技術(shù)在管理上越來越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實施在技術(shù)上已逐步成熟.管理信息系統(tǒng)是一

4、個不斷發(fā)展的新型學(xué)科，任何一個單位要生存要發(fā)展，要高效率地把內(nèi)部活動有機地組織起來，就必須建立與自身特點相適應(yīng)的管理信息系統(tǒng)。　　本文介紹了在 Visual Basic6.0 環(huán)境下采用"自上而下地總體規(guī)劃，自下而上地應(yīng)用開發(fā)"的策略開發(fā)一個管理信息系統(tǒng)的過程。通過分析訪客管理的不足，創(chuàng)建了一套行之有效的計算機管理學(xué)生的方案。文章介紹了訪客管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行

5、性分析，業(yè)務(wù)流程分析等；系統(tǒng)設(shè)計部分主要介紹了系統(tǒng)功能設(shè)計和數(shù)據(jù)庫設(shè)計及代碼設(shè)計；系統(tǒng)實現(xiàn)部分說明了幾個主要模塊的算法，本系統(tǒng)面友好，操作簡單，比較實用。　　關(guān)鍵詞：SQL server 2008，VB6.0 程序設(shè)計，軟件工程　　Abstract　　Along with i

6、nformation technique more and more thorough but extensive on the management of application, manage information system of the implement has been gradually mature on the technique.Manage the information system is a new aca

7、demics which continuously develops, the whichever unit wants to exist to want adevelopment, high-efficiencily internal activity organically the organization get up, have to build up adapting with oneself characteristics

8、mutually of management information system.　　This text introduced in the Visual Basic6.0 under the environments the strategy of adoption"from top to bottom total programming, from bottom but last

9、 pplication development" develop a process which manage information system.Pass the shortage of analytical visitor management, established a valid a set of line a calculator a management the student's project.Th

10、e article introduced visitor a management information system of system analysis part, System realization part explained a few calculate way　　Keywords:The SQL 2000 servers , VB program design , softwa

11、re engineering　　目錄　　目錄4　　第一章緒論5　　1.1 引言5　　1.2

12、開發(fā)環(huán)境6　　第二章系統(tǒng)需求分析7　　2.1 功能需求7　　2.2 學(xué)生需求7　　2.3 教師需求7　　第三章系統(tǒng)設(shè)計8　　3.1 數(shù)據(jù)流圖及數(shù)據(jù)字典8&l

13、t;/p>　　3.2E_R圖及關(guān)系模式12　　3.2.1 E_R圖12　　3.2.2 E—R圖轉(zhuǎn)換為關(guān)系模式12　　3.2.3 邏輯設(shè)計結(jié)果13　　第四章物理結(jié)構(gòu)設(shè)計與功能實現(xiàn)17

14、　　4.1 初始運行主界面17　　4.2 學(xué)生信息查詢界面18　　4.3 教師信息查詢界面20　　4.4 學(xué)生信息修改界面22　　4.5 學(xué)生成績錄入界面25　　4.6 學(xué)生選課界面27

15、　　參考文獻(xiàn)29　　致謝30　　第一章緒論　　1.1 引言　　學(xué)生學(xué)籍管理是學(xué)校管

16、理的重要組成部分，對于學(xué)校和政府教育單位來說都至關(guān)重要，所以學(xué)生學(xué)籍管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。傳統(tǒng)的人工方式管理方式效率低、保密性差，不利于查找、更新和維護(hù)。使用計算機對學(xué)生信息進(jìn)行管理，能夠極大地提高學(xué)生管理的效率，節(jié)約教育經(jīng)費，這也是適應(yīng)學(xué)校信息化建設(shè)發(fā)展趨勢的重要因素。　　作為計算機應(yīng)用的部分，使用計算機對學(xué)生學(xué)籍信息進(jìn)行管理，具有手工管理所無法比擬的優(yōu)點。例如

17、：檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高學(xué)生學(xué)籍管理的效率，也是企業(yè)的科學(xué)化、正規(guī)化管理，與世界接軌的重要條件。　　經(jīng)過分析，我們使用易于與數(shù)據(jù)庫連接的Microsoft Visual Basic 6.0開發(fā)工具，利用其提供的各種面向?qū)ο蟮拈_發(fā)工具，學(xué)生學(xué)籍管理系統(tǒng)要實現(xiàn)的目標(biāo)是為學(xué)校提供學(xué)生管理解決方案。具體目標(biāo)如下：

18、　　提高學(xué)生信息管理效率，節(jié)約管理成本，增強學(xué)生管理的安全性。　　滿足學(xué)校學(xué)生管理的人員、老師和學(xué)生的不同層次和不同方面的需要。　　為學(xué)校將來的信息化建設(shè)提供必要的支持。　　總之，通過該系統(tǒng)的建設(shè)來提高學(xué)校的學(xué)生信息管理效率，使得學(xué)校的發(fā)展能夠適應(yīng)當(dāng)前的教育信息化建設(shè)的中體發(fā)展趨勢。</p

19、>　　1.2 開發(fā)環(huán)境　　本學(xué)生學(xué)籍管理系統(tǒng)開發(fā)環(huán)境如下：　　開發(fā)環(huán)境：Windows 7旗艦版　　數(shù)據(jù)庫管理系統(tǒng)：SQL server 2008　　輔助設(shè)計工具：Visual Basic 6.0<

20、/p>　　運行環(huán)境：Windows XP/Vista/7　　第二章系統(tǒng)需求分析　　2.1 功能需求　　本系統(tǒng)開發(fā)的目的，就是通過系統(tǒng)開發(fā)，實現(xiàn)課程管理有關(guān)工作的計算機化，提高關(guān)鍵環(huán)節(jié)的處理速度和規(guī)范化，并對有關(guān)的工作進(jìn)行集成和重組，通過網(wǎng)絡(luò)系

21、統(tǒng)實現(xiàn)集中管理、分散操作，提高選課管理工作的質(zhì)量和效率。通過對學(xué)校的選課及成績管理工作進(jìn)行實際調(diào)查，學(xué)生可以自由選擇課程、選老師，學(xué)生注冊的行政班和教學(xué)班是游離的，開發(fā)工作需要涉及任課教師、學(xué)生、管理員(教務(wù)工作人員)三種用戶。　　2.2 學(xué)生需求　　在學(xué)校規(guī)定的選課期間，學(xué)生通過任何一臺連接因特網(wǎng)計算機的瀏覽器就

22、能進(jìn)行網(wǎng)上選課。學(xué)生以用戶名和密碼進(jìn)入選課系統(tǒng)。選課系統(tǒng)會根據(jù)用戶名和密碼自動識別所在的系，然后顯示出與學(xué)生有關(guān)的課程列表。系統(tǒng)必須控制某一門課程在學(xué)期間只能選一次。在學(xué)生選課時能自動進(jìn)行有關(guān)邏輯判斷，如：是否選課超過了規(guī)定的門數(shù)，是否選擇了不符合預(yù)修條件的課程，是否選擇的課程超過此課程最大選擇人數(shù)，只有符合要求的選擇才能選課成功。學(xué)生可以更改部分個人信息如密碼，電話號碼等；學(xué)生可以查詢已修課程成績和已選課程信息。

23、　　2.3 教師需求　　任課教師登錄后，可以查看自己所教課程的課程表；對于同一學(xué)期內(nèi)有多門課程的教師，需要選擇具體課程后，才能查看已選這門課程的學(xué)生信息：期末，教師可以上傳這些學(xué)生的成績。　　第三章系統(tǒng)設(shè)計　　3

24、.1 數(shù)據(jù)流圖及數(shù)據(jù)字典　　頂層圖：　　數(shù)據(jù)字典：　　數(shù)據(jù)流項目：　　學(xué)生信息=姓名+學(xué)號+性別+年齡+專業(yè)+總學(xué)分

25、;　　成績單=姓名+課目+成績　　數(shù)據(jù)項條目：　　數(shù)據(jù)項名：成績　　類型：int　　長度：4&l

26、t;p>　　范圍：100-0　　加工條目：　　處理過程：　　過程名：學(xué)籍管理系統(tǒng)　　輸入：學(xué)生信息，考試成績，學(xué)生記錄<p

27、>　　輸出：統(tǒng)計表，成績單　　0層圖　　數(shù)據(jù)字典：　　數(shù)據(jù)存儲：　　數(shù)據(jù)存儲名：學(xué)生記錄　　組成：姓名+學(xué)號+

28、性別+年齡+專業(yè)+總學(xué)分　　處理過程：　　處理過程名：錄入存儲處理　　輸入：學(xué)生信息處理要求：如果沒有所輸入的學(xué)生記錄，則建立新的學(xué)生記錄，存儲基本情況和課目成績　　處理過程名：查詢處理　　輸

29、入：學(xué)生信息，課程號　　輸出：成績　　處理要求：根據(jù)學(xué)生的學(xué)號查詢相應(yīng)的成績　　處理過程名：統(tǒng)計處理　　輸入：學(xué)生考試成績　　輸出：平均成績，排名成績&l

30、t;/p>　　1層圖　　數(shù)據(jù)字典：　　數(shù)據(jù)流：　　新生信息=入學(xué)時間+姓名+年齡+專業(yè)+性別　　合格單=姓名+專

31、業(yè)　　處理過程：　　處理過程名：審查　　輸入：學(xué)生信息　　輸出：合格單<

32、;p>　　處理要求：根據(jù)學(xué)生信息判斷是否是新生　　處理過程名：是否是新生　　輸入：合格單　　輸出：新生信息　　處理要求：根據(jù)合格單建立新生信息　　處

33、理過程名：錄入存儲學(xué)生信息，各科成績　　輸入：新生信息，考試成績　　輸出：本次考試成績　　2層圖　　數(shù)據(jù)字典：<

34、;b>　　數(shù)據(jù)存儲：　　數(shù)據(jù)存儲名：考試成績　　組成：姓名+專業(yè)+成績+學(xué)號　　組織方式：一學(xué)號為關(guān)鍵字　　處理過程：　　處理過程名：有效性檢查

35、　　輸入：學(xué)號，課程號　　輸出：有效查詢　　處理要求：根據(jù)所輸入的信息查詢有效性　　處理過程名：成績查詢　　輸入：考試成績</p&g

36、t;　　輸出：成績　　處理要求：根據(jù)考試成績查詢成績　　3層圖　　處理過程：　　處理過程名：統(tǒng)計選擇<p&

37、gt;　　輸入：學(xué)生記錄　　輸出：按規(guī)定統(tǒng)計成績　　處理要求：根據(jù)所輸入學(xué)生記錄查詢成績　　E_R圖及關(guān)系模式　　3.2.1 E_R圖　　1、學(xué)生實體E

38、-R圖　　2、課程實體E-R圖　　3、各實體之間的E-R圖　　3.2.2 E—R圖轉(zhuǎn)換為關(guān)系模式　　1）學(xué)生（XS）（學(xué)號(sno)，姓名(sname)，專業(yè)(sdept），性別(ssex)，出生日期(sbirth），總學(xué)分(all_credit)）

39、　　主碼：學(xué)號(sno)　　函數(shù)依賴：sno U.　　此表中，不存在非主屬性對碼的部分依賴，傳遞依賴，以及主屬性對碼的部分依賴和傳遞依賴，故滿足3NF　　2）課程（KC）（課程號(cno)，課程名(cname)，開課學(xué)期(term)，學(xué)時(class_hour)，學(xué)分(credit)）

40、　　主碼：課程號(cno)　　函數(shù)依賴：cno U　　此表中不存在非主屬性對碼的部分依賴，傳遞依賴，以及主屬性對碼的部分依賴和傳遞依賴，故滿足3NF　　3）選課（XS_KC）（學(xué)號(sno)，課程號(cno),成績(grade)）<p&

41、gt;　　主碼：（學(xué)號，課程號）　　外碼：學(xué)號，課程號　　函數(shù)依賴：(sno,cno) U　　此表中不存在非主屬性對碼的部分依賴，傳遞依賴，以及主屬性對碼的部分依賴和傳遞依賴，故滿足3NF　　4）教師（TCH）（編號(tno),

42、姓名(tname)，性別(tsex)，出生日期(tbirth)，職稱(professional)，專業(yè)(department)）　　主碼：編號(tno)　　函數(shù)依賴：tno U　　此表中不存在非主屬性對碼的部分依賴，傳遞依賴，以及主屬性對碼的部分依賴和傳遞依賴，故滿足3NF<p

43、>　　5）授課（TCH_KC）（教師編號(tno),課程號(cno)，上課地點(place)）　　主碼：（教師編號，課程號）　　外碼：教師編號，課程號　　函數(shù)依賴：(tno,cno)U　　此表中不存在非主屬性對碼的部分依賴，傳遞依賴，以及主屬性對碼的部分依賴和傳

44、遞依賴，故滿足3NF。　　3.2.3 邏輯設(shè)計結(jié)果　　數(shù)據(jù)庫表名XS（學(xué)生）　　數(shù)據(jù)庫表名KC（課程）　　數(shù)據(jù)庫表名TCH（教師）　　數(shù)據(jù)庫表名XS_KC（選課）　　數(shù)據(jù)庫表名TCH_K

45、C（授課）　　第四章物理結(jié)構(gòu)設(shè)計與功能實現(xiàn)　　4.1 初始運行主界面　　此為主界面，有五個按鈕，可進(jìn)行查詢，修改等操作。　　程序代碼：　　Private Sub Command1_Cli

46、ck()　　StuSearch.Show　　End Sub　　Private Sub Command2_Click()　　AddStu.Show　　End Sub</b

47、>　　Private Sub Command3_Click()　　AddStuCourse.Show　　End Sub　　Private Sub Command4_Click()　　Ad

48、dStuGrade.Show　　End Sub　　Private Sub Command5_Click()　　TchSearch.Show　　End Sub

49、;　　4.2 學(xué)生信息查詢界面　　上圖為學(xué)生信息查詢窗口，可按學(xué)號，姓名，專業(yè)進(jìn)行查詢。　　程序代碼：　　Dim SqlStr As String　　Public Sub MakeSqlStr()<p&

50、gt;　　SqlStr = ""　　If Trim(Stusno) <> "" Then　　SqlStr = SqlStr + "and sno like'%" + Trim(Stusno.Text) + "%' "<

51、p>　　End If　　If Trim(Stusname) <> "" Then　　SqlStr = SqlStr + "and sname like '%" + Trim(Stusname.Text) + "%'"<

52、/p>　　End If　　If Trim(Stusdept) <> "" Then　　SqlStr = SqlStr + "and sdept='" + Trim(Stusdept.Text) + "'"

53、;　　End If　　End Sub　　Private Sub Command1_Click()　　MakeSqlStr　　StuADO.RecordSo

54、urce = "select sno 學(xué)號,sname 姓名,sdept 專業(yè),ssex 性別,sbirth 出生日期,all_credit 總學(xué)分 from XS where (ssex ='男' or ssex='女')" _　　& SqlStr　　St

55、uADO.Refresh　　End Sub　　Private Sub StuDG_DblClick()　　ShowStuKC.StuKCADO.RecordSource = "select sname 姓名,cname 課程名,grade 成績,credit 學(xué)分,

56、term 開課學(xué)期,class_hour 課時 from XS,KC,XS_KC" _　　& " where XS.sno=XS_KC.sno and KC.cno=XS_KC.cno" _　　& " and XS.sno='" + StuADO.Recordset("學(xué)

57、號") + "'"　　ShowStuKC.StuKCADO.Refresh　　ShowStuKC.Show　　StuSearch.Enabled = False　　End Sub

58、;　　上圖為學(xué)生選課信息窗口，雙擊上圖學(xué)生信息查詢窗口中表格左邊，可彈出此窗口顯示該學(xué)生選課信息。　　程序代碼：　　Private Sub form_unload(cancel As Integer)　　StuSearch.Enabled = True&

59、lt;/p>　　End Sub　　4.3 教師信息查詢界面　　上圖為教師信息查詢窗口，可按教師編號，姓名，職稱部門進(jìn)行查詢，雙擊表格左部可顯示教師授課信息，如下圖所示。　　程序代碼：&

60、lt;p>　　Dim SqlStr As String　　Public Sub MakeSqlStr()　　SqlStr = ""　　If Trim(Tchtno) <> "" Then　　SqlStr = Sql

61、Str + "and tno like '%" + Trim(Tchtno.Text) + "%' "　　End If　　If Trim(Tchtname) <> "" Then　　Sql

62、Str = SqlStr + "and tname like '%" + Trim(Tchtname.Text) + "%'"　　End If　　If Trim(Tchprofessional) <> "" Then</p&

63、gt;　　SqlStr = SqlStr + "and professional like '%" + Trim(Tchprofessional.Text) + "%'"　　End If　　If Trim(Tchdepartment.Tex

64、t) <> "" Then　　SqlStr = SqlStr + "and department like '%" + Trim(Tchdepartment.Text) + "%'"　　End If<

65、p>　　End Sub　　Private Sub TchDG_DblClick()　　ShowTchKC.TchKCADO.RecordSource = "select tname 姓名,cname 課程,credit 學(xué)分,place 上課地點 from KC,TCH,TCH_KC where TC

66、H.tno=TCH_KC.tno and KC.cno=TCH_KC.cno" _　　& " and Tch.tno='" + TchADO.Recordset("教師編號") + "'"　　ShowTchKC.TchKCADO.Refresh

67、;　　ShowTchKC.Show　　End Sub　　Private Sub Tchseek_Click()　　MakeSqlStr　　TchADO.RecordSource = "select tn

68、o 教師編號,tname 姓名,tsex 性別,tbirth 出生日期,professional 職稱,department 部門 from TCH where (tsex ='男' or tsex='女')" _　　& SqlStr　　TchADO.Refresh&

69、lt;/p>　　End Sub　　Private Sub TchDG_Click()　　End Sub　　4.4 學(xué)生信息修改界面　　此為學(xué)生信息修改窗口，單擊一行，

70、可在上面文本框中顯示該生信息，并進(jìn)行插入，修改，刪除等操作。　　程序代碼：　　Private Sub Command3_Click() '取消　　Stusno.Text = ""　　Stusname.Tex

71、t = ""　　Stusbirth.Text = ""　　Stusdept.Text = ""　　Stuall_credit.Text = ""　　Stusexm = False</p&

72、gt;　　Stusexf = False　　End Sub　　'修改元組　　Private Sub Stuchange_Click()　　If Trim(Stusno

73、.Text) = "" Or Trim(Stusname.Text) = "" Or (Stusexm = False And Stusexf = False) Then　　MsgBox "加*數(shù)據(jù)項不能為空，請重新設(shè)置", vbOKOnly, "信息提示"　　Stusno.

74、SetFocus　　Exit Sub　　End If　　If Trim(Stusbirth.Text) <> "" Then　　If Not IsDate(Trim

75、(Stusbirth.Text)) Then　　MsgBox "出生日期輸入不正確，請重新輸入", vbOKOnly, "信息提示"　　Stusbirth.SetFocus　　Exit Sub&

76、lt;b>　　End If　　End If　　StuADO.Recordset.Fields("學(xué)號") = Trim(Stusno.Text)　　StuADO.Recordset.Fields("姓名") =

77、 Trim(Stusname.Text)　　StuADO.Recordset.Fields("出生日期") = Trim(Stusbirth.Text)　　StuADO.Recordset.Fields("專業(yè)") = Trim(Stusdept.Text)　　StuADO

78、.Recordset.Fields("總學(xué)分") = Trim(Stuall_credit.Text)　　If Stusexm = True Then　　StuADO.Recordset.Fields("性別") = "男"　　Else: Stusexf

79、 = True　　StuADO.Recordset.Fields("性別") = "女"　　End If　　StuADO.Recordset.Update　　End Sub&l

80、t;/b>　　'刪除元組　　Private Sub StuDel_Click()　　ret = MsgBox("是否要刪除" + StuADO.Recordset("學(xué)號") + "號學(xué)生的記錄?",

81、vbYesNo, "提示")　　If ret = vbYes Then　　StuADO.Recordset.Delete　　End If　　StuADO.RecordSource = "select sn

82、o 學(xué)號,sname 姓名,sdept 專業(yè),ssex 性別,sbirth 出生日期,all_credit 總學(xué)分 from XS"　　Command3_Click　　StuADO.Refresh　　End Sub<b

83、>　　'選中一行顯示元組　　Private Sub StuDG_Click()　　Stusno.Text = StuADO.Recordset("學(xué)號")　　Stusname.Text = StuADO.Recordset("姓名")<

84、;/p>　　Stusbirth.Text = StuADO.Recordset("出生日期")　　Stusdept.Text = StuADO.Recordset("專業(yè)")　　Stuall_credit = StuADO.Recordset("總學(xué)分")</p

85、>　　If Trim(StuADO.Recordset("性別")) = "男" Then　　Stusexm = True　　Else　　Stusexf = True

86、　　End If　　End Sub　　'插入元組　　Private Sub Studinsert_Click()　　If Trim(Stusno.Te

87、xt) = "" Or Trim(Stusname.Text) = "" Or (Stusexm = False And Stusexf = False) Then　　MsgBox "加*數(shù)據(jù)項不能為空，請重新設(shè)置", vbOKOnly, "信息提示"　　Stusno.Set

88、Focus　　Exit Sub　　End If　　If Trim(Stusbirth.Text) <> "" Then　　If Not IsDate(Trim(St

89、usbirth.Text)) Then　　MsgBox "出生日期輸入不正確，請重新輸入", vbOKOnly, "信息提示"　　Stusbirth.SetFocus　　Exit Sub<

90、b>　　End If　　End If　　StuADO.Recordset.AddNew　　StuADO.Recordset.Fields("學(xué)號") = Trim(Stusno.Text)

91、　　StuADO.Recordset.Fields("姓名") = Trim(Stusname.Text)　　StuADO.Recordset.Fields("出生日期") = Trim(Stusbirth.Text)　　StuADO.Recordset.Fields("專業(yè)") = Trim(

92、Stusdept.Text)　　StuADO.Recordset.Fields("總學(xué)分") = Trim(Stuall_credit.Text)　　If Stusexm = True Then　　StuADO.Recordset.Fields("性別") = "

93、男"　　Else: Stusexf = True　　StuADO.Recordset.Fields("性別") = "女"　　End If　　StuADO.Recordset.Upda

94、te　　End Sub　　4.5 學(xué)生成績錄入界面　　此為學(xué)生成績錄入窗口，單擊一行可現(xiàn)實該生學(xué)號及所選課程，并在成績文本框中進(jìn)行添加及修改該課程成績操作。　　程序代碼：

95、　　Private Sub Stuadd_Click()　　If Stugrade.Text = "" Then　　ret = MsgBox("輸入為空，請重新輸入", vbYes, "錯誤提示")　　Else<

96、/b>　　StuADOKC.RecordSource = "select * from KC where cname='" + Trim(Stucname.Text) + "'"　　StuADOKC.Refresh　　StuADOXS_KC.Recor

97、dSource = "select * from XS_KC where cno='" + StuADOKC.Recordset("cno") + "'"　　StuADOXS_KC.Refresh　　StuADOXS_KC.Recordset.Fields("sno&q

98、uot;) = Stusno.Text　　StuADOXS_KC.Recordset.Fields("cno") = StuADOKC.Recordset("cno")　　StuADOXS_KC.Recordset.Fields("grade") = Stugrade.Text

99、;　　StuADOXS_KC.Recordset.Update　　StuADO.RecordSource = "select sno 學(xué)號,XS_KC.cno 課程號,cname 課程名,grade 成績 from KC,XS_KC where KC.cno=XS_KC.cno"　　StuADO.Refresh&

100、lt;/p>　　End If　　End Sub　　Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

101、;　　End Sub　　'取消　　Private Sub Stucancel_Click()　　Stusno.Text = ""　　Stucname.Text = ""

102、;　　Stugrade.Text = ""　　End Sub　　'刪除學(xué)生成績　　Private Sub Studelete_Click()&l

103、t;p>　　ret = MsgBox("是否要刪除" + Trim(StuADO.Recordset("學(xué)號")) + "號學(xué)生成績?", vbYesNo, "提示")　　If ret = vbYes Then　　StuADO.Recordset("成績&qu

104、ot;) = Null　　End If　　End Sub　　'單擊顯示元組　　Private Sub StuDG_Click()

105、　　Stusno.Text = StuADO.Recordset("學(xué)號")　　Stucname.Text = StuADO.Recordset("課程名")　　End Sub　　'修改學(xué)生

106、成績　　Private Sub Stusure_Click()　　If Stugrade.Text = "" Then　　ret = MsgBox("輸入為空，請重新輸入", vbYes, "錯誤提示")<

107、;p>　　Else　　StuADOKC.RecordSource = "select * from KC where cname='" + Trim(Stucname.Text) + "'"　　StuADOKC.Refresh<

108、;p>　　StuADOXS_KC.RecordSource = "select * from XS_KC where cno='" + StuADOKC.Recordset("cno") + "'" + " and sno='" + Trim(Stusno.Text) + "'"

109、　　StuADOXS_KC.Refresh　　StuADOXS_KC.Recordset.Fields("grade") = Trim(Stugrade.Text)　　StuADOXS_KC.Recordset.Update　　StuADO.RecordSource = &

110、quot;select sno 學(xué)號,XS_KC.cno 課程號,cname 課程名,grade 成績 from KC,XS_KC where KC.cno=XS_KC.cno"　　StuADO.Refresh　　End If　　End Sub&l

111、t;/b>　　4.6 學(xué)生選課界面　　此為學(xué)生選課窗口，單擊一行顯示該行信息，可進(jìn)行選課，刪除操作　　程序代碼；　　'取消　　Privat

112、e Sub Stucancel_Click()　　Stusno.Text = ""　　Stusname.Text = ""　　Stucname.Text = ""　　End Sub</b&

113、gt;　　'選課　　Private Sub Stuchoose_Click()　　StuADOXS.RecordSource = "select * from XS where sno='" + Trim(Stusno.Text) + &q

114、uot;'"　　StuADOXS.Refresh　　If Trim(Stusno.Text) = "" Or Trim(Stusname.Text) = "" Or Trim(Stucname.Text) = "" Then　　ret

115、= MsgBox("輸入不正確，請重新輸入!", vbYes, "錯誤！")　　ElseIf Trim(Stusname.Text) <> Trim(StuADOXS.Recordset("sname")) Then　　ret = MsgBox("輸入學(xué)號與姓名不匹配，請重

116、新輸入!")　　Else　　StuADOXS_KC.RecordSource = "select * from XS_KC"　　StuADOXS_KC.Refresh　　StuADOXS_KC.Recor

117、dset.AddNew　　StuADOXS_KC.Recordset.Fields("sno") = Trim(Stusno.Text)　　StuADOKC.RecordSource = "select * from KC where cname='" + Trim(Stucname.Text) + &qu

118、ot;'"　　StuADOKC.Refresh　　StuADOXS_KC.Recordset.Fields("cno") = StuADOKC.Recordset("cno")　　StuADOXS_KC.Recordset.Update

119、　　StuADO.Refresh　　End If　　End Sub　　'刪除元組　　Private Sub Studelete_

120、Click()　　ret = MsgBox("是否要刪除" + StuADO.Recordset("學(xué)號") + "號學(xué)生的選課記錄?", vbYesNo, "提示")　　If ret = vbYes Then　　StuADOXS_K

121、C.RecordSource = "select * from XS_KC where sno='" + StuADO.Recordset("學(xué)號") + "'"　　StuADOXS_KC.Refresh　　StuADOXS_KC.Recordset.Delete</p&g

122、t;　　End If　　StuADO.Refresh　　Stucancel_Click　　End Sub　　'單擊顯示元組<

123、;/p>　　Private Sub StuDG_Click()　　Stusno.Text = StuADO.Recordset("學(xué)號")　　Stusname.Text = StuADO.Recordset("姓名")　　Stucname.Tex

124、t = StuADO.Recordset("課程名")　　End Sub　　附：具體數(shù)據(jù)庫建立見還原文件“XSCJ.bak”；要想成功的運行該程序請先建立ODBC數(shù)據(jù)源，數(shù)據(jù)源名為“XSCJ”!　　參考文獻(xiàn)</p

125、>　　[1] 王利數(shù)據(jù)庫基礎(chǔ)與應(yīng)用中央廣播電視大學(xué)出版社 1997年　　[2] 飛思科技產(chǎn)品研發(fā)中心 SQL Server2000系統(tǒng)管理電子工業(yè)出版社 2001年　　[3] 陳明軟件工程中央廣播電視大學(xué)出版社 2001年　　[4] 陳世洪計算機專業(yè)畢業(yè)設(shè)計指導(dǎo)

126、清華大學(xué)出版社[2]　　[5] SQL SERVER 200管理，開發(fā)及應(yīng)用實例人民郵電出版社　　[6] 夏邦國劉凡馨 Visual Basic 6.0數(shù)據(jù)庫開發(fā)經(jīng)典實例精解機械工業(yè)出版社　　[7] 陳世洪SQL SERVER 200管理，開發(fā)及應(yīng)用實例人民郵電出版社<

127、;p>　　[8] 周鳴揚于秋生 Visual Basic 6.0程序設(shè)計教程機械工業(yè)出版社　　[9] 姜代紅數(shù)據(jù)庫原理與應(yīng)用機械工業(yè)出版社　　致謝　　在這半個多月的畢業(yè)設(shè)計中，我真誠地感謝老師和朋友的幫助，在他們的幫助下我才順利的完成畢業(yè)設(shè)計。特別感謝

眾賞文庫> 全部分類> 畢業(yè)設(shè)計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

數(shù)據(jù)庫課程設(shè)計--- 學(xué)生學(xué)籍管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

數(shù)據(jù)庫課程設(shè)計--- 學(xué)生學(xué)籍管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費下載