【正文】 While Not ((0)) Loop = ” End Sub 信息查詢主要是對學(xué)生的基本信息和學(xué)生的成績進(jìn)行查詢。因此，比較適合于采用數(shù)據(jù)庫管理。C語言程序設(shè)計(jì)及相應(yīng)的開發(fā)環(huán)境。Keywords: visual basic，Student result management the system，database, enquiries第一章 引言在高科技不斷發(fā)展的今天，計(jì)算機(jī)技術(shù)己經(jīng)廣泛應(yīng)用到社會的各個領(lǐng)域。而且大大提高了動手的能力，使我充分體會到了在創(chuàng)造過程中探索的艱難和成功時(shí)的喜悅。用Data屬性向MSChart數(shù)據(jù)網(wǎng)格填充數(shù)據(jù) = Val((”math“).Value) = (”name“).ValueNext lngI = ”Math成績直方圖“ 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=60 and english=60 and math=60) End Sub四、總結(jié)和體會經(jīng)過好幾天的努力我的課程設(shè)計(jì)終于完成了?！? End SubPrivate Sub Form_Load()kc = “name” End Sub該界面代碼如下： Dim kc_條件 As String Dim kc As String Private Sub Command1_Click()kc_條件 = = “select * from stu where ” + kc + “=39。下面為查詢的結(jié)果——在主界面點(diǎn)擊“計(jì)算總分“按鈕后，出現(xiàn)如下界面：點(diǎn)擊“清除總分”按鈕后，出現(xiàn)如下界面在主界面點(diǎn)擊“排名“按鈕后，出現(xiàn)如下界面：在該界面上點(diǎn)擊“排名“按鈕后，在DataGrid控件上會顯示出按成績高低排名的結(jié)果，點(diǎn)擊”清除排名“按鈕后，剛才結(jié)果消失，顯示原來結(jié)果。第二篇：VB學(xué)生成績管理系統(tǒng)課程設(shè)計(jì)報(bào)告VB程序設(shè)計(jì) 課程設(shè)計(jì)報(bào)告班 級：***** 姓 名：***** 序 號：***** 指導(dǎo)老師：*****目錄課設(shè)的目的..............................................................................................................................2界面設(shè)計(jì)和功能設(shè)計(jì)............................................................................................................2系統(tǒng)功能實(shí)施...................................................................................................................11總結(jié)........................................................................................................................................30一、課設(shè)的目的，熟悉用戶界面的設(shè)計(jì)，進(jìn)一步理解計(jì)算機(jī)程序設(shè)計(jì)的思路與方法，達(dá)到能熟練使用各種常見的VB控件，理解面向?qū)ο蟮乃枷?，我們進(jìn)一步熟練運(yùn)用VB的語言元素和流程控制語句，熟悉數(shù)據(jù)訪問控件ADO及相關(guān)對象的使用，能基于ADO控件實(shí)現(xiàn)Access的數(shù)據(jù)訪問與操縱二、界面設(shè)計(jì)和功能設(shè)計(jì)下面的界面為用戶登陸界面：用戶名和密碼均已設(shè)定，用戶名為zgzy，密碼為11201，只有輸入正確，然后點(diǎn)擊“登陸“按鈕才能進(jìn)入主界面。填充表格數(shù)據(jù) = 1 = For lngI = 1 To = lngI39。說明：DataGrid控件屬性設(shè)置四、系統(tǒng)功能設(shè)計(jì)系統(tǒng)功能的設(shè)計(jì)，其核心就是程序代碼的編寫過程，如何讓讓系統(tǒng)更加完善、界面更加友好呢，這就得益于代碼的編寫。下面為輸入條件后查詢的結(jié)果——在主界面點(diǎn)擊“班級查詢“按鈕后，會出現(xiàn)如下界面：在文版框中輸入所要查詢的班級，DataGrid控件上就會顯示所要查詢的結(jié)果。如果用戶名或密碼三次輸入錯誤，則系統(tǒng)自動退出。下面為所現(xiàn)實(shí)的結(jié)果——在主界面點(diǎn)擊“統(tǒng)計(jì)直方圖“按鈕后，出現(xiàn)如下界面：在該界面點(diǎn)擊各個按鈕后，就會出現(xiàn)與之相關(guān)科目的成績統(tǒng)計(jì)直方圖，下面為查詢的結(jié)果——在主界面點(diǎn)擊“優(yōu)等生“按鈕后，出現(xiàn)如下界面：點(diǎn)擊按鈕查詢后，結(jié)果就會在界面上顯示出來?！? End SubPrivate Sub Form_Load()kc = “name” End Sub該界面代碼如下： Dim kc_條件 As String Dim kc As String Private Sub Command1_Click()kc_條件 = = “select * from stu where ” + kc + “=39。這對于我們這種初次接觸這種東西的人來說，還真是有難度，如果不是老師給了我們足夠的模板和樣例，我想我還真一時(shí)半會兒，不知道從哪里下手，好在功夫不負(fù)有心人，經(jīng)過幾天時(shí)間的摸索和操作，這個學(xué)生成績管理系統(tǒng)的雛形終于是出現(xiàn)了，雖說功能不太完善，但還是能滿足基本要求，這讓我很是欣慰。當(dāng)用戶名和密碼均輸入正確，點(diǎn)擊“登陸”按鈕，進(jìn)入主界面——“學(xué)生成績管理系統(tǒng)”界面，該界面是其他子界面的入口，界面如下：進(jìn)入主界面后，點(diǎn)擊“學(xué)生管理（刪除添加）”，進(jìn)入學(xué)生管理界面，界面如下該界面上有一個ADO控件，用于連接數(shù)據(jù)庫，當(dāng)用戶在六個文本框中輸入數(shù)據(jù)時(shí)，點(diǎn)擊“添加“按鈕，可以將數(shù)據(jù)錄入到數(shù)據(jù)庫中，如果此時(shí)點(diǎn)擊”刪除“按鈕，則剛才輸入的數(shù)據(jù)就會被刪除，點(diǎn)擊”保存“按鈕時(shí)，輸入的數(shù)據(jù)就會自動保存在數(shù)據(jù)庫里，點(diǎn)擊”返回主窗體“按鈕，該窗體消失，主窗體出現(xiàn)。建立如下數(shù)據(jù)庫(學(xué)號、姓名、班級、英語、數(shù)學(xué)、VB、總分、排名)建立如下圖的所有界面：ADO控件和DataGrid控件以及數(shù)據(jù)庫的連接步驟：（這一步在設(shè)計(jì)界面的同時(shí)完成）（1）、如何加載ADO控件： 步驟1：步驟2：步驟3：各個界面的ADO控件如何連接數(shù)據(jù)庫（分兩步）：步驟1：如下面界面中的5個步驟步驟2：選中ADO控件Adodc1，點(diǎn)擊鼠標(biāo)右鍵選擇屬性，然后界面設(shè)置如下：控件綁定數(shù)據(jù)庫的字段操作說明：屬性設(shè)置說明：下面以學(xué)號為例，姓名、班級等都可參考此。計(jì)算總分 Dim vb As IntegerDim math As Integer Dim english As Integer For i = 1 To vb = (”vb“).Valuemath = (”math“).Valueenglish = (”english“).Value(”total“).Value = vb + math + english Next i End SubPrivate Sub Command2_Click()39。通過這次課程設(shè)計(jì)使我明白了自己原來知識還比較欠缺，自己要學(xué)習(xí)的東西還太多，以前上課沒怎么認(rèn)真聽，現(xiàn)在知道它重要了，幸好為時(shí)不晚，我以后要更加的努力學(xué)好vb。學(xué)生成績管理系統(tǒng)是一個不斷發(fā)展的新型學(xué)科，任何一個學(xué)校要生存要發(fā)展，要高效率地把內(nèi)部活動有機(jī)地組織起來，因?yàn)楣芾磉@些龐大的體系是非常困難的，要想有機(jī)地組織起來，就必須建立與自身特點(diǎn)相適應(yīng)的成績管理系統(tǒng)。盡管開發(fā)人員已經(jīng)提供了很多解決的方法，但是現(xiàn)在開發(fā)、應(yīng)用管理信息系統(tǒng)軟件的過程中，仍會碰到以下的情形。通過調(diào)查,要求系統(tǒng)需要有以下功能: ⑴ 由于操作人員的計(jì)算機(jī)知識普遍較差,要求有良好的人機(jī)界面。本系統(tǒng)的設(shè)計(jì)是在Windows XP中文版操作系統(tǒng)環(huán)境下，使用Visual Basic 。 student 表學(xué)生的各種信息都來源于這個表。隨著系統(tǒng)應(yīng)用范圍的擴(kuò)大，應(yīng)用環(huán)境的變化，系統(tǒng)中的各種代碼都需要進(jìn)行一定程度的增加、修改、刪除，以及設(shè)置新的代碼。新版)》.機(jī)械工業(yè)出版社,2004,1 [13] 魯沐浴.《C語言最新編程技巧200例》.電子工業(yè)出版社,1997，1[14] 梁翎，李愛齊.《C語言程序設(shè)計(jì)實(shí)用技巧與程序?qū)嵗?上?？破粘霭嫔?1996，5 [15] 陳國章.《Turbo C程序設(shè)計(jì)技巧與應(yīng)用實(shí)例》.天津科學(xué)技術(shù)出版社,1995，5 [16] 王士元.《C高級實(shí)用程序設(shè)計(jì)》.清華大學(xué)出版社,1996，6第四篇：學(xué)生成績管理系統(tǒng)VB程序登陸登陸Private Sub cmdLogin_Click()If = “ ThenMsgBox(”請輸入用戶名!“) Else Call openconn sql = ”select * from login where username=39。“ sql, conn, adOpenDynamic, adLockOptimistic If ThenMsgBox ”用戶不存在！“ElseUnload Me End If End If End Sub退出Private Sub cmdRegister_Click()Unload Me End Sub功能選擇選課管理Private Sub cmdChoice_Click() Unload Me End Sub 退出Private Sub cmdExit_Click()End End Sub 查詢Private Sub cmdFind_Click() Unload Me End Sub 成績管理Private Sub cmdGrade_Click() Unload Me End Sub 學(xué)生管理Private Sub cmdStu_Click() Unload Me End Sub學(xué)生管理添加Private Sub cmdAdd_Click() Unload Me End Sub 刪除Private Sub cmdDel_Click() MsgBox(”刪除成功！“)End Sub 編輯Private Sub cmdEdit_Click() Unload Me End Sub 查找Private Sub cmdFind_Click()39。 ”39。 ”39。 amp?！?amp。判斷學(xué)號是否存在 rs(”name“)= rs(”sex“)= rs(”age“)= rs(”pro“)= MsgBox(”修改成功！“)ElseMsgBox(”學(xué)號不存在!“)End If End If End Sub 窗體Private Sub Form_Load()txtID = rs(”ID“)txtName = rs(”name“)txtSex = rs(”sex“)txtAge = rs(”age“) = rs(”pro“)End Sub添加學(xué)生返回Private Sub cmdReset_Click() Unload Me End Sub 提交Private Sub cmdSubmit_Click()If = ”“ ThenMsgBox(”學(xué)號不能為空！“) ElseIf = ”“ ThenMsgBox(”請輸入姓名！“) ElseIf = ”“ ThenMsgBox(”請輸入性別！“) ElseIf = ”“ ThenMsgBox(”年齡不能為空！“) ElseDim sql As StringSet conn = New Set rs = New Call openconnsql = ”select * from stuInfo where ID=39。③ 使用MSChart圖表控件繪制各種類型的圖表；使用MSFlexGrid表格控件顯示數(shù)據(jù)信息。（4）“修改”：只允許修改學(xué)生成績，不允許修改姓名、院系、專業(yè)和年級。四、難點(diǎn)與提示：（1）本題目中數(shù)據(jù)庫文件的設(shè)計(jì)是關(guān)鍵，可按如下方法：，包含三個數(shù)據(jù)表：院系、專業(yè)和成績。2．評分方法（1）出勤率（2）課程設(shè)計(jì)準(zhǔn)備工作（3）課程設(shè)計(jì)期間紀(jì)律（4）課程設(shè)計(jì)運(yùn)行結(jié)果（5）課程設(shè)計(jì)報(bào)告（6）答辯情況指導(dǎo)教師： 系主任簽字：日期：403 年月日