【正文】 import .*。import .*。多用窗口和控件，充分體現(xiàn)窗口的多元化格局。并于數(shù)據(jù)庫相連接，能夠?qū)W(xué)生的學(xué)號(hào)、姓名、性別、班級(jí)、專業(yè)進(jìn)行查詢、添加和刪除等，簡捷方便，容易使用。5）豐富的API文檔和類庫Java為用戶提供了詳盡的API（Application Program Interface）文檔說明。第一章 相關(guān)技術(shù)簡介 java語言簡介Java語言是sun公司與1995年5月正式發(fā)布的程序設(shè)計(jì)語言，他的前身是sun公司為智能消費(fèi)類家用電器研究而開發(fā)的項(xiàng)目的一部分。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來了不少的困難。所以學(xué)生信息管理信息系統(tǒng)的開發(fā)和應(yīng)用是必要的，它能夠?yàn)楣芾砣藛T提供充足的信息和快捷的查詢手段，提高學(xué)校對(duì)學(xué)生信息的管理效率。設(shè)置單元格格式(17, 1). = 11(17, 1, 17, 5).Merge(17, 1, 17, 5).Alignment = cellCenterCenter(18, 1, 19, 5).Alignment = cellCenterCenter(18, 1, 18, 5).BackColor = vbYellowWith (18, 1, 18, 5).Borders(cellEdgeLeft)= cellThin.Borders(cellEdgeRight)= cellThin.Borders(cellEdgeTop)= cellThin.Borders(cellEdgeBottom)= cellThin.Borders(cellInsideHorizontal)= cellThin.Borders(cellInsideVertical)= cellThinEnd With39。 ”39?！?ElseIf ”“ Then tbsql1 = ”select 姓名,avg(成績)as平均成績,max(成績)as 最高分,min(成績)as 最低分 from 學(xué)生與課程,學(xué)生信息 where = and = and 班級(jí)=39。 ” 成績統(tǒng)計(jì)表“ tbsql2 = ”select 成績 from 學(xué)生與課程,學(xué)生信息 where = and 班級(jí)=39。 amp。 Group by 姓名 order by avg(成績)desc“ tbbm1 = amp。 and 課程名稱=39。 amp。 ”39。 ”39。 ”39?？罩档奶幚?(i, j).Text = ”“ Else (i, j).Text = (j1)= Null Then 39。讀取下一記錄 Else Exit Sub End If Next End If End SubPrivate Sub Grid2_Validate(Cancel As Boolean)Dim nActiveRow As Long, nActiveCol As LongConst VK_TAB = 9If GetKeyState(VK_TAB) 0 ThennActiveRow = nActiveCol = If nActiveCol = numpage = 1 = 21 For i = 1 To 20 39。表狀態(tài) End If sql, n, adOpenStatic, adLockReadOnly, adCmdText For i = 1 To fnumber (0, i).Text = (i1)Is Nothing Then 39。 Day(Date)amp。” gridpz2 datagrid gridsave = False gridedit = True griddel = True (1).Locked = True (2).Locked = True (3).Locked = True End SubPrivate Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Grid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then If gridsave = True Then = True Else = False End If If gridedit = True Then = True Else = False End If If griddel = True Then = True Else = False End If If admin = False Then = False = False = False = False End If PopupMenu student End If End SubPrivate Sub Grid1_RowColChange(ByVal Row As Long, ByVal Col As Long)hang = Row If gridsave = True And Col = 5 Then 39。X1沒用上 j = 0 39。 (1) Loop (3).CellType = cellComboBox Set qy1 = (“select 學(xué)號(hào),名字 from 學(xué)生信息”)(3).Clear Do While Not (3).AddItem (0)amp。 “ order by 學(xué)號(hào) desc” grid1pz 39。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。計(jì)算機(jī)的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（flatfile）和關(guān)系數(shù)據(jù)庫（relational）。 實(shí)現(xiàn)工具欄CoolBar控件與Office2000 中看到的CoolBar是類似的。Visual Basic 作為一種面向?qū)ο蟮木幊谭椒?，把程序和?shù)據(jù)封裝起來作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予相應(yīng)的屬性。程序所用的鍵盤事件有KeyPress（按鍵）事件，KeyDown事件和KeyUp事件；鼠標(biāo)事件有Click（單擊鼠標(biāo)）事件，DbDlicd（雙擊鼠標(biāo)）。當(dāng)把這些工具放置到用戶界面對(duì)應(yīng)的窗體上時(shí)，被稱為對(duì)象或控件。 Visual Basic 語言的特點(diǎn)Visual Basic 語言用其設(shè)計(jì)應(yīng)用程序時(shí)具有兩個(gè)基本特點(diǎn)：可視化設(shè)計(jì)和事件驅(qū)動(dòng)編程。在應(yīng)用程序內(nèi)可以通過Internet 或Intranet訪問其他計(jì)算機(jī)中的文檔和應(yīng)用程序；可以創(chuàng)建Internet服務(wù)器應(yīng)用程序，包括IIS應(yīng)用程序；支持HTML技術(shù)（DHTML）的應(yīng)用程序；具有Web應(yīng)用程序發(fā)布功能等。該系統(tǒng)主要提供了六部分，功能分別為導(dǎo)入學(xué)生數(shù)據(jù)，增加刪除學(xué)生，住宿分配，住宿調(diào)整，退房管理，走讀管理，學(xué)生情況查詢，房源使用情況，空床統(tǒng)計(jì)情況，分類統(tǒng)計(jì)情況，衛(wèi)生成績錄入，衛(wèi)生查詢與統(tǒng)計(jì)，公寓違紀(jì)錄入，公寓違紀(jì)查詢，添加用戶，修改密碼，退出系統(tǒng)，這些功能基本上覆蓋了學(xué)生公寓管理的主要部分。而Visual Basic使用交互式方法開發(fā)應(yīng)用程序，3個(gè)步驟之間沒有明顯的界限。不僅僅浪費(fèi)了大量的人力物力，而且由于人工管理存在著大量的不可控因素，造成了學(xué)籍管理的某些不規(guī)范，使得學(xué)籍管理陷入“事倍功半”的地步。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)，它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。也非常重要。然而，隨著計(jì)算機(jī)科學(xué)的不斷發(fā)展和進(jìn)步，是它跨越了數(shù)值計(jì)算領(lǐng)域，進(jìn)入管理領(lǐng)域，成為信息處理的重要工具。l3．MIS的相關(guān)學(xué)科MIS是一個(gè)交叉性的綜合性學(xué)科，組成部分有：計(jì)算機(jī)學(xué)科（網(wǎng)絡(luò)通信、數(shù)據(jù)庫、計(jì)算機(jī)語言等）、數(shù)學(xué)（統(tǒng)計(jì)學(xué)、運(yùn)籌學(xué)、線性規(guī)劃等）、管理學(xué)、仿真等多學(xué)科。l 通過MIS實(shí)現(xiàn)信息增值，用數(shù)學(xué)模型統(tǒng)計(jì)分析數(shù)據(jù)，實(shí)現(xiàn)輔助決策。信息具有時(shí)間性。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)單位的各項(xiàng)事務(wù)進(jìn)行科學(xué)化的管理有著無法比擬的優(yōu)點(diǎn)。由于現(xiàn)在高校的學(xué)生檔案的管理趨向于復(fù)雜化和多元化，隨著計(jì)算機(jī)的廣泛應(yīng)用，越來越多的高校均采用了計(jì)算機(jī)化的管理模式。⒌班級(jí)管理信息的查詢。面對(duì)龐大的信息量需要有學(xué)生管理系統(tǒng)來提高學(xué)生管理工作的效率。據(jù)調(diào)查，目前我國各類高等院校中還有相當(dāng)一部分學(xué)生檔案管理還停留在紙介質(zhì)的基礎(chǔ)上，尤其是中、小學(xué)對(duì)學(xué)生檔案的管理更是落后，這樣的管理機(jī)制已經(jīng)不能適應(yīng)時(shí)代發(fā)展的要求，其管理方法將浪費(fèi)許多人力和物力。通過本校內(nèi)部的信息，依據(jù)統(tǒng)一數(shù)據(jù)信息進(jìn)行管理，把任何一塊信息所產(chǎn)生的數(shù)據(jù)變動(dòng)及時(shí)地反映給其它相關(guān)信息，做到數(shù)據(jù)共享。所以信息管理系統(tǒng)是一個(gè)教育單位不可缺少的部分,它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來說都至關(guān)重要,所以學(xué)生信息管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄螌W(xué)生信息管理系統(tǒng)是為本校開發(fā)的，經(jīng)過我們仔細(xì)分析，系統(tǒng)所采用的語言是Visual Basic，用Microsoft Access 2000數(shù)據(jù)庫完成。Payment management。因此，開發(fā)一套能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄蔚膶W(xué)生信息管理系統(tǒng)，將是非常必要的，也是十分及時(shí)的。⒉學(xué)生信息的查詢，包括查詢學(xué)生基本信息、所在班級(jí)、已學(xué)課程和成績等。在學(xué)校中用計(jì)算機(jī)管理學(xué)生檔案的意義：現(xiàn)在我國的學(xué)校中檔案的管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。信息是經(jīng)過加工的對(duì)決策者有價(jià)值的數(shù)據(jù)。 MIS的結(jié)構(gòu)、特征及相關(guān)學(xué)科1．MIS的結(jié)構(gòu)MIS由信源、信宿、信息處理、信息用戶和信息管理者等五個(gè)部分組成。l管理業(yè)務(wù)的標(biāo)準(zhǔn)化，各部門都有相應(yīng)的作業(yè)規(guī)范。企業(yè)經(jīng)理的百分之八十的時(shí)間用于信息的傳輸與處理，一些西方發(fā)達(dá)國家從事信息處理工作的人數(shù)多，在二十世紀(jì)八十年代就已經(jīng)占職工總數(shù)的百分之五十以上，而美國1993年政府報(bào)告“國家信息基礎(chǔ)結(jié)構(gòu)：行動(dòng)計(jì)劃”中指出“2/3的美國勞動(dòng)者從事與信息有關(guān)的工作，其余1/3工作在高度依賴于信息的產(chǎn)業(yè)部門，”這種職工可以成為“知識(shí)工作者”，他們主要就是收集、傳輸和加工信息，包括編輯文件、寫報(bào)告、分析信息、作計(jì)劃等。這就導(dǎo)致了管理信息系統(tǒng)的產(chǎn)生。管理員可以擁有完全的權(quán)限管理系統(tǒng)，而學(xué)生用戶只擁有查詢學(xué)籍信息和查詢成績信息的權(quán)限。在下面的各章中我將以開發(fā)學(xué)籍管理系統(tǒng)為例，談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法。VB開發(fā)的應(yīng)用程序，沒有明顯的開始和結(jié)束標(biāo)志。 完善的聯(lián)機(jī)幫助功能強(qiáng)大的聯(lián)機(jī)幫助功能和示范代碼，設(shè)計(jì)任何時(shí)候，只需按下F1鍵，就會(huì)顯示必要的提示，運(yùn)行時(shí)，也會(huì)對(duì)出現(xiàn)的錯(cuò)誤給出一定的提示。Visual Basic 還支持用戶自己開發(fā)ActiveX控件和制作ActiveX文檔。6.[應(yīng)用程序安裝向?qū)能幫助用戶自動(dòng)生成具有一定功能的應(yīng)用程序，大大加快了程序的開發(fā)速度。VB系統(tǒng)的人機(jī)交互界面或接口，無論是在設(shè)計(jì)時(shí)或是在運(yùn)行時(shí)，都是Windows 系統(tǒng)的標(biāo)準(zhǔn)視窗。比如，對(duì)象的名稱、在屏幕上顯示的位置、大小、顏色、接收或容納的數(shù)據(jù)內(nèi)容及數(shù)據(jù)的表現(xiàn)格式等。(7)模塊(Module)模塊是指一些運(yùn)算量或過程進(jìn)行聲明或定義的一個(gè)集合。Visual Basic 應(yīng)用由一系列對(duì)象組成，包括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對(duì)象、用戶事件等等，對(duì)象中又包含若干控件如命令按鈕、單行編輯器等這些對(duì)象和控件都可在許多應(yīng)用中重復(fù)使用。本系統(tǒng)就用了Cool工具中的Statubar控件，在系統(tǒng)這一界面中，添加了狀態(tài)欄，在第一個(gè)欄中，在樣式這一欄中選擇了文本，在第二個(gè)欄中，選擇了系統(tǒng)日期，第三個(gè)欄中選擇了系統(tǒng)時(shí)間，這樣，任何時(shí)候操作本系統(tǒng)，都可以看到當(dāng)前的時(shí)間和日期。修改已建的數(shù)據(jù)庫數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。第五章程序及其分析 5．1 程序框圖5．2 主界面圖：5．3信息查詢圖表及代碼 Dim i, j, n As Integer Dim sql As String Private Declare Function GetKeyState Lib “user32” _(ByVal nVirtKey As Long)As Integer Public je As Integer 39。 tkbase amp。將x,y,z,x1賦于菜單總數(shù),x存放frame1的固定值 Y = s 39?！?amp。 “年” amp。輸入成績 = 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, 19