學(xué)生信息管理系統(tǒng)的論文+畢業(yè)設(shè)計(jì)用VB班主任學(xué)生信息管理系統(tǒng)

1、大學(xué)畢業(yè)設(shè)計(jì)論文班主任學(xué)生信息管理系統(tǒng) 前 言學(xué)生信息管理系統(tǒng)是一個(gè)教育單位不可缺少的部分,它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來說都至關(guān)重要,所以學(xué)生學(xué)生信息管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄巍５恢币詠砣藗兪褂脗鹘y(tǒng)人工的方式管理文件學(xué)生信息，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,隨著時(shí)間的推移,將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)帶來和很大的困難。隨著信息技術(shù)在管理上越來越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。長(zhǎng)時(shí)間以來，學(xué)校的學(xué)生信息管理基本上都是靠手工進(jìn)行,隨著大學(xué)擴(kuò)招,學(xué)生管理各個(gè)方面的工作給老師和學(xué)校工作人員形成了一定的壓力，有

2、關(guān)有的學(xué)校不得不靠增加人力,物力來進(jìn)行學(xué)生信息管理.但手工管理具有效率底,出錯(cuò)率高.所以學(xué)生信息管理系統(tǒng)的開發(fā)還是有一定的意義的。因此開發(fā)適合學(xué)校需要的學(xué)生管理信息系統(tǒng)，通過這樣的系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速查詢，并減少管理方面的工作量。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)學(xué)生學(xué)生信息信息進(jìn)行管理,具有著手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生學(xué)生信息管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。 本文介紹了在Visual Basic6.0環(huán)境下采用“自上而下地總體規(guī)劃，自下

3、而上地應(yīng)用開發(fā)”的策略開發(fā)一個(gè)管理信息系統(tǒng)的過程。通過分析訪客管理的不足，創(chuàng)建了一套行之有效的計(jì)算機(jī)管理學(xué)生的方案。文章介紹了訪客管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、業(yè)務(wù)流程分析等；系統(tǒng)設(shè)計(jì)部分主要介紹了系統(tǒng)功能設(shè)計(jì)和數(shù)據(jù)庫設(shè)計(jì)及代碼設(shè)計(jì)；系統(tǒng)實(shí)現(xiàn)部分說明了幾個(gè)主要模塊的算法， 本系統(tǒng)面友好，操作簡(jiǎn)單，比較實(shí)用。本章我們將以一個(gè)學(xué)生信息管理系統(tǒng)為例子，來講述如何建立一個(gè)學(xué)生信息管理系統(tǒng)。因?yàn)閂isual Basic6.0具有強(qiáng)大的數(shù)據(jù)庫管理功能，我們選定Visual Basic6.0實(shí)現(xiàn)學(xué)生管理信息系統(tǒng)中的各項(xiàng)功能。摘 要學(xué)生信息管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后

4、臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。本系統(tǒng)主要完成對(duì)學(xué)生信息的管理，包括添加、修改、刪除，查詢，打印信息以用戶管理等六個(gè)方面。系統(tǒng)可以完成對(duì)各類信息的瀏覽、查詢、添加、刪除、修改等功能。系統(tǒng)的核心是添加、修改和刪除三者之間的聯(lián)系，每一個(gè)表的修改都將聯(lián)動(dòng)的影響其它的表，當(dāng)完成添加或刪除操作時(shí)系統(tǒng)會(huì)自動(dòng)地完成學(xué)生信息的修改。查詢功能也是系統(tǒng)的核心之一，在系統(tǒng)中主要根據(jù)學(xué)生姓名和學(xué)號(hào)進(jìn)行查詢，其目的都是為了方便用戶使用。系統(tǒng)有完整的用戶添加、刪除和密碼修改功能，并具備報(bào)表打印功能

5、。系統(tǒng)采用Microsoft Office中的Access 2000來設(shè)計(jì)數(shù)據(jù)庫，并使用當(dāng)前優(yōu)秀的開發(fā)工具VB 6.0 ，它有著最為靈活的數(shù)據(jù)庫結(jié)構(gòu)，對(duì)數(shù)據(jù)庫應(yīng)用有著良好的支持。論文主要介紹了本課題的開發(fā)背景，所要完成的功能和開發(fā)的過程。重點(diǎn)的說明了系統(tǒng)設(shè)計(jì)的重點(diǎn)、設(shè)計(jì)思想、難點(diǎn)技術(shù)和解決方案。關(guān)鍵字：控件、窗體、數(shù)據(jù)庫，visual basic語言，學(xué)生信息1 系統(tǒng)分析1.1開發(fā)背景現(xiàn)在我國(guó)的學(xué)生信息管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。我希望可以在這方面有所貢獻(xiàn)。歸納起來

6、，好處大約有以下幾點(diǎn)：可以存儲(chǔ)學(xué)生的基本信息以及歷屆的學(xué)生信息，安全、高效；只需一到二名信息錄入員即可操作系統(tǒng)，節(jié)省大量人力；可以迅速查到所需信息。1.2需求分析21世紀(jì)以來，人類經(jīng)濟(jì)高速發(fā)展，人們發(fā)生了日新月異的變化，特別是計(jì)算機(jī)的應(yīng)用及普及到經(jīng)濟(jì)和社會(huì)生活的各個(gè)領(lǐng)域。使原本的舊的管理方法越來越不適應(yīng)現(xiàn)在社會(huì)的發(fā)展。許多人還停留在以前的手工操作。這大大地阻礙了人類經(jīng)濟(jì)的發(fā)展。為了適應(yīng)現(xiàn)代社會(huì)人們高度強(qiáng)烈的時(shí)間觀念，學(xué)校信息管理系統(tǒng)軟件為學(xué)校辦公室?guī)砹藰O大的方便。我所開發(fā)的這個(gè)系統(tǒng)所采用的是當(dāng)前較為流行的編程軟件VISUAL BASIC 6.0作為實(shí)現(xiàn)語言，以數(shù)據(jù)庫Microsoft SQL

7、 Server2000作為系統(tǒng)的后臺(tái)操作，其功能在系統(tǒng)內(nèi)部有源代碼直接完成。我們只需按系統(tǒng)要求輸入即可操作。伴隨社會(huì)的高速發(fā)展，全國(guó)各高校的學(xué)生數(shù)量一直在增加，在這樣的形式下，必須要求學(xué)校有一種高效有序的方法來管理學(xué)生的信息。通過調(diào)查,要求系統(tǒng)需要有以下功能：（1）由于操作人員的計(jì)算機(jī)知識(shí)普遍較差，要求有良好的人機(jī)界面；（2）由于該系統(tǒng)的使用對(duì)象多，要求有較好的權(quán)限管理；（3）原始數(shù)據(jù)修改簡(jiǎn)單方便，支持多條件修改；（4）方便的數(shù)據(jù)查詢，支持多條件查詢；（5）在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡(jiǎn)單，數(shù)據(jù)穩(wěn)定性好；（6）數(shù)據(jù)計(jì)算自動(dòng)完成，盡量減少人工干預(yù)。1.2.2需求信息的整理想要把收集到的信息（如文

8、件、圖表、票據(jù)、筆記等）轉(zhuǎn)化為下一設(shè)計(jì)階段可用形式的信息，必須對(duì)需求信息做分析整理工作。1業(yè)務(wù)流程分析業(yè)務(wù)流程分析的目的是獲得業(yè)務(wù)流程及業(yè)務(wù)與數(shù)據(jù)聯(lián)系的形式描述。一般采用數(shù)據(jù)流分析法，分析結(jié)果以數(shù)據(jù)流圖（DFD）表示。是一個(gè)數(shù)據(jù)流圖的示意圖。圖中有向線表示數(shù)據(jù)流，圓圈中寫上處理的名稱、圓圈代表一個(gè)處理、帶有名字的雙線段表示存儲(chǔ)的信息。以本系統(tǒng)中的學(xué)生基本信息管理為例，基本信息管理的數(shù)據(jù)流圖如圖1-1所示。輸入處理輸出處理查找分析原始輸入篩選輸出數(shù)據(jù)庫圖1-1數(shù)據(jù)流圖示意圖下面是學(xué)生信息管理數(shù)據(jù)庫系統(tǒng)設(shè)計(jì)的業(yè)務(wù)流程分析，原始的數(shù)據(jù)是學(xué)生的信息，系統(tǒng)要求統(tǒng)計(jì)學(xué)生的信息，并根據(jù)信息統(tǒng)計(jì)的結(jié)果由獎(jiǎng)學(xué)金

9、評(píng)委評(píng)選出獲得獎(jiǎng)學(xué)金的學(xué)生，其數(shù)據(jù)流圖如圖1-2所示。輸入處理產(chǎn)生報(bào)表輸出處理信息清單統(tǒng)計(jì)處理報(bào)表清單獲獎(jiǎng)清單存儲(chǔ)文件圖1-2學(xué)生信息統(tǒng)計(jì)的數(shù)據(jù)流圖1.3 E-R圖設(shè)計(jì)2 開發(fā)工具的選擇本系統(tǒng)的設(shè)計(jì)是在Windows XP操作系統(tǒng)環(huán)境下，使用Visual Basic 6.0中文版開發(fā)成功的。數(shù)據(jù)庫是MIS中的重要支持技術(shù)，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個(gè)重要的問題，本系統(tǒng)選用的數(shù)據(jù)庫語言介紹如下。2.1選擇VB作為開發(fā)工具Visual Basic具有以下特點(diǎn)：（1）可視化編程：用傳統(tǒng)程序設(shè)計(jì)語言設(shè)計(jì)程序時(shí)，都是通過編寫程序代碼來設(shè)計(jì)用戶界面，在設(shè)計(jì)過程中看不到界面的實(shí)際顯示效果，必

10、須編譯后運(yùn)行程序才能觀察。如果對(duì)界面的效果不滿意，還要回到程序中修改有時(shí)候，這種編程-編譯-修改的操作可能要反復(fù)多次，大大影響了軟件開發(fā)效率。Visual Basic提供了可視化設(shè)計(jì)工具，把Windows界面設(shè)計(jì)的復(fù)雜性封裝起來，開發(fā)人員不必為界面設(shè)計(jì)而編寫大量程序代碼。只需要按設(shè)計(jì)要求的屏幕布局，用系統(tǒng)提供的工具，在屏幕上畫出各種“部件”，即圖形對(duì)象，并設(shè)置這些圖形對(duì)象的屬性。Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。（2）面向?qū)ο蟮某绦蛟O(shè)計(jì)4.0版以后的Visual Basic支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，是應(yīng)用

11、面向?qū)ο蟮某绦蛟O(shè)計(jì)方法(OOP)，把程序和數(shù)據(jù)封裝起來作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予應(yīng)有的屬性，使對(duì)象成為實(shí)在的東西。在設(shè)計(jì)對(duì)象時(shí)，不必編寫建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫在界面上，Visual Basic自動(dòng)生成對(duì)象的程序代碼并封裝起來。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。2.2選擇ACCESS2000開發(fā)數(shù)據(jù)庫3 數(shù)據(jù)庫設(shè)計(jì)3.1數(shù)據(jù)庫的概念數(shù)據(jù)庫處理在信息系統(tǒng)的研究中一直是非常重要的主題，然而，近年來，隨著World Wide Web(WWW)的猛增及Internet技術(shù)的迅速發(fā)展，使得數(shù)據(jù)庫技術(shù)之時(shí)成為最熱門技術(shù)之一。數(shù)據(jù)庫技術(shù)能使Internet應(yīng)用超越具有早期應(yīng)用

12、特點(diǎn)的簡(jiǎn)單的發(fā)布。同時(shí)，Internet技術(shù)提供了一種向用戶發(fā)布數(shù)據(jù)庫內(nèi)容的標(biāo)準(zhǔn)化的訪問方法。這些技術(shù)沒有脫離經(jīng)典數(shù)據(jù)庫技術(shù)的要求。它們只是加重了數(shù)據(jù)庫技術(shù)的重要性。數(shù)據(jù)庫的目的是幫助人們跟蹤事務(wù)。經(jīng)典的數(shù)據(jù)庫應(yīng)用涉及諸如訂單、顧客、工作、員工、學(xué)生、電話之類的項(xiàng)，或其它數(shù)據(jù)量較大、需要密切關(guān)注的事務(wù)。最近，由于數(shù)據(jù)庫的普及，數(shù)據(jù)庫技術(shù)已經(jīng)被應(yīng)用到了新的領(lǐng)域，諸如用于Internet的數(shù)據(jù)庫或用于公司內(nèi)聯(lián)網(wǎng)的數(shù)據(jù)庫。數(shù)據(jù)庫也被越來越多地應(yīng)用于生成和維護(hù)多媒體應(yīng)用程序上。數(shù)據(jù)庫在一個(gè)信息管理系統(tǒng)中占有非常重要的位置，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫設(shè)計(jì)可以提高數(shù)據(jù)

13、庫存儲(chǔ)效率，保證數(shù)據(jù)的完整和一致。同時(shí)合理的數(shù)據(jù)結(jié)構(gòu)也將有利于程序的實(shí)現(xiàn)。設(shè)計(jì)數(shù)據(jù)庫系統(tǒng)時(shí)，應(yīng)該首先了解用戶的各個(gè)方面的需求，包括現(xiàn)有的以及將來可能增加的。3.2 VB連接ACCESS2000數(shù)據(jù)庫用vb編寫一個(gè)管理系統(tǒng)，首先要解決vb連接數(shù)據(jù)庫的問題。先看看VB是如何與ACCESS2000數(shù)據(jù)庫相連接的。Sub ConnStr()'連接數(shù)據(jù)庫Set conn = CreateObject("ADODB.Connection") '建立數(shù)據(jù)庫連接對(duì)像DBpath = App.Path & "" & "data.m

14、db" '設(shè)置數(shù)據(jù)的路徑conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBpath '打開數(shù)據(jù)庫連接Set rs = CreateObject("ADODB.Recordset") '設(shè)置數(shù)據(jù)庫對(duì)像End Sub上面的一段代碼就是連接數(shù)據(jù)庫的。上用到了三個(gè)變量conn,Dbpath,rs。其中有兩個(gè)變量要定義為公用的變量，因?yàn)檫@段代碼是放在一個(gè)模塊中的，為了在每一個(gè)窗體中能夠使用這個(gè)變量，所以必須要聲明為公用變量。聲明公用變量的方法如下：P

15、ublic connPublic rs上面就是聲明為公用變量，上面的聲明一定要放在模塊的最上面。如果聲明在下面，那就成了局部變量，那么作用范圍就會(huì)不同了，作用就更不同，而且在其它窗體中使用到了這個(gè)變量，程序會(huì)出錯(cuò)。3.3 數(shù)據(jù)庫的實(shí)現(xiàn)數(shù)據(jù)庫設(shè)計(jì)與應(yīng)用等程序設(shè)計(jì)是分離的，數(shù)據(jù)庫的設(shè)計(jì)非常重要。有了數(shù)據(jù)庫模型，數(shù)據(jù)庫的設(shè)計(jì)就簡(jiǎn)單多了。在學(xué)生管理信息系統(tǒng)中，首先要?jiǎng)?chuàng)建學(xué)生管理信息系統(tǒng)數(shù)據(jù)庫，然后在數(shù)據(jù)庫中創(chuàng)建需要的表和字段。下面分別講述本系統(tǒng)中數(shù)據(jù)庫的設(shè)計(jì)。本例采用Access2000數(shù)據(jù)庫系統(tǒng)來進(jìn)行數(shù)據(jù)庫的設(shè)計(jì)。1、創(chuàng)建數(shù)據(jù)庫下面給出在Access2000中創(chuàng)建數(shù)據(jù)庫的過程。（1）運(yùn)行Access

16、2000應(yīng)用程序，在“新建數(shù)據(jù)庫”選項(xiàng)組中選取“空Access數(shù)據(jù)庫”單選，按鈕，然后單擊“確定”按鈕，如圖4-1所示。圖4-1新建數(shù)據(jù)庫（2）在“文件新建數(shù)據(jù)庫”窗口指定數(shù)據(jù)庫的存放位置與數(shù)據(jù)庫文件名稱（本例為Stu.mdb）然后單擊“創(chuàng)建”按鈕，如圖4-2所示。圖4-2指定數(shù)據(jù)庫的存放位置與數(shù)據(jù)庫文件名稱2、創(chuàng)建表下面給出在Access 中創(chuàng)建表的過程。（1）創(chuàng)建數(shù)據(jù)庫后，進(jìn)入主界面，單擊“Stu：數(shù)據(jù)庫”子窗口中的“設(shè)計(jì)”按鈕。此時(shí)將會(huì)出出“表1：表”窗口，如圖4-3所示。圖4-3設(shè)計(jì)表（2）在表的設(shè)計(jì)窗口“表1：表”中，按表6建立數(shù)據(jù)字段，并指定字段的數(shù)據(jù)類型與相關(guān)屬性。表6學(xué)生基本信

17、息表字 段 名 稱數(shù) 據(jù) 類 型學(xué)號(hào)文本姓名文本性別文本出生年月日期/時(shí)間民族文本家庭地址文本聯(lián)系電話文本備注文本建立數(shù)據(jù)庫字段并指定字段的數(shù)據(jù)類型與相關(guān)屬性后，字段設(shè)計(jì)界面如圖6所示。（3）在StuId字段上單擊鼠標(biāo)右鍵，選擇快捷菜單中的“主鍵”選項(xiàng)，讓StuId字段成為主要索引字段，則StuId 字段前方將出郵一個(gè)鑰匙圖標(biāo)，如圖4-4所示。圖4-4字段設(shè)計(jì)（4）字段設(shè)計(jì)完畢后，單擊工具欄中的“保存”按鈕，此時(shí)將會(huì)出現(xiàn)“另存為”對(duì)話框，在“表名稱”文本框輸入“StuInfo”，如圖9所示，然后單擊“確定”按鈕將這個(gè)表保存。（5）回到“Stu：數(shù)據(jù)庫”子窗口中，如果出現(xiàn)了StuInfo 這個(gè)表

18、項(xiàng)目，就代表現(xiàn)在已經(jīng)完成學(xué)生數(shù)據(jù)文件的設(shè)計(jì)，如圖24所示。圖4-5保存表重復(fù)步驟（1）（5），建立剩余的表，并指定表中各字段的數(shù)據(jù)類型與相關(guān)屬性，這樣就完成了數(shù)據(jù)庫的設(shè)計(jì)。下面簡(jiǎn)單介紹各個(gè)表中的數(shù)據(jù)類型與相關(guān)的屬性。1.學(xué)生基本信息的查詢、修改、刪除。包括學(xué)生姓名、性別、學(xué)號(hào)、出生年月、所在宿舍、家庭住址、聯(lián)系電話、擔(dān)任職務(wù)等信息的查詢。學(xué)生基本信息字段名稱類型備注姓名文本學(xué)號(hào)數(shù)字主鍵性別文本出生年月日期/時(shí)間家庭住址文本宿舍文本電話數(shù)字職務(wù)文本備注文本2.成績(jī)管理包括課程名稱、課程類型（選修、必修）、是否掛科（如有掛科，用紅色字體表明成績(jī)）。成績(jī)管理字段名稱類型備注學(xué)號(hào)數(shù)字主鍵姓名文本課程名

19、稱文本分?jǐn)?shù)數(shù)字3課程管理。課程界面上按課表的形式顯示。需要管理的內(nèi)容包括課程名稱、課程教師姓名、課時(shí)。課程管理字段名稱類型備注課程編號(hào)數(shù)字主鍵課程名稱文本教師名稱文本課時(shí)數(shù)字3.學(xué)生平時(shí)受到獎(jiǎng)勵(lì)或處罰的“獎(jiǎng)罰管理”。平時(shí)參加學(xué)校活動(dòng)的可以加平時(shí)分。平時(shí)違紀(jì)違規(guī)的要減平時(shí)成績(jī)。這里面需要顯示獎(jiǎng)罰的時(shí)間、姓名、受到獎(jiǎng)罰的原因（對(duì)事情簡(jiǎn)單的描述）、應(yīng)加減多少分。能對(duì)獎(jiǎng)罰管理進(jìn)行查詢、刪除、修改操作。獎(jiǎng)罰管理字段名稱類型備注編號(hào)數(shù)字主鍵時(shí)間日期/時(shí)間姓名文本獎(jiǎng)罰原因備注加減分文本4.參加課外活動(dòng)的課外活動(dòng)管理。課外活動(dòng)和比賽有區(qū)別。課外活動(dòng)不涉及加分。需要管理的內(nèi)容有活動(dòng)舉行的時(shí)間、地點(diǎn)、參與人的姓名

20、、活動(dòng)的簡(jiǎn)單介紹、活動(dòng)的意義。能對(duì)課外活動(dòng)管理進(jìn)行查詢、刪除、修改操作。課外活動(dòng)管理字段名稱類型備注編號(hào)數(shù)字主鍵時(shí)間日期/時(shí)間地點(diǎn)文本參與人文本意義備注5、比賽管理。主要指學(xué)生參加學(xué)校、學(xué)院等舉行的比賽。比賽管理涉及到加平時(shí)成績(jī)，與獎(jiǎng)罰管理掛鉤。主要管理的內(nèi)容有：比賽的時(shí)間、地點(diǎn)、參與人的姓名、比賽的簡(jiǎn)單介紹（比如取得了什么名次等），應(yīng)加多少分。能對(duì)比賽管理進(jìn)行查詢、刪除、修改操作。比賽管理字段名稱類型備注編號(hào)數(shù)字主鍵時(shí)間日期/時(shí)間地點(diǎn)文本參與人文本活動(dòng)簡(jiǎn)介備注加分?jǐn)?shù)字6.出勤記錄。是對(duì)學(xué)生平時(shí)上課、出操等信息的統(tǒng)計(jì)。每星期統(tǒng)計(jì)一次。考勤管理字段名稱類型備注編號(hào)數(shù)字主鍵時(shí)間日期/時(shí)間姓名文本缺

21、勤原因備注7.校規(guī)班規(guī)等規(guī)章制度的查詢。把寫好的規(guī)章制度顯示在界面上。然后顯示違反了此項(xiàng)規(guī)章制度后需要扣多少分。規(guī)章制度主要是與獎(jiǎng)罰管理聯(lián)系在一起。是作為對(duì)學(xué)生的懲罰情況的主要依據(jù)。8.用戶管理表。用戶對(duì)學(xué)生成績(jī)的查詢、添加、刪除等操作的權(quán)限。用戶主要分為3類：班主任、管理員、普通用戶。其中班主任擁有最高管理權(quán)限，可以對(duì)系統(tǒng)里面的信息進(jìn)行任意的查詢、添加、刪除、修改操作。管理員只能由班主任設(shè)置班中的學(xué)生為管理員。管理員可以對(duì)信息進(jìn)行查詢、添加、刪除、修改等操作。管理員只能對(duì)普通用戶進(jìn)行操作。普通用戶只能查詢信息，不能對(duì)信息進(jìn)行添加、刪除、修改等操作。用戶管理字段名稱類型備注用戶名文本主鍵密碼文

22、本類別文本9.數(shù)據(jù)的存儲(chǔ)管理。當(dāng)對(duì)信息進(jìn)行修改后，涉及到數(shù)據(jù)的保存問題。4 系統(tǒng)總體規(guī)劃4.1系統(tǒng)功能學(xué)生用戶通過輸入學(xué)生基本信息、課程基本信息等,由系統(tǒng)自行生成相應(yīng)的數(shù)據(jù)以供學(xué)生查詢,另外人事處的管理用戶還可以對(duì)這些基本信息進(jìn)行更新和刪除, 學(xué)校學(xué)生管理信息系統(tǒng)力求給用戶方便快捷的途徑去管理這些繁瑣的數(shù)據(jù)。具體系統(tǒng)功能需求描述如下：(1) 學(xué)生基本信息管理每年的大量新生入學(xué)，老生畢業(yè)都需要處理大量的學(xué)生信息。每個(gè)班主任可以在新學(xué)期開始之前，通過這一模塊，實(shí)現(xiàn)學(xué)生基本情況的添加、刪除、更新。還能查詢各個(gè)學(xué)生的情況，姓名、家庭電話、家庭住址、學(xué)號(hào)等信息。(2)課程信息管理通過本模塊可以輕松的添加

23、以及更新課程?？梢愿鶕?jù)課程名、課程號(hào)或者班級(jí)的選擇，并對(duì)值的輸入，可以看到數(shù)據(jù)集中顯示符合條件的課程數(shù)據(jù)信息，而且可以根據(jù)修改要求進(jìn)行數(shù)據(jù)的添加、刪除、修改的操作。該項(xiàng)管理對(duì)課程的屬性進(jìn)行了具體化的分類，而且根據(jù)條件的選擇大大得提高了對(duì)各學(xué)期課程數(shù)據(jù)的記錄操作，很大得幫助了教工們工作效率的提高。(3)成績(jī)信息管理本模塊實(shí)現(xiàn)了信息的輸入、刪除、更新。還能查詢到平均信息以及單科最高最低信息以及個(gè)人信息。把信息統(tǒng)計(jì)這個(gè)繁瑣的工作簡(jiǎn)單化，為學(xué)生信息的管理方面提高工作效率。(4)其他信息管理系統(tǒng)實(shí)現(xiàn)了學(xué)生的課外活動(dòng)管理、比賽管理、獎(jiǎng)罰管理、考勤記錄的管理,可添加、刪除學(xué)生的獎(jiǎng)懲記錄，通過查詢學(xué)號(hào)可方便地

24、查看到學(xué)生的課外活動(dòng)管理、比賽管理、獎(jiǎng)罰管理、考勤記錄信息，可以大大提高工作效率。(5)信息查詢通過輸入學(xué)號(hào)便可以查詢到這個(gè)學(xué)生的全部信息，包括姓名、性別、生日是、班號(hào)、入學(xué)日期、聯(lián)系電話、獎(jiǎng)懲日期、獎(jiǎng)懲名稱和成績(jī)表都一目了然，很大的方便了教工們查詢學(xué)生信息的過程。4.2系統(tǒng)模塊圖 學(xué)生信息管理系統(tǒng)基本信息課程管理成績(jī)管理獎(jiǎng)懲管理考勤管理比賽管理課外活動(dòng)圖5-1系統(tǒng)模塊圖4.3 數(shù)據(jù)流程圖數(shù)據(jù)流圖描繪系統(tǒng)的邏輯模型圖，其中沒有任何具體的物理元素，只是描繪信息在系統(tǒng)中流動(dòng)和處理的情況。因?yàn)閿?shù)據(jù)流圖是邏輯系統(tǒng)的圖形表示，即使不是專業(yè)的計(jì)算機(jī)技術(shù)人員也容易理解，所以是極好的通信工具。此外，設(shè)計(jì)數(shù)據(jù)流

25、圖只需考慮系統(tǒng)必須完成的基本邏輯功能，完全不需要考慮如何具體地實(shí)現(xiàn)這些功能，所以它也是軟件設(shè)計(jì)的很好的出發(fā)點(diǎn)。本系統(tǒng)主要是為了對(duì)教師業(yè)績(jī)及其它相關(guān)信息等進(jìn)行計(jì)算機(jī)管理。所以主要的數(shù)據(jù)源應(yīng)是教師業(yè)績(jī)有關(guān)方面的各種信息。它們?cè)谙到y(tǒng)中流動(dòng)和處理詳細(xì)見下面的數(shù)據(jù)流程圖。如圖5-2,3。信息管理學(xué)生信息課程信息成績(jī)信息課外活動(dòng)比賽管理獎(jiǎng)懲管理考勤管理 圖5-2信息管理系統(tǒng)管理用戶管理密碼管理圖5-3系統(tǒng)管理5 系統(tǒng)具體實(shí)現(xiàn)5.1登錄模塊實(shí)現(xiàn)登錄界面是用戶最先看到的系統(tǒng)界面，所以直觀上給用戶的感覺很重要，所以做一個(gè)好的界面，提高軟件的親和力。利用用戶登錄成功能實(shí)現(xiàn)對(duì)用戶操作權(quán)限的限制。管理員和學(xué)生的權(quán)限不

26、一樣，管理員擁有系統(tǒng)的所有權(quán)限，學(xué)生只有查詢修改個(gè)人信息和打印成績(jī)單的權(quán)限。用戶必須輸入正確的密碼才能進(jìn)入下一界面，如果用戶的密碼輸入錯(cuò)誤，應(yīng)用程序會(huì)提示錯(cuò)誤信息。用戶如果連續(xù)3次輸入錯(cuò)誤，應(yīng)用程序會(huì)強(qiáng)迫使用者退出并終止應(yīng)用程序的運(yùn)行，下圖所示是用戶登錄界面窗體。本管理系統(tǒng)登錄界面如圖6-1。圖6-1 登錄界面根據(jù)登錄模塊的功能，管理員和普通用戶界面統(tǒng)一在一起。系統(tǒng)自動(dòng)判斷用戶的要權(quán)限。管理員有所有的權(quán)限，普通用戶只有檢索和改本人的密碼權(quán)。如果三次登錄都出錯(cuò)，系統(tǒng)自動(dòng)退出。數(shù)據(jù)庫的連接采用的是ADO對(duì)象。連接代碼如下：If CN.State Then CN.CloseCN.Connection

27、String = "Provider=jet4;Integrated Security=SSPI; Persist Security Info=False "CN.Open引擎采用jet來連接access 2000數(shù)據(jù)庫。詳細(xì)代碼實(shí)現(xiàn)請(qǐng)參考附錄程序源代碼。5.2 系統(tǒng)管理實(shí)現(xiàn)班主任學(xué)生管理信息系統(tǒng)主界面主要實(shí)現(xiàn)考勤管理、獎(jiǎng)懲管理、成績(jī)管理、學(xué)生信息管理和查詢修改等功能。選擇該界面中不同的身份按鈕，就會(huì)進(jìn)入實(shí)現(xiàn)不同權(quán)限的窗體。登錄系統(tǒng)后進(jìn)入主界面如圖6-2。在系統(tǒng)功能設(shè)計(jì)中，系統(tǒng)維護(hù)功能主要有添加用戶，刪除用戶和管理員密碼修改，如圖6-3所示。添加用戶：在用戶名稱中輸入要添加

28、用戶的名，原始密碼為12345，可以修改，之后點(diǎn)添加。完畢。如果系統(tǒng)已經(jīng)添加的該用戶，系統(tǒng)自動(dòng)提示，重新添加。刪除用戶：選中要?jiǎng)h除的用戶，直接點(diǎn)刪除、系統(tǒng)有提示是否真的刪除，點(diǎn)是，就刪除了此用戶。圖 6-2管理系統(tǒng)界面圖6-3 用戶管理用戶密碼修改是指普通和管理員用戶的密碼修改。如圖6-4。圖6-4 用戶密碼修改修改密碼：輸入原始登錄密碼，在“新密碼“中輸入新密碼，在“新密碼核實(shí)”中再輸入一次新密碼，單擊“修改”，系統(tǒng)提示“操作成功！”。這樣下一次再進(jìn)入本系統(tǒng)時(shí)本用戶的密碼就改為新密碼。代碼實(shí)現(xiàn)請(qǐng)參考附錄程序源代碼。5.3 信息管理信息輸入中主要是對(duì)所有數(shù)據(jù)信息的添加、修改、刪除的功能。也是本

29、次開發(fā)的重點(diǎn)。其中學(xué)生信息、課程參數(shù)信息、成績(jī)、其他，也包括全部字典信息可以在下拉列表可以選擇。界面如圖6-5。圖6-5 學(xué)生信息各按鈕的功能：<<：移動(dòng)到第一條記錄。<：移動(dòng)到上一條記錄。>：移動(dòng)到下一條記錄。>>：移動(dòng)最后一條記錄。添加：是添加一新的記錄。瀏覽：是查看全的記錄。刪除：是刪除當(dāng)前的記錄。保存：是在添加和修改記錄后，保存記錄。修改：移動(dòng)到要修改的記錄，點(diǎn)修改，修改完后，點(diǎn)保存后就修改完畢。所有的信息表中的序號(hào)及各種編號(hào)一定要統(tǒng)一、規(guī)范。這樣有利于信息檢索。代碼實(shí)現(xiàn)請(qǐng)參考附錄程序源代碼。5.4 查詢管理實(shí)現(xiàn)查詢打印模塊包括成績(jī)信息、評(píng)定結(jié)果信查

30、詢打印，查詢以成績(jī)信息為例。在菜單中可以選擇信息查詢，在檢索名稱中輸入要檢索的字段。在后面下拉框中選擇條件。再輸入關(guān)鍵字，點(diǎn)檢索按鈕。在查詢完后，可以輸出Excel報(bào)表。在選擇條件包括=，<,>,<=,>=,like，其中l(wèi)ike是用于模糊檢索。檢索完之后，點(diǎn)Excel報(bào)表輸出，系統(tǒng)自動(dòng)輸出成報(bào)表。編輯格式以后就可以打印。代碼實(shí)現(xiàn)請(qǐng)參考附錄程序源代碼。其他功能請(qǐng)參考源程序。圖6-6規(guī)章查看圖6-7 查詢管理5.5系統(tǒng)關(guān)于與幫助系統(tǒng)關(guān)于如下圖6-8圖6-8 關(guān)于6 軟件測(cè)試7 總結(jié)回顧該系統(tǒng)從選題，到調(diào)研、需求分析、設(shè)計(jì)、編碼實(shí)現(xiàn)、測(cè)試，論文的撰寫，這系列連貫的過程，感想

31、頗多，收獲也很多。1設(shè)計(jì)開發(fā)一個(gè)軟件，首先要了解所涉及到行業(yè)的現(xiàn)狀，一定要想辦法進(jìn)行行業(yè)調(diào)研，從不同途徑獲取該行業(yè)的專業(yè)知識(shí)。合理安排系統(tǒng)設(shè)計(jì)開發(fā)時(shí)間，進(jìn)行實(shí)際開發(fā)會(huì)發(fā)現(xiàn)需求分析與系統(tǒng)設(shè)計(jì)占主要的時(shí)間，如果前面的工作做好了，編碼實(shí)現(xiàn)占用的時(shí)間很短。所以我們要借助軟件工程的思想-對(duì)軟件開發(fā)過程進(jìn)行控制。2. 在開發(fā)一個(gè)系統(tǒng)時(shí)，前期的分析準(zhǔn)備工作非常的重要。對(duì)于系統(tǒng)的需求要明確，這樣才能做到有的放矢。特別是對(duì)于系統(tǒng)中數(shù)據(jù)的存儲(chǔ)和重要算法的設(shè)計(jì)，設(shè)計(jì)的不好會(huì)出現(xiàn)大量的冗余，不僅浪費(fèi)存儲(chǔ)空間，還影響查詢效率。例如：系統(tǒng)中圖的存儲(chǔ)設(shè)計(jì)和求最短路徑算法設(shè)計(jì)。3.在設(shè)計(jì)的初期，對(duì)一個(gè)功能模塊的設(shè)計(jì)，要想出兩

32、種或兩種以上方案，這樣可以進(jìn)行比較，從而獲得更佳的設(shè)計(jì)方案，設(shè)計(jì)開發(fā)過程中一定要吸取經(jīng)驗(yàn)教訓(xùn)，避免返工。尤其是一些重要算法或功能。在對(duì)具體實(shí)現(xiàn)功能模塊進(jìn)行編程時(shí)，要養(yǎng)成良好的加注釋的習(xí)慣，這樣的話不僅能理清思路，而且可以為以后的調(diào)試程序帶來很大的方便。4. 獨(dú)立思考的同時(shí)，要虛心向別人請(qǐng)教，可以達(dá)到事半功倍的效果。在具體編程實(shí)現(xiàn)系統(tǒng)功能的過程中，我遇到了不少的問題，我曾通過不同渠道向老師、同學(xué)、上相關(guān)網(wǎng)站、到論壇尋求答案，收到了很好的效果。通過獨(dú)立完成學(xué)生信息管理系統(tǒng)的分析設(shè)計(jì)開發(fā)后，發(fā)現(xiàn)自己在進(jìn)行軟件開發(fā)方面提高不少，同時(shí)積極利用所學(xué)到的新技術(shù)用于自己的設(shè)計(jì)開發(fā)過程。由于本人是初次開發(fā)系統(tǒng)，

33、在知識(shí)、經(jīng)驗(yàn)方面都存在著不足。另外，在整個(gè)開發(fā)的過程中，時(shí)間也比較倉(cāng)促。因此，該系統(tǒng)必然會(huì)存在一些缺陷和不足。如：用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問題。在本次開發(fā)過程由于多方面的限制，系統(tǒng)還有不足之處。盡管本系統(tǒng)存在著很多不足，但其實(shí)現(xiàn)了最重要的功能就是可以對(duì)學(xué)生信息進(jìn)行管理。這個(gè)對(duì)于一個(gè)學(xué)生信息系統(tǒng)是十分重要的。該系統(tǒng)是根據(jù)班級(jí)管理的特點(diǎn)制作的信息系統(tǒng)，可以給班主任管理班級(jí)提供方便。通過開發(fā)這個(gè)系統(tǒng)，我掌握了開發(fā)系統(tǒng)的基本過程，了解了VB語言的基本知識(shí)，鞏固了我對(duì)Visual Basic的學(xué)習(xí)，但在這次畢業(yè)設(shè)計(jì)中的最大收獲并不是這些，而是學(xué)會(huì)了設(shè)計(jì)系統(tǒng)的思維方法，以及與同學(xué)們之間相互幫

34、助的精神。致 謝在論文即將完成之際，本人在此向所有關(guān)心、幫助我的老師和同學(xué)們致以最真誠(chéng)的感謝。在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師司春景老師身上學(xué)到了很多東西。她認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。她無論在理論上還是在實(shí)踐中，都給與我很大的幫助，這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，在此感謝她耐心的輔導(dǎo)。在撰寫論文階段，司春景老師審閱我的論文，提出了許多寶貴意見，沒有她的指導(dǎo)，我們就不能較好的完成課題設(shè)計(jì)的任務(wù)。另外，我還要感謝在這幾年來對(duì)我有所教導(dǎo)的老師，他們孜孜不倦的教誨不但讓我學(xué)到了很多知識(shí)，而且讓我掌握了學(xué)習(xí)的方法，更教會(huì)了我做人處事的道理，在此表示感謝。

35、同時(shí)，在系統(tǒng)開發(fā)過程中還有同組的同學(xué)也給了我不少幫助，這里一并表示感謝。參考文獻(xiàn)1 襲沛曾，楊志強(qiáng). Visual Basic 程序設(shè)計(jì)教程（6.0版）.高等教育出版社.2000年2 肖建，薛鳳武，吳靜.Visual Basic 6.0 基礎(chǔ)教程.中國(guó)電力出版社.2002年3 張大年，廖智勇，劉檢鋒.Visual Basic數(shù)據(jù)庫應(yīng)用開發(fā)與實(shí)例.清華大學(xué)出版社. 2002年4 楊宗志.Visual Basic數(shù)據(jù)庫程序設(shè)計(jì).清華大學(xué)出版社.2001年5 陳豫龍， 何旭洪. Visual Basic 6.0數(shù)據(jù)庫開發(fā)實(shí)例導(dǎo)航.人民郵電出版社.2002年6 Visual Basic 6.0 時(shí)尚編

36、程百例.機(jī)械工業(yè)出版社.2001年7 飛思科技產(chǎn)品研發(fā)中心.Access 2000數(shù)據(jù)處理技術(shù).電子工業(yè)出版社.2001年8 譚浩強(qiáng)，王曉敏，李海波，楊紅兵.Visual Basic 程序設(shè)計(jì).中國(guó)鐵道出版社.9 張勇 Visual Basic 課程設(shè)計(jì)案例精編.中國(guó)水利水電出版社.10 張海藩，牟永敏.面向?qū)ο蟪绦蛟O(shè)計(jì)實(shí)用教程.清華大學(xué)出版社.2002.101111 Ronaad J.Norman,Obiect-Oriented Systems and Design.1996.202112 鄧良松，劉海巖，陸麗娜.軟件工程.西安電子科技大學(xué)出版社.2004.717813 董士海.計(jì)算機(jī)軟件工

37、程環(huán)境與軟件工程.北京：北京科學(xué)出版社.1990.4548附錄:程序源代碼源代碼：Public miCount As IntegerPrivate Sub cmdCancel_Click() ''退出程序EndEnd SubPrivate Sub cmdOK_Click() ''進(jìn)入.確定'On Error GoTo Err Dim txtSql As String UserName = "" If Trim(txtUserName.Text) = "" Then ''判斷用戶名是否為空 MsgBo

38、x "請(qǐng)輸入帳號(hào)！", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus Exit Sub End If If Trim(txtPassword.Text) = "" Then '判斷密碼是否為空 MsgBox "請(qǐng)輸入密碼！", vbOKOnly + vbExclamation, "警告" txtPassword.SetFocus Exit Sub End If ''判斷是否有這個(gè)用戶 txtSql = "

39、select * from 用戶信息表 where 用戶名稱= '" & txtUserName.Text & "'" If rs.State Then rs.Close rs.Open txtSql, CN, adOpenStatic, adLockOptimistic If rs.EOF = True Then ''如果沒有這個(gè)用戶 MsgBox "沒有這個(gè)帳號(hào)，請(qǐng)重新輸入帳號(hào)!", vbOKOnly + vbExclamation, "警告" txtUserName.Te

40、xt = "" txtPassword.Text = "" txtUserName.SetFocus Else ''如果有用戶 If Trim(rs.Fields(1) = Trim(txtPassword.Text) Then ''判斷權(quán)限 UserPrivs = "" If Trim(rs.Fields(2) = "管理員" Then ''管理員權(quán)限 IsUserMode = 1 ElseIf Trim(rs.Fields(2) = "操作員"

41、 Then ''普通用戶權(quán)限 IsUserMode = 2 Else ''無權(quán) IsUserMode = 0 MsgBox "你沒有權(quán)限!", vbExclamation, "警告" End End If UserPrivs = Trim(rs.Fields(2) UserName = Trim(txtUserName.Text) Unload Me Mainfrm.Show Exit Sub Else MsgBox "輸入密碼不正確，請(qǐng)重新輸入！", vbOKOnly + vbExclamation,

42、 "警告" txtPassword.SetFocus txtPassword.Text = "" End If End If rs.Close miCount = miCount + 1 If miCount = 3 Then ''三次錯(cuò)誤,自動(dòng)退出程序 End End IfExit SubErr: MsgBox Err.Description & "登錄出錯(cuò),請(qǐng)找管理員!", vbExclamation Ok = False EndEnd SubPrivate Sub Form_Activate()txtUs

43、erName.SetFocusEnd SubPrivate Sub Form_Load()On Error GoTo Err''連數(shù)據(jù)庫代碼If CN.State Then CN.CloseCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "database.mdb;Persist Security Info=False"CN.OpenmiCount = 0Ok = FalsetxtUserName.Text

44、 = GetSetting(App.Title, "Settings", "user_name", "")Label2.MouseIcon = cmdOK.MouseIconExit SubErr:MsgBox Err.Description, , "數(shù)據(jù)庫連接錯(cuò)誤"EndEnd SubPrivate Sub Label1_Click()Form5.Show 1End SubPrivate Sub Label2_Click()EndEnd SubPrivate Sub txtPassword_KeyPress(Ke

45、yAscii As Integer)If KeyAscii = 13 ThenCall cmdOK_ClickEnd IfEnd SubPrivate Sub txtUserName_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThentxtPassword.SetFocusEnd IfEnd Sub主界面圖及代碼：Private Sub DatabaseHf_Click()frmHF.Show 1End SubPrivate Sub Exit_Click()EndEnd SubPrivate Sub FindStudent_Click()For

46、m2.Show 1End SubPrivate Sub Findxg_Click()Form8.Show 1End SubPrivate Sub Form_Load()PrivsSeting ''加載權(quán)限設(shè)置End SubPrivate Sub Form_Resize()On Error GoTo Err '''改變控件位置代碼Picture1.Top = 0Picture1.Left = 0Picture1.Height = Me.ScaleHeight - StatusBar1.HeightPicture1.Width = Me.ScaleWidth

47、StatusBar1.Panels(1).Text = "操作員:" & UserNameLabel9.Left = (Picture1.ScaleWidth - Label9.Width) / 2Label9.Top = Picture1.ScaleHeight / 2 - Label9.Height / 2Label1.Top = Label9.Top + 50Label1.Left = Label9.Left + 50''加載背景代碼 Image1.Picture = LoadPicture(App.Path & "1.jpg

48、") Picture1.Refresh Picture1.PaintPicture Image1.Picture, Picture1.ScaleTop, Picture1.ScaleLeft, Picture1.ScaleWidth, Picture1.ScaleHeight, 0, 0, Image1.Width, Image1.HeightErr:End SubPrivate Sub Form_Unload(Cancel As Integer)EndEnd SubPrivate Sub HelpFiles_Click() '''幫助文件On Error G

49、oTo ErrMainfrm.StatusBar1.Panels(2).Text = "幫助文件" Dim strPath As String strPath = App.Path + "系統(tǒng)說明.doc" ShellExecute hWnd, "open", mFso.GetFileName(strPath), lpParameters, mFso.GetParentFolderName(strPath), 5Exit SubErr:MsgBox Err.DescriptionEnd SubPrivate Sub Infocj_Cl

50、ick()strTableName = "成績(jī)信息"Form6.Show 1End SubPrivate Sub InfoCqjl_Click()strTableName = "考勤信息"Form7.Show 1End SubPrivate Sub InfoJf_Click()strTableName = "獎(jiǎng)罰信息"Form7.Show 1End SubPrivate Sub InfoKc_Click()strTableName = "課程信息"Form1.Show 1End SubPrivate Sub Inf

51、oKwhd_Click()strTableName = "課外活動(dòng)信息"Form7.Show 1End SubPrivate Sub infoStudent_Click()strTableName = "學(xué)生基本信息"Form1.Show 1End SubPrivate Sub InofBs_Click()strTableName = "比賽信息"Form7.Show 1End SubPrivate Sub Sjbf_Click()frmDatabase.Show 1End SubPrivate Sub SysAbout_Click(

52、) ''關(guān)于frmAbout.Show 1End SubPrivate Sub sysManager_Click()Form3.Show 1End SubPrivate Sub Userpasword_Click() ''用戶密碼Form4.Show 1End SubPublic Sub PrivsSeting() '權(quán)限設(shè)置If IsUserMode = 1 Then ''管理員 ElseIf IsUserMode = 2 Then sysManager.Visible = False Infomanage.Visible = Fals

53、eEnd IfEnd Sub 用戶管理代碼Private Sub cmdExit_Click()Unload MeEnd SubPrivate Sub Command2_Click() ''添加用戶On Error GoTo ErrIf Trim(Text8.Text) <> "" And Trim(Text9.Text) <> "" And Trim(Combo1.Text) <> "" Then Dim rs1 As New ADODB.Recordset If rs1.Stat

54、e Then rs1.Close rs1.Open "select count(*) from user_Form where user_Id='" & Trim(Text8.Text) & "'", Cn, adOpenStatic, adLockOptimistic If rs1.Fields(0) > 0 Then MsgBox "用戶已經(jīng)存在! 請(qǐng)改user_Id!", , "系統(tǒng)提示" Text8.Text = "" Exit Sub End If

55、 If rs1.State Then rs1.Close rs1.Open "select * from user_Form", Cn, adOpenStatic, adLockOptimistic rs1.AddNew rs1.Fields(0).Value = Trim(Text8.Text) rs1.Fields(1).Value = Trim(Text9.Text) rs1.Fields(2).Value = Date rs1.Fields(3).Value = Trim(Combo1.Text) rs1.Update Combo5.AddItem Trim(Tex

56、t8.Text) MsgBox "用戶添加成功!,初始密碼為" & Text9.Text, , "系統(tǒng)提示" Text8.Text = ""End IfExit SubErr:MsgBox Err.DescriptionEnd SubPrivate Sub Command3_Click() ''刪除用戶代碼 If Trim(Combo5.Text) = UserName Then MsgBox "不能刪除正在操作的用戶!" Exit Sub End If Cn.Execute "delete from user_Form where user_Id='" & Trim(Combo5.Text) & "'" Combo5.RemoveItem (Combo5.ListIndex) MsgBox "操作已成功!", , "提示"End SubPrivate Sub Form_Load() ''初始化代碼On Error GoTo ErrText8.Text = ""Dim rs1 As New AD