【正文】 用 Data 屬性向 MSChart 數(shù)據(jù)網(wǎng)格填充數(shù)據(jù) = Val((math).Value) = (name).Value Next lngI = Math 成績(jī)直方圖 End Sub 該界面代碼如下 Private Sub Command1_Click() Dim vb As Integer Dim math As Integer Dim english As Integer = select * from stu where ((math+english+vb)/3=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=3) and (vb=60 and english=60 and math=60) End Sub 五、總結(jié)和體會(huì) 想來(lái)，當(dāng)時(shí)那會(huì)兒聽(tīng)說(shuō)要搞 vb 課程設(shè)計(jì)的時(shí)候，我可是相當(dāng)激動(dòng)啊，心想，學(xué)的東西終于可以用一用了。 下面為輸入條件后查詢(xún)的結(jié)果 —— 在主界面上點(diǎn)擊“各科成績(jī)段查詢(xún)“按鈕后，會(huì)出現(xiàn)如下界面： 點(diǎn)擊“計(jì)算分?jǐn)?shù)段統(tǒng)計(jì)“按鈕后，就會(huì)出現(xiàn)所要查詢(xún)的結(jié)果。 下面為查詢(xún)的結(jié)果 —— 在主界面點(diǎn)擊“排名“按鈕后，出現(xiàn)如下界面： 在該界面上點(diǎn)擊 “排名“按鈕后， 在 DataGrid 控件上會(huì)顯示出按成績(jī)高低排名的結(jié)果，點(diǎn)擊”清除排名“按鈕后，剛才結(jié)果消失，顯示原來(lái)結(jié)果。并且這次的 Vb 課程設(shè)計(jì)要持續(xù)兩周的時(shí)間，主要是用 vb+access 相關(guān)的知識(shí)來(lái)實(shí)現(xiàn)學(xué)生成績(jī)和信息的管理。填充表格數(shù)據(jù) = 1 = For lngI = 1 To = lngI 39。 下面為輸入條件后查詢(xún)的結(jié)果 —— 在主界面點(diǎn)擊“班級(jí)查詢(xún)“按鈕后，會(huì)出現(xiàn)如下界面： 在文版框中輸入所要查詢(xún)的班級(jí)， DataGrid 控件上就會(huì)顯示所要查詢(xún)的結(jié)果。 下面為所現(xiàn)實(shí)的結(jié)果 —— 在主界面點(diǎn)擊“統(tǒng)計(jì)直方圖“按鈕后，出現(xiàn)如下界面： 在該界面點(diǎn)擊各個(gè)按鈕后，就會(huì)出現(xiàn)與之相關(guān)科目的成績(jī)統(tǒng)計(jì)直方圖 ，下面為查詢(xún)的結(jié)果 —— 在主界面點(diǎn)擊“優(yōu)等生“按鈕后，出現(xiàn)如下界面： 點(diǎn)擊按鈕查詢(xún)后，結(jié)果就會(huì)在界面上顯示出來(lái)。這對(duì)于我們這種初次接觸這種東西的人來(lái)說(shuō)，還真是有難度，如果不是老 師給了我們足夠的模板和樣例，我想我還真一時(shí)半會(huì)兒，不知道從哪里下手，好在功夫不負(fù)有心人，經(jīng)過(guò)幾天時(shí)間的摸索和操作，這個(gè)學(xué)生成績(jī)管理系統(tǒng)的雛形終于是出現(xiàn)了，雖說(shuō)功能不太完善，但還是能滿(mǎn)足基本要求，這讓我很是欣慰。用 Data 屬性向 MSChart 數(shù)據(jù)網(wǎng)格填充數(shù)據(jù) = Val((vb).Value) = (name).Value Next lngI = VB 成績(jī)直方圖 End Sub Private Sub Command2_Click() 39。 下面為輸入條件后查詢(xún)的結(jié)果 —— 在主界面點(diǎn)擊“姓名查詢(xún)“按鈕后，會(huì)出現(xiàn)如下界面： 該界面與上一界面相似，在文本框輸 入要查詢(xún)的姓名后，點(diǎn)擊“查詢(xún)“按鈕，就會(huì)在 DataGrid控件上顯示所要查詢(xún)的結(jié)果。 下面為所查詢(xún)的結(jié)果 —— 三、系統(tǒng)功能實(shí)施 以上展示的是系統(tǒng)的所有界面，怎樣才能讓這所有的功能實(shí)現(xiàn)呢？數(shù) 據(jù)庫(kù)和 ADO 控件的使用便是其中的關(guān)鍵。 兩周的時(shí)間并不長(zhǎng)，一晃就到了，課程設(shè)計(jì)也要畫(huà)上句號(hào)了。填充表格數(shù)據(jù)