數據庫課程設計-學分管理系統(tǒng)

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：docx 頁數：26 大?。?.54MB 人氣指數：12 舉報 版權申訴

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

版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領

文檔簡介

1、　　數據庫原理課程設計報告　　課程設計題目：學分管理系統(tǒng)　　·······目錄········　　1題目要求···

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

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

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

5、　　4課程設計心得·····························26　　題目要

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

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

8、　　主界面如下：　　進行插入操作：　　按班號顯示操作：　　查詢結果界面如下：　　進行按學號進行查詢

9、的界面：　　查詢結果如下：　　排序界面：　　查詢學生是否能夠畢業(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("已達到第一條", 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 "重復輸入數據&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 "無此內容"　　End If　　renew&l

28、t;/b>　　End Sub　　Private Sub Command14_Click()　　sno1 = InputBox("請輸入要刪除學生的學號：", "查詢", 200, 100)

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

30、入學號不正確"　　'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("請輸

37、入學生的學號：", "查詢", 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 "輸入學號不正確"　　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 "該學生已修滿學分，可以畢業(yè)"　　Else　　MsgB

41、ox "該學生由于未修滿學分，不能畢業(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("已達到最后一條", 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("請輸入學生的班號", "查詢", 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;無此記錄！"　　End If　　End Sub　　Form3：　　Private Sub Command1_Click()

53、　　Form1.Show　　Form3.Hide　　End Sub　　Private Sub Form_Load()　　sno = InputBox("請輸入學生的學號", "查詢&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 "無此記錄！"　　End If　　End Sub　　Form4

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

58、Click()　　subject = InputBox("請輸入課程名：", "查詢", 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("請輸入課程名：", "查詢", 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()　　'設置全局變量為 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 "無效的用戶或密碼，請重試!

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　　課程設計總結：

76、　　沒接觸數據庫的時候總是覺得它比較深奧或是不可接近的電腦知識，盡管自己對電腦非常感興趣，其實還是有些心理上的陌生感。學習電腦就和我們平時的其它科目學習一樣感覺它有永無止境的知識，在這從初接觸電腦時連個電腦的鍵盤都不敢動到現在連硬盤都也修理，其中的過程是多么長啊，數據庫是我在高中時候聽過，到了大學漸漸了解了些，但就其原理性的內容還不知道，也就是根本就不清楚什么是數據庫，只是知

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

溫馨提示

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

數據庫課程設計-學分管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

數據庫課程設計-學分管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費下載