第一篇：VB編程環境下的高校學生成績管理系統設計研究

VB編程環境下的高校學生成績管理系統設計研究

【摘 要】本文通過對VB編程方面相關的研究，致力于VB編程環境下的高校學生成績管理系統設計研究，希望通過學生成績管理系統的應用來減少學生信息管理方面的工作量。

【關鍵詞】VB 編程環境 高校 學生 成績管理 系統設計

在我國教育改革工作的深入，在以往的成績管理模式，管理體系和管理方式上逐漸顯露出它的缺陷。VB編程是以計算機技術為依托，學生的成績管理的需要為要求，采用程序設計知識和人工智能設計來彌補我校成績管理系統中的不足之處。由此來開發一套智能化的高等教育學院的大學生成績管理系統。

一、VB 語言

VB就是 Visual Basic，它是由美國微軟公司支持開發的一種事件驅動編程語言，VB在BASIC編程語言的基礎上進行改造的。VB為一種可視化以事件啟動方式的高級架構花的程序驅動語言。Visual Basic常用于windows環境下各類應用軟件程序的開發。VB具有效率高、操作簡便、功能強等特點，它可以與專業的開發軟件Software Development Kit軟件相提并論。在VB環境中，通過事件的驅動機制與新型的可視化工具，連接windows內部的程序通口、應用程序編程接口。連接延遲鎖相環、開放數據庫互連、對象連接與嵌入等技術可達到快速發掘windows環境中的功能以及開發界面中各種應用軟件。

二、VB編程環境下的高校學生成績管理系統設計研究

（一）高校學生成績管理系統的總體結構

本系統設計構架如圖1所示，其界面風格采用的是windows界面風格，系統啟動開啟Splash動畫效果。在高校學生成績管理系統進行登入時，由于信息錄入是一件較為重要的工作，應對具有操作權限的用戶設定專門的賬戶與密碼，通過賬戶與密碼的訪問限制才可進入主界面，用戶通過下拉菜單選項進行選定和工作、也可采用右鍵式的菜單設計以及工作欄菜單等多種菜單設計。同時也可設置快捷鍵、老板鍵等，設計者可由自己的習慣來進行系統設計。

圖1系統總體結構

（二）高校學生成績管理系統的設計

1.信息錄入模塊設計

在高校學生成績管理系統的信息錄入模塊中，在錄入的信息包括：學生成績、基本情況、軍訓情況、綜合測定、評優評先、獎懲情況、學位申報以及學籍變動等等數據資料。系統操作人員可以對這些信息進行增加、修改刪除等系統操作。學生成績管理工作是一種特殊同時重要的工作，該系統會自動的記錄用戶的登入情況以便日后對工作人員的登入信息進行查詢。

2.系統數據庫設計

數據庫的用途是存放系統中需要保存的數據、信息作用的儲存設備。本系統設計中所采用的數據類型為字符串型、數值型兩種。根據數據庫中所保存的數據特點，本系統采用Microsoft Access 2000數據庫，將數據表采用集合的方式，放入程序中所使用的儲存設備中。該系統中儲存數據包括學生的基本情況、基本情況、軍訓情況、畢業鑒定、綜合測定、評優評先、獎懲情況、學位申報以及學籍變動等等數據資料，結合系統設計中的特點，采用結構化查詢語言（Structured Query Language），簡稱為SQL語言來進行學生信息查詢工作。SQL語言具有拓展性強、通用性強、操作簡便、容易使用等優勢。以下為SQL語言學生成績登記表，見表1。

3.信息查詢、瀏覽、幫助模塊的設計

（1）信息查詢模塊：可進行學生基本信息的查詢，在信息查詢模塊用戶可通過學生的姓名、身份證號碼、學號等信息進行查詢。也可進行多條件進行查詢。同時可通過輸出設備將操作人員需要導出的信息進行打印。（2）信息瀏覽模塊：可進行學生數據、信息的核對，在該模塊中操作人員可根據學生的入學年份、專業信息、畢業年份對學生的基本信息進行核實和檢查等工作。在對信息瀏覽模塊進行設計時設計人員應以工作的實際需要進行設計，以易于瀏覽、修改為設計重點。（3）幫助模塊：是對于還不熟悉系統的操作人來來進行系統的操作學習，遇到不會操作的地方也可通過幫助模塊來獲取幫助。該模塊是本系統的詳細說明，對操作人員盡快熟悉本系統有極大的幫助。本系統采用的是VB6.0系統的TabStrip、Toolbar、RichTextBox、treeview等控件相組合的設計方案來進行系統設計的，以一般的Windows傳統的幫助系統相比操作更加簡便、容易學習。

三、總結

本文中設計的學生成績管理系統主要應用于學生成績管理，其目的是實現學生成績的統一化管理，通過計算機技術對學生的成績進行日常的管理工作。VB編程軟件可以與專業的開發軟件Software Development Kit軟件相提并論，采用VB來完善學生成績管理系統具有效率高、操作簡便、功能強等特點，值得廣泛推廣。

參考文獻：

[1]周姝，張惠茹.基于VB的學生成績檔案管理系統的設計與實現[J].計算機光盤軟件與應用，2012（21）：229-230.[2]趙亞娟.VB學生信息管理系統設計與實現[J].電腦編程技巧與維護，2011（3）：38-42.

第二篇：VB作業-模擬成績管理系統

VB程序設計 模擬成績管理系統

學院：汽車學院

專業：（交通運輸）汽車運用工程 班級： 姓名 學號：

模擬成績管理系統

2016 《VB程序設計》作業要求

1.做一個成績管理系統。

2.系統中包括部分學生個人信息，如學號，姓名，性別，出生年月日，班級，籍貫，家庭住址，家庭電話，備注等，及若干（不少于8門）課程成績和課程學分；輸入不少于10條記錄；

3.需計算總評成績（即學分加權平均成績），并計算排名，且反映在字段中； 4.程序需具備的功能：記錄瀏覽，添加，修改，刪除，查詢（按姓名或學號查詢）

5.建議不要用ADO控件 6.作業的提交：（1）電子版。

a.該版本應該是在你的或老師的電腦上都能運行的，與數據庫的路徑無關的，提交以前請在其他同學電腦上運行一下，確保程序的運行和電腦無關；

b.把所有文件放在同一個文件夾中，壓縮文件名：VB-班級-學號-姓名，如：VB-汽運1班-xxxxxxxx-張三.zip； c.提交郵箱隨后公布；

（2）紙質版。紙質版應包括：

a.封面，作業要求； b.主要界面；

c.主要代碼，附程序功能注釋及主要語句注釋。d.附必要的說明。

模擬成績管理系統

系統運行界面

查詢功能

檢索框內輸入學號或姓名，點擊查詢，即可在右方顯示基本信息，并顯示總評成績。點擊清空按鈕后，可繼續輸入。

例如:輸入學號“09”后，顯示界面如下圖

如果沒有找到紀錄，則發出警告，如下圖

主要代碼： 查詢按鈕: Private Sub Command1_Click()

Me.Data1.Recordset.Movefirst 將記錄指針指向第一個紀錄

If Me.Combo1.Text <> “" Then

Me.Data1.Recordset.FindFirst ”name='“ & Combo1.Text & ”'“

If Me.Data1.Recordset.NoMatch Then

MsgBox ”請重新輸入！“, 48, ”注意“ 未找到匹配的紀錄，則顯示提示

Combo1.Clear

Combo2.Clear

Else

Me.Data1.Recordset.FindFirst ”name='“ & Combo1.Text & ”'“ 查找

Combo2.Text = Data1.Recordset(”number“)顯示

End If

End If

If Me.Combo2.Text <> ”“ Then 輸入學號時

模擬成績管理系統

Me.Data1.Recordset.FindFirst ”number='“ & Combo2.Text & ”'“

If Me.Data1.Recordset.NoMatch Then

MsgBox ”請重新輸入！“, 48, ”注意“

Combo1.Clear

Combo2.Clear

Else

Me.Data1.Recordset.FindFirst ”number='“ & Combo2.Text & ”'“

Combo1.Text = Data1.Recordset(”name“)

End If End If Private grade As String * 5

grade =(Val(Text8.Text)* Val(Me.Text17.Text)+ Val(Text9.Text)* Val(Me.Text18.Text)+ Val(Text10.Text)* Val(Me.Text20.Text)+ Val(Text11.Text)* Val(Me.Text21.Text)+ Val(Text12.Text)* Val(Me.Text22.Text)+ Val(Text13.Text)* Val(Me.Text23.Text)+ Val(Text14.Text)* Val(Me.Text24.Text)+ Val(Text15.Text)* Val(Me.Text25.Text)+ Val(Text16.Text)* Val(Me.Text26.Text))/(Val(Me.Text17.Text)+ Val(Me.Text18.Text)+ Val(Me.Text20.Text)+ Val(Me.Text21.Text)+ Val(Me.Text22.Text)+ Val(Me.Text23.Text)+ Val(Me.Text24.Text)+ Val(Me.Text25.Text)+ Val(Me.Text26.Text))

計算加權成績

Me.Text19.Text = grade End Sub

添加功能

點擊“添加”按鈕后，彈出新窗口，輸入完整信息后，點擊更新，如果信息 不完整，系統會提示“請輸入完整數據！”。輸入完成后，點擊更新，數據便錄入 數據表中，并返回初始界面，可繼續輸入。點擊“取消”按鈕后，退出窗口2，返回窗口一，繼續進行其他操作。

模擬成績管理系統

主要代碼： 添加按鈕

Private Sub Command3_Click()

inNum = 1

Form2.Show 1

End Sub 窗口二代碼

Private Sub Command1_Click()

If Text1.Text = ”“ Or Text2.Text = ”“ Or Text3.Text = ”“ Or Text4.Text = ”“ Or Text5.Text = ”“ Or Text6.Text = ”“ Or Text7.Text = ”“ Or Text8.Text = ”“ Or Text9.Text = ”“ Or Text10.Text = ”“ Or Text11.Text = ”“ Or Text12.Text = ”“ Or Text13.Text = ”“ Or Text14.Text = ”“ Or Text15.Text = ”“ Or Text16.Text = ”“ Or Text17.Text = ”“ Or Text18.Text = ”“ Or Text20.Text = ”“ Or Text21.Text = ”“ Or Text22.Text = ”“ Or Text23.Text = ”“ Or Text24.Text = ”“ Or Text25.Text = ”“ Or Text26.Text = ”“ Then 提示輸入完整數據

b = MsgBox(”請輸入完整數據！“, 4 + 48, ”注意“)

Text1.SetFocus

Exit Sub

End If

With Data1

.Recordset.AddNew

.Recordset(”number“)= Text1.Text 將數據寫入data1

.Recordset(”name“)= Text2.Text

.Recordset(”sex“)= Text3.Text

.Recordset(”birthday(year)“)= Text4.Text

……

.Recordset.Update

End With

Text1.Text = ”“: Text2.Text = ”“: Text3.Text = ”“: Text4.Text = ”“: Text5.Text = ”“: Text6.Text = ”“: Text7.Text = ”“: Text8.Text = ”“: Text9.Text = ”“: Text10.Text = ”“: Text11.Text = ”“: Text12.Text = ”“: Text13.Text = ”“: Text14.Text = ”“: Text15.Text = ”“: Text16.Text = ”“: Text17.Text = ”“: Text18.Text = ”“: Text20.Text = ”“: Text21.Text = ”“: Text22.Text = ”“: Text23.Text = ”“: Text24.Text = ”“: Text25.Text = ”“: Text26.Text = ”“: Text1.SetFocus End Sub Private Sub Command2_Click()

Unload Me

點擊取消按鈕時

Form1.Show

End Sub

窗口二與data1數據表連接

Private Sub Form_Load()

Me.Data1.DatabaseName = App.Path + ”201322020301-呂天翔.mdb“

Me.Data1.RecordSource = ”grade management“

模擬成績管理系統

End Sub

修改功能

點擊“修改”按鈕后，按鈕消失，‘保存’按鈕出現，同時課程學分部分顯現，可一并修改，修改完成后，點擊保存，顯示警告“當前記錄將被修改，確定修改？”

點擊確定，完成修改，并回到初始界面。

主要代碼： 點擊修改按鈕

Private Sub Command4_Click()

Me.Text17.Visible = True

Me.Text18.Visible = True

Me.Text20.Visible = True

Me.Text21.Visible = True

Me.Text22.Visible = True

Me.Text23.Visible = True

Me.Text24.Visible = True

Me.Text25.Visible = True

Me.Text26.Visible = True

Label8(2).Visible = True

Me.Command3.Visible = False

Me.Command4.Visible = False

Me.Command5.Visible = False

Me.Command6.Visible = False

Me.Command10.Visible = True End Sub 點擊保存按鈕

調整 課程學分部分 可見性

調整按鈕可見性

顯示提示

選擇“否”時選擇退出 否則進入

寫入

狀態

模擬成績管理系統

Private Sub Command10_Click()

a = MsgBox(”當前記錄將被修改，確定修改？“, 4 + 48, ” 警告 “)

If a = vbNo Then Exit Sub

Me.Data1.Recordset.Edit

With Data1

.Recordset(”number“)= Text1

.Recordset(”name“)= Text2

.Recordset(”sex“)= Text3

… …

.Recordset(”transportation-xuefen“)= Me.Text24

.Recordset(”automobile-xuefen“)= Me.Text25

.Recordset(”engine-xuefen“)= Me.Text26

End With

Data1.Refresh

Combo1.Clear

Combo2.Clear

End Sub

刪除功能

點擊“刪除”按鈕后將彈出“當前記錄將被刪除，確認刪除？”對話框，點擊“是”按鈕后，將當前記錄從data1中刪除，并更新data1；若點擊“否”，則退出，返回初始界面。

主要代碼：

Private Sub Command5_Click()

顯示提示

a = MsgBox(”當前記錄將被刪除，確定刪除？“, 4 + 48, ” 警告 “)

If a = vbNo Then Exit Sub

Me.Data1.Recordset.Delete

進行刪除操作

Me.Data1.Refresh

更新data1

Combo1.Clear

Combo2.Clear End Sub

總評成績計算

算法介紹

用課程學分部分數據與考試成績計算總評成績，課程學分部分通常隱藏在窗體中。

情況一 瀏覽時即顯示總評成績

模擬成績管理系統

點擊data控件按鈕瀏覽數據的同時，該數據的總評成績也同時顯示。

主要代碼: Private Sub Data1_Validate(Action As Integer, Save As Integer)

If Me.Data1.Recordset.EOF = True Then

如果當前界面沒有顯示數據

Me.Data1.Recordset.Movefirst

為防止瀏覽時出錯

Else

grade =(Val(Text8.Text)* Val(Me.Text17.Text)+ Val(Text9.Text)*

Val(Me.Text18.Text)+ Val(Text10.Text)* Val(Me.Text20.Text)+ Val(Text11.Text)*

Val(Me.Text21.Text)+ Val(Text12.Text)* Val(Me.Text22.Text)+ Val(Text13.Text)*

Val(Me.Text23.Text)+ Val(Text14.Text)* Val(Me.Text24.Text)+ Val(Text15.Text)*

Val(Me.Text25.Text)+ Val(Text16.Text)* Val(Me.Text26.Text))/(Val(Me.Text17.Text)+

Val(Me.Text18.Text)+ Val(Me.Text20.Text)+ Val(Me.Text21.Text)+ Val(Me.Text22.Text)

+ Val(Me.Text23.Text)+ Val(Me.Text24.Text)+ Val(Me.Text25.Text)+

Val(Me.Text26.Text))

總評成績的計算

Me.Text19.Text = grade

End If End Sub

情況二：查詢時即顯示其總評成績

計算方法相同，此處不再贅述。

排名功能

點擊“排名”按鈕后，根據總評成績大小，在list控件中顯示當前數據的排名情況，可以同時顯示“名次”“姓名”“總評成績”；同時在刪除或添加部分數據后，能重新計算排名，此處通過動態數組實現顯示個數隨數據個數同時變化。

算法介紹：

添加一個text控件，用來存放當前窗口的總評成績。使用data1控件的movefirst,movenext,eof 等屬性完成數據庫“數據個數計算”“所有數據姓名與成績的提取與匹配”，使用動態數組完成數據存放；利用循環完成賦值及大小比較，最后通過list顯示出來。

主要代碼：

Private Sub Command8_Click()

Do Until Me.Data1.Recordset.EOF = True

Me.Data1.Recordset.Movenext

h = h + 1

Loop

模擬成績管理系統

Me.Data1.Recordset.Movefirst

Dim t As String

Dim w As String

ReDim a(h, 2)As String * 5

定義與數據個數相同行數的二位動態數組

Do Until Me.Data1.Recordset.EOF = True

Me.Text27.Text =(Val(Text8.Text)* Val(Me.Text17.Text)+ Val(Text9.Text)* Val(Me.Text18.Text)+ Val(Text10.Text)* Val(Me.Text20.Text)+ Val(Text11.Text)* Val(Me.Text21.Text)+ Val(Text12.Text)* Val(Me.Text22.Text)+ Val(Text13.Text)* Val(Me.Text23.Text)+ Val(Text14.Text)* Val(Me.Text24.Text)+ Val(Text15.Text)* Val(Me.Text25.Text)+ Val(Text16.Text)* Val(Me.Text26.Text))/(Val(Me.Text17.Text)+ Val(Me.Text18.Text)+ Val(Me.Text20.Text)+ Val(Me.Text21.Text)+ Val(Me.Text22.Text)

+ Val(Me.Text23.Text)+ Val(Me.Text24.Text)+ Val(Me.Text25.Text)+ Val(Me.Text26.Text))Text27中存放當前數據的成績

a(i, 1)= Text2.Text

a(i, 2)= Text27.Text 把姓名和成績賦值給數組

i = i + 1

Me.Data1.Recordset.Movenext

Loop

For i = 1 To h

For j = i + 1 To h

If a(i, 2)< a(j, 2)Then

t = a(i, 1)

w = a(i, 2)對數組中的成績進行比較并重新排序

a(i, 1)= a(j, 1)

a(i, 2)= a(j, 2)

a(j, 1)= t

a(j, 2)= w

End If

Next

Next

p = ” 第 “ & k & ” 名 “ & a(1, 1)& a(1, 2)

List1.AddItem p

List1.AddItem ”“ 輸出排序

For i = 2 To h

k = k + 1

p = ” 第 “ & k & ” 名 “ & a(i, 1)& a(i, 2)

List1.AddItem p

List1.AddItem ”“

Next

Text19.Text = ”"

End Sub

模擬成績管理系統

課程學分的顯示及修改功能

通過點擊 課程學分顯示 按鈕，課程學分部分變為可見，并可通過點擊修改按鈕進行修改，點擊 返回 按鈕后，該部分繼續隱藏。

瀏覽功能

通過點擊data1控件按鈕進行瀏覽。

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

目 錄

摘要……………………………………………………………………………………….2 第一章 引言...........................................................3 第二章 系統設計的目的與要求...........................................3 1.1系統設計的目的....................................................3 1.2系統設計的實驗環境................................................4 1.3系統設計的預備知識................................................3 1.4系統設計的要求....................................................4

第三章 系統的概述.....................................................3 2.1系統的需求........................................................3 2.2可行性分析........................................................4 第四章 前臺界面分析...................................................4 3.1 登陸界面..........................................................4 3.2信息查詢..........................................................6 第五章 數據庫的分析...................................................6 4.1 YONGHU表...........................................................7 4.2 STUDENT 表.........................................................7 4.3 SCORE表...........................................................7 4.4 COURSE表...........................................................8 第六章 軟件維護.......................................................8 5.1數據維護..........................................................9 5.2代碼維護..........................................................9 結語及致謝............................................................9 參考文獻..............................................................9

VB學生成績管理系統

摘要:隨著科學技術在管理上越來越深入而廣泛的應用，管理信息系統的技術已逐步成熟。學生成績管理系統是一個不斷發展的新型學科，任何一個學校要生存要發展，要高效率地把內部活動有機地組織起來，因為管理這些龐大的體系是非常困難的，要想有機地組織起來，就必須建立與自身特點相適應的成績管理系統。本文對Visual Basic6.0應用程序設計等工具進行了較深入的學習和應用，利用其提供的各種面向對象的開發工具,尤其是數據窗口這一能方便而簡潔操縱數據庫的智能化對象，主要完成了對學生成績管理系統的系統分析部分，界面的設計、數據庫的設計等；系統設計部分主要介紹了系統功能設計和數據庫設計及代碼設計；

關鍵詞：visual basic，學生成績管理系統，數據庫，查詢

Abstract:Along with science technique is on the management more and more thorough but extensive application, manage information system of technique already gradually mature.Student result management the system is a new academics which develops continuously, the whichever school wants to exist to want a development, high-efficiencily internal activity organically the organization get up, because manage these huge systems are very difficult, think organically the organization get up, have to build up is mutually accommodative with oneself characteristics of result management system.This text to Visual Basic6.0 application program design etc.the tool carried on more thorough study and application, making use of what it provide various development tool which face to object, is the intelligence that data window way's this ability is convenient and simple and direct to manipulate a database to turn object particularly, mainly completed to manage the analysis part of the system of system to student's result, the design, database of interface of design etc.;The system design part mainly introduced design and database design of the system function and code design;Keywords: visual basic，Student result management the system，database, enquiries

第一章 引言

在高科技不斷發展的今天，計算機技術己經廣泛應用到社會的各個領域。從六十年代中期爆發了著名的軟件危機開始，計算機界就一直在探索軟件開發理論和方法，以確保計算機技術能夠高效地應用于各領域。隨著計算機技術不斷發展、完善，如何開發、應用高效率計算機軟件、信息系統一直是開發人員在試圖解決的難題。盡管開發人員已經提供了很多解決的方法，但是現在開發、應用管理信息系統軟件的過程中，仍會碰到以下的情形。學生成績管理系統軟件應用的好壞直接影響到學校以及學校今后發展。只有確定出簡單、安全、高效的開發設計方法并應用于學生成績管理系統的開發設計中，才能使先進的計算機工具為個人發展提供高效的服務:才能開發出完整靈活的學生成績管理系統，具有良好的可擴充性、適應性，系統安全性能高，具有友好的用戶界面并且操作簡便，因此，學生成績管理系統開發設計方法的應用研究具有積極的現實意義。第二章 系統設計的目的與要求 2.1 系統設計的目的

本課程設計是計算機科學與技術專業重要的實踐性環節之一，是在學生學習完《程序設計語言(C)》課程后進行的一次全面的綜合練習。本課程設計的目的和任務： 2.2 系統設計的實驗環境

硬件要求能運行Windows 2000/XP操作系統的微機系統。C語言程序設計及相應的開發環境。

2.3 系統設計的預備知識

熟悉C語言及C語言開發工C語言與Access。

第二章 系統的概述

本學生成績管理系統可以說是一個綜合性的學校學生成績管理系統，這它集成了多種功能，因而具有較強的實用性和先進性。2.1系統的需求

通過調查,要求系統需要有以下功能: ⑴ 由于操作人員的計算機知識普遍較差,要求有良好的人機界面;⑵ 由于該系統的使用對象多,要求有較好的權限管理;⑶ 原始數據修改簡單方便,支持多條件修改 ⑷ 方便的數據查詢，支持多條件查詢;⑸ 在相應的權限下，刪除數據方便簡單，數據穩定性好； ⑹ 數據計算自動完成，盡量減少人工干預;2.2可行性分析

由于本系統管理的對象單一,都是在校學生，且每個數據內容具有較強的關聯性，涉及的計算過程不是很復雜。因此，比較適合于采用數據庫管理。且學校用于學生管理的微機都是PIII以上的機器，在存儲量、速度方面都能滿足數據庫運行的要求。在技術難度方面，由于有指導老師的指導和相關參考文獻，特別是網上資料，特別是參考其它程序的功能，因此完全可以實現。本系統的設計是在Windows XP中文版操作系統環境下，使用Visual Basic 6.0中文版開發成功的。第三章 前臺界面分析 3.1 登陸界面

主要代碼

Option Explicit Dim m As Integer

Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Private rsmc As ADODB.Recordset Public username As String Private Sub cmdOk_Click()Dim ee As String rs.MoveFirst If m < 3 Then If Trim(txtusername.Text)= “" Or pwd.Text = ”“ Then MsgBox ”用戶名或密碼不能為空！請重新輸入！“, vbInformation, ”登錄信息“ Exit Sub End If Do While Not rs.EOF If rs.Fields(0)= txtusername.Text And rs.Fields(1)= pwd.Text Then MsgBox ”歡迎你進入學生成績管理系統,“ frmmain.Show Unload Me Exit Sub End If rs.MoveNext Loop m = m + 1 ee = MsgBox(”用戶名或密碼錯誤！請重新輸入！“, vbCritical + vbRetryCancel, ”登錄信息“)'重試/取消 txtusername.Text = ”“ If ee = vbNo Then Unload Me Else pwd.Text = ”“ txtusername.SetFocus

End If Else MsgBox ”對不起，您的輸入次數已達到最大限度！請退出！“, vbExclamation, ”提示信息“ '提示信息，確定 End End If End Sub Private Sub Form_Load()Set conn = New ADODB.Connection

conn.Provider = ”Microsoft.Jet.OLEDB.4.0“ conn.ConnectionString = ”Data Source=“ & App.Path & ”aa.mdb“ conn.Open Set rs.ActiveConnection = conn With rs.Open(”select * from yonghu“).MoveFirst End With txtusername.Text = rs.Fields(0)Do While Not rs.EOF txtusername.AddItem(rs.Fields(0))rs.MoveNext Loop txtusername.Text = ”" End Sub 3.2信息查詢

信息查詢主要是對學生的基本信息和學生的成績進行查詢。在查詢的過程你可以利用學號、課程號、專業名等進行查詢。第四章 數據庫的分析

4.1 yonghu表

主要是登陸用戶所用的表。

4.2 student 表

學生的各種信息都來源于這個表。4.3 score表

此表是記錄學生成績信息表。4.4 course表

此表是記錄學生課程的表。第五章 軟件維護

在軟件運行維護階段對軟件產品所進行的修改就是維護。系統維護就是為了保證系統中的各個要素隨著環境的變化始終處于最新的，正確的工作狀態。系統維護的目的是保證管理信息系統正常而可靠地運行，并能使系統不斷地得到改善和提高，以充

分發揮作用。

本系統的維護是面向系統中各種構成要素的，根據維護對象的不同，系統維護的內容可分為以下幾類： 5.1數據維護

本系統對數據的需求是不斷發生變化的，系統中查詢題目中數據要定期正常更新，或隨環境及需要的變化而進行調整。此外，數據的備份與恢復，都是數據維護的工作內容。5.2代碼維護

隨著系統應用范圍的擴大，應用環境的變化，系統中的各種代碼都需要進行一定程度的增加、修改、刪除，以及設置新的代碼。結語及致謝

通過這次的設計，讓我對VB的使用有了進一步的了解。在我做設計的過程遇到了許多的困難。通過老師和同學的幫助, 一一化解了困難，并從中學到了很多編程方面的知識。

在本次畢業設計中，我要向我的指導老師致以深深的謝意，感謝指導老師在這段時間里在學習上和生活上所給予的悉心的教誨和無微不至的幫助，在我感覺到自己知識有所貧乏的時候給了我細心的指導和技術上的支持。使我自身的能力得到了不少的提高，這對于我以后的工作和學習都有一種巨大的幫助。感謝指導老師的耐心輔導。

參考文獻

[1] 宗大華，陳吉人.C語言程序設計教程.人民郵電出版社，2004-6-1 [2] 韓春成.C語言程序設計教程/21世紀高等院校規劃教材.中國水利水電出版社,2007，1，14 [3] 寧正元.數據結構--用C語言描述.中國水利水電出版社，2005-4-27 [4] 李梅.C語言編程入門.化學工業出版社，2002,01,01 [5] 于華,都一兵.優化Visual Basic．NET應用程序的性能[J].計算機系統應用,2004,10 [6] 邵英海.Visual Basic數據庫開發技術的探討.[J].丹東紡專學報,2004,11,4 [7] 金鳳霞.VB中Paint Picture圖形方法的使用 CAJ原文下載[J]., 1999,04 [8] 譚浩強.《C程序設計題解與上機指導（第3版）》.清華大學出版社,2005,7 [9] 聶雪軍,賀軍/譯.[美]Harvey M.Deitel, Paul J.Deitel /著.《C程序設計經典教程(第4版)》，清華大學出版社,2006,3 [10] 李春葆,張植民,肖忠付.《C語言程序設計題典》.清華大學出版社 ,2002,7 [11] 張小潘/譯，[美]科漢/著.《C語言編程（第3版）》.電子工業出版社 ,2006,3

[12] 徐寶文 李志/譯，[美]Brian W.Kernighan, Dennis M.Ritchie /著.《C程序設計語言(第2版·新

版)》.機械工業出版社,2004,1 [13] 魯沐浴.《C語言最新編程技巧200例》.電子工業出版社,1997，1

[14] 梁

翎，李愛齊.《C語言程序設計實用技巧與程序實例》.上海科普出版社,1996，5 [15] 陳國章.《Turbo C程序設計技巧與應用實例》.天津科學技術出版社,1995，5 [16] 王士元.《C高級實用程序設計》.清華大學出版社,1996，6

第四篇：學生成績管理系統VB程序

登陸

登陸

Private Sub cmdLogin_Click()If txtUser.Text = “" Then

MsgBox(”請輸入用戶名!“)

txtUser.SetFocus Else Call openconn sql = ”select * from login where username='“ & Trim(txtUser.Text)& ”' and password='“ & Trim(txtPwd.Text)& ”'“ rs.Open sql, conn, adOpenDynamic, adLockOptimistic If rs.EOF Then

MsgBox ”用戶不存在！“

Else

Unload Me

frmMain.Show End If End If End Sub

退出

Private Sub cmdRegister_Click()Unload Me End Sub

功能選擇

選課管理

Private Sub cmdChoice_Click()frmChoice.Show Unload Me End Sub 退出

Private Sub cmdExit_Click()End End Sub 查詢

Private Sub cmdFind_Click()frmFind.Show Unload Me End Sub 成績管理

Private Sub cmdGrade_Click()frmGrade.Show Unload Me End Sub 學生管理

Private Sub cmdStu_Click()frmStu.Show Unload Me End Sub

學生管理

添加

Private Sub cmdAdd_Click()frmAddStu.Show Unload Me End Sub 刪除

Private Sub cmdDel_Click()rs.Delete MsgBox(”刪除成功！“)End Sub 編輯

Private Sub cmdEdit_Click()frmEditStu.Show Unload Me End Sub 查找

Private Sub cmdFind_Click()'查詢功能 If cboFind.Text = ”學號“ Then

If txtInput.Text = ”“ Then

MsgBox(”學號輸入不能為空!“)

txtInput.SetFocus

Else

Dim sql1 As String

Set rs1 = New ADODB.Recordset

sql1 = ”select * from stuInfo where ID='“ & txtInput.Text & ”'“

rs1.CursorLocation = adUseClient

rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic, adCmdText

If rs.EOF Then

MsgBox(”查不到相關信息“)

txtInput.SetFocus

Else

Set DataGrid1.DataSource = rs1

DataGrid1.Refresh

End If

End If Else

If txtInput.Text = ”“ Then

MsgBox(”姓名輸入不能為空!“)

txtInput.SetFocus

Else

Dim sql2 As String

Set rs2 = New ADODB.Recordset

sql2 = ”select * from stuInfo where name='“ & txtInput.Text & ”'“

rs2.CursorLocation = adUseClient

rs2.Open sql2, conn, adOpenDynamic, adLockOptimistic, adCmdText

If rs.EOF Then

MsgBox(”查不到相關信息“)

txtInput.SetFocus

Else

Set DataGrid1.DataSource = rs2

DataGrid1.Refresh

End If

End If End If End Sub 返回

Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub 輸出窗口

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

' txtInput.Text = DataGrid1.Columns.Item(4)''獲取選中行的第5列數據

End Sub 窗體

Private Sub Form_Load()

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select * from stuInfo“

rs.CursorLocation = adUseClient

rs.Open sql, conn, adOpenDynamic, adLockOptimistic, adCmdText

Set DataGrid1.DataSource = rs 'datagrid綁定數據源 End Sub

成績查詢

返回 Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub 確定

Private Sub Command1_Click()

lblGrade.Caption = Trim(cboCourse.Text)+ ”課程成績“

Dim sql1 As String

Set rs1 = New ADODB.Recordset

sql1 = ”select score.ID,score.Num,score.score from score, course where name='“ & cboCourse.Text & ”' and score.Num=course.Num“

'sql1 = ”select * from course“

rs1.CursorLocation = adUseClient

rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic, adCmdText

Set DataGrid1.DataSource = rs1 End Sub 窗體

Private Sub Form_Load()

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select * from course“

rs.Open sql, conn, adOpenDynamic, adLockOptimistic

Do Until rs.EOF

cboCourse.AddItem rs(”name“)

rs.MoveNext

Loop End Sub

選課管理

返回

Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub 提交

Private Sub cmdSubmit_Click()If txtID = ”“ Then

MsgBox(”請輸入學號！“)

txtID.SetFocus ElseIf lstCourse.Text = ”“ Then

MsgBox(”請選擇課程！“)Else

Dim sql1 As String

Dim sql2, name As String

Set rs2 = New ADODB.Recordset

Set rs1 = New ADODB.Recordset

sql1 = ”select score.ID, score.Num from score , course where ID='“ & txtID.Text & ”' and name='“ & lstCourse.Text & ”' and score.Num=course.Num“

name = lstCourse.Text

sql2 = ”select Num from course where name='“ & name & ” '“

rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic

rs2.Open sql2, conn, adOpenDynamic, adLockOptimistic

If rs1.EOF Then

rs1.AddNew

rs1(”ID“)= txtID.Text

rs1(”Num“)= rs2(”Num“)

rs1.Update

MsgBox(”選課成功！“)

rs1.Close

Else

MsgBox(”已選過該課！“)

End If End If End Sub 窗體

Private Sub Form_Load()

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

sql = ”select * from course“

Call openconn

rs.Open sql, conn, adOpenDynamic, adLockOptimistic

Do Until rs.EOF 'listbox控件利用循環讀取課程表中的課程名

lstCourse.AddItem rs(”name“)

rs.MoveNext

Loop End Sub

查詢

確定

Private Sub cmdOK_Click()If txtID = ”“ Then

MsgBox(”學號不能為空！“)

txtID.SetFocus Else

Dim sql As String

Dim sum1, sum2 As Single

Dim n As Integer

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select course.name , score.score , course.credit from score , course where score.ID='“ & txtID.Text & ”' and score.Num=course.Num“

rs.CursorLocation = adUseClient

rs.Open sql, conn, adOpenDynamic, adLockOptimistic, adCmdText

Set DataGrid1.DataSource = rs

sum1 = 0

sum2 = 0

n = 0

Do While Not rs.EOF

sum1 = sum1 + Val(rs(”score“))

sum2 = sum2 + Val(rs(”credit“))

n = n + 1

rs.MoveNext

Loop

lblAvg.Caption = Format(sum1 / n, ”0.0“)

lblCredit.Caption = sum2 End If End Sub 返回

Private Sub cmdReturn_Click()frmMain.Show Unload Me End Sub

修改學生信息

返回

Private Sub cmdReturn_Click()frmStu.Show Unload Me End Sub 提交

Private Sub cmdSubmit_Click()If txtID.Text = ”“ Then

MsgBox(”學號不能為空！“)

txtID.SetFocus ElseIf txtName.Text = ”“ Then

MsgBox(”姓名不能為空！“)

txtName.SetFocus ElseIf txtSex.Text = ”“ Then

MsgBox(”學分不能為空！“)

txtSex.SetFocus ElseIf txtAge.Text = ”“ Then

MsgBox(”年齡不能為空！“)

txtAge.SetFocus Else

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select * from stuInfo where ID='“ & txtID.Text & ”'“

rs.Open sql, conn, adOpenDynamic, adLockOptimistic

If Not rs.EOF Then

'判斷學號是否存在 rs(”name“)= txtName.Text

rs(”sex“)= txtSex.Text

rs(”age“)= txtAge.Text

rs(”pro“)= cboPro.Text

rs.Update

MsgBox(”修改成功！“)

Else

MsgBox(”學號不存在!“)

End If End If End Sub 窗體

Private Sub Form_Load()txtID = rs(”ID“)txtName = rs(”name“)txtSex = rs(”sex“)txtAge = rs(”age“)cboPro.Text = rs(”pro“)End Sub

添加學生

返回

Private Sub cmdReset_Click()frmStu.Show Unload Me End Sub 提交

Private Sub cmdSubmit_Click()If txtID.Text = ”“ Then

MsgBox(”學號不能為空！“)

txtID.SetFocus ElseIf txtName.Text = ”“ Then

MsgBox(”請輸入姓名！“)

txtName.SetFocus ElseIf txtSex.Text = ”“ Then

MsgBox(”請輸入性別！“)

txtSex.SetFocus ElseIf txtAge.Text = ”“ Then

MsgBox(”年齡不能為空！“)

txtAge.SetFocus Else

Dim sql As String

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

Call openconn

sql = ”select * from stuInfo where ID='“ & txtID.Text & ”'“

rs.Open sql, conn, adOpenDynamic, adLockOptimistic

If rs.EOF Then

'判斷學號是否存在 rs.AddNew

rs(”ID“)= txtID.Text

rs(”name“)= txtName.Text

rs(”sex“)= txtSex.Text

rs(”age“)= txtAge.Text

rs(”pro“)= cboPro.Text

rs.Update

MsgBox(”添加成功！“)

frmStu.Show

Unload Me

Else

MsgBox(”學號已存在!")

End If End If End Sub

第五篇：VB學生成績管理系統任務書

河北聯合大學

《軟件設計基礎-VB》課程設計任務書

學院班級設計人成績

一、題目：學生成績管理系統

二、目的與要求：

1.目的：

培養學生綜合利用VisualBasic6.0語言進行程序設計的能力，主要培養學生使用ACCESS數據庫和ADO控件設計信息管理類軟件。

2.基本要求：

① 要求用ACCESS搭建數據庫。

② 使用ADO控件實現與數據庫的連接。

③ 使用MSChart圖表控件繪制各種類型的圖表；使用MSFlexGrid表格控件顯示數據信息。④ 程序界面美觀，運行無差錯

3.創新要求：

在基本要求達到后，進行創新設計：

（1）允許更改密碼。

（2）增加排名次的功能。

（3）可以按院系、專業和年級計算平均成績并繪制圖表。

（4）用戶可以添加新的院系和專業名稱。

三、設計方法和基本原理：

1.功能要求：

設計一個“學生成績管理系統”程序，實現對學生成績的添加、修改、刪除、查詢和圖表繪制，具體如下：

（1）運行程序先進入“登錄”界面，要求輸入數據庫密碼，如果密碼錯誤，給出提示。

（2）經過密碼檢驗后，顯示主界面，以表格形式顯示數據庫中所有學生的成績信息。

（3）“添加”：其中院系、專業和年級使用組合框進行選擇。

（4）“修改”：只允許修改學生成績，不允許修改姓名、院系、專業和年級。

（5）“刪除”：可以刪除學生信息，刪除前進行確認。

（6）“查詢”：可以根據院系、專業和年級進行查詢。

（7）“圖表繪制”：分別以二維條形圖、二維圓餅圖和三維條形圖的形式顯示學生成績中優、良、中、及格和不及格的分布情況。

2.問題的解決方案：

40-1

根據問題描述，可以將問題解決分為以下幾個方面：

① 進行需求分析確定數據庫的結構，建立相應的數據表。

② 利用ADO控件與數據庫連接。

③ 設計主界面，要求有菜單、工具欄和狀態欄，具體內容按功能要求自行設計。

④ 其他界面自行設計，滿足基本功能要求即可。

四、難點與提示：

（1）本題目中數據庫文件的設計是關鍵，可按如下方法：

創建一個數據庫文件scores.mdb，包含三個數據表：院系、專業和成績。“院系”表中保存院系代號和名稱；“專業”表中保存專業代號和名稱，以及所屬院系的代號；“成績”表中保存學生姓名、院系代號、專業代號、年級和各科成績。

（2）ADO控件和數據庫的連接代碼：

provider = “provider=Microsoft.jet.oledb.4.0”

datasource = “data source=” & App.Path & “scores.mdb”

With Adodc1

.Mode = adModeReadWrite

.ConnectionString = provider & “;” & datasource

.CommandType = adCmdTable

.RecordSource = “yx”

.Refresh

End With

五、課程設計時間：2012年5月10日至2012年7月1日

六、課程設計進行地點：學校機房

七、書寫設計報告的要求：

設計報告中包含以下幾個方面：

1.設計題目

2.設計思路

①劃分功能模塊

②確定各模塊的算法

3.用圖示的方式給出過程或函數之間的調用關系

4.列出程序清單，并加以必要的注釋

5.對該設計題目有何更完善的方案

6.通過本次設計，有何收獲及心得體會

八、課程設計的考核方式及評分方法

40-2

1.考核方式

課程設計結束時，學生要提交課程設計報告（A4紙打印），并將電子文檔和源程序上傳至課程設計服務器中：

ftp://210.31.197.23

找到自已指導教師的文件夾后，進入班級文件夾，再找到自己的文件夾，然后將文檔復制到該文件夾中即可。

2．評分方法

（1）出勤率

（2）課程設計準備工作

（3）課程設計期間紀律

（4）課程設計運行結果

（5）課程設計報告

（6）答辯情況

指導教師： 系主任簽字：日期：40-3 年月日