【正文】 olChange(ByVal Row As Long, ByVal Col As Long)hang = Row End SubPrivate Sub datagrid()griddelete = True 39。 numpage amp?！?amp。 and 課程名稱=39。 amp。 Group by 姓名 order by avg(成績(jī))desc“ tbbm1 = amp?！?amp。教育領(lǐng)域也不例外，現(xiàn)今已經(jīng)出現(xiàn)了各種遠(yuǎn)程網(wǎng)絡(luò)在線教育系統(tǒng)、圖書館管理系統(tǒng)、學(xué)生信息管理系統(tǒng)等。隨著系統(tǒng)實(shí)施的日益成熟，最終會(huì)使單機(jī)作業(yè)為主的教學(xué)管理活動(dòng)提高到這個(gè)平臺(tái)上來，從而實(shí)現(xiàn)學(xué)校學(xué)生成績(jī)信息管理的辦公自動(dòng)化，籍以提高辦學(xué)效率和質(zhì)量。Java語言跨平臺(tái)性強(qiáng)，可以在windows，linux，ubuntu等系統(tǒng)下使用，方便簡(jiǎn)單，安全性好。import .*。public class myStudent { public myStudent(){}public static void main(String[] args){ // TODO code application logic here loginFrame lf=new loginFrame()。例如要查詢學(xué)生成績(jī)，要求可以按照專業(yè)、班級(jí)等多種方式查詢。他擁有邏輯、流程處理，即VBA語言（VB也可以用來做邏輯處理）；又可以存儲(chǔ)數(shù)據(jù)，即在“表”中存儲(chǔ)數(shù)據(jù)。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生檔案管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。設(shè)置打印區(qū)域 = 37 = 4 = True Exit Sub finish:MsgBox 39。 amp。 and 課程名稱=39。 amp。拒絕刪除 gridedit = FalseExit Sub tkFinish:MsgBox End Sub Private Sub XPButton6_Click()On Error GoTo tkFinish MsgBox ”未授權(quán)版本,不支持目標(biāo)刪除操作!“, , ”提示“ Exit Sub tkFinish:MsgBox End SubPrivate Sub XPButton8_Click(Index As Integer)Call findcg_Click End Sub5．4成績(jī)統(tǒng)計(jì)表及程序如下：相關(guān)程序代碼如下：Private Sub Form_Load() = FalseSet qy2 = (”select 班級(jí)名稱 from 班級(jí)“)Do While Not (0) Loop Set qy2 = (”select 課程名稱 from 課程“)Do While Not (0) Loop End SubPrivate Sub XPButton1_Click()If = True Then = FalseIf ”“ And ”“ Then tbsql1 = ”select 姓名,avg(成績(jī))as平均成績(jī),max(成績(jī))as 最高分,min(成績(jī))as 最低分 from 學(xué)生與課程,學(xué)生信息 where = and = and 班級(jí)=39。 (j1 If (hang, 1).Text = ”“ Then MsgBox ”己完成修改操作!“, , ”提示“ Exit Sub End If sql = ”update “ amp。設(shè)定讀取列If (j1)End If Next 39。管理員驗(yàn)證 If admin = False Then c1(3).Enabled = False = False 39。 這里是通過重復(fù)計(jì)算來計(jì)算按鈕所需移動(dòng)的總高度If je i ThenDo While X iDo While Y = Xj = j + 360 39。按要求讀取數(shù)據(jù)空間 End Sub Private Sub grid1pz()39。新建一個(gè)數(shù)據(jù)庫(kù),創(chuàng)建任何一個(gè)數(shù)據(jù)庫(kù)的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫(kù)，設(shè)計(jì)必須是靈活的、有邏輯的。Visual Basic 應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和方法）。正確使用對(duì)象可以減少程序和開發(fā)時(shí)間，提高程序設(shè)計(jì)者的工作效率。 Basic ，能對(duì)多種數(shù)據(jù)庫(kù)進(jìn)行讀寫操作。VB具有很強(qiáng)的數(shù)據(jù)庫(kù)管理功能。例如：檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。利用計(jì)算機(jī)的信息管理、處理能力還可以擴(kuò)大組織擁有信息的用途。ll MIS的開發(fā)必須具有一定的科學(xué)管理工作基礎(chǔ)。這些優(yōu)點(diǎn)能夠極大地提高公司的工作效率,也是公司管理科學(xué)化、正規(guī)化并與世界接軌的重要條件。⒎學(xué)生課程的設(shè)置和修改。這種傳統(tǒng)的手工管理模式必然被以計(jì)算機(jī)為物質(zhì)基礎(chǔ)的信息管理方法所取代。第一篇：學(xué)生信息管理系統(tǒng)文 摘 要學(xué)生信息，它的工作量可能是其它信息工作量的幾倍，班級(jí)的增加、班級(jí)的查找、班級(jí)的修改；學(xué)生檔案；課程管理；成績(jī)管理；繳費(fèi)管理；統(tǒng)計(jì)等等，每個(gè)信息的數(shù)據(jù)都在不斷地變化著，如果采用人工的方式進(jìn)行操作，那么，一天的工作量，足以讓人覺得比較繁瑣，吃不消。作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對(duì)學(xué)生檔案進(jìn)行管理，有著手工管理所無法比擬的優(yōu)點(diǎn)，如：檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、受命長(zhǎng)、成本低等。當(dāng)今社會(huì)，計(jì)算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能卻有了長(zhǎng)足的進(jìn)步。 管理信息系統(tǒng)的概念管理信息系統(tǒng)（Management Information Systems，簡(jiǎn)稱MIS），是一個(gè)不斷發(fā)展的新型學(xué)科，MIS的定義隨著計(jì)算機(jī)技術(shù)和通信技術(shù)的進(jìn)步也在不斷更新，在現(xiàn)階段普遍認(rèn)為MIS 是人為或計(jì)算機(jī)設(shè)備以及其他信息處理手段組成并用于管理信息的系統(tǒng)。只有在合理的管理體制、完善的規(guī)章制度、穩(wěn)定的生產(chǎn)秩序、科學(xué)的管理方法和準(zhǔn)確的原始數(shù)據(jù)的基礎(chǔ)上，才能進(jìn)行MIS的開發(fā)。當(dāng)前所未有的挑戰(zhàn)是使用計(jì)算機(jī)神秘般的能力開始信息管理工作，包括高層管理活動(dòng)和決策等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生學(xué)籍管理的效率，也是企業(yè)的科學(xué)化、正規(guī)化管理，與世界接軌的重要條件。利用數(shù)據(jù)控件和數(shù)據(jù)庫(kù)管理窗口，可以直接建立和編輯MS Access 格式的數(shù)據(jù)庫(kù)，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能，同時(shí)還能直接編輯和訪問其他外部數(shù)據(jù)庫(kù)，如Dbase、FoxPro、Paradox等。另外他所提供的[可視化數(shù)據(jù)管理器]能幫助用戶構(gòu)造多種類型的數(shù)據(jù)庫(kù)，同時(shí)提供了能自動(dòng)生成SQL語句的功能和新的ActiveX數(shù)據(jù)對(duì)象ADO。(3)屬性(Properties)屬性是VB系統(tǒng)提供的有關(guān)對(duì)象的參數(shù)或數(shù)據(jù)接口。開發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對(duì)象。創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。處理grid1的操作 = fnumber + 1 (1).Width = 120 (2).Width = 100 (3).Width = 80 (4).Width = 40 (5).Width = 80 (6).Width = 30 (7).Width = 50 (8).Width = 80 (9).Width = 60 (10).Width = 80 (11).Width = 100 (12).Width = 100 (13).Width = 100 (4).CellType = cellComboBox (4).Clear (4).AddItem “男” (4).AddItem “女” (5).CellType = cellCalendar (2).CellType = cellComboBox (2).Clear Set qy2 = (“select 班級(jí)名稱 from 班級(jí)”)Do While Not (2).AddItem (0) Loop (9).CellType = cellComboBox (9).Clear (9).AddItem “團(tuán)員” (9).AddItem “黨員” (9).AddItem “無” (1).Locked = True End SubPrivate Sub asPopup10_Click(Cancel As Boolean)Dim fo2 As CTranslucentForm Set fo2 = New CTranslucentForm = = 90 / 100 * 255 = vbMinimized Load Form6 1 End SubPrivate Sub asPopup2_Click(Cancel As Boolean) = True = False tkbase = “學(xué)生信息” fnumber = 13 Set qy1 = (“select * from ” amp。360是每個(gè)按鈕的高度Y = YjX = X360j = 0NextEnd If s = sFre2(y1).TopElseFre2(y1).Height = (y1).HeightEnd IfElseFre2(y1).Visible = FalseEnd If Next Loop je = i 39。增加學(xué)生 = False 39。讀取上一記錄 Next End If = ”共“ amp。 tkbase amp?！?amp。 ”39?！?amp。 ”39。MsgBox ”無此對(duì)象或其它參數(shù)錯(cuò)誤! End SubPrivate Sub Form_Resize()If 1 Then = 240 = End If End Sub總結(jié)通過近三個(gè)月的畢業(yè)設(shè)計(jì)，經(jīng)過資料的收集、方案的選擇比較和論證，到分析計(jì)算，再到程序的編制以及畢業(yè)設(shè)計(jì)論文的撰寫等各個(gè)環(huán)節(jié)，我對(duì)大學(xué)三年?？齐A段的知識(shí)有了一個(gè)整體的深層次的理解，同時(shí)對(duì)程序的理解更加深刻和準(zhǔn)確。因此，開發(fā)這樣一套管理軟件成為很有必要的事情，故決定選擇學(xué)生成績(jī)管理系統(tǒng)來作為本人的畢業(yè)設(shè)計(jì)，在很短的時(shí)間里開發(fā)出一套界面友好，功能強(qiáng)大，使用簡(jiǎn)單的適用于各規(guī)模學(xué)院的學(xué)生成績(jī)管理系統(tǒng)。第二章 系統(tǒng)分析 系統(tǒng)分析學(xué)生信息管理系統(tǒng)，可用于學(xué)校等機(jī)構(gòu)的學(xué)生信息管理，查詢，更新與維護(hù)，使用方便，易用性強(qiáng)，圖形界面清晰明了。這些功能基本上能滿足用戶操作的需要，這樣用戶操作起來就更簡(jiǎn)單方便。Font ft=new Font(。 數(shù)據(jù)庫(kù)物理設(shè)計(jì) 本系統(tǒng)采用Access數(shù)據(jù)庫(kù)管理系統(tǒng)作為后臺(tái)數(shù)據(jù)庫(kù)的開發(fā)工具，設(shè)計(jì)的表結(jié)構(gòu)如下：第三章 程序代碼及運(yùn)行效果：/*主類代碼*/ package kcsj。用ODBC驅(qū)動(dòng)實(shí)現(xiàn)前臺(tái)Java與后臺(tái)SQL數(shù)據(jù)庫(kù)的連接。學(xué)生成績(jī)管理系統(tǒng)可以實(shí)施應(yīng)用在各中、大、小院校中，適用范圍很廣，應(yīng)用性強(qiáng)。謹(jǐn)向?qū)徳u(píng)本文的各位專家、老師致意！參 考 文 獻(xiàn)[1].劉新民,蔡瓊,白康生編著《Visual Basic 》清華大學(xué)出版社2004[2].郭勝,夏邦貴編著《Visual Basic數(shù)據(jù)庫(kù)開發(fā)入門與范例解析》[3].王彬華,李建華編著《Visual Basic實(shí)例教程》[4].劉韜,駱娟,何旭洪編著《Visual Basic數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)實(shí)例導(dǎo)航(第二版)》[5].孫越編著《Visual Basic數(shù)據(jù)庫(kù)開發(fā)自學(xué)教程》[6].郭曉烹編著《Visual Basic高級(jí)編程及其項(xiàng)目應(yīng)用開發(fā)》中國(guó)水利水電出版社[7].曹青 郭志強(qiáng)編著的《Visual Basic程序設(shè)計(jì)教程》機(jī)械工業(yè)出版社第二篇：學(xué)生信息管理系統(tǒng)摘 要隨著網(wǎng)絡(luò)通信技術(shù)的迅速發(fā)展和信息技術(shù)的廣泛應(yīng)用，計(jì)算機(jī)的應(yīng)用已普及到經(jīng)濟(jì)和社會(huì)生活的各個(gè)領(lǐng)域。 ”所有成績(jī)統(tǒng)計(jì)表“ tbsql2 = ”select 成績(jī) from 學(xué)生與課程,學(xué)生信息 where = and 班級(jí)=39。 ”39?！?amp。 ”39。 ”=39。 ”頁(yè) 第“ amp。輸入成績(jī) = False = False = False End If With = = False.ExtendLastCol = True.Appearance = = = Flat. = “Tahoma”. = = RGB(84, 201, 134).BackColorFixedSel = RGB(167, 111, 177).BackColorBkg = RGB(198, 229, 211).BackColorScrollBar = RGB(167, 111, 177).BackColor1 = RGB(231, 235, 247).BackColor2 = RGB(198, 229, 211).GridColor = RGB(148, 190, 231).Column(0).Width = 0 End With With = = = = = = = = = = = = = “Tahoma”. = = RGB(84, 201, 134).BackColorFixedSel = RGB(167, 111, 177).BackColorBkg = RGB(198, 229, 211).BackColorScrollBar = RGB(167, 111, 177).BackColor1 = RGB(231, 235, 247).BackColor2 = RGB(198, 229, 211).GridColor = RGB(148, 190, 231).Column(0).Width = 0 End With je = 4 Dim fr As Integer = RGB(168, 217, 189)For fr = 0 To 4 Fre2(fr).Visible = False Fre2(fr).BackColor = RGB(106, 137, 188)Next = False Call c1_Click(0)Exit Sub finish: MsgBox End SubPrivate Sub Grid2_CellChange(ByVal Row As Long, ByVal Col As Long)39。” amp。 tkbase amp。修改已建的數(shù)據(jù)庫(kù)數(shù)據(jù)庫(kù)的修改分為：添加、編輯和刪除記錄。Visual Basic 應(yīng)用