第一篇：學生成績管理系統(論題報告)

專業：

姓名：

電子郵箱：

聯系電話：

學生成績管理系統

（論題報告）

一、論題提出的背景和意義

在21世紀的科技時代,科學技術突飛猛進,計算機已經不僅是在科技上應用,而且在生活中也是同樣得到了廣泛應用。在我國，教育是一個影響著國富民強的重要行業，隨著改革開放和市場經濟的發展，教育得到了國家的大力扶持與社會各界的高度重視，從而使教育業向規范性與現代化的方向高速發展。但是同發達國家相比，我國的教育行業的信息技術的應用程度還很低，只有在大城市中發展較早、規模較大的院校中才使用計算機進行大規模操作，從各方面提高工作效率，取得良好的社會和經濟效益。而一些新興的、規模較小的教育機構還沒有全部具備這種功能。因此可見，隨著我國教育的迅速發展，信息技術在其上的應用會更加地廣泛和深入。學生成績管理是學校管理中非常重要的一個環節，是整個學校教務管理中的重要一部分，鑒于它的重要性，學生成績管理系統的開發與應用就逐漸提入議程。運用學生成績管理系統可以減輕學院教學人員的工作量，加快查詢速度，加強管理。

運用學生成績管理系統可以縮小教學開支，提高工作效率與準確率，學校能夠合理安排時間，學生能夠盡快的知道考試成績，以便投入新的課程的學習或復習這次沒有考過的課程。而學生成績管理系統的應用也為今天的民辦教育在未來市場的競爭力有所提高。從大的方向說，就是為了加速我國四化建設的發展，實

現全部的自動化，使我國發展成為通訊網絡化，決策科學化，辦公自動化的國家。

二、目前學生成績管理存在的現狀

在我國，各大中小學校的各類信息管理系統并非一個新的課題，但也有的學校根本就沒有任何信息管理系統，所有的工作幾乎還是手工操作來完成。計算機技術在日新月異的發展，但是有的很多學校，特別是在西部貧困地區，學校的信息管理都依然由手工操作來完成，這十分落后，效率極低，成本很大，而且極異出錯。隨著社會的發展，信息化是社會進程的必然趨勢，學校管理只有快，準，精才能發揮其價值。所以機器代替人力是必然的歷史發展趨勢，只有領導的重視和支持才能從人工操作改為計算機的自動化系統。人工操作必將被計算機代替。

縱觀目前國內研究現狀，在安全性和信息更新化方面存在有一定的不足，各現有系統資料單獨建立，共享性差；在以管理者為主體的方式中，信息取舍依賴管理者對于信息的認知與喜好，較不容易掌握用戶真正的需求，也因此無法完全滿足用戶的需求。

三、開發學生成績管理系統的必要性和可行性

學生成績管理是各大學的主要日常管理工作之一，涉及到校、系、師、生的諸多方面，隨著教學體制的不斷改革，尤其是學分制、選課制的展開和深入，學生成績日常管理工作及保存管理日趨繁重、復雜。迫切需要研制開發一款功能強大，操作簡單，具有人性化的學生成績管理系統。作為學校，學生成績管理的計算機化是整個學校管理中的重要一部分，能否實現這一步關系到學校辦學整體效率的高低，介與它的重要性，學生成績管理系統的開發與應用就逐漸提入議程，并占著越來越重要的份量。

技術可行性-----本系統將采用ASP.Net4.0+SQL Server 2008進行開發,供管理人員在本地機上完成對數據庫的各種修改工作.并且采用了數據訪問技術ADO.Net使之能更好地訪問本地和遠程的數據庫;在數據環境方面,允許程序員可視化地創建和操作ADO.Net連接命令等優點,SQL Server 2008是一款非常成熟的數據庫管理軟件,提供了強大的數據庫訪問功能,為數據庫管理與分析帶來靈活性,因此, 對于軟件技術要求，C#語言已非常成熟。

經濟可行性-----系統管理的對象單一,都是在校學生，且每個數據內容具有較強的關聯性，涉及的計算過程不是很復雜。對機器本身沒有太高的要求，學校用于學生管理的微機在存儲量、速度方面都能滿足數據庫運行的要求。計算機裝上該應用軟件，即可使用系統，當系統投入運行后可以為學校節約大量的人力，物力，在經濟上完全可行。

操作可行性-----數據錄入迅速、規范、可靠；統計準確；制表靈活；適應力強；容易擴充。

四、開發學生成績管理系統的構想

（一）、系統分析

成績管理系統的業務總體目標是建立一個先進、高效、安全、可靠的能被有效和應用于學生成績管理的信息化數據庫管理系統。

由于本系統管理的對象單一,都是在校學生，且每個數據內容具有較強的關聯性，涉及的計算過程不是很復雜。因此，比較適合于采用數據庫管理。并且學校用于學生成績管理的微機在存儲量、速度方面都能滿足數據庫運行的要求。在技術難度方面，由于有指導老師的指導和相關參考文獻，借助于網上資料，因此完全可以實現。

本系統用戶角色主要有兩類：系統管理員與普通用戶。其中系統管理員可進行用戶管理。普通用戶可分為學生、老師等用戶。

系統管理員：可進行用戶管理，權限分配，信息查詢等工作。

教師：可進行學生信息管理，課程信息管理，成績管理，授課信息管理，信息查詢，成績統計等工作。

學生：可進行成績查詢等操作。

（二）、系統設計

1.開發語言：C#

該系統基于B/S結構，即采用瀏覽器/服務器模式，服務器端由運行ASP.Net的Web應用程序及運行Microsoft SQL Server2008的數據庫服務器組成，Web服務器使用IIS6.0，運行環境為windows平臺，可以使用瀏覽器訪問本系統。本信息系統體現了學生成績管理的業務邏輯行為、大大簡化了相關工作的煩瑣流

程，同時為管理層提供有力的決策支持。

2.開發工具的選擇：

針對目前世界上流行的大量軟件和開發工具，經過認真分析其優缺點，結合本系統特點，我們選用Microsoft Visual Studio作為軟件開發工具。Visual Studio是一種可視化的、面向對象和調用事件驅動方式的結構化高級程序設計，可用于開發windows環境下的種類應用程序。它簡單易學、效率高，而且功能強大。可以高效、快速地開發出windows環境下功能強大、圖形界面豐富的應用軟件系統。

3.數據庫系統的選擇：

Microsoft SQL Server 是一個具備完全Web支持的數據庫產品，提供了可擴展標記語言核心支持以及Internet上和防火墻外進行查詢的能力，具有可伸縮性、靈活性、擴充性好，而且價格便宜的特點。本系統選用Microsoft SQL Server2008作為數據庫系統。

五、進度安排

2月15日-20日 系統調查分析、設計

2月21日-29日 系統實施、運行與維護

3月1日 提交論文

3月2日-15日根據指導老師的意見對系統進行調整、修改論文

3月16日以后準備答辯

六、系統預計成果

本系統從功能上劃分可分為功能模塊管理，組權限管理,學生信息管理,課程信息管理,學生成績管理,授課信息管理等幾大模塊。以下將對各子模塊進行說明。

1.功能模塊管理：

將系統功能模塊保存到數據庫中以便于動態地進行不同用戶組權限的分配等操作。本模塊包括功能模塊的添加，刪除，修改等。

2.組權限管理：

對用戶進行分組，并將權限設置到不同的用戶組，添加、修改、刪除用戶信息。

3.學生信息管理：

輸入學生基本信息，并可以對學生信息進行添加、查詢、修改、刪除。還可查詢并輸出學生基本信息。

4.課程信息管理：

設置課程號，課程名等課程信息。

5.成績信息管理：

輸入成績信息，并可以對成績信息進行添加、查詢、修改、刪除。還可以用關鍵字查詢，并對學生基本成績信息修改、刪除等。輸出查詢的學生成績信息，可以打印成績單。

6.授課信息管理:

對教師授課信息的調度，安排等信息的管理。

主要參考資料：

C#與.NET 4高級程序設計Andrew Troelsen著，朱曄譯人民郵電出版社 ADO.NET數據庫應用開發張俊崔海波著機械工業出版社 C#開發技術大全明日科技 著人民郵電出版社 ASP.NETWeb程序設計蔣培，王笑敏 著清華大學出版社 SQL學習指南比利 著，張偉超 林青松 譯人民郵電出版社 數據庫系統原理丁寶康著經濟科學出版社

HTML/CSS/JavaScript標準教程：實例版（第3版）電子工業出版社

第二篇：學生成績管理系統開題報告

學生成績管理系統開題報告

一． 研究背景、目的、意義

背景：隨著經濟的快速發展，科技的日益普及。目前我國的信息數字化工作也進入一個全新發展時期，特別是高校的信息化建設已進入了全面的發展階段，諸多高校充分地認識到，信息化建設己經成為了高校提高自身管理水平、提升綜合競爭實力的重要手段。在高校，各種信息管理系統層出不窮。通過本系統，能夠實現對學生成績的有效管理，減少教務人員、教師的工作量，該系統能夠很好的滿足學校教學、管理方面的要求。

目的：為教務人員、教師提供學生成績管理系統，以輕松實現學生成績管理。意義：系統化的成績管理可以減少教務人員及教師因為工作量大而出現錯誤，為學校減少不必要的人力、物力、財力，便于學生成績的增加、刪除、修改、查詢。

二．研究的主要內容

ASP.NET方向：本系統的開發主要涉及到 Visual Basic編程語言和 Access的運用。對于Visual Basic編程語言我們主要研究圖形用戶界面（Graphic User Interface，簡稱GUI）的方法，它與其他編程軟件不同的是不需要編寫大量代碼去描述界面元素的外觀和位置，只要把預先建立好的對象拖放到屏幕上相應的位置即可。

數據庫方向：數據控件的使用主要需要和Access相連接使用，二者的結合使用可以很簡單的把數據庫的數據呈現給系統用戶。對數據庫的操作有備份、恢復等，這一類操作就要求對數據庫的存儲過程進行研究。

三．論文提綱

第一章：緒論（引言）

闡述本論文的書寫背景和系統開發的背景。

第二章：系統需求分析

第一節：數據分析，分析系統開發所需數據類型、格式等，并有數據的實現性能。

第二節：功能分析，分析用戶需求的功能和在技術可行的情況下能做出的功能。

第三節：性能分析，設計系統運行的期望值，分析出系統實現時的性能需求，給出優質產品。

第三章：系統設計

第一節：功能設計，設計系統所需功能如：

第二節：數據庫設計，設計系統運行時所需要的數據庫。

第三節：運行平臺，說明系統運行所需的軟硬件需求。

第四章：系統實施

第一節：編碼 闡述各主要模塊的編碼設計

第二節：程序測試 闡述在程序正確性驗證過程中所用到的測試用例第五章：總結

闡述自己在開發系統中所遇到的困難和解決方法，并得出所學的經驗。第六章：致謝

致謝自己在開發過程中所得到的幫助即幫助自己的老師和同學

四．參考文獻

[1].C#入門經典（第三版）/（美）（Watson,K.），（Nagel,C.）等編著

（至少六篇）

五．進度計劃

從10月15到12月13 截止，自己劃分自己論文的進程。如：

學生成績系統開發的進度安排：

1、10-15至10-25 收集，整理與分析資料2、10-26至11-10 系統設計3、11-11至11-30 系統實施4、12-1至12-5 論文初稿5、12-6至12-10 論文第二稿6、12-11至12-13 論文定稿

齊立波 翻譯 清華

第三篇：學生成績管理系統

//*學生成績管理系統*//

#include

#define N 3

struct student

{

int no;

char name[20];

float english;

float computer;

float math;

float average;

};

void getclass(struct student *class_gishui)

{

int i;

printf(“請輸入%d個學生的學號 姓名 英語 計算機 數學n”,N);

for(i=0;i

{

printf(“第%d個學生”,i+1);

scanf(“%d%s%f%f%f”,&class_gishui[i].no,&class_gishui[i].name,&class_gishui[i].english,&class_gishui[i].computer,&class_gishui[i].math);

}

}

void print_class(struct student *class_gishui)

{

int i;

for(i=0;i

{

class_gishui[i].average=(class_gishui[i].english+class_gishui[i].computer+class_gishui[i].math)/3;

}

printf(“學生信息表如下：n”);

printf(“學號tt姓名tt英語tt計算機tt數學tt平均成績n”);

for(i=0;i

printf(“%dtt%stt%ft%ft%ft%fn”,class_gishui[i].no,class_gishui[i].name,class_gishui[i].english,class_gishui[i].computer,class_gishui[i].math,class_gishui[i].average);

}

void paixu(struct student *class_gishui)

{

int i,j,flag;

struct student t[1];

for(i=0;(i

{

flag=0;

for(j=0;j

if(class_gishui[j].average>class_gishui[j+1].average)

{

t[0]=class_gishui[j];

class_gishui[j]=class_gishui[j+1];

class_gishui[j+1]=t[0];

flag=1;

}

if(flag==0)

break;

}

printf(“排序后學生成績為：n”);

printf(“學號t姓名t英語tt計算機tt數學tt平均成績n”);

for(i=0;i

printf(“%dt%st%ft%ft%ft%fn”,class_gishui[i].no,class_gishui[i].name,class_gishui[i].english,class_gishui[i].computer,class_gishui[i].math,class_gishui[i].average);

}

void main()

{

struct student class_gishui[N];

getclass(class_gishui);

print_class(class_gishui);

paixu(class_gishui);

}

第四篇：學生成績管理系統實訓報告

鄭州輕工業學院

實 訓 報 告

實訓名稱：學生成績管理系統

姓名： 任彬彬

院（系）： 軟件學院

專業班級： 網路管理12-0

1學號： 621213550131

指導教師：馬軍霞、范乃梅、徐潔、方娜、李輝、馮柳、甘琤

成績：

時間：2013 年01 月 07 日至 2013 年 01 月11 日

目錄

實訓任務書…………………………………………………2 實訓進度日歷………………………………………………

3實訓報告……………………………………………………

41．軟件需求分析…

2．系統詳細設計及實現

實訓感想………………………………………………………

5鄭州輕工業學院軟件學院

學生實訓任務書

一、題目

“學生成績管理系統”設計

二、學生信息

專業 網絡管理12-01學號 621213550131 姓名 任彬彬

三、用戶需求及約束條件

1、用C語言實現基于Dos操作系統的“學生成績管理系統”。

2、設計“學生成績管理系統”的用戶界面，系統啟動進入后，只能通過界面菜單指令才能退出。

3、“學生成績管理系統”具有以下功能：

1）系統啟動后，彈出一個用戶界面，能實現人機交互的功能。而且只能通過界面菜單命令實現各種功能（包括系統退出功能）。

2）管理班級信息（顯示、增加、刪除、修改）3）管理課程信息（顯示、增加、刪除、修改）

4）管理班級與課程之間的授課關系（顯示、增加、刪除、修改）5）管理班級中學生信息（顯示、增加、刪除、修改）6）管理班級學生成績（顯示、增加、刪除、修改）7）顯示一個學生的所有成績

8）所有的數據以文本方式存儲在文件中

4、已經提供已編譯的樣例程序以及數據讀寫、軟件界面有關的源代碼，需在已提供資源的基礎上完成實訓。

四、設計要求、技術參數及設計規格

1、原始成績由老師統一給出，在 Excel表中；

2、設計的系統能夠運行，提交源程序、目標文件和可執行文件；

3、提交實訓報告，實訓報告中列寫：1）軟件需求分析或軟件說明；3）對數據的管理方案；4）“學生成績管理系統”設計的思路和整體框架；5）各功能或者模塊實現的思路（用文字和流程圖予以說明），并交待模塊之間的接口關系；6）“學生成績管理系統”設計的結果。

實訓進度日歷

實訓報告

軟件需求分析：管理頁面，如圖1所示

增加課程信息，然后確認后顯示所增加的課程信息

圖

1實訓感想

在這個星期里，我們專業的學生在專業老師的帶領下進行了C語言程序實訓的學習。在這之前我們已經學習了一個學期，對其有一定的了解，但是也僅僅是停留在了解的范圍，對里面的好多東西感覺還是很陌生，更多的在運用起來的時候還是感到很棘手，畢竟，萬事開頭難嘛。

由于時間的關系，我們這次實訓課程老師給我們簡單的介紹了幾個比較重要的實際操作。上機時間是學習程序設計語言必不可少的實習環節，特別是C語言靈活簡介，更需要通過編程的實習來真正掌握它。對于程序語言的學習目的，可以概括為學習語法規定、掌握程序設計方法、提高程序開發能力，這些都必須通過充分的實際上機操作才能完成。

學習C語言程序設計除了課堂講授以外，必須保證有不少于課堂講授學時的上機時間。因為我們可以 有效的利用上機實驗，更快的掌握C語言開發程序的能力，為今后的繼續學習打下一個良好的基礎。課程上機實驗的目的，不僅僅是驗證教材和講課的內容、檢查自己縮編程序是否正確，熟悉程序開發環境、學習計算機系統的操作方法。一個C語言程序從編輯、編譯、連接到運行。通過上機實驗，熟練的掌握C語言的開發環境，為以后真正編寫計算機程序打下基礎。

第五篇：VB學生成績管理系統課程設計報告

VB程序設計 課程設計報告

班 級：***** 姓 名：***** 序 號：***** 指導老師：*****

目錄

1、課設的目的..............................................................................................................................2

2、界面設計和功能設計............................................................................................................2

3、系統功能實施...................................................................................................................11

4、總結........................................................................................................................................30

一、課設的目的

1.本次課程設計提高了我們的實踐動手能力

5.通過本次課程設計，熟悉用戶界面的設計

2.通過本次課程設計，進一步理解計算機程序設計的思路與方法

3.本次課程設計之后，達到能熟練使用各種常見的VB控件，理解面向對象的思想 4.經過本次課程設計，我們進一步熟練運用VB的語言元素和流程控制語句

6.經過本次課程設計，熟悉數據訪問控件ADO及相關對象的使用，能基于ADO控件實現Access的數據訪問與操縱

二、界面設計和功能設計

1、下面的界面為用戶登陸界面：

用戶名和密碼均已設定，用戶名為zgzy，密碼為11201，只有輸入正確，然后點擊“登陸“按鈕才能進入主界面。如果用戶名或密碼三次輸入錯誤，則系統自動退出。當你點擊“退出“按鈕時，彈出一個對話窗，界面如下：

在對話框上點擊“是”按鈕，則退出系統，如果點擊“否”，則該界面不變。

2、當用戶名和密碼均輸入正確，點擊“登陸”按鈕，進入主界面——“學生成績管理系統”界面，該界面是其他子界面的入口，界面如下：

3、進入主界面后，點擊“學生管理（刪除添加）”，進入學生管理界面，界面如下

該界面上有一個ADO控件，用于連接數據庫，當用戶在六個文本框中輸入數據時，點擊“添加“按鈕，可以將數據錄入到數據庫中，如果此時點擊”刪除“按鈕，則剛才輸入的數據就會被刪除，點擊”保存“按鈕時，輸入的數據就會自動保存在數據庫里，點擊”返回主窗體“按鈕，該窗體消失，主窗體出現。

4、在主界面點擊“各科成績查詢“按鈕，出現如下界面：

該界面有一個ADO控件，用來連接數據庫，還有一個DataGrid控件，用來顯示學生成績的查詢結果，當用戶選擇了要查詢的科目和條件后，點擊“查詢“按鈕，在DataGrid控件上就會顯示出所查詢的結果。下面為輸入條件后查詢的結果——

5、在主界面點擊“姓名查詢“按鈕后，會出現如下界面：

該界面與上一界面相似，在文本框輸入要查詢的姓名后，點擊“查詢“按鈕，就會在DataGrid控件上顯示所要查詢的結果。下面為輸入條件后查詢的結果——

5、在主界面點擊“班級查詢“按鈕后，會出現如下界面：

在文版框中輸入所要查詢的班級，DataGrid控件上就會顯示所要查詢的結果。下面為輸入條件后查詢的結果——

6、在主界面上點擊“各科成績段查詢“按鈕后，會出現如下界面：

點擊“計算分數段統計“按鈕后，就會出現所要查詢的結果。下面為查詢的結果——

7、在主界面點擊“計算總分“按鈕后，出現如下界面：

點擊“清除總分”按鈕后，出現如下界面

8、在主界面點擊“排名“按鈕后，出現如下界面：

在該界面上點擊“排名“按鈕后，在DataGrid控件上會顯示出按成績高低排名的結果，點擊”清除排名“按鈕后，剛才結果消失，顯示原來結果。下面為所現實的結果——

9、在主界面點擊“統計直方圖“按鈕后，出現如下界面：

在該界面點擊各個按鈕后，就會出現與之相關科目的成績統計直方圖，下面為查詢的結果——

10、在主界面點擊“優等生“按鈕后，出現如下界面：

點擊按鈕查詢后，結果就會在界面上顯示出來。下面為所查詢的結果——

三、系統功能實施

以上展示的是系統的所有界面，怎樣才能讓這所有的功能實現呢？數據庫和ADO控件的使用便是其中的關鍵。

1、建立如下數據庫

(學號、姓名、班級、英語、數學、VB、總分、排名)

2、建立如下圖的所有界面：

3、ADO控件和DataGrid控件以及數據庫的連接步驟：（這一步在設計界面的同時完成）

（1）、如何加載ADO控件： 步驟1：

步驟2：

步驟3：

各個界面的ADO控件如何連接數據庫（分兩步）：

步驟1：

如下面界面中的5個步驟

步驟2：

選中ADO控件Adodc1，點擊鼠標右鍵選擇屬性，然后界面設置如下：

控件綁定數據庫的字段操作說明：

屬性設置說明：下面以學號為例，姓名、班級等都可參考此。將學號對應的文本框Text1連接Adodc1顯示數據庫中的學號，需要設置DataSource和DataField兩個屬性,首先選中Text1文本框，并進行下面的兩步操作，即可綁定數據庫的學號字段。

設置DataSource:

設置DataField:

（2）、如何加載DataGrid控件 控件DataGrid，可以實現數據的批量處理，該控件在控件庫Microsoft DataGrid Control 6.0中。

說明：DataGrid控件屬性設置

以下為各個界面所對應的代碼——

該界面代碼如下：

Private Sub Command1_Click()If Text1.Text = “zgzy” And Text2.Text = “11201” Then Form1.Show Unload me Else MsgBox “用戶名或密碼錯誤,請重新輸入”, vbMsgBoxSetForeground, “系統提示！” End If

Static t As Integer t = t + 1 If t >= 3 Then End End Sub

Private Sub Command2_Click()a = MsgBox(“確定要退出本系統嗎？”, 3 + 32 + 256, “系統提示！”)

If a = 6 Then Unload Me End If End Sub

該界面代碼如下：

Private Sub Command1_Click()xsglfrm.Show End Sub Private Sub Command10_Click()ydsfrm.Show End Sub Private Sub Command3_Click()jszffrm.Show End Sub Private Sub Command4_Click()

pmfrm.Show End Sub Private Sub Command5_Click()

zftjtfrm.Show End Sub Private Sub Command6_Click()

cjcxfrm.Show End Sub Private Sub Command7_Click()

xmcxfrm.Show End Sub Private Sub Command8_Click()

bjcxfrm.Show End Sub Private Sub Command9_Click()

gkcjfrm.Show End Sub

該界面代碼如下：

Private Sub Command1_Click()Me.Adodc1.Recordset.AddNew End Sub

Private Sub Command2_Click()If Me.Adodc1.Recordset.RecordCount = 0 Or Me.Adodc1.Recordset.EOF Then

Exit Sub End If Me.Adodc1.Recordset.Delete Me.Adodc1.Recordset.MoveNext If Me.Adodc1.Recordset.RecordCount = 0 Then

Exit Sub End If If Me.Adodc1.Recordset.EOF Then Me.Adodc1.Recordset.MoveLast End Sub

Private Sub Command4_Click()Me.Adodc1.Recordset.Save End Sub

Private Sub Command5_Click()

Unload Me

mainfrm.Show End Sub

該界面代碼如下： Dim kc_條件 As String Dim kc As String Private Sub Command1_Click()kc_條件 = Me.Text1 Me.Adodc1.RecordSource = “select * from stu where ” + kc + “ ” + kc_條件 Me.Adodc1.Refresh End Sub

Private Sub Form_Load()kc_條件 = “>=92” kc = “vb” End Sub

Private Sub Option1_Click()

kc = “VB” End Sub Private Sub Option2_Click()kc = “math” End Sub Private Sub Option3_Click()kc = “English” End Sub

該界面代碼如下：

Dim kc_條件 As String Dim kc As String Private Sub Command1_Click()kc_條件 = Me.Text1 Me.Adodc1.RecordSource = “select * from stu where ” + kc + “='” + kc_條件 + “'” Me.Adodc1.Refresh End Sub

Private Sub Form_Load()kc = “name” End Sub

該界面代碼如下： Dim kc_條件 As String Dim kc As String Private Sub Command1_Click()kc_條件 = Me.Text1 Me.Adodc1.RecordSource = “select * from stu where ” + kc + “='” + kc_條件 + “'” Me.Adodc1.Refresh End Sub

Private Sub Form_Load()kc = “class” End Sub

該界面代碼如下：

Private Sub Command1_Click()

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 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 English_A As Integer

Dim English_B As Integer

Dim English_C As Integer

Dim English_D As Integer

Dim English_E As Integer

Me.Adodc1.RecordSource = “select * from stu where vb>=90”

Me.Adodc1.Refresh

vb_A = Me.Adodc1.Recordset.RecordCount

Me.Text1 = vb_A

Me.Adodc1.RecordSource = “select * from stu where vb>=80 and vb<90”

Me.Adodc1.Refresh

vb_B = Me.Adodc1.Recordset.RecordCount

Me.Text2 = vb_B

Me.Adodc1.RecordSource = “select * from stu where vb>=70 and vb<80”

Me.Adodc1.Refresh

vb_C = Me.Adodc1.Recordset.RecordCount

Me.Text3 = vb_C

Me.Adodc1.RecordSource = “select * from stu where vb>=60”

Me.Adodc1.Refresh

vb_D = Me.Adodc1.Recordset.RecordCount

Me.Text4 = vb_D

Me.Adodc1.RecordSource = “select * from stu where vb<60”

Me.Adodc1.Refresh

vb_B = Me.Adodc1.Recordset.RecordCount

Me.Text5 = vb_E

Me.Adodc1.RecordSource = “select * from stu where math>=90”

Me.Adodc1.Refresh

Math_A = Me.Adodc1.Recordset.RecordCount

Me.Text6 = Math_A

Me.Adodc1.RecordSource = “select * from stu where math>=80 and math<90”

Me.Adodc1.Refresh

Math_B = Me.Adodc1.Recordset.RecordCount

Me.Text7 = Math_B

Me.Adodc1.RecordSource = “select * from stu where math>=70 and math<80”

Me.Adodc1.Refresh

Math_C = Me.Adodc1.Recordset.RecordCount

Me.Text8 = Math_C

Me.Adodc1.RecordSource = “select * from stu where math>=60 ”

Me.Adodc1.Refresh

Math_D = Me.Adodc1.Recordset.RecordCount

Me.Text9 = Math_D

Me.Adodc1.RecordSource = “select * from stu where math<60”

Me.Adodc1.Refresh

Math_E = Me.Adodc1.Recordset.RecordCount

Me.Text10 = Math_E

Me.Adodc1.RecordSource = “select * from stu where english>=90”

Me.Adodc1.Refresh

English_A = Me.Adodc1.Recordset.RecordCount

Me.Text11 = English_A

Me.Adodc1.RecordSource = “select * from stu where english>=80 and english<90”

Me.Adodc1.Refresh

English_B = Me.Adodc1.Recordset.RecordCount

Me.Text12 = English_B

Me.Adodc1.RecordSource = “select * from stu where english>=70 and english<80”

Me.Adodc1.Refresh

English_C = Me.Adodc1.Recordset.RecordCount

Me.Text13 = English_C

Me.Adodc1.RecordSource = “select * from stu where english>=60”

Me.Adodc1.Refresh

English_D = Me.Adodc1.Recordset.RecordCount

Me.Text14 = English_D

Me.Adodc1.RecordSource = “select * from stu where english<60”

Me.Adodc1.Refresh

English_E = Me.Adodc1.Recordset.RecordCount

Me.Text15 = English_E End Sub

Private Sub Form_Load()

Text1.Text = “"

Text2.Text = ”“

Text3.Text = ”“

Text4.Text = ”“

Text5.Text = ”“

Text6.Text = ”“

Text7.Text = ”“

Text8.Text = ”“

Text10.Text = ”“

Text11.Text = ”“

Text12.Text = ”“

Text13.Text = ”“

Text14.Text = ”“

Text15.Text = ”“ End Sub

代碼如下

Private Sub Command1_Click()'計算總分 Dim vb As Integer

Dim math As Integer Dim english As Integer Me.Adodc1.Recordset.MoveFirst For i = 1 To Me.Adodc1.Recordset.RecordCount

vb = Me.Adodc1.Recordset.Fields(”vb“).Value

math = Me.Adodc1.Recordset.Fields(”math“).Value

english = Me.Adodc1.Recordset.Fields(”english“).Value

Me.Adodc1.Recordset.Fields(”total“).Value = vb + math + english

Me.Adodc1.Recordset.Update

Me.Adodc1.Recordset.MoveNext Next i End Sub

Private Sub Command2_Click()'清除總分 Me.Adodc1.Recordset.MoveFirst For i = 1 To Me.Adodc1.Recordset.RecordCount

Me.Adodc1.Recordset.Fields(”total“).Value = Null

Me.Adodc1.Recordset.Update

Me.Adodc1.Recordset.MoveNext Next i End Sub

該界面代碼如下：

Private Sub Command1_Click()Me.Adodc1.RecordSource = ”select * from stu order by total desc“ Me.Adodc1.Refresh Me.Adodc1.Recordset.MoveFirst For i = 1 To Me.Adodc1.Recordset.RecordCount

Me.Adodc1.Recordset.Fields(”mc“).Value = i

Me.Adodc1.Recordset.Update

Me.Adodc1.Recordset.MoveNext

Next i End Sub

Private Sub Command2_Click()Me.Adodc1.Recordset.MoveFirst For i = 1 To Me.Adodc1.Recordset.RecordCount

Me.Adodc1.Recordset.Fields(”mc“).Value = Null

Me.Adodc1.Recordset.Update

Me.Adodc1.Recordset.MoveNext Next i End Sub

該界面代碼如下：

Private Sub Command1_Click()

Me.Adodc1.Refresh

'填充表格數據

MSChart1.RowCount = 1

MSChart1.ColumnCount = Me.Adodc1.Recordset.RecordCount

Me.Adodc1.Recordset.MoveFirst

For lngI = 1 To Me.Adodc1.Recordset.RecordCount

MSChart1.Column = lngI

'用Data屬性向MSChart數據網格填充數據

MSChart1.Data = Val(Adodc1.Recordset.Fields(”vb“).Value)

MSChart1.ColumnLabel = Adodc1.Recordset.Fields(”name“).Value

Adodc1.Recordset.MoveNext

Next lngI

MSChart1.RowLabel = ”VB成績直方圖“ End Sub

Private Sub Command2_Click()Me.Adodc1.Refresh

'填充表格數據

MSChart1.RowCount = 1

MSChart1.ColumnCount = Me.Adodc1.Recordset.RecordCount

Me.Adodc1.Recordset.MoveFirst

For lngI = 1 To Me.Adodc1.Recordset.RecordCount

MSChart1.Column = lngI

'用Data屬性向MSChart數據網格填充數據

MSChart1.Data = Val(Adodc1.Recordset.Fields(”math“).Value)

MSChart1.ColumnLabel = Adodc1.Recordset.Fields(”name“).Value

Adodc1.Recordset.MoveNext

Next lngI

MSChart1.RowLabel = ”Math成績直方圖“ End Sub

該界面代碼如下

Private Sub Command1_Click()Dim vb As Integer Dim math As Integer Dim english As Integer

Me.Adodc1.RecordSource = ”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)" Me.Adodc1.Refresh End Sub

四、總結和體會

經過好幾天的努力我的課程設計終于完成了。在沒有做課程設計以前覺得課程設計好難，我可能做不了，但是通過這次做課程設計發現自己錯了。課程設計不僅是對前面所學知識的一種檢驗，而且也是對自己能力的一種提高，它并不可怕。通過這次課程設計使我明白了自己原來知識還比較欠缺，自己要學習的東西還太多，以前上課沒怎么認真聽，現在知道它重要了，幸好為時不晚，我以后要更加的努力學好vb。在這次課程設計中也使我們的同學關系更進一步了，同學之間互相幫助，有什么不懂的大家在一起商量，聽聽不同的看法對我們更好的理解知識，所以在這里非常感謝幫助我的同學。此外，還得出一個結論：世上無難事，只怕有心人。

在設計過程中，我通過查閱有關資料，與同學交流經驗和自學等方式，使自己學到了不少知識，也經歷了不少艱辛，但收獲同樣巨大。在整個設計中我懂得了許多東西，也培養了我獨立工作的能力，樹立了對自己工作能力的信心，相信會對今后的學習工作生活有非常重要的影響。而且大大提高了動手的能力，使我充分體會到了在創造過程中探索的艱難和成功時的喜悅。雖然這個設計做的也不太好，但是在設計過程中所學到的東西是這次課程設計的最大收獲和財富，使我終身受益。