【正文】 EditNum amp。確定添加或者修改，保存數(shù)據(jù) 男 女 = 0 團(tuán)員 黨員 預(yù)備黨員 = 1 漢族 瑤族 土家族 侗族 白族 苗族 回族 壯族 = 0If EditNum = 00000000 Then = 添加學(xué)生資料（班級(jí)： amp。Public Sub LoadStuInfo(StuNum As String)sqlstr = select * from StuInfo where SID=39。 39。在刪除記錄過(guò)程中，使用學(xué)生的學(xué)號(hào)作為關(guān)鍵字，調(diào)用Execute方法來(lái)刪除當(dāng)前記錄。為了體現(xiàn)這一關(guān)系，需要將班級(jí)編號(hào)賦給顯示學(xué)號(hào)的文本框。Private Sub TreeView_NodeClick(ByVal Node As )39。 39。 39。刪除用戶(hù) DeleteRecordEnd Sub3．3．4 修改密碼窗體（frmchgPWD）當(dāng)用戶(hù)要更改密碼時(shí)，單擊“系統(tǒng)選項(xiàng)/修改個(gè)人密碼”菜單。 amp。 amp。 amp。 Userid amp。 sqlstr, con, 1, 1 End Sub如果當(dāng)前記錄不為空，則逐條記錄檢查是否有重復(fù)Private Sub Command4_Click()……Userid = Trim()Userpwd = MD5(Trim())Username = Trim()Userpower = Trim() DelNO = Do While Not …… Loop ……End Sub如果有重復(fù)，則提示已存在這個(gè)用戶(hù)，然后將焦點(diǎn)設(shè)置給Text1，并將所有的文本框清空。初始化ListViewDim clmX As ColumnHeaderSet clmX = (, , 用戶(hù)名, / 3)Set clmX = (, , 密碼, / 6, 2)Set clmX = (, , 姓名, / 4, 2)Set clmX = (, , 用戶(hù)權(quán)限, / 4, 2) 普通用戶(hù) 超級(jí)用戶(hù) = 0LoadOperatorEnd Sub其中調(diào)用了LoadOperator函數(shù)，該函數(shù)用來(lái)顯示和刷新Listview中的數(shù)據(jù)Private Sub LoadOperator() On Error Resume NextDim Listit As ListItem = lvwAuto = 3Dim ef As New sqlstr = select * from UserInfo sqlstr, con, 1, 1DelNO = Do While Not Set Listit = (, , (UserID)) (1) = *** 隱藏用戶(hù)的密碼，用***來(lái)替代。Private Sub filemenu21_Click() ShellExecute 0, open, amp。Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox(確定要退出學(xué)生檔案管理系統(tǒng)嗎？是/否,vbYesNo+vbQuestion+ vbDefaultButton1) = vbNo Then Cancel = 1 End IfEnd SubQueryUnload和Unload事件當(dāng)一個(gè)子窗體或一個(gè)Form對(duì)象關(guān)閉時(shí)，在那個(gè)窗體中的QueryUnload事件先于該窗體的Unload事件發(fā)生，Unload事件在Terminate事件之前發(fā)生。 Lib Alias ShellExecuteA (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)2．判斷用戶(hù)權(quán)限如果登陸的為普通用戶(hù)類(lèi)型的用戶(hù)，則用戶(hù)不能使用“用戶(hù)管理”這一功能，而對(duì)于管理員類(lèi)型的用戶(hù)，則沒(méi)有此限制。, vbInformation Unload Me Exit Sub End If …… Else LoginUser = Userid 39。利用SQL語(yǔ)句，在數(shù)據(jù)庫(kù)中查詢(xún)，如果查到相應(yīng)的記錄，則調(diào)用Case 0事件，用戶(hù)的登陸獲得通過(guò)，此時(shí)可以退出登陸窗口，并進(jìn)入MDI主窗口，同時(shí)將用戶(hù)類(lèi)型和用戶(hù)名分別傳遞到MDI主窗口和frmmanage中；如果沒(méi)有相應(yīng)的記錄，則給出提示錯(cuò)誤信息，同時(shí)將用戶(hù)輸入錯(cuò)誤密碼次數(shù)增加1，如果錯(cuò)誤超過(guò)3次，則退出整個(gè)系統(tǒng)；若次數(shù)還沒(méi)有超過(guò)3次，則提示用戶(hù)重新輸入。3．1 準(zhǔn)備工作1． 添加引用：?jiǎn)螕艄こ滩藛沃械囊眠x項(xiàng)，添加Microsoft ActiveX Data Objects Library和Microsoft Excel Object Library兩個(gè)引用。database=student。 用來(lái)操縱數(shù)據(jù)的SQL命令SQL命令是發(fā)送給數(shù)據(jù)庫(kù)并要求數(shù)據(jù)庫(kù)操作的指令，它是專(zhuān)門(mén)為數(shù)據(jù)庫(kù)設(shè)計(jì)的語(yǔ)言，比一般的計(jì)算機(jī)程序語(yǔ)言簡(jiǎn)單的多。adLockOptimistic3開(kāi)放式記錄鎖定（逐條）。⑹ 允許在程序中使用多個(gè)Recordset對(duì)象或者多個(gè)分批修改區(qū)塊傳送。 利用ADO開(kāi)發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫(kù)應(yīng)用程序ADO（Active Date Objects,即ActiveX數(shù)據(jù)對(duì)象）是一個(gè)ASP內(nèi)置的ActiveX服務(wù)器組件（ActiveX Server Component）。所以，它具有很好的伸縮性，能夠滿(mǎn)足從桌面應(yīng)用到大型企業(yè)分布式應(yīng)用到不同層次用戶(hù)的要求。即使SQL Server數(shù)據(jù)庫(kù)管理員不做任何設(shè)置，SQL Server也能夠在運(yùn)行過(guò)程中根據(jù)環(huán)境配置和用戶(hù)訪(fǎng)問(wèn)情況動(dòng)態(tài)自動(dòng)配置，以達(dá)到最優(yōu)性能，從而減輕管理員工作。這其實(shí)對(duì)于開(kāi)發(fā)真正的數(shù)據(jù)庫(kù)應(yīng)用并沒(méi)有直接的幫助作用，只能使大家停留在應(yīng)用的初級(jí)階段。通過(guò)對(duì)高端硬件平臺(tái)、網(wǎng)絡(luò)和存儲(chǔ)技術(shù)的支持，為WEB站和企業(yè)的應(yīng)用最大限度地提供了可擴(kuò)展性和高可靠性，能在Internet商業(yè)領(lǐng)域快速建立并應(yīng)用。RDO是處理遠(yuǎn)程數(shù)據(jù)庫(kù)的一些專(zhuān)門(mén)需要的對(duì)象集合。Jet還具備在數(shù)據(jù)庫(kù)開(kāi)發(fā)工作中所需的其他功能，這些功能包括：數(shù)據(jù)庫(kù)修復(fù)，數(shù)據(jù)庫(kù)壓縮（以使消除不同的空間）和重新索引。Jet以主鍵標(biāo)和表間引用完整性的形式支持?jǐn)?shù)據(jù)完整性。l 支持動(dòng)態(tài)鏈接庫(kù)；l 應(yīng)用程序之間的資源共享。2． 強(qiáng)大的數(shù)據(jù)庫(kù)和網(wǎng)絡(luò)功能隨著Visual Basic 語(yǔ)言的向前發(fā)展，它在數(shù)據(jù)庫(kù)和網(wǎng)絡(luò)方面的功能優(yōu)勢(shì)就愈加明顯，利用Visual Basic 中的ODBC——開(kāi)放式的數(shù)據(jù)庫(kù)訪(fǎng)問(wèn)技術(shù)可以很方便地開(kāi)發(fā)出自己的數(shù)據(jù)庫(kù)應(yīng)用程序；利用 Visual Basic自帶的可視化數(shù)據(jù)管理器和報(bào)表生成器，完全可以在Visual Basic就完成數(shù)據(jù)庫(kù)的開(kāi)發(fā)工作。為了我們提高軟件開(kāi)發(fā)的能力，學(xué)習(xí)漢語(yǔ)編程的技巧，提高工作設(shè)計(jì)思想，通過(guò)本次的工程開(kāi)發(fā)，開(kāi)發(fā)小組成員與輔助老師，公司的技師交流，能從中學(xué)習(xí)知識(shí)吸取經(jīng)驗(yàn)，再技術(shù)和軟件思想上同時(shí)得到鍛煉和提高，從而使總體水升到一個(gè)新的高度。該學(xué)籍管理系統(tǒng)采用多層架構(gòu)的系統(tǒng)，是真正適應(yīng)教育信息化發(fā)展三大趨勢(shì)的校園網(wǎng)絡(luò)應(yīng)用系統(tǒng)，全面支持Internet功能、遠(yuǎn)程訪(fǎng)問(wèn)功能，全部采用最先進(jìn)的B/S(瀏覽器/服務(wù)器) 模式來(lái)開(kāi)發(fā)，支持有關(guān)學(xué)校信息交流、日常教學(xué)、教務(wù)管理等的各種應(yīng)用，提供了一個(gè)基于校園內(nèi)聯(lián)網(wǎng)中支持各種類(lèi)型的學(xué)校應(yīng)用產(chǎn)品的服務(wù)平臺(tái)和開(kāi)發(fā)平臺(tái)，基本目標(biāo)是在學(xué)校內(nèi)部和外部建立起順暢的信息通道，讓信息技術(shù)成為推動(dòng)教育生產(chǎn)力的有力工具，提高學(xué)校的管理水平和效率，同時(shí)充分利用全球的教育資源為學(xué)校的教育服務(wù)，克服了目前大部分學(xué)校的校園網(wǎng)建設(shè)只起到宣傳作用的通病。但一直以來(lái)人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長(zhǎng),將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。歸納起來(lái)，好處大約有以下幾點(diǎn)：，安全、高效；，節(jié)省大量人力；。二：用計(jì)算機(jī)管理學(xué)生學(xué)籍的意義 現(xiàn)在我國(guó)的中小學(xué)校中學(xué)籍的管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。參考文獻(xiàn)[1] ：機(jī)械工業(yè)出版社，[2] 金林樵， ：機(jī)械工業(yè)出版社，[3] ：西安電子科技大學(xué)出版社，[4] 王珊，[5] :清華大學(xué)出版社，[6] :清華大學(xué)出版社，[7] 鄭人杰、殷人昆、陶永雷等. :清華大學(xué)出版社，江西省電大畢 業(yè) 論 文學(xué)籍管理系統(tǒng)學(xué) 院：江西廣播電視大學(xué)專(zhuān) 業(yè)：計(jì)算機(jī)科學(xué)與技術(shù)學(xué) 號(hào)：0936001200218姓 名：陳宇指導(dǎo)老師：陳忻摘 要隨著信息技術(shù)在管理上越來(lái)越深如而廣泛的應(yīng)用，管理信息系統(tǒng)的實(shí)施在技術(shù)上已經(jīng)逐步成熟。關(guān)系數(shù)據(jù)庫(kù).AbstractWith information technology applied more and more abroad and indepthly on management,it has grown up step by step that on technology management information system is put in information system is a new subject in long as any corporation lives and develops,organizes activities inside effectly,it needs create itself suitable management information system. The school register management system management system is an education unit essential content said regarding the school policymaker and the superintendent all very important, therefore the school register management system management system should be able to provide the sufficient information and the quick inquiry method for the user. But the people have since always used the traditional artificial way management document file, this management way has many example:the efficiency low, the secrecy is bad,Moreover the time one is long,will produce the massive documents and the data,this regarding the search, the renewal and the maintenance has all brought many with science and technology unceasing enhancement,The puter science is mature day after formidable function had profoundly known for the entered the human society each domain and is playing the more and more vital role.Keywords: The management information system。 1．2 學(xué)籍管理系統(tǒng)概述1．2．1 開(kāi)展該系統(tǒng)的原因由于現(xiàn)今的學(xué)籍管理非常繁瑣，行政人員付出大量的工作時(shí)間，得到的效率很低。故而，實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)相對(duì)較好的選擇。在事件驅(qū)動(dòng)的應(yīng)用程序中，代碼不是按預(yù)定的路徑執(zhí)行，而是在響不同的事件時(shí)執(zhí)行不同的代碼片段。1．3．1．3 Jet數(shù)據(jù)庫(kù)引擎Microsoft引擎為Visual Basic與數(shù)據(jù)庫(kù)的接口提供了基本的方法。Jet也支持使用許可，或是對(duì)單個(gè)表和查詢(xún)的訪(fǎng)問(wèn)級(jí)別（例如，只讀或讀寫(xiě)可訪(fǎng)問(wèn)性）。數(shù)據(jù)控件可以通過(guò)一些屬性的設(shè)置去鏈接某個(gè)數(shù)據(jù)庫(kù)文件，但是它本身并無(wú)法顯示數(shù)據(jù)庫(kù)各個(gè)記錄的內(nèi)容，必須在搭配其他具有數(shù)據(jù)感知（Data Aware）功能的控件對(duì)應(yīng)并顯示一個(gè)字段內(nèi)容，以方便地進(jìn)行記錄的瀏覽及編輯工作。我們?cè)诒鞠到y(tǒng)中利用數(shù)據(jù)管理器創(chuàng)建了數(shù)據(jù)庫(kù)及數(shù)據(jù)庫(kù)表，并采用了ADO數(shù)據(jù)訪(fǎng)問(wèn)技術(shù)。其實(shí)這是一種誤解。SQL Server企業(yè)管理器是一個(gè)基于圖形用戶(hù)界面（GUI）的集成管理工具，利用它可以配置管理SQL Server服務(wù)器、管理數(shù)據(jù)庫(kù)和數(shù)據(jù)庫(kù)對(duì)象、備份和恢復(fù)數(shù)據(jù)、調(diào)度任務(wù)和管理警報(bào)、實(shí)現(xiàn)數(shù)據(jù)復(fù)制和轉(zhuǎn)