【正文】 hingEnd Sub修改完畢后，單擊“取消”退出此窗體。 sqlstr, con, 1, 1If Not Then If rs(UserPWD) Oldpwd Then MsgBox 你輸入的原密碼不對(duì)！, vbInformation = = = Exit Sub Else sqlstr = update UserInfo set UserPWD=39。在MDI主窗體編輯窗口中，單擊“系統(tǒng)選項(xiàng)/修改個(gè)人密碼”，添加如下代碼：Private Sub filemenu12_Click() 39。 39。 成功, vbOKOnly, 添加系統(tǒng)用戶 = = = = 39。 Username amp。 39。Private Sub Command4_Click()…… Do While Not If = (UserID) Then MsgBox 已經(jīng)存在用戶名為 amp。 (2) = ef(UserName) (3) = ef(UserPower) LoopSet ef = NothingEnd Sub3．添加用戶在Textbox中輸入了相應(yīng)的數(shù)據(jù)以后，按添加按鈕則調(diào)用該按鈕的Click事件，代碼如下當(dāng)單擊“添加”按鈕時(shí)，首先檢查輸入的用戶名和密碼是否為空，代碼如下：Private Sub Command4_Click() If Trim() = Then MsgBox 登陸用戶名不允許為空！, vbOKOnly + 48, 提示： Exit SubEnd IfIf InStr(1, Trim(), 39。 \, , , 1End Sub6．“給我發(fā)郵件”子菜單的代碼如果用戶單擊了“給我發(fā)郵件”子菜單，則會(huì)調(diào)用API函數(shù)，調(diào)用Outlook。當(dāng)一個(gè)應(yīng)用程序關(guān)閉時(shí)，可使用QueryUnload或Unload事件過(guò)程將Cancel屬性設(shè)置為T(mén)rue來(lái)阻止關(guān)閉過(guò)程。所以在MDIForm的Load事件中需要判斷用戶類(lèi)型。保存當(dāng)前登陸用戶名 LoginPower = (3) 39。根據(jù)以上的設(shè)計(jì)，cmdOkCancel的Click事件的代碼如下：Private Sub cmdOkCancel_Click(Index As Integer) Select Case Index Case 0 …… Userid = Trim() Userpwd = MD5(Trim()) sqlstr = select * from UserInfo where UserID=39。2． 添加部件：?jiǎn)螕艄こ滩藛沃械牟考x項(xiàng)，添加Microsoft ADO Data Control (OLEDB)、Microsoft Common Dialog Control (SP3) 、Microsoft FlexGrid Control 、Microsoft Windows Common Controls (SP4)和Microsoft Windows Common Controls2 。而對(duì)于Access數(shù)據(jù)庫(kù)，連接語(yǔ)句為 Provider=。SQL命令主要分成兩部分：DDL(Data Definition Language)和DML(Data Manipulation Language),其中DDL是建立數(shù)據(jù)表及數(shù)據(jù)列的指令群，而DML則是操作數(shù)據(jù)庫(kù)記錄的指令群，如數(shù)據(jù)庫(kù)記錄的添加、更新、刪除、和查詢(xún)等。提供者使用開(kāi)放式鎖定，只在調(diào)用Updata方法時(shí)鎖定記錄。⑺ ADO屬于Free_threaded對(duì)象，利用它可以開(kāi)發(fā)出更有效的Web應(yīng)用程序?？砂阉cASP結(jié)合起來(lái)，建立提供數(shù)據(jù)庫(kù)信息的網(wǎng)頁(yè)內(nèi)容，對(duì)數(shù)據(jù)庫(kù)進(jìn)行查詢(xún)、插入、更新、刪除等操作，并可以把在用戶端實(shí)現(xiàn)“網(wǎng)上實(shí)時(shí)更新顯示”的最新Web數(shù)據(jù)庫(kù)技術(shù)。6．簡(jiǎn)單的管理方式。3．充分的Internet技術(shù)支持。SQL Server 2000提供的非常傻瓜的缺省安裝和使用模式，其上手難度并不比Access大。此外，還增強(qiáng)了安全性，保護(hù)防火墻內(nèi)外的數(shù)據(jù)。使用RDO可以不用本地的查詢(xún)機(jī)就能訪問(wèn)ODBC數(shù)據(jù)源，這無(wú)疑將大大提高應(yīng)用程序的性能。1．3．1．4 數(shù)據(jù)庫(kù)開(kāi)發(fā)中的三大工具Visual Basic在數(shù)據(jù)庫(kù)應(yīng)用程序的開(kāi)發(fā)領(lǐng)域中，提供包含數(shù)據(jù)管理（DataManager），數(shù)據(jù)控件（Data Control）以及數(shù)據(jù)編程對(duì)象（數(shù)據(jù)訪問(wèn)對(duì)象（DAO）、遠(yuǎn)程數(shù)據(jù)對(duì)象（RDO）和ActiveX數(shù)據(jù)對(duì)象（ADO））等功能強(qiáng)大的工具，協(xié)助設(shè)計(jì)人員輕松的連接數(shù)據(jù)庫(kù)文件，并訪問(wèn)其中的數(shù)據(jù)，在功能方面與其他一些專(zhuān)業(yè)數(shù)據(jù)庫(kù)軟件（如FoxPro，Micosoft Access等）不相上下。對(duì)于數(shù)據(jù)操縱，Jet支持使用SQL。 1．3．1．2 VB 支持的數(shù)據(jù)庫(kù)系統(tǒng)VB支持對(duì)多格式的數(shù)據(jù)庫(kù)的訪問(wèn)和維護(hù)，無(wú)論是Access還是Foxpro中創(chuàng)建的數(shù)據(jù)庫(kù)，都可以用VB打開(kāi)，對(duì)其進(jìn)行查詢(xún)、修改和刪除等操作。3．其它特性在Visual Basic以前的版本中，由于仍然擺脫不了解釋執(zhí)行的代碼運(yùn)行機(jī)制，所以在相當(dāng)?shù)某潭壬现萍s了 Visual Basic 的發(fā)展。1．3 開(kāi)發(fā)環(huán)境以及開(kāi)發(fā)工具介紹該軟件是在Windows 2000 Advanced Server + Visual Basic + SQL Server 2000的環(huán)境下完成的。1．1．2 用計(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ǔ)的信息管理所取代。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)學(xué)生學(xué)籍進(jìn)行管理,:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。 三：該工程的基本目標(biāo)開(kāi)發(fā)此學(xué)籍管理系統(tǒng)軟件，以供教學(xué)人員及操作者進(jìn)行學(xué)籍管理，方便操作者隨時(shí)添加、查詢(xún)、修改等。該學(xué)籍管理系統(tǒng)采用多層架構(gòu)的系統(tǒng)，是真正適應(yīng)教育信息化發(fā)展三大趨勢(shì)的校園網(wǎng)絡(luò)應(yīng)用系統(tǒng)，全面支持Internet功能、遠(yuǎn)程訪問(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è)只起到宣傳作用的通病。第 11 周完成畢業(yè)設(shè)計(jì)和畢業(yè)論文。學(xué)生學(xué)籍管理系統(tǒng)。歸納起來(lái)，好處大約有以下幾點(diǎn)：，安全、高效；，節(jié)省大量人力；。利用VISUAL BASIC 程序設(shè)計(jì)語(yǔ)言，可以很方便地設(shè)計(jì)出在WINDOWS環(huán)境下運(yùn)行的應(yīng)用程序。從第一行代碼執(zhí)行程序并按應(yīng)用程序中預(yù)定的路徑執(zhí)行，必要時(shí)才會(huì)調(diào)用過(guò)程。VB對(duì)多種數(shù)據(jù)庫(kù)格式的支持，大大的增強(qiáng)了開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序的能力。這種功能讓開(kāi)發(fā)者指定用戶標(biāo)識(shí)符和口令，他們必須在用戶訪問(wèn)數(shù)據(jù)庫(kù)之前給出。它使得設(shè)計(jì)者省下一堆程序代碼編寫(xiě)的工作，能夠輕松的設(shè)計(jì)及維護(hù)數(shù)據(jù)庫(kù)內(nèi)容。ADO更易于使用。記得在以前各種關(guān)于SQL Server的文章，都會(huì)將其定位成中小型應(yīng)用方面，這種感覺(jué)被大家自然的延續(xù)到了2000版之中。1．豐富的圖形管理工具，使系統(tǒng)管理、操作更為直觀方便。SQL Server提供了TransactSQL、DBLibrary for C、嵌入式SQL（ESQL）等開(kāi)發(fā)工具，TransactSQL與工業(yè)標(biāo)準(zhǔn)SQL語(yǔ)言兼容，并在其基礎(chǔ)上加以擴(kuò)充，使它更適合事務(wù)處理方面的需要。1．3．3 ADO對(duì)象概述ADO對(duì)象是針對(duì)當(dāng)前微軟的軟件所支持的數(shù)據(jù)進(jìn)行操作的最為有效、簡(jiǎn)單并且功能強(qiáng)大的方法。⑵ 內(nèi)部有多個(gè)互相獨(dú)立的對(duì)象模型。Recordset對(duì)象：由數(shù)據(jù)庫(kù)服務(wù)器所返回的記錄集。Fields對(duì)象：由數(shù)據(jù)庫(kù)服務(wù)器所返回的單一數(shù)據(jù)字段Parametes對(duì)象：表示Command對(duì)象的參數(shù)。1．4 Visual Basic ①定義數(shù)據(jù)庫(kù)組建Dim con As New ②打開(kāi)數(shù)據(jù)庫(kù)對(duì)于SQL數(shù)據(jù)庫(kù)， driver={sql server}。本數(shù)據(jù)庫(kù)采用SQL Server 2000來(lái)構(gòu)造，共使用了7個(gè)表，它們分別是用戶信息表（UserInfo）、學(xué)生信息表（StuInfo）、班級(jí)信息表（Class）、專(zhuān)業(yè)信息表（Major）、學(xué)院信息表（Depart）、課程信息表（Lesson）、學(xué)生成績(jī)表（Result）。+\ End IfEnd Sub 在module2中添加代碼(MD5算法) 3．3 用戶界面實(shí)現(xiàn)3．3．1 登陸界面(frmlogin)因?yàn)楸鞠到y(tǒng)是按學(xué)籍管理的思想設(shè)計(jì)的，故而登陸部分主要完成密碼校驗(yàn)、確定管理員等功能，對(duì)于密碼本系統(tǒng)采用的是MD5算法。 39。它有一個(gè)父窗口，在典型情況下，父窗口用來(lái)顯示程序菜單以及包含子窗口。 amp。但Unload不能阻止其他事件，諸如從Microsoft Windows操作環(huán)境中退出等；而QueryUnload事件則可以阻止從Windows中的退出。查找學(xué)生 1End Sub3．3．3 用戶管理窗體（frmmanage）向項(xiàng)目中添加窗體。, vbOKOnly + 48, 提示： Exit SubEnd IfIf Trim() = Then MsgBox 密碼不能為空，請(qǐng)輸入密碼！, vbOKOnly + 48, 提示： = = Exit SubEnd IfEnd Sub如果不為空，則檢查用戶名是否有重復(fù)，需要打開(kāi)系統(tǒng)信息表，Private Sub Command4_Click()…… sqlstr = select * from UserInfo where UserID=39。Private Sub Command4_Click()……If Trim() Trim() Then MsgBox 兩次密碼不相同，請(qǐng)重輸入！, vbOKOnly + 48, 提示： = = Exit SubEnd IfEnd Sub如果以上全部正確無(wú)誤的設(shè)置好了，則將新用戶的信息添加到數(shù)據(jù)表中，并提示“添加新用戶成功”。 Userpwd amp。 amp。刪除用戶操作On Error Resume NextIf Then If DelNO = 1 Then MsgBox 只剩下一個(gè)用戶帳號(hào)，不允許再刪除！, vbInformation ElseIf MsgBox(確定要?jiǎng)h除用戶名為amp。 amp。然后打開(kāi)數(shù)據(jù)庫(kù)，并將新密碼寫(xiě)入，提示用戶密碼修改成功。 39。Private Sub Form_Load() Call TreeviewLoad Dim clmX As ColumnHeader Set clmX = (, , 學(xué) 號(hào), / 7) ……End Sub在Form_Load事件中調(diào)用了TreeviewLoad函數(shù)，由于篇幅省略該函數(shù)的代碼，具體實(shí)現(xiàn)見(jiàn)源程序。 classid amp。添加學(xué)生資料 Call End SubPublic Sub AddStu()Call (00000000)End Sub修改學(xué)生資料的Click事件的設(shè)計(jì)思路和添加學(xué)生資料的設(shè)計(jì)思路類(lèi)似，但是由于只是對(duì)記錄進(jìn)行修改，不需要調(diào)用AddNew操作，只要對(duì)數(shù)據(jù)進(jìn)行Update操作即可。 amp。當(dāng)用戶單擊“顯示該生詳細(xì)資料”子菜單時(shí)，顯示frmstuinfo窗體（），并以學(xué)生學(xué)號(hào)為關(guān)鍵字，將該學(xué)生的全部資料賦值給frmstuinfo中的對(duì)應(yīng)文本框。 sqlstr, con, 1, 1 StuInfo(0).Caption = (SID) StuInfo(1).Caption = (SName) StuInfo(2).Caption = (SGender) StuInfo(3).Caption = (SZhengzhi) StuInfo(4).Caption = (SPlace) StuInfo(5).Caption = (SMinzu) StuInfo(6).Caption = (SBirthday) StuInfo(7).Caption = (SDormitory) StuInfo(8).Caption = (SAddress) StuInfo(9).Caption = (SCode) StuInfo(10).Caption = (STel) StuInfo(11).Caption = (SRemark): Set rs = Nothing 1End Sub3．3．6 添加/修改學(xué)生信息窗體(frmAddstu) 添加/修改學(xué)生信息界面當(dāng)窗體加載時(shí)，首先判斷是修改學(xué)生資料還是添加新的學(xué)生資料，如果學(xué)號(hào)為“00000000”，則為添加新的學(xué)生資料，反之則為修改學(xué)生資料。 EditNum amp