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

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：docx 頁(yè)數(shù)：26 大?。?.54MB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

2023年全國(guó)碩士研究生考試考研英語(yǔ)一試題真題（含答案詳解+作文范文）_第1頁(yè)

已閱讀1頁(yè)，還剩25頁(yè)未讀，繼續(xù)免費(fèi)閱讀

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

文檔簡(jiǎn)介

1、　　數(shù)據(jù)庫(kù)原理課程設(shè)計(jì)報(bào)告　　課程設(shè)計(jì)題目：學(xué)分管理系統(tǒng)　　·······目錄········　　1題目要求···

2、·······························3　　2程序截圖·

3、;·································4

4、;　　3程序代碼·································10

5、　　4課程設(shè)計(jì)心得·····························26　　題目要

6、求：設(shè)計(jì)一個(gè)學(xué)分管理系統(tǒng)。　　假設(shè)每位學(xué)生必須完成基礎(chǔ)課50學(xué)分，專(zhuān)業(yè)課50學(xué)分，選修課24學(xué)分，人文類(lèi)課程8學(xué)分和實(shí)驗(yàn)性課程20學(xué)分才能畢業(yè)。　　實(shí)現(xiàn)下列功能：　　錄入某位學(xué)生的學(xué)分信息　　給定學(xué)號(hào)，顯示某位學(xué)生的學(xué)分完成情況；&l

7、t;/p>　　給定班號(hào)，顯示該班所有學(xué)生的學(xué)分完成情況；　　給定學(xué)號(hào)，修改該學(xué)生的學(xué)分信息；　　按照某類(lèi)課程的學(xué)分高低進(jìn)行排序；　　給定學(xué)號(hào)，對(duì)該學(xué)生能否畢業(yè)進(jìn)行確定。　　登陸界面如下：

8、　　主界面如下：　　進(jìn)行插入操作：　　按班號(hào)顯示操作：　　查詢結(jié)果界面如下：　　進(jìn)行按學(xué)號(hào)進(jìn)行查詢

9、的界面：　　查詢結(jié)果如下：　　排序界面：　　查詢學(xué)生是否能夠畢業(yè)：　　刪除操作：　　代碼如下：&l

10、t;/b>　　Module1：　　Public cn As New ADODB.Connection　　Public rs As New ADODB.Recordset　　Form1：<

11、;/p>　　Public rs As ADODB.Recordset　　Sub disp()　　Set DataGrid1.DataSource = rs　　For i = 0 To rs.Fields.Count - 1　　Text1(i).

12、Text = rs.Fields(i).Value　　Next　　End Sub　　Sub renew()　　rs.Close<

13、p>　　cn.Close　　Set rs = New ADODB.Recordset　　Set DataGrid1.DataSource = rs　　cn.Open "dsn=123;uid=sa;pwd="

14、　　rs.Open "select * from credit", cn, adOpenStatic, adLockOptimistic　　disp　　End Sub　　Private Sub Frame1_DragD

15、rop(Source As Control, X As Single, Y As Single)　　End Sub　　Private Sub Command1_Click()　　For i = 0 To 7　　Text1(i).Tex

16、t = ""　　Next　　Text1(0).SetFocus　　Text1(1).Enabled = True　　Text1(2).Enabled = True　　Com

17、mand11.Enabled = True　　End Sub　　Private Sub Command10_Click()　　rs.MovePrevious　　If rs.BOF Then

18、msg = MsgBox("已達(dá)到第一條", 48 + 0, "提示")　　rs.MoveFirst　　End If　　disp　　End

19、 Sub　　Private Sub Command11_Click()　　Text1(1).Enabled = True　　Text1(2).Enabled = True　　insert_str = "insert into credit v

20、alues('" & Text1(0).Text & "','" & Text1(1).Text & "','" & Text1(2).Text & "','" & Text1(3).Text & "','" &a

21、mp; Text1(4).Text & "','" & Text1(5).Text & "','" & Text1(6).Text & "','" & Text1(7).Text & "')"　　If Te

22、xt1(0).Text <> rs.Fields(0) Then　　cn.Execute (insert_str)　　MsgBox "插入成功"　　Else　　MsgBox "重復(fù)輸入數(shù)據(jù)&q

23、uot;　　End If　　disp　　renew　　End Sub　　Pri

24、vate Sub Command12_Click()　　renew　　End Sub　　Private Sub Command13_Click()　　update_str = "upda

25、te credit set basic='" & Text1(3).Text & "',major='" & Text1(4).Text & "',soption='" & Text1(5).Text & "',speople='" & Text1(6).T

26、ext & "',sexperiment='" & Text1(7).Text & "' where sno='" & Text1(0).Text & "'"　　If Text1(0).Text <> rs.Fields(0) Then</

27、p>　　cn.Execute (update_str)　　Else　　MsgBox "無(wú)此內(nèi)容"　　End If　　renew&l

28、t;/b>　　End Sub　　Private Sub Command14_Click()　　sno1 = InputBox("請(qǐng)輸入要?jiǎng)h除學(xué)生的學(xué)號(hào)：", "查詢", 200, 100)

29、　　delete_str = "delete from credit where sno=" & sno1　　If sno1 <> "" Then　　'If rs.RecordCount = 0 Then　　'MsgBox "輸

30、入學(xué)號(hào)不正確"　　'Else　　cn.Execute (delete_str)　　disp　　renew<p&

31、gt;　　'End If　　Else　　MsgBox "error"　　End If　　End Sub</

32、b>　　Private Sub Command15_Click()　　frmLogin.Show　　End Sub　　Private Sub Command2_Click()　　Form

33、2.Show　　End Sub　　Private Sub Command3_Click()　　Form3.Show　　End Sub　　Private S

34、ub Command4_Click()　　Text1(0).SetFocus　　For i = 0 To 7　　Text1(i).Text = ""　　Next　　Text

35、1(1).Enabled = False　　Text1(2).Enabled = False　　'disp　　End Sub　　Private Sub Command5_Click()&l

36、t;/p>　　Form4.Show　　End Sub　　Private Sub Command6_Click()　　Dim a(4) As Integer　　sno1 = InputBox("請(qǐng)輸

37、入學(xué)生的學(xué)號(hào)：", "查詢", 200, 100)　　Set rs = New ADODB.Recordset　　rs.Open "select * from credit where sno='" & sno1 & "'", cn, adOpenSta

38、tic, adLockOptimistic　　If rs.RecordCount = 0 Then　　MsgBox "輸入學(xué)號(hào)不正確"　　Else　　i = 0</p&g

39、t;　　For j = 3 To rs.Fields.Count - 1　　a(i) = Val(rs.Fields(j).Value)　　i = i + 1　　Next

40、If a(0) >= 50 And a(1) >= 50 And a(2) >= 24 And a(3) >= 8 And a(4) >= 20 Then　　MsgBox "該學(xué)生已修滿學(xué)分，可以畢業(yè)"　　Else　　MsgB

41、ox "該學(xué)生由于未修滿學(xué)分，不能畢業(yè)"　　End If　　End If　　End Sub　　Private Sub Command7_C

42、lick()　　rs.MoveFirst　　disp　　End Sub　　Private Sub Command8_Click()　　rs.MoveLas

43、t　　disp　　End Sub　　Private Sub Command9_Click()　　rs.MoveNext　　If rs.EOF Then&l

44、t;/p>　　msg = MsgBox("已達(dá)到最后一條", 48 + 0, "提示")　　rs.MoveLast　　End If　　disp&l

45、t;p>　　End Sub　　Private Sub Form_Load()　　Set rs = New ADODB.Recordset　　'Set cn = New ADODB.Connection　　cn.Open

46、"dsn=123;uid=sa;pwd="　　rs.Open "select * from credit", cn, adOpenStatic, adLockOptimistic　　disp　　Command11.Enabled = F

47、alse　　Form1.Visible = False　　End Sub　　Form2：　　Private Sub Command1_Click()　　F

48、orm1.Show　　Form2.Hide　　End Sub　　Private Sub Form_Load()　　classno = InputBox("請(qǐng)輸入學(xué)生的班號(hào)", "查詢", 200

49、, 100)　　'rs.Close　　' cn.Close　　'Set rs1 = New ADODB.Recordset　　Set cn = New ADODB.Connection&

50、lt;p>　　Set rs = New ADODB.Recordset　　cn.Open "dsn=123;uid=sa;pwd="　　rs.Open "select * from credit where sclass='" & classno & "'"

51、, cn, adOpenStatic, adLockOptimistic　　If rs.RecordCount > 0 Then　　Set DataGrid2.DataSource = rs　　Else　　MsgBox &quo

52、t;無(wú)此記錄！"　　End If　　End Sub　　Form3：　　Private Sub Command1_Click()

53、　　Form1.Show　　Form3.Hide　　End Sub　　Private Sub Form_Load()　　sno = InputBox("請(qǐng)輸入學(xué)生的學(xué)號(hào)", "查詢&q

54、uot;, 200, 100)　　Set cn = New ADODB.Connection　　Set rs = New ADODB.Recordset　　cn.Open "dsn=123;uid=sa;pwd="　　rs.Open "sel

55、ect * from credit where sno='" & sno & "'", cn, adOpenStatic, adLockOptimistic　　If rs.RecordCount > 0 Then　　Set DataGrid3.DataSource = rs</p&

56、gt;　　Else　　MsgBox "無(wú)此記錄！"　　End If　　End Sub　　Form4

57、：　　Private Sub Command1_Click()　　Form1.Show　　Form4.Hide　　End Sub　　Private Sub Option1_

58、Click()　　subject = InputBox("請(qǐng)輸入課程名：", "查詢", 200, 100)　　Set cn = New ADODB.Connection　　Set rs = New ADODB.Recordset

59、　cn.Open "dsn=123;uid=sa;pwd="　　If subject = "basic" Or subject = "major" Or subject = "soption" Or subject = "speople" Or subject = "sexperimen

60、t" Then　　rs.Open "select * from credit order by " & subject, cn, adOpenStatic, adLockOptimistic　　Set DataGrid4.DataSource = rs　　E

61、lse　　msg = MsgBox("error", 48 + 0, "提示")　　End If　　End Sub　　Private S

62、ub Option2_Click()　　subject = InputBox("請(qǐng)輸入課程名：", "查詢", 200, 100)　　Set cn = New ADODB.Connection　　Set rs = New ADODB.Recordset

63、　　cn.Open "dsn=123;uid=sa;pwd="　　If subject = "basic" Or subject = "major" Or subject = "soption" Or subject = "speople" Or subject = "

64、;sexperiment" Then　　rs.Open "select * from credit order by " & subject & " desc", cn, adOpenStatic, adLockOptimistic　　Set DataGrid4.DataSource =

65、rs　　Else　　msg = MsgBox("error", 48 + 0, "提示")　　End If　　End Sub</b&

66、gt;　　Frmlogin：　　Dim rsuser As ADODB.Recordset　　Public cn1 As ADODB.Connection　　'Public LoginSucceeded As Boolean&

67、lt;/p>　　Private Sub cmdCancel_Click()　　'設(shè)置全局變量為 false　　'不提示失敗的登錄　　LoginSucceeded = False<b&g

68、t;　　End　　End Sub　　Private Sub cmdOK_Click()　　Dim query_str As String　　Set rsuser = New ADODB.Recordset</

69、p>　　user_str = "select * from userinfo where userid='" & txtUserName & "' and password='" & txtPassword & "'"　　rsuser.Open

70、user_str, cn1, adOpenStatic, adLockOptimistic　　If rsuser.RecordCount > 0 Then　　' If rsuser.Fields("power") = "admin" Then　　'

71、 Form1.Enabled = True　　' Else　　' Form1.Enabled = False　　' End If　　' Log

72、inSucceeded = True　　Unload frmLogin　　MDIForm1.Show　　Form1.Show　　Else　　MsgBox "無(wú)效的用戶或密碼，請(qǐng)重試!

73、", , "登錄"　　txtPassword.SetFocus　　SendKeys "{Home}+{End}"　　End If　　' cn.Close

74、　　' rsuser.Close　　End Sub　　Private Sub Form_Load()　　' rsuser.Open "select * from userinfo", cn, adOpenStatic,

75、adLockOptimistic　　Set cn1 = New ADODB.Connection　　cn1.Open "dsn=123;uid=sa;pwd="　　End Sub　　課程設(shè)計(jì)總結(jié)：

76、　　沒(méi)接觸數(shù)據(jù)庫(kù)的時(shí)候總是覺(jué)得它比較深?yuàn)W或是不可接近的電腦知識(shí)，盡管自己對(duì)電腦非常感興趣，其實(shí)還是有些心理上的陌生感。學(xué)習(xí)電腦就和我們平時(shí)的其它科目學(xué)習(xí)一樣感覺(jué)它有永無(wú)止境的知識(shí)，在這從初接觸電腦時(shí)連個(gè)電腦的鍵盤(pán)都不敢動(dòng)到現(xiàn)在連硬盤(pán)都也修理，其中的過(guò)程是多么長(zhǎng)啊，數(shù)據(jù)庫(kù)是我在高中時(shí)候聽(tīng)過(guò)，到了大學(xué)漸漸了解了些，但就其原理性的內(nèi)容還不知道，也就是根本就不清楚什么是數(shù)據(jù)庫(kù)，只是知

眾賞文庫(kù)> 全部分類(lèi)> 畢業(yè)設(shè)計(jì)

溫馨提示

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

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

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

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

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載