VB學生成績管理系統(tǒng)課程設(shè)計報告

1、 I呀Y(jié)ANGTZE UNIVERSITYVB程序設(shè)計課程設(shè)計報告班級：資工10902班姓 名：何睦序 號：05指導老師：劉少華邵燕林王慶陳君華朱小龍目錄1、 課設(shè)的目的 32、 界面設(shè)計和功能設(shè)計 33、 系統(tǒng)功能實施 124、系統(tǒng)功能設(shè)計 195、總結(jié)和體會 28、課設(shè)的目的1. 通過本次課程設(shè)計，提高實踐動手能力；2. 通過本次課程設(shè)計，進一步理解計算機程序設(shè)計的思路與方法；3. 通過本次課程設(shè)計，進一步熟練運用VB的語言元素和流程控制語句；4. 通過本次課程設(shè)計，達到能熟練使用各種常見的VB控件，理解面向?qū)ο蟮乃枷耄?. 通過本次課程設(shè)計，熟悉用戶界面的設(shè)計；6. 通過本次課程設(shè)計，熟

2、悉數(shù)據(jù)訪問控件 ADO及相關(guān)對象的使用，能基于ADC控件實現(xiàn)Access的數(shù)據(jù)訪問與操縱；、界面設(shè)計和功能設(shè)計1、下面的界面為用戶登陸界面:協(xié)朗|秤 卄 m * mitiffII JMItTT T tl t H 巴 丁：序 va ETI t li N111 ni ! BhiiTnjrs用尸容：11用戶名和密碼均已設(shè)定， 用戶名為zg,密碼為10902，只有輸入正確，然后點擊“登陸“按 鈕才能進入主界面。如果用戶名或密碼三次輸入錯誤，則系統(tǒng)自動退出。當你點擊“退出“按鈕時，彈出一個對話窗，界面如下：在對話框上點擊“是”按鈕，則退出系統(tǒng)，如果點擊“否”，則該界面不變。2、當用戶名和密碼均輸入正確，

3、點擊“登陸”按鈕，進入主界面一一“學生成績管理系 統(tǒng)”界面，該界面是其他子界面的入口，界面如下：3、進入主界面后，點擊“學生管理（刪除添加）”，進入學生管理界面，界面如下:該界面上有一個 ADO控件，用于連接數(shù)據(jù)庫，當用戶在六個文本框中輸入數(shù)據(jù)時，點擊“添加“按鈕，可以將數(shù)據(jù)錄入到數(shù)據(jù)庫中，如果此時點擊”刪除“按鈕，則剛才輸入的數(shù) 據(jù)就會被刪除，點擊”保存“按鈕時，輸入的數(shù)據(jù)就會自動保存在數(shù)據(jù)庫里，點擊”返回主 窗體“按鈕，該窗體消失，主窗體出現(xiàn)。4、在主界面點擊“各科成績查詢“按鈕，出現(xiàn)如下界面：w該界面有一個 ADO控件，用來連接數(shù)據(jù)庫，還有一個DataGrid控件，用來顯示學生成績的查詢

4、結(jié)果，當用戶選擇了要查詢的科目和條件后，點擊“查詢“按鈕，在DataGrid控件上就會顯示出所查詢的結(jié)果。下面為輸入條件后查詢的結(jié)果一一5、在主界面點擊姓名查詢按鈕后，會出現(xiàn)如下界面:該界面與上一界面相似，在文本框輸入要查詢的姓名后，點擊查詢按鈕，就會在DataGrid控件上顯示所要查詢的結(jié)果。下面為輸入條件后查詢的結(jié)果一一5、在主界面點擊班級查詢按鈕后，會出現(xiàn)如下界面:在文版框中輸入所要查詢的班級，DataGrid控件上就會顯示所要查詢的結(jié)果。下面為輸入條件后查詢的結(jié)果一一莆輸入班級工口的02查詢31DnaTiccllL-SX：vbtot h1IT2001930醐購灘45BO諒1芻62009

5、01309Kuraoe目575602205200SOI341注立洋95T7052572如剛1湖73&汨23342003U40&曲1D90256G：i190720001660zcsose787-H.2423200903717ZG09(J2的95：；276T1 卜6、在主界面上點擊各科成績段查詢按鈕后，會出現(xiàn)如下界面:點擊“計算分數(shù)段統(tǒng)計“按鈕后，就會出現(xiàn)所要查詢的結(jié)果。下面為查詢的結(jié)果段統(tǒng)計VbEnglish優(yōu)秀人數(shù)良好人數(shù)中等人數(shù)及格人數(shù)不及格人數(shù)計算分數(shù)段統(tǒng)計4卜17、在主界面點擊排名按鈕后，出現(xiàn)如下界面:在該界面上點擊“排名“按鈕后，在DataGrid控件上會顯示出按成績高低排名的結(jié)果，點

6、擊”清除排名“按鈕后，剛才結(jié)果消失，顯示原來結(jié)果。下面為所現(xiàn)實的結(jié)果桃名清除排名310I.：=lThclassenzliEliImatlivbtotalme卜E00401S303901956200901309聶可嶺ZG109026575802205200901341注立洋Z.G10902t：b77yh7220Q9013S4張隹妮ZG1O9O27866Q9Z334200901406吳賽賽ZG10902566074190720090166031 M027a7S86扯3200901717豆盛ZG1O9O29895S32TF1biikH 4 iiUodclk 卜I&在主界面點擊“統(tǒng)計直方圖“按鈕后，出

7、現(xiàn)如下界面:F面為查詢的結(jié)果在該界面點擊各個按鈕后， 就會出現(xiàn)與之相關(guān)科目的成績統(tǒng)計直方圖,9、在主界面點擊“優(yōu)等生“按鈕后，出現(xiàn)如下界面:點擊按鈕查詢后，結(jié)果就會在界面上顯示出來。下面為所查詢的結(jié)果匚回區(qū)I點擊查詢優(yōu)等生二、系統(tǒng)功能實施ADO控件以上展示的是系統(tǒng)的所有界面，怎樣才能讓這所有的功能實現(xiàn)呢？數(shù)據(jù)庫和 的使用便是其中的關(guān)鍵。1、建立如下數(shù)據(jù)庫（學號、姓名、班級、央語、數(shù)學、VB、總分、排名）SC : RffiS (Access00文件格式JSin2WL384 即斶血EIHD I MO. | iglr | HXgliMh I th | 曲 2WttlW0_ 吳雜ZVQOIGf(3W9

8、0I3) 崇確 胡澱竹?5EftHOmi 衽腓抽剛TTZHUKSraE69歸96笳02、建立如下圖的所有界面:n| 1JmJG工土*: on陣貓力叫Vi4 Ml燈J*選曲計j&曲!：a科用 bii&ss 計iSi+H7!rVBMuLIiEnftU ihW A rMRFAK廠屮:rMVAR廠rIklII:3、ADO控件和DataGrid控件以及數(shù)據(jù)庫的連接步驟：(這一步在 設(shè)計界面的同時完成)(1 )、如何加載ADO控件:步驟1：部件辺添加選項卡迦.-討可連接的0)步驟2：揑件|設(shè)計器|可插入對象MdiaLib I, 0 Type Library otarLol：e CAWicrasoft OO

9、 Data CHi35Mi cxflsoft ADO Data Control 6.0 (5PB) (OLEDB) 定位.；C: VniTOOtfSsystem32VMSADOiDC. OH廠只顯示選定項(5)取消應(yīng)用如 |步驟3:各個界面的ADO空件如何連接數(shù)據(jù)庫(分兩步)步驟1：如下面界面中的5個步驟皿 工鈍山洛血 OLE DE hmJu* J 2*k Ihvr鷗0日丁H S】QLE KB衍口五日里egg眄電2理工：1-=蘭空昨二二_ ：冉肋|PrciVLiaf=llicr 6El. Jtl. DLED&. 4. 0, Sw 生肉3、點擊生成 I Adod氐詢|庇用M躺廡|取消附至密IX)

10、確定解助添加選擇Adodcl5.點擊,并選擇|F莽工課設(shè)IVB11程謖計讀理曲jCjwhmJFypi：38ET列遜査比巨韻到舉據(jù)S - 4irmdlJrJcrL-Ti2.庫儷忌用戶容轟iS：i: 両云麗空白克碼 r允許風存空碼比 ,- 皿 一-2 Connec11 onSt i ng屬性-=5* 讓燦二 點擊腦皿Mie步驟2:選中ADO控件Adodcl，點擊鼠標右鍵選擇屬性，然后界面設(shè)置如下:控件綁定數(shù)據(jù)庫的字段操作說明:屬性設(shè)置說明：下面以學號為例，姓名、班級等都可參考此。將學號對應(yīng)的文本框 Textl連接Adodcl顯示數(shù)據(jù)庫中的學號，需要設(shè)置DataSource和DataField 兩個

11、屬性,首先選中Textl文本框，并進行下面的兩步操作，即可綁定數(shù)據(jù)庫的學號字段。設(shè)置 DataSource:二管理 ：-|Text 1XT 1 Ik 二Text2 、Text.1 TextBox悠字母序按分類序I(1W Alignm 販 t Rpp電趙直nc電 chckColorText!0 - L話t Justi y1 3B anBOOOOOOSiText3E orcS tyl eC slus 誤蝕 i dtt i on DatFieTlkDataF ormD&t aM emb er Jk_4o del添加刪除Br ajglcon Dralodt Enabled F ont ForeColo

12、r HeightQ ManualTrue宋體495D ataS Ditrce設(shè)詈一個數(shù)值，指出數(shù)據(jù)控件邇過它將當前控件鄭定到數(shù)據(jù) 庫設(shè)置 DataField:(2 )、如何加載DataGrid控件控件DataGrid，可以實現(xiàn)數(shù)據(jù)的批量處理，該控件在控件庫Microsoft DataGrid Control6.0 中。部卄Help 匚Eiit電 Iff 1.0 Type LibraryMijcrovgfty MicrosoftMi GFOEoftMicrosoftMi eresoftMicrosoftMicroEoftAc BurCod Control 9.0 ABO Data Control

13、 &. 0 (OLEDB) Aftnt Control 2.0Chart Control B.D (QJJEDB)Cerrm Cwitrl 6 0CortAOiA Di si & 君 C ftAtr &1 8= 0 Data Bound Li st Cantrflls 6. Ci dr a sc ft Da.ta.Gri d Cdfilrsl S. 0 (OLEDE JMicrosoft DataLi st Controls 6. 0 (OLEDI icrdtioft DfttiEpktr Control 6. 0 1 Microsoft DOS111曰匕.削S詞廠只顯茅遶定項熾I 確定 I

14、職消應(yīng)用Microsoft Dala&r 1 d Control S. 0 (OLDS)定拉:C: VtflHDOWSVsy tm32MlSDlTGED. OCXdljdtleteFdse從怖曲l電Tr31BtdCilirDUKOMUMB理磴蚣31. - lbgfLXdi.l|XbCipti cdCinriVilLdthw TrwIQDr瞽IrenOne)說明：DataGrid控件屬性設(shè)置鼬血ltdTnw敘tF站機訂北 Ud：O：O：tH辭ifmt魁HitiLlhad!1u” : -i .q-tcc-四、系統(tǒng)功能設(shè)計系統(tǒng)功能的設(shè)計，其核心就是程序代碼的編寫過程，如何讓讓系統(tǒng)更加完善、界面更加友

15、好呢，這就得益于代碼的編寫。以下為各個界面所對應(yīng)的代碼一一該界面代碼如下：Private Sub Comma nd1_Click()If Text1.Text = zg A nd Text2.Text = 10902 Thenmai nfrm.Showdlfrm.HideElseMsgBox 用戶名或密碼錯誤，請重新輸入, vbMsgBoxSetForeground,系統(tǒng)提示！End IfStatic t As In tegert = t + 1If t = 3 Then EndEnd Sub,3 + 32 + 256,系統(tǒng)提示！)Private Sub Comma nd2_Click() a

16、 = MsgBox(確定要退出本系統(tǒng)嗎? If a = 6 The nUn load MeEnd IfEnd Sub該界面代碼如下：Private Sub Comma nd1_Click() xsglfrm.ShowEnd SubPrivate Sub Comma nd10_Click() ydsfrm.ShowEnd SubPrivate Sub Comma nd3_Click()jszffrm.ShowEnd SubPrivate Sub Comma nd4_Click()pmfrm.ShowEnd SubPrivate Sub Comma nd5_Click() zftjtfrm.Sho

17、wEnd SubPrivate Sub Comma nd6_Click() qjcxfrm.ShowEnd SubPrivate Sub Comma nd7_Click() xmcxfrm.ShowEnd SubPrivate Sub Comma nd8_Click() bjcxfrm.ShowEnd SubPrivate Sub Comma nd9_Click() gkcjfrm.ShowEnd Sub該界面代碼如下：Private Sub Comma nd1_Click()Me.Adodc1.Recordset.AddNewEnd SubPrivate Sub Comma nd2_Clic

18、k()If Me.Adodc1.Recordset.RecordCou nt = 0 Or Me.Adodc1.Recordset.EOF ThenExit SubEnd IfMe.Adodc1.Recordset.DeleteMe.Adodc1.Recordset.MoveNextIf Me.Adodc1.Recordset.RecordCou nt = 0 The nExit SubEnd IfIf Me.Adodc1.Recordset.EOF The n Me.Adodc1.Recordset.MoveLastEnd SubPrivate Sub Comma nd4_Click()Me

19、.Adodc1.Recordset.SaveEnd SubPrivate Sub Comma nd5_Click()Un load Memain frm.ShowEnd Sub該界面代碼如下:Dim kc_條件 As StringDim kc As Stri ngPrivate Sub Comma nd1_Click()kc_ 條件=Me.Text1Me.Adodc1.RecordSource = select * from stu where + kc + + kc_Me.Adodcl.RefreshEnd Sub條件Private Sub Form_Load() kc_ 條件=92 kc

20、=vbEnd SubPrivate Sub Optio n1_Click() kc = VBEnd SubPrivate Sub Optio n2_Click() kc = mathEnd SubPrivate Sub Optio n3_Click() kc = En glishEnd Sub2該界面代碼如下:Dim kc_條件 As StringDim kc As Stri ngPrivate Sub Comma nd1_Click()kc_ 條件=Me.Text1Me.Adodc1.RecordSource = select * from stu where + kc + = + kc_

21、條件 +Me.Adodc1.RefreshEnd SubmilPrivate Sub Form_Load() kc = n ameEnd Sub該界面代碼如下：Dim kc_條件 As StringDim kc As Stri ngPrivate Sub Comma nd1_Click()kc_ 條件=Me.Text1milMe.Adodc1.RecordSource = select * from stu where + kc + = + kc_ 條件 +Me.Adodc1.RefreshEnd SubPrivate Sub Form_Load()kc = classEnd Sub該界面代碼

22、如下：Private Sub Comma nd1_Click()Dim vb_A As In tegerDim vb_B As In tegerDim vb_C As In tegerDim vb_D As In tegerDim vb_E As In tegerDim Math_A As In tegerDim Math_B As In tegerDim Math_C As In tegerDim Math_D As In tegerDim Math_E As In tegerDim En glish_A As In tegerDim En glish_B As In tegerDim En

23、 glish_C As In tegerDim En glish_D As In tegerDim En glish_E As In tegerMe.Adodc1.RecordSource = select * from stu where vb=90Me.AdodcI.Refreshvb_A = Me.Adodcl.Recordset.RecordCou ntMe.Textl = vb_AMe.Adodcl.RecordSource = select * from stu where vb=80 and vb=70 and vb=60Me.Adodc1.Refreshvb_D = Me.Ad

24、odc1.Recordset.RecordCountMe.Text4 = vb_DMe.Adodc1.RecordSource = select * from stu where vb=90Me.Adodc1.RefreshMath_A = Me.Adodc1.Recordset.RecordCountMe.Text6 = Math_AMe.Adodc1.RecordSource = select * from stu where math=80 and math=70 and math=60 Me.Adodc1.RefreshMath_D = Me.Adodc1.Recordset.Reco

25、rdCountMe.Text9 = Math_DMe.Adodc1.RecordSource = select * from stu where math=90 Me.Adodc1.RefreshEnglish_A = Me.Adodc1.Recordset.RecordCountMe.Text11 = English_AMe.Adodc1.RecordSource = select * from stu where english=80 and english=70 and english=60 Me.Adodc1.RefreshEnglish_D = Me.Adodc1.Recordset

26、.RecordCountMe.Text14 = En glish_DMe.AdodcI.RecordSource = select * from stu where en glish=90) or(math+e nglish+vb)/3=85 and(math=100 oren glish=100orvb=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=60 and english=60 and math=60)Me.Adodc1.RefreshEnd Sub五、總結(jié)和體會想來，當時那會兒聽說要搞vb課程設(shè)計的時候，我可是相當激動啊，心想，學的東西終于可以用一用了。并且這次的Vb課程設(shè)計要持續(xù)兩周的時間，主要是用vb+access相關(guān)的知識來實現(xiàn)學生成績和信息的管理。這對于我們這種初次接觸這種東西的人來說，還真是有難度，如果不是老師給了我們足夠的模板和樣例，我想我還真一時半會兒，不知道從哪里下手，好在功夫不負有心人，經(jīng)過幾天時間的摸索和操作，這個學生