vb學(xué)生成績管理系統(tǒng)課程設(shè)計(jì)報(bào)告

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

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

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

文檔簡介

1、　　VB程序設(shè)計(jì)　　課程設(shè)計(jì)報(bào)告　　班級： 　　姓名： 　　序

2、號： 　　指導(dǎo)老師： 　　目錄　　1、課設(shè)的目的3　　2、界面設(shè)計(jì)和功能設(shè)計(jì)3　　3、

3、系統(tǒng)功能實(shí)施12　　4、系統(tǒng)功能設(shè)計(jì)19　　5、總結(jié)和體會28　　一、課設(shè)的目的　　1.通過本次課程設(shè)計(jì)，提高實(shí)踐動手能力；　　2.通過本次課程設(shè)計(jì)，進(jìn)一步理解計(jì)算機(jī)程序設(shè)計(jì)的思路與方法

4、；　　3.通過本次課程設(shè)計(jì)，進(jìn)一步熟練運(yùn)用VB的語言元素和流程控制語句；　　4.通過本次課程設(shè)計(jì)，達(dá)到能熟練使用各種常見的VB控件，理解面向?qū)ο蟮乃枷耄?lt;/p>　　5.通過本次課程設(shè)計(jì)，熟悉用戶界面的設(shè)計(jì)；　　6.通過本次課程設(shè)計(jì)，熟悉數(shù)據(jù)訪問控件ADO及相關(guān)對象的使用，能基于A

5、DO控件實(shí)現(xiàn)Access的數(shù)據(jù)訪問與操縱； 　　二、界面設(shè)計(jì)和功能設(shè)計(jì)　　1、下面的界面為用戶登陸界面：　　用戶名和密碼均已設(shè)定，用戶名為zg，密碼為10902，只有輸入正確，然后點(diǎn)擊“登陸“按鈕才能進(jìn)入主界面。如果用戶名或密碼三次輸入錯誤，則系統(tǒng)自動退出。當(dāng)你點(diǎn)擊“退出“按鈕時，彈出一個對話窗，界面如下：&

6、lt;/p>　　在對話框上點(diǎn)擊“是”按鈕，則退出系統(tǒng)，如果點(diǎn)擊“否”，則該界面不變。　　2、當(dāng)用戶名和密碼均輸入正確，點(diǎn)擊“登陸”按鈕，進(jìn)入主界面——“學(xué)生成績管理系統(tǒng)”界面，該界面是其他子界面的入口，界面如下：　　3、進(jìn)入主界面后，點(diǎn)擊“學(xué)生管理（刪除\添加）”，進(jìn)入學(xué)生管理界面，界面如下：<p

7、>　　該界面上有一個ADO控件，用于連接數(shù)據(jù)庫，當(dāng)用戶在六個文本框中輸入數(shù)據(jù)時，點(diǎn)擊“添加“按鈕，可以將數(shù)據(jù)錄入到數(shù)據(jù)庫中，如果此時點(diǎn)擊”刪除“按鈕，則剛才輸入的數(shù)據(jù)就會被刪除，點(diǎn)擊”保存“按鈕時，輸入的數(shù)據(jù)就會自動保存在數(shù)據(jù)庫里，點(diǎn)擊”返回主窗體“按鈕，該窗體消失，主窗體出現(xiàn)。　　4、在主界面點(diǎn)擊“各科成績查詢“按鈕，出現(xiàn)如下界面：　　該界面有一

8、個ADO控件，用來連接數(shù)據(jù)庫，還有一個DataGrid控件，用來顯示學(xué)生成績的查詢結(jié)果，當(dāng)用戶選擇了要查詢的科目和條件后，點(diǎn)擊“查詢“按鈕，在DataGrid控件上就會顯示出所查詢的結(jié)果。下面為輸入條件后查詢的結(jié)果——　　5、在主界面點(diǎn)擊“姓名查詢“按鈕后，會出現(xiàn)如下界面：　　該界面與上一界面相似，在文本框輸入要查詢的姓名后，點(diǎn)擊“查詢“按鈕，就會在Da

9、taGrid控件上顯示所要查詢的結(jié)果。下面為輸入條件后查詢的結(jié)果——　　5、在主界面點(diǎn)擊“班級查詢“按鈕后，會出現(xiàn)如下界面：　　在文版框中輸入所要查詢的班級，DataGrid控件上就會顯示所要查詢的結(jié)果。下面為輸入條件后查詢的結(jié)果——　　6、在主界面上點(diǎn)擊“各科成績段查詢“按鈕后，會出現(xiàn)如下界面：</p&g

10、t;　　點(diǎn)擊“計(jì)算分?jǐn)?shù)段統(tǒng)計(jì)“按鈕后，就會出現(xiàn)所要查詢的結(jié)果。下面為查詢的結(jié)果——　　7、在主界面點(diǎn)擊“排名“按鈕后，出現(xiàn)如下界面：　　在該界面上點(diǎn)擊“排名“按鈕后，在DataGrid控件上會顯示出按成績高低排名的結(jié)果，點(diǎn)擊”清除排名“按鈕后，剛才結(jié)果消失，顯示原來結(jié)果。下面為所現(xiàn)實(shí)的結(jié)果——

11、;　　8、在主界面點(diǎn)擊“統(tǒng)計(jì)直方圖“按鈕后，出現(xiàn)如下界面：　　在該界面點(diǎn)擊各個按鈕后，就會出現(xiàn)與之相關(guān)科目的成績統(tǒng)計(jì)直方圖，下面為查詢的結(jié)果——　　9、在主界面點(diǎn)擊“優(yōu)等生“按鈕后，出現(xiàn)如下界面：　　點(diǎn)擊按鈕查詢后，結(jié)果就會在界面上顯示出來。下面為所查詢的結(jié)果——<

12、b>　　三、系統(tǒng)功能實(shí)施　　以上展示的是系統(tǒng)的所有界面，怎樣才能讓這所有的功能實(shí)現(xiàn)呢？數(shù)據(jù)庫和ADO控件的使用便是其中的關(guān)鍵。　　1、建立如下數(shù)據(jù)庫　　(學(xué)號、姓名、班級、英語、數(shù)學(xué)、VB、總分、排名)　　2

13、、建立如下圖的所有界面：　　3、ADO控件和DataGrid控件以及數(shù)據(jù)庫的連接步驟：（這一步在設(shè)計(jì)界面的同時完成）　　（1）、如何加載ADO控件：　　步驟1：　　步驟2：

14、　　步驟3：　　各個界面的ADO控件如何連接數(shù)據(jù)庫（分兩步）：　　步驟1：　　如下面界面中的5個步驟　　步驟2：&l

15、t;p>　　選中ADO控件Adodc1，點(diǎn)擊鼠標(biāo)右鍵選擇屬性，然后界面設(shè)置如下：　　控件綁定數(shù)據(jù)庫的字段操作說明：　　屬性設(shè)置說明：下面以學(xué)號為例，姓名、班級等都可參考此。將學(xué)號對應(yīng)的文本框Text1連接Adodc1顯示數(shù)據(jù)庫中的學(xué)號，需要設(shè)置DataSource和DataField兩個屬性,首先選中Text1文本框，并進(jìn)行下面的兩步操作，即可綁定

16、數(shù)據(jù)庫的學(xué)號字段。　　設(shè)置DataSource:　　設(shè)置DataField:　?。?）、如何加載DataGrid控件　　控件DataGrid，可以實(shí)現(xiàn)數(shù)據(jù)的批量處理，該控件在控件庫Microsoft DataGrid Control 6.0中。&l

17、t;p>　　說明：DataGrid控件屬性設(shè)置　　四、系統(tǒng)功能設(shè)計(jì)　　系統(tǒng)功能的設(shè)計(jì)，其核心就是程序代碼的編寫過程，如何讓讓系統(tǒng)更加完善、界面更加友好呢，這就得益于代碼的編寫。以下為各個界面所對應(yīng)的代碼——　　該界面代碼如下：<

18、;/p>　　Private Sub Command1_Click()　　If Text1.Text = "zg" And Text2.Text = "10902" Then　　mainfrm.Show　　dlfrm.Hide

19、　　Else　　MsgBox "用戶名或密碼錯誤,請重新輸入", vbMsgBoxSetForeground, "系統(tǒng)提示！！"　　End If　　Static t As Int

20、eger　　t = t + 1　　If t >= 3 Then End　　End Sub　　Private Sub Command2_Click()

21、　　a = MsgBox("確定要退出本系統(tǒng)嗎？", 3 + 32 + 256, "系統(tǒng)提示?。?quot;)　　If a = 6 Then　　Unload Me　　End If<

22、;p>　　End Sub　　該界面代碼如下： 　　Private Sub Command1_Click()　　xsglfrm.Show　　End Sub

23、　　Private Sub Command10_Click()　　ydsfrm.Show　　End Sub　　Private Sub Command3_Click()　　jszffrm.Sho

24、w　　End Sub　　Private Sub Command4_Click()　　pmfrm.Show　　End Sub　　Private Sub Co

25、mmand5_Click()　　zftjtfrm.Show　　End Sub　　Private Sub Command6_Click()　　cjcxfrm.Show　　End

26、 Sub　　Private Sub Command7_Click()　　xmcxfrm.Show　　End Sub　　Private Sub Command8_Click()

27、;　　bjcxfrm.Show　　End Sub　　Private Sub Command9_Click()　　gkcjfrm.Show　　End Sub

28、　　該界面代碼如下：　　Private Sub Command1_Click()　　Me.Adodc1.Recordset.AddNew　　End Sub　　Private Sub Command

29、2_Click()　　If Me.Adodc1.Recordset.RecordCount = 0 Or Me.Adodc1.Recordset.EOF Then　　Exit Sub　　End If

30、;　　Me.Adodc1.Recordset.Delete　　Me.Adodc1.Recordset.MoveNext　　If Me.Adodc1.Recordset.RecordCount = 0 Then　　Exit Sub<

31、;b>　　End If　　If Me.Adodc1.Recordset.EOF Then Me.Adodc1.Recordset.MoveLast　　End Sub　　Private Sub Command4_Click()&

32、lt;p>　　Me.Adodc1.Recordset.Save　　End Sub　　Private Sub Command5_Click()　　Unload Me　　mainfrm.Show

33、　　End Sub　　該界面代碼如下：　　Dim kc_條件 As String　　Dim kc As String　　Private Sub Comma

34、nd1_Click()　　kc_條件 = Me.Text1　　Me.Adodc1.RecordSource = "select * from stu where " + kc + " " + kc_條件　　Me.Adodc1.Refresh<p

35、>　　End Sub　　Private Sub Form_Load()　　kc_條件 = ">=92"　　kc = "vb"

36、　End Sub　　Private Sub Option1_Click()　　kc = "VB"　　End Sub　　Private Sub Option2

37、_Click()　　kc = "math"　　End Sub　　Private Sub Option3_Click()　　kc = "English"&

38、lt;b>　　End Sub　　該界面代碼如下：　　Dim kc_條件 As String　　Dim kc As String　　Private Sub Command1_Click()

39、　　kc_條件 = Me.Text1　　Me.Adodc1.RecordSource = "select * from stu where " + kc + "='" + kc_條件 + "'"　　Me.Adodc1.Refresh&l

40、t;p>　　End Sub　　Private Sub Form_Load()　　kc = "name"　　End Sub　　該界面代碼如下：</b

41、>　　Dim kc_條件 As String　　Dim kc As String　　Private Sub Command1_Click()　　kc_條件 = Me.Text1　　Me.Adodc1.RecordSource

42、 = "select * from stu where " + kc + "='" + kc_條件 + "'"　　Me.Adodc1.Refresh　　End Sub　　Private Sub For

43、m_Load()　　kc = "class"　　End Sub　　該界面代碼如下：　　Private Sub Command1_Click()<p

44、>　　Dim vb_A As Integer　　Dim vb_B As Integer　　Dim vb_C As Integer　　Dim vb_D As Integer　　Dim vb_E As Integer　　Dim

45、Math_A As Integer　　Dim Math_B As Integer　　Dim Math_C As Integer　　Dim Math_D As Integer　　Dim Math_E As Integer　　Dim

46、English_A As Integer　　Dim English_B As Integer　　Dim English_C As Integer　　Dim English_D As Integer　　Dim English_E As Integer

47、　　Me.Adodc1.RecordSource = "select * from stu where vb>=90"　　Me.Adodc1.Refresh　　vb_A = Me.Adodc1.Recordset.RecordCount　　Me.Text1 = vb_A

48、　　Me.Adodc1.RecordSource = "select * from stu where vb>=80 and vb<90"　　Me.Adodc1.Refresh　　vb_B = Me.Adodc1.Recordset.RecordCount&

49、lt;p>　　Me.Text2 = vb_B　　Me.Adodc1.RecordSource = "select * from stu where vb>=70 and vb<80"　　Me.Adodc1.Refresh　　vb_C = Me.Adodc1.Recordset

50、.RecordCount　　Me.Text3 = vb_C　　Me.Adodc1.RecordSource = "select * from stu where vb>=60"　　Me.Adodc1.Refresh　　vb_D = Me.Adod

51、c1.Recordset.RecordCount　　Me.Text4 = vb_D　　Me.Adodc1.RecordSource = "select * from stu where vb<60"　　Me.Adodc1.Refresh　　vb_

52、B = Me.Adodc1.Recordset.RecordCount　　Me.Text5 = vb_E　　Me.Adodc1.RecordSource = "select * from stu where math>=90"　　Me.Adodc1.Refresh

53、　　Math_A = Me.Adodc1.Recordset.RecordCount　　Me.Text6 = Math_A　　Me.Adodc1.RecordSource = "select * from stu where math>=80 and math<90"<p&g

54、t;　　Me.Adodc1.Refresh　　Math_B = Me.Adodc1.Recordset.RecordCount　　Me.Text7 = Math_B　　Me.Adodc1.RecordSource = "select * from stu where math>=70 and ma

55、th<80"　　Me.Adodc1.Refresh　　Math_C = Me.Adodc1.Recordset.RecordCount　　Me.Text8 = Math_C　　Me.Adodc1.RecordSource = "select *

56、from stu where math>=60 "　　Me.Adodc1.Refresh　　Math_D = Me.Adodc1.Recordset.RecordCount　　Me.Text9 = Math_D　　Me.Adodc1.RecordSourc

57、e = "select * from stu where math<60"　　Me.Adodc1.Refresh　　Math_E = Me.Adodc1.Recordset.RecordCount　　Me.Text10 = Math_E　　Me.

58、Adodc1.RecordSource = "select * from stu where english>=90"　　Me.Adodc1.Refresh　　English_A = Me.Adodc1.Recordset.RecordCount　　Me.Text11 = English

59、_A　　Me.Adodc1.RecordSource = "select * from stu where english>=80 and english<90"　　Me.Adodc1.Refresh　　English_B = Me.Adodc1.Recordset.RecordC

60、ount　　Me.Text12 = English_B　　Me.Adodc1.RecordSource = "select * from stu where english>=70 and english<80"　　Me.Adodc1.Refresh<

61、p>　　English_C = Me.Adodc1.Recordset.RecordCount　　Me.Text13 = English_C　　Me.Adodc1.RecordSource = "select * from stu where english>=60"　　Me.Ad

62、odc1.Refresh　　English_D = Me.Adodc1.Recordset.RecordCount　　Me.Text14 = English_D　　Me.Adodc1.RecordSource = "select * from stu where english<60"&

63、lt;/p>　　Me.Adodc1.Refresh　　English_E = Me.Adodc1.Recordset.RecordCount　　Me.Text15 = English_E　　End Sub

64、　Private Sub Form_Load()　　Text1.Text = ""　　Text2.Text = ""　　Text3.Text = ""　　Text4.Text = ""<

65、/p>　　Text5.Text = ""　　Text6.Text = ""　　Text7.Text = ""　　Text8.Text = ""　　Text10.Te

66、xt = ""　　Text11.Text = ""　　Text12.Text = ""　　Text13.Text = ""　　Text14.Text = ""</p&

67、gt;　　Text15.Text = ""　　End Sub　　該界面代碼如下：　　Private Sub Command1_Click()　　Me.Ad

68、odc1.RecordSource = "select * from stu order by total desc"　　Me.Adodc1.Refresh　　Me.Adodc1.Recordset.MoveFirst　　For i = 1 To Me.Adodc1.Recordset.Rec

69、ordCount　　Me.Adodc1.Recordset.Fields("mc").Value = i　　Me.Adodc1.Recordset.Update　　Me.Adodc1.Recordset.MoveNext　　Next

70、i　　End Sub　　Private Sub Command2_Click()　　Me.Adodc1.Recordset.MoveFirst　　For i = 1 To Me.Adodc1.Recordset.R

71、ecordCount　　Me.Adodc1.Recordset.Fields("mc").Value = Null　　Me.Adodc1.Recordset.Update　　Me.Adodc1.Recordset.MoveNext

72、Next i　　End Sub　　該界面代碼如下：　　Private Sub Command1_Click()　　Me.Adodc1.Refresh&l

73、t;p>　　'填充表格數(shù)據(jù)　　MSChart1.RowCount = 1　　MSChart1.ColumnCount = Me.Adodc1.Recordset.RecordCount　　Me.Adodc1.Recordset.MoveFirst</p&g

74、t;　　For lngI = 1 To Me.Adodc1.Recordset.RecordCount　　MSChart1.Column = lngI　　'用Data屬性向MSChart數(shù)據(jù)網(wǎng)格填充數(shù)據(jù)　　MSChart1.Data = Val(Adodc1.Recordset.Fi

75、elds("vb").Value)　　MSChart1.ColumnLabel = Adodc1.Recordset.Fields("name").Value　　Adodc1.Recordset.MoveNext　　Next lngI&

76、lt;/p>　　MSChart1.RowLabel = "VB成績直方圖"　　End Sub　　Private Sub Command2_Click()　　Me.Adodc1.Refresh<p&g

77、t;　　'填充表格數(shù)據(jù)　　MSChart1.RowCount = 1　　MSChart1.ColumnCount = Me.Adodc1.Recordset.RecordCount　　Me.Adodc1.Recordset.MoveFirst&

78、lt;p>　　For lngI = 1 To Me.Adodc1.Recordset.RecordCount　　MSChart1.Column = lngI　　'用Data屬性向MSChart數(shù)據(jù)網(wǎng)格填充數(shù)據(jù)　　MSChart1.Data = Val(Adodc1.Recordset.Fields(

79、"math").Value)　　MSChart1.ColumnLabel = Adodc1.Recordset.Fields("name").Value　　Adodc1.Recordset.MoveNext　　Next lngI<

80、/p>　　MSChart1.RowLabel = "Math成績直方圖"　　End Sub　　該界面代碼如下　　Private Sub Command1_Click()

81、　　Dim vb As Integer　　Dim math As Integer　　Dim english As Integer　　Me.Adodc1.RecordSource = "select * from stu where ((math+english+vb)/3>=

82、90) or((math+english+vb)/3>=85 and (math=100 or english=100 or vb=100 ))or((vb+english+math)/3>=85 and ((vb>=95 and english >=95)or (english>=95 and math>=95)or ( math>=95 and vb>=95 )))and (mc&l

83、t;=3) and (vb>=60 and english>=60 and math>=60)"　　Me.Adodc1.Refresh　　End Sub　　五、總結(jié)和體會

84、;　　想來，當(dāng)時那會兒聽說要搞vb課程設(shè)計(jì)的時候，我可是相當(dāng)激動啊，心想，學(xué)的東西終于可以用一用了。并且這次的Vb課程設(shè)計(jì)要持續(xù)兩周的時間，主要是用vb+access相關(guān)的知識來實(shí)現(xiàn)學(xué)生成績和信息的管理。這對于我們這種初次接觸這種東西的人來說，還真是有難度，如果不是老師給了我們足夠的模板和樣例，我想我還真一時半會兒，不知道從哪里下手，好在功夫不負(fù)有心人，經(jīng)過幾天時間的摸索和操作，這個學(xué)生成績管理系統(tǒng)的雛形終于是出現(xiàn)了，雖說功能不太完善，

85、但還是能滿足基本要求，這讓我很是欣慰。　　兩周的時間并不長，一晃就到了，課程設(shè)計(jì)也要畫上句號了。在這一段時間里里，不能說我的vb編程能力有了多么大的提高，多么大的飛躍，但我敢說我對vb和數(shù)據(jù)庫相關(guān)的知識有了更加深刻的了解和體會，總結(jié)起來主要有以下幾點(diǎn)：　　1、想要用vb做出好的東西來，一定要勤動手，不能光看，因?yàn)楹枚噱e誤憑看是看不出來的，只有通過自己不斷

86、的操作和修改，才能對vb的語法結(jié)構(gòu)和流程有自己獨(dú)到的理解；　　2、在編程和調(diào)試的過程中，總會出現(xiàn)一些意想不到的問題。我發(fā)現(xiàn)并不是每一個問題都能從資料中得到解決方法，有些問題是無法預(yù)料的，這個時候就得靠自己去分析了，你必須得非常的細(xì)心，一步一步的進(jìn)行調(diào)試和修改，而且不能急，往往有的錯誤就是在你急躁的時候從你眼皮底下溜過去的，這樣又得重新檢查，到頭來，既費(fèi)時又費(fèi)力，實(shí)在不行，還可以和同學(xué)一起進(jìn)行討論

87、；　　3、在寫代碼的時候，一定要養(yǎng)成良好的語法習(xí)慣，對窗體和控件的name屬性和caption屬性，要盡量習(xí)慣用相對應(yīng)的英文單詞的縮寫或簡寫，因?yàn)檫@樣便于自己的查找和修改，還有就是在寫代碼的時候，不要圖簡單，一些語法結(jié)構(gòu)總是不寫全，老是用最簡單的形式，如果你對vb語法結(jié)構(gòu)很熟的話，這沒問題，但對于我們這樣的初學(xué)者來說，一定不要這樣，因?yàn)闀r間長了的話，對一些復(fù)雜一點(diǎn)的程序理解起來會很吃力的，而且對

88、其的運(yùn)行過程的了解不能達(dá)到透徹；　　4、在數(shù)據(jù)庫的操作部分，一定檢驗(yàn)一下數(shù)據(jù)源的連接成功與否，還有就是在控件與數(shù)據(jù)庫連接的時候，不要忘了每個控件的datasource屬性和datafield屬性，要確保其于數(shù)據(jù)庫的成功連接。　　經(jīng)過本次的vb課程設(shè)計(jì)，讓我對vb的軟件開發(fā)流程，整體籌劃發(fā)面有了一定的了解和提高，雖說我的專業(yè)并不是計(jì)算機(jī)或者軟件工程相關(guān)的專

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

溫馨提示

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)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

vb學(xué)生成績管理系統(tǒng)課程設(shè)計(jì)報(bào)告

文檔簡介

溫馨提示

最新文檔

評論

vb學(xué)生成績管理系統(tǒng)課程設(shè)計(jì)報(bào)告

文檔簡介

溫馨提示

最新文檔

評論

免費(fèi)下載