【正文】 展與廣泛應(yīng)用，使得各種管理工作越來越依賴于對(duì)信息的管理。信息的采集、傳輸、加工和利用成為人們特別是信息工作者的主要活動(dòng)。所以現(xiàn)在各行各業(yè)對(duì)信息的管理要求越來越大。然而，隨著計(jì)算機(jī)科學(xué)的不斷發(fā)展和進(jìn)步，是它跨越了數(shù)值計(jì)算領(lǐng)域，進(jìn)入管理領(lǐng)域，成為信息處理的重要工具。利用計(jì)算機(jī)的信息管理、處理能力還可以擴(kuò)大組織擁有信息的用途。信息工作的迅速增長，使計(jì)算機(jī)的應(yīng)用范圍越來越廣泛，應(yīng)用的功能由一般的數(shù)據(jù)處理走向支持決策。管理信息系統(tǒng)從產(chǎn)生到現(xiàn)在已經(jīng)經(jīng)歷了電子數(shù)據(jù)處理系統(tǒng)（如統(tǒng)計(jì)系統(tǒng)、工資系統(tǒng)、數(shù)據(jù)更新系統(tǒng)等），信息報(bào)告系統(tǒng)（如生產(chǎn)報(bào)告系統(tǒng)、服務(wù)狀態(tài)報(bào)告系統(tǒng)、研究狀態(tài)報(bào)告系統(tǒng)等），支持決策系統(tǒng)，綜合服務(wù)系統(tǒng)（如綜合業(yè)務(wù)數(shù)字網(wǎng)絡(luò)系統(tǒng)、國際互聯(lián)網(wǎng)等）等幾個(gè)階段。也非常重要。面對(duì)龐大的信息量，有必要開發(fā)學(xué)生信息管理系統(tǒng)來提高學(xué)生管理工作的效率。本學(xué)生信息管理系統(tǒng)包括學(xué)籍信息管理、班級(jí)信息管理、課程信息管理、成績信息管理四大模塊。學(xué)籍管理系統(tǒng)是一個(gè)教育單位不可缺少的部分，它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來說都至關(guān)重要，所以學(xué)籍管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)，它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。例如：檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。因此，開發(fā)這樣一套學(xué)籍管理軟件成為很有必要的事情。而學(xué)籍信息是學(xué)校的一項(xiàng)重要的數(shù)據(jù)資源，學(xué)籍管理也是學(xué)校的一項(xiàng)常規(guī)性的重要工作。不僅僅浪費(fèi)了大量的人力物力，而且由于人工管理存在著大量的不可控因素，造成了學(xué)籍管理的某些不規(guī)范，使得學(xué)籍管理陷入“事倍功半”的地步。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長,將產(chǎn)生大量的文件和數(shù)據(jù)第三章 系統(tǒng)開發(fā)工具——Visual Basic ：Visual Basic主要功能特點(diǎn)包括： 提供了面向?qū)ο螅∣OP）的可視化編程工具把程序和數(shù)據(jù)封裝在一起而視為一個(gè)對(duì)象。 事件驅(qū)動(dòng)的編程機(jī)制VB中通過事件來執(zhí)行對(duì)對(duì)象的操作，一個(gè)對(duì)象可以有許多事件過程，不同的事件過程對(duì)應(yīng)不同過程代碼。具有豐富的數(shù)據(jù)類型，眾多的內(nèi)部函數(shù)，是一種模塊化、結(jié)構(gòu)化的程序設(shè)計(jì)語言，結(jié)構(gòu)清晰、簡單易學(xué)。而Visual Basic使用交互式方法開發(fā)應(yīng)用程序，3個(gè)步驟之間沒有明顯的界限。VB具有很強(qiáng)的數(shù)據(jù)庫管理功能。 得心應(yīng)手的應(yīng)用程序向?qū)B中使用了許多應(yīng)用程序向?qū)?，可為用戶自?dòng)創(chuàng)建多種類型和不同功能的應(yīng)用程序的初始輪廓，另外還有安裝向?qū)А?shù)據(jù)窗體向?qū)?、IIS應(yīng)用程序DHTML等，使用起來得心應(yīng)手，省去了一些煩瑣的工作。在系統(tǒng)中，充分利用了Access 數(shù)據(jù)庫和Visual Basic ，通過實(shí)踐，也使自己對(duì)這些方面有了較深入的了解。該系統(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é)生公寓管理的主要部分。函數(shù)及關(guān)鍵詞，其中很多與Windows GUI有直接的關(guān)系?？梢暬挠脩艚缑嬖O(shè)計(jì)功能，把程序設(shè)計(jì)人員從繁瑣復(fù)雜的截面設(shè)計(jì)中解脫出來；可視化編程環(huán)境的“所見即所得（WYSIWYG）”功能，是界面設(shè)計(jì)如積木游戲一般，編程變成了一種享受；強(qiáng)大的多媒體功能可輕而易舉地開發(fā)出集聲音，動(dòng)畫，影像和圖片于一體的多媒體應(yīng)用程序；新增的網(wǎng)絡(luò)功能提供了編寫Internet程序的能力。作為高質(zhì)量的開發(fā)軟件，Visual Basic ：，在較短的時(shí)間內(nèi)就能開發(fā)出功能強(qiáng)大的應(yī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ā)布功能等。 Basic ，能對(duì)多種數(shù)據(jù)庫進(jìn)行讀寫操作。：用戶自定義類型可以作為參數(shù)或作為公共屬性和方法的返回值；函數(shù)可以返回?cái)?shù)組變量；動(dòng)態(tài)數(shù)組可以賦值；文件系統(tǒng)對(duì)象；按名調(diào)用（Call By Name）；增強(qiáng)的創(chuàng)建對(duì)象函數(shù)（CreateObject Function Enhancements）；增強(qiáng)的StrConv函數(shù)。增強(qiáng)的向?qū)в校喊惭b程序向?qū)?、?shù)據(jù)窗體向?qū)?、?yīng)用程序向?qū)Ш皖惿晒ぞ摺?Visual Basic 語言的特點(diǎn)Visual Basic 語言用其設(shè)計(jì)應(yīng)用程序時(shí)具有兩個(gè)基本特點(diǎn)：可視化設(shè)計(jì)和事件驅(qū)動(dòng)編程。（2）事件驅(qū)動(dòng)編程：在設(shè)計(jì)應(yīng)用程序時(shí)，把對(duì)象添加到窗體中，在用戶與程序進(jìn)行交互時(shí)，用戶基本上是通過鼠標(biāo)、鍵盤與應(yīng)用程序進(jìn)行交互的，那些對(duì)象就必須對(duì)鼠標(biāo)和鍵盤操作所引發(fā)的事件做出響應(yīng)，來執(zhí)行一段應(yīng)用程序。其基本含義如下：(1)視窗（Form）視窗是進(jìn)行人機(jī)交互的界面或接口，也叫窗體。(2)對(duì)象(Object)對(duì)象是VB系統(tǒng)內(nèi)部提供給設(shè)計(jì)者可以直接使用的處理輸出的控制工具。當(dāng)把這些工具放置到用戶界面對(duì)應(yīng)的窗體上時(shí)，被稱為對(duì)象或控件。正確使用對(duì)象可以減少程序和開發(fā)時(shí)間，提高程序設(shè)計(jì)者的工作效率。用戶通過適當(dāng)?shù)卦O(shè)置或改變對(duì)象的屬性來確定對(duì)象的外觀及性能特征，從而有效地使用系統(tǒng)提供的對(duì)象。(4)事件(Events)事件是指用戶或操作者對(duì)計(jì)算機(jī)進(jìn)行的某一操作（如擊鍵、單擊或移動(dòng)鼠標(biāo)等）的行為或系統(tǒng)狀態(tài)發(fā)生的變化。程序所用的鍵盤事件有KeyPress（按鍵）事件，KeyDown事件和KeyUp事件；鼠標(biāo)事件有Click（單擊鼠標(biāo)）事件，DbDlicd（雙擊鼠標(biāo)）。它是在程序執(zhí)行的過程中要計(jì)算機(jī)執(zhí)行的某種操作。(6)過程(Procedure)過程是指經(jīng)過定義或說明的，或基于某一對(duì)象對(duì)應(yīng)的事件所引發(fā)的程序段。系統(tǒng)程序大體可分成四個(gè)模塊：數(shù)據(jù)輸入、根據(jù)查詢、數(shù)據(jù)打印和通訊。Visual Basic 作為一種面向?qū)ο蟮木幊谭椒ǎ殉绦蚝蛿?shù)據(jù)封裝起來作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予相應(yīng)的屬性。Visual Basic 應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和方法）。使用應(yīng)用程序具有可通用性可說擴(kuò)展性和強(qiáng)有力的功能。 實(shí)現(xiàn)菜單選項(xiàng)菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個(gè)定義良好的菜單使程序易于使用和維護(hù)，Visual Basic 也提供了強(qiáng)大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。 實(shí)現(xiàn)工具欄CoolBar控件與Office2000 中看到的CoolBar是類似的。通過在CoolBar中遷入其他空間你也可以向用戶提供更好的靈活性和義用性。在“控件”選項(xiàng)卡列表中選擇“Microsoft Windows Common Controls ”后工具相中增加改控件。第四章 數(shù)據(jù)庫Access的基礎(chǔ)及應(yīng)用 數(shù)據(jù)庫是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。計(jì)算機(jī)的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫（flatfile）和關(guān)系數(shù)據(jù)庫（relational）。新建一個(gè)數(shù)據(jù)庫,創(chuàng)建任何一個(gè)數(shù)據(jù)庫的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫，設(shè)計(jì)必須是靈活的、有邏輯的。1． 標(biāo)識(shí)需要的數(shù)據(jù)；2． 收集被標(biāo)識(shí)的字段到表中； 3． 標(biāo)識(shí)主關(guān)鍵字字段； 4． 繪制一個(gè)簡單的數(shù)據(jù)圖表； 5． 規(guī)范數(shù)據(jù)；6． 標(biāo)識(shí)指定字段的信息； 7． 創(chuàng)建物理表。這三種操作均可由Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。記憶菜單上次數(shù)值，實(shí)現(xiàn)數(shù)據(jù)傳送Private Sub acg_Click()Call asPopup7_Click(False)End SubPrivate Sub addcg_Click()Call asPopup6_Click(False)End SubPrivate Sub addstudent_Click()Call asPopup2_Click(False)End SubPrivate Sub asPopup1_Click(Cancel As Boolean) = True = False tkbase = “學(xué)生信息” fnumber = 13 sql = “select * from ” amp。 “ order by 學(xué)號(hào) desc” grid1pz 39。按要求讀取數(shù)據(jù)空間 End Sub Private Sub grid1pz()39。 tkbase)grid1pz For i = 1 To fnumber (0, i).Text = (i1).Name Next = 1 = 21 gridsave = True gridedit = False griddel = False (1).Locked = False (2).Locked = True (3).Locked = False (4).Locked = True End SubPrivate Sub asPopup7_Click(Cancel As Boolean) = False = True tkbase = “學(xué)生與課程” fnumber = 6 sql = “select * from ” amp。 “ order by 學(xué)號(hào) asc” gridpz2 datagrid gridsave = False gridedit = True griddel = True (1).Locked = True (2).Locked = True (3).Locked = True (4).Locked = True End Sub Private Sub gridpz2() = 8 (1).Width = 120 (3).Width = 120 (1).CellType = cellComboBox Set qy1 = (“select * from 課程”)(1).Clear Do While Not (1).AddItem (0)amp。 (1) Loop (3).CellType = cellComboBox Set qy1 = (“select 學(xué)號(hào),名字 from 學(xué)生信息”)(3).Clear Do While Not (3).AddItem (0)amp。 (1) Loop End SubPrivate Sub asPopup8_Click(Cancel As Boolean)Dim fo2 As CTranslucentForm Set fo2 = New CTranslucentForm = = 85 / 100 * 255 Load Form7 1 End SubPrivate Sub asPopup9_Click(Cancel As Boolean)End End SubPrivate Sub c1_Click(Index As Integer)39。菜單智能移動(dòng)函數(shù)代碼S代表菜單的總數(shù),i代表當(dāng)前移動(dòng)的是數(shù)組名稱 Dim j As Integer Dim X, Y, z, x1, y1 As Integer X = s 39。y存放的是移動(dòng)后的按鈕的固定值 z = s 39。X1沒用上 j = 0 39。 這里是通過重復(fù)計(jì)算來計(jì)算按鈕所需移動(dòng)的總高度If je i ThenDo While X iDo While Y = Xj = j + 360 39。這里是記憶上次移動(dòng)的按鈕數(shù)組編號(hào) End SubPrivate Sub cgdel_Click()Call XPButton6_Click End SubPrivate Sub cgedit_Click()Call XPButton4_Click End SubPrivate Sub delstudent_Click()Call XPButton6_Click End SubPrivate Sub editstudent_Click()Call XPButton4_Click End SubPrivate Sub findcg_Click()If hang = 0 Then Exit Sub End If = False = True tkbase = “學(xué)生與課程” fnumber = 5 sql = “select * from 學(xué)生與課程 where 學(xué)號(hào)=39。 (hang, 1).Text 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。進(jìn)行注冊(cè)