vb課程設計---學生成績管理系統(tǒng)

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：docx 頁數(shù)：17 大?。?92.78KB 人氣指數(shù)：12 舉報 版權申訴

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

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

文檔簡介

1、　　VB語言程序設計課程設計報告　　（2011-2012學年第二學期）　　學生成績管理系統(tǒng)　　一、功能描述　　學生成績管理系統(tǒng)是一個學校必須需要的，這個系統(tǒng)對學校的管理有著重要

2、的作用。單一的用人工手抄不但麻煩且對于查詢、更新來講也是很困難的。　　隨著科學技術的不斷提高,計算機科學日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。所以學生成績管理系統(tǒng)可以通過計算機來實現(xiàn)，這個學生管理系統(tǒng)主要有權限登錄、編輯、查詢功能。在編輯里可以進行添加、修改、刪除等功能。其核心是數(shù)據(jù)庫，系統(tǒng)設計以提高數(shù)據(jù)共享程度。很大程度的改善了用人工手工記

3、錄的不足，效率高，查詢準確。　　二、概要設計 　　1、系統(tǒng)功能模塊框圖　　圖1 系統(tǒng)流程圖　　2、數(shù)據(jù)庫設計

4、　2.1學生成績管理系統(tǒng)數(shù)據(jù)庫設計　　由于考慮到本系統(tǒng)的應用環(huán)境,只建立起一個數(shù)據(jù)庫，在此數(shù)據(jù)庫基礎上建立如下三個基本表：　　學生表（表（1））：學號（idx_）、姓名、性別　　課程表（表（2））：課程號(idx_)、課程名稱、學時、學分　　成績表（表（3））：學號、

5、姓名、課程號、成績　　2.2數(shù)據(jù)庫邏輯結構設計　　(1)學生表結構：　　表（1）　　(2)課程表結構：<b&g

6、t;　　表（2）　?。?）成績表結構　　表（3）　　三、詳細設計　　1.主界面(MDI)　　主

7、界面為一個MDI窗口，有編輯菜單分別是“登錄、編輯、查詢、退出”當程序運行時主界面最先彈出，菜單中“登錄”和“退出”是可用的，只有點擊“登陸”登錄后其余兩個才可用。這個窗口還設置了MDI圖片作為背景。　　窗體截圖（如圖1）　　圖1　　功能

8、實現(xiàn)（部分代碼）　　Private Sub DL_Click() 　　land.Show　　End Sub　　Private Sub BJ_Click()</p

9、>　　edit.Show　　DL.Enabled = False　　End Sub　　Private Sub CX_Click()　　chaxun.Show</p

10、>　　DL.Enabled = False　　End Sub　　MDIForm1.Show　　CX.Enabled = False　　BJ.Enabled = False<p&

11、gt;　　End Sub　　2.登錄界面（Land）　　登錄界面有兩個按鈕一個“確定”一個“取消”主要是實現(xiàn)進入編輯與查詢界面。在text1中輸入正確的賬號“2010”輸入正確的密碼“12345”才能進入，否則提示“用戶名或密碼錯誤”。　?。?）窗體截圖（圖2）</p&

12、gt;　　圖2　?。?）功能實現(xiàn)（部分代碼）　　Private Sub Command1_Click()　　If Text1.Text = "2010" And Text2.Text = "12345" Then&

13、lt;/p>　　Load land　　MDIForm1.Show　　DIForm1.DL.Enabled = False　　MDIForm1.BJ.Enabled = True　　MDIForm1.CX.E

14、nabled = True　　Unload land　　Else　　MsgBox "用戶名或密碼錯誤", 1, "密碼錯誤"　　End If</p&g

15、t;　　End Sub　　3.編輯界面（Edit）　　編輯窗體里面有一個SSTab控件主要實現(xiàn)3個信息的轉換。有3個Data控件分別是Dataxues、Datakc、Datacj且分別與數(shù)據(jù)庫里面的學生表、課程表、成績表連接。窗體上面的text也相應的與數(shù)據(jù)庫里面對應的信息連接從而實現(xiàn)運行是有學

16、生成績等信息的顯示。上面還有7個按鈕對學生的信息進行修改、添加、刪除等。對學生成績信息的更新起到了關鍵的作用。　　窗體的截圖（圖3（部分））　　說明：這是未運行是的截圖，在運行是Dtata控件是不可見的。　　圖3　?。?）功能實現(xiàn)（部

17、分代碼和部分屬性截圖）　　添加的代碼：　　Private Sub Cmdtj_Click()　　Select Case Cmdtj.Caption　　Case "添加"<

18、/p>　　Select Case SSTab1.Tab　　Case 0　　Dataxues.Recordset.AddNew　　Case 1　　Datakc.Recor

19、dset.AddNew　　Case 2　　Datacj.Recordset.AddNew　　End Select　　SSTab1.TabEnabled(0) = False　　SSTab1.T

20、abEnabled(1) = False　　SSTab1.TabEnabled(2) = False　　Cmdtj.Caption = "確定"　　Cmdxg.Enabled = False　　Cmdsc.Enabled = False</p&g

21、t;　　Cmdsjl.Enabled = False　　Cmdsyt.Enabled = False　　Cmdxyt.Enabled = False　　cmdwjl.Enabled = False　　Case "確定&qu

22、ot;　　Select Case SSTab1.Tab　　Case 0　　Datakc.UpdateRecord　　Case 1　　D

23、atacj.UpdateRecord　　Case 2　　Dataxues.UpdateRecord　　End Select　　SSTab1.TabEnabled(0) = True　　SSTa

24、b1.TabEnabled(1) = True　　SSTab1.TabEnabled(2) = True　　Cmdtj.Caption = "添加"　　Cmdxg.Enabled = True　　Cmdsc.Enabled = True</p&g

25、t;　　Cmdsjl.Enabled = True　　Cmdsyt.Enabled = True　　Cmdxyt.Enabled = True　　cmdwjl.Enabled = True　　End Select<p&g

26、t;　　End Sub　　數(shù)據(jù)庫的連接：　　Private Sub Form_Load()　　If Right(App.Path, 1) = "\" Then　　Dataxue

27、s.DatabaseName = App.Path + "mydb.mdb"　　Else　　Dataxues.DatabaseName = App.Path + "\mydb.mdb"　　End If

28、;　　Dataxues.RecordSource = "學生表"　　Dataxues.Refresh　　Option1.Value = Dataxues.Recordset.Fields("性別").Value　　Datakc.Da

29、tabaseName = Dataxues.DatabaseName　　Datakc.RecordSource = "課程表"　　Datakc.Refresh　　Textkch.DataField = "課程號"　　Textkcm.

30、DataField = "課程名稱"　　Textxshi.DataField = "學時"　　Textxf.DataField = "學分"　　Datacj.DatabaseName = Dataxues.DatabaseName

31、　　Datacj.RecordSource = "成績表"　　Datacj.Refresh　　Textxh2.DataField = "學號"　　Textkch2.DataField = "課程號"<p&g

32、t;　　Textxm2.DataField = "姓名"　　Textcj.DataField = "成績"　　SSTab1.Tab = 0　　End Sub　　部分屬性截圖：&

33、lt;/b>　　其他Data與Text的屬性類似。　　4.查詢界面（chaxun）　　查詢界面主要實現(xiàn)學生系統(tǒng)的信息查詢工作。有按照課程號和學號兩種查詢方式。其中用到了兩個很關鍵的控件一個是DataGrid與Adodc。Adodc控件是與數(shù)據(jù)庫連接信息在DataGrid中顯示。窗體和具體屬性見下圖所示。&l

34、t;/p>　　窗體　　Adodc屬性截圖：　　說明：代碼見源代碼。　　四、調試中存在的問題及解決方法　　在調試工程中運行編輯這張表時學生信息的性別不會發(fā)生變化

35、　原因的分析：在查詢中執(zhí)行上一條和下一條時表中的數(shù)據(jù)性別是沒有跟著一起變化的。　　解決辦法：在上一條和下一條的代碼中間加入這樣的代碼　　Private Sub cmdsyt_Click()　　------------------------------------------<p&g

36、t;　　Option1.Value = Dataxues.Recordset.Fields("性別").Value　　If Option1.Value = False Then Option2.Value = True　　------------------------------------------<

37、;p>　　使之和其他數(shù)據(jù)一樣變化下去,最終達到正常。　　五、心得體會　　通過為期一星期的vb課程設計使我對vb這門課程在實際生活中的運用有了很深入的了解，感受到數(shù)據(jù)庫的強大功能使現(xiàn)實的有些工作變得更方便。　　在設計過程中，因為是大一學習的課程對有些知識有些陌生剛開始就覺

38、得這個設計可能難度有些大還有些畏懼。但在老師的提醒回憶中有了希望。在設計中遇到過一些困難，要是以前一遇到困難肯定是第一時間問老師，這次不同這次遇到困難后寫自己找辦法解決除非是正的解決不了了才找老師，在這個尋知的過程中自己將問題解決了感覺十分舒爽。　　本系統(tǒng)的不足是在用戶登錄的權限方面有待改進，應該對編輯用戶和查詢用戶進行權限，這樣可能會更好。<b&

39、gt;　　六、參考文獻　　【1】羅朝盛.Visual Basic 6.0程序設計教程(第3版) [M]. 人民郵電出版社， 　　2009．2　　【2】邵潔..Visual Basic 6.0程序設計（第4版）[M].東南大學出版社，2009.1<

40、;/p>　　邵潔. Visual Basic 6.0 實驗與測試（第4版）.東南大學出版社，2008.2　　七、附錄（源代碼）　　1.主界面（MDI）　　Private Sub DL_Click()<

41、b>　　land.Show　　land.Height = 5500　　land.Width = 7150　　MDIForm1.Height = 6315　　MDIForm1.Width = 8340<

42、;b>　　End Sub　　Private Sub BJ_Click()　　edit.Show　　DL.Enabled = False　　MDIForm1.Height = 6315&

43、lt;p>　　MDIForm1.Width = 8340　　End Sub　　Private Sub CX_Click()　　chaxun.Show　　DL.Enabled = False

44、;　　End Sub　　Private Sub Form_Load()　　MDIForm1.Show　　CX.Enabled = False　　BJ.Enabled = False<b&

45、gt;　　End Sub　　Private Sub MDIForm_Load()　　CX.Enabled = False　　BJ.Enabled = False　　End Sub<p&

46、gt;　　Private Sub TC_Click()　　End　　End Sub　　2.登錄：　　Private Sub Command1_Click()&

47、lt;/p>　　If Text1.Text = "2010" And Text2.Text = "12345" Then　　Load land　　MDIForm1.Show　　MDIForm1.Height

48、= 6315　　MDIForm1.Width = 8340　　MDIForm1.DL.Enabled = False　　MDIForm1.BJ.Enabled = True　　MDIForm1.CX.Enabled = True

49、　Unload land　　Else　　MsgBox "用戶名或密碼錯誤", 1, "密碼錯誤"　　End If　　End Sub<

50、/b>　　Private Sub Command2_Click()　　End　　End Sub　　3.編輯:&

51、lt;b>　　刪除：　　Private Sub Cmdsc_Click()　　Dim i As Integer　　i = MsgBox("確定要刪除此記錄?", vbYesNo + vbExclamation + vbDefaultButton1, "編輯&

52、quot;)　　If i = vbYes Then　　Select Case SSTab1.Tab　　Case 0　　Dataxues.Recordset.Delete　　Dataxues.R

53、efresh　　Case 1　　Datakc.Recordset.Delete　　Datakc.Refresh　　Case 2　　Datacj.Recor

54、dset.Delete　　Datacj.Refresh　　End Select　　End If　　End Sub　　首記錄：</b

55、>　　Private Sub cmdsjl_Click()　　Select Case SSTab1.Tab　　Case 0　　Dataxues.Recordset.MoveFirst&l

56、t;b>　　Case 1　　Datakc.Recordset.MoveFirst　　Case 2　　Datacj.Recordset.MoveFirst　　End Select<

57、p>　　Cmdsjl.Enabled = False　　Cmdsyt.Enabled = False　　cmdwjl.Enabled = True　　Cmdxyt.Enabled = True　　End Sub

58、;　　下一條：　　Private Sub cmdsyt_Click()　　Select Case SSTab1.Tab　　Case 0　　Dataxues.Recordset

59、.MovePrevious　　Option1.Value = Dataxues.Recordset.Fields("性別").Value　　If Option1.Value = False Then Option2.Value = True　　If Dataxues.Recordset.BOF

60、 Then　　Dataxues.Recordset.MoveFirst　　Cmdsjl.Enabled = False　　Cmdsyt.Enabled = False　　Cmdxyt.Enabled = True　　cmdwjl.

61、Enabled = True　　End If　　Case 1　　Datakc.Recordset.MovePrevious　　If datkc.Recordset.BOF Then</p&g

62、t;　　datkc.Recordset.MoveFirst　　Cmdsjl.Enabled = False　　Cmdsyt.Enabled = False　　Cmdxyt.Enabled = True　　cmdwjl.Enabled = True&l

63、t;/p>　　End If　　Case 2　　Datacj.Recordset.MovePrevious　　If Datacj.Recordset.BOF Then

64、Datacj.Recordset.MoveFirst　　cmdyjl.Enabled = False　　Cmdsyt.Enabled = False　　Cmdxyt.Enabled = True　　cmdwjl.Enabled = True<

65、p>　　End If　　End Select　　End Sub　　添加：　　Private Sub Cmdtj_Click()&

66、lt;p>　　Select Case Cmdtj.Caption　　Case "添加"　　Select Case SSTab1.Tab　　Case 0　　Dataxues

67、.Recordset.AddNew　　Case 1　　Datakc.Recordset.AddNew　　Case 2　　Datacj.Recordset.AddNew<

68、;p>　　End Select　　SSTab1.TabEnabled(0) = False　　SSTab1.TabEnabled(1) = False　　SSTab1.TabEnabled(2) = False　　Cmdtj.Caption = "確定&q

69、uot;　　Cmdxg.Enabled = False　　Cmdsc.Enabled = False　　Cmdsjl.Enabled = False　　Cmdsyt.Enabled = False　　Cmdxyt.Enabled

70、= False　　cmdwjl.Enabled = False　　Case "確定"　　Select Case SSTab1.Tab　　Case 0&l

71、t;p>　　Datakc.UpdateRecord　　Case 1　　Datacj.UpdateRecord　　Case 2　　Dataxues.UpdateRecord

72、　　End Select　　SSTab1.TabEnabled(0) = True　　SSTab1.TabEnabled(1) = True　　SSTab1.TabEnabled(2) = True　　Cmdtj.Caption = "添加

73、"　　Cmdxg.Enabled = True　　Cmdsc.Enabled = True　　Cmdsjl.Enabled = True　　Cmdsyt.Enabled = True　　Cmdxyt.Enabled =

74、True　　cmdwjl.Enabled = True　　End Select　　End Sub　　尾記錄：　　Private Sub cmdwjl_Cl

75、ick()　　Select Case SSTab1.Tab　　Case 0　　Dataxues.Recordset.MoveLast　　Case 1　　D

76、atakc.Recordset.MoveLast　　Case 2　　Datacj.Recordset.MoveLast　　End Select　　Cmdsjl.Enabled = True

77、Cmdsyt.Enabled = True　　cmdwjl.Enabled = False　　Cmdxyt.Enabled = False　　End Sub　　修改：<

78、;p>　　Private Sub Cmdxg_Click()　　Select Case Cmdxg.Caption　　Case "修改"　　Select Case SSTab1.Tab　　C

79、ase 0　　Dataxues.Recordset.edit　　Case 1　　Datakc.Recordset.edit　　Case 2<p&g

80、t;　　Datacj.Recordset.edit　　End Select　　SSTab1.TabEnabled(0) = False　　SSTab1.TabEnabled(1) = False　　SSTab1.TabEnabled(2) = False

81、;　　Cmdxg.Caption = "確定"　　Cmdtj.Enabled = False　　Cmdsc.Enabled = False　　Cmdsjl.Enabled = False　　Cmdsyt.Enabled = Fal

82、se　　Cmdxyt.Enabled = False　　cmdwjl.Enabled = False　　Case "確定"　　Select Case SSTab1.Tab&

83、lt;b>　　Case 0　　Dataxues.UpdateRecord　　Case 1　　Datakc.UpdateRecord　　Case 2

84、　　Datacj.UpdateRecord　　End Select　　SSTab1.TabEnabled(0) = True　　SSTab1.TabEnabled(1) = True　　SSTab1.TabEnabled(2) = True</p&

85、gt;　　Cmdxg.Caption = "修改"　　Cmdtj.Enabled = True　　Cmdsc.Enabled = True　　Cmdsjl.Enabled = True　　Cmdsyt.Enabled = True

86、　　Cmdxyt.Enabled = True　　cmdwjl.Enabled = True　　End Select　　End Sub　　下一條：<

87、/p>　　Private Sub cmdxyt_Click()　　Select Case SSTab1.Tab　　Case 0　　Dataxues.Recordset.MoveNext　　Option1.V

88、alue = Dataxues.Recordset.Fields("性別").Value　　If Option1.Value = False Then Option2.Value = True　　If Dataxues.Recordset.EOF Then　　Dataxues.Recordse

89、t.MoveLast　　Cmdsjl.Enabled = True　　Cmdsyt.Enabled = True　　Cmdxyt.Enabled = False　　cmdwjl.Enabled = False

90、End If　　Case 1　　Datakc.Recordset.MoveNext　　If Datakc.Recordset.EOF Then　　Datakc.Recordset.MoveLast

91、;　　Cmdsjl.Enabled = True　　Cmdsyt.Enabled = True　　Cmdxyt.Enabled = False　　cmdwjl.Enabled = False　　End If<

92、;/p>　　Case 2　　Datacj.Recordset.MoveNext　　If Datacj.Recordset.EOF Then　　Datacj.Recordset.MoveLast　　Cmdsj

93、l.Enabled = True　　Cmdsyt.Enabled = True　　Cmdxyt.Enabled = False　　cmdwjl.Enabled = False　　End If

94、　End Select　　End Sub　　數(shù)據(jù)庫連接：　　Private Sub Form_Load()　　If Right(App.Path, 1) = "\" Then&

95、lt;/p>　　Dataxues.DatabaseName = App.Path + "mydb.mdb"　　Else　　Dataxues.DatabaseName = App.Path + "\mydb.mdb"<p&

96、gt;　　End If　　Dataxues.RecordSource = "學生表"　　Dataxues.Refresh　　Option1.Value = Dataxues.Recordset.Fields("性別").Value<

97、;/p>　　Datakc.DatabaseName = Dataxues.DatabaseName　　Datakc.RecordSource = "課程表"　　Datakc.Refresh　　Textkch.DataField = "課程號"&l

98、t;/p>　　Textkcm.DataField = "課程名稱"　　Textxshi.DataField = "學時"　　Textxf.DataField = "學分"　　Datacj.DatabaseName = Data

99、xues.DatabaseName　　Datacj.RecordSource = "成績表"　　Datacj.Refresh　　Textxh2.DataField = "學號"　　Textkch2.DataField = "

100、;課程號"　　Textxm2.DataField = "姓名"　　Textcj.DataField = "成績"　　SSTab1.Tab = 0　　End Sub

101、　　4.查詢：　　取消：　　Private Sub Command2_Click()　　Text(0).Text = ""　　Text(1).Text =

102、""　　End Sub　　連接數(shù)據(jù)庫：　　Private Sub Command1_Click()　　Dim sql As String, fld As String, con

103、dition As String　　fld = "學生表.學號,學生表.姓名,課程表.課程號,成績表.成績,課程表.課程名稱"　　condition = "學生表.學號=成績表.學號 and 課程表.課程號=成績表.課程號 "　　If Op(0).Value Then<

104、;/p>　　condition = condition + "and 學生表.學號='" + Text(0).Text + "'"　　Text(0).Text = ""　　Else<p

105、>　　condition = condition + "and 課程表.課程號='" + Text(1).Text + "'"　　Text(1).Text = ""　　End If　　sql =

106、 "select " + fld + " from 學生表,課程表,成績表 where " + condition　　Adodc1.RecordSource = sql　　Adodc1.Refresh　　End Sub

107、;　　Private Sub Form_Load()　　Adodc1.Visible = False　　Set DataGrid1.DataSource = Adodc1　　DataGrid1.AllowUpdate = False

108、　　End Sub　　Op與text之間的轉換：　　Private Sub Op_Click(Index As Integer)　　Text(Index).SetFocus　　End Sub

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

溫馨提示

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

vb課程設計---學生成績管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

vb課程設計---學生成績管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費下載