【正文】 erID=39。 39。, sqlstr = sqlstr amp。 values(39。 amp。3．3．3．1 窗體代碼設(shè)計1．定義一個整型變量DelNO用來存儲當(dāng)前系統(tǒng)用戶的數(shù)目，當(dāng)DelNO=1時提示用戶不能再刪除用戶。4．“重新登陸”子菜單的代碼當(dāng)單擊了“重新登陸”或者按下了“F2”鍵時，將會給出提示，如果用戶在提示框中按下了“確定”按鈕，則退出整個MDI主窗體，并顯示登陸窗體。 If LoginPower = 普通用戶 Then = False (5).Enabled = False End IfEnd Sub3．Form的QueryUnload事件當(dāng)用戶要退出MDI窗體時，需要在3．3．2．2 窗體代碼設(shè)計1．在代碼窗口的通用部分，聲明一個API函數(shù)用于打開幫助文件和調(diào)用Outlook發(fā)送郵件。密碼錯誤時 MsgBox 您輸入的密碼不正確！, vbQuestion = 請輸入用戶名和密碼： loginno = loginno + 1 39。 用戶登陸界面在代碼窗口的“通用”部分，定義一個模塊級的公共變量loginno用來記錄當(dāng)前密碼輸入錯誤的次數(shù)Dim loginno As Integer在Form的Load事件中，將txtuser設(shè)置為焦點(diǎn)，初始化loginno。（二）課程管理：對課程進(jìn)行添加、修改、刪除操作。uid=sa。Error對象：提供處理錯誤的功能。無法更改數(shù)據(jù)adLockPressimistic2保守式記錄鎖定（逐條）。⑷ 支持多種不同的數(shù)據(jù)控制指標(biāo)形式。其中：Connection對象主要負(fù)責(zé)打開或連接數(shù)據(jù)庫文件；Recordset對象主要是存取數(shù)據(jù)庫的內(nèi)容；Command對象主要是對數(shù)據(jù)庫下達(dá)行動查詢指令以及SQL Server的Stored Proceduce。5．具有很好的伸縮性和可靠性。此外，SQL Server 2000還提供了SQL事件探查器、SQL查詢分析器、SQL Server服務(wù)管理器和多種操作向?qū)У葓D形界面管理工具，大大簡化了用戶操作，從而增強(qiáng)了系統(tǒng)的易用性。在過去的很長一段時間中，微軟公司聘請了世界上最優(yōu)秀的數(shù)據(jù)庫專家以及專門搭建了信息量可謂空前的地理信息系統(tǒng)，勵精圖治，就是為了摘掉扣在自己頭上的這頂帽子。1．3．2 SQL Server 2000簡介SQL Server 2000是微軟公司最新版的大型數(shù)據(jù)庫服務(wù)器，其性能指標(biāo)在各方面都有趕超Oracle數(shù)據(jù)庫的趨勢。VB提供的數(shù)據(jù)訪問對象（Data Access Object；DAO）讓程序設(shè)計者擁有更大的發(fā)揮空間。這是的數(shù)據(jù)庫管理員要對每一位用戶或用戶組分配對數(shù)據(jù)庫不同特定訪問。Jet引擎被Visual Basic，Microsoft Access和其他Microsoft產(chǎn)品共享。事件可以由用戶操作觸發(fā)、也可以由來自操作系統(tǒng)或其它應(yīng)用程序的消息觸發(fā)、甚至由應(yīng)用程序本身的消息觸發(fā)。1．3．1．1 Visual Basic的編程特點(diǎn)Visual Basic語言的出現(xiàn)為Windows下的編程提出了一個新概念，利用Visual Basic的動態(tài)數(shù)據(jù)交換、對象的鏈接和嵌入、動態(tài)鏈接庫、ActiveX技術(shù)可以很方便地設(shè)計出功能強(qiáng)大的應(yīng)用程序。因此為提高工作效率，減輕校方人員的工作負(fù)擔(dān)，決定開發(fā)學(xué)籍管理系統(tǒng)軟件。 The school register management system。管理信息系統(tǒng)是一個不斷發(fā)展的新型學(xué)科，任何一個單位要生存要發(fā)展，要高效率地把內(nèi)部活動有機(jī)地組織起來，就必須建立與自身特點(diǎn)相適應(yīng)的管理信息系統(tǒng)。作為一個計算機(jī)應(yīng)用的本科生，希望可以在這方面有所貢獻(xiàn)。改革的總設(shè)計師鄧小平同志說過“科學(xué)技術(shù)是第一生產(chǎn)力”，我希望能用我四年的所學(xué)編制出一個實(shí)用的程序來幫助中小學(xué)進(jìn)行更有效的學(xué)籍管理。學(xué)生學(xué)籍管理系統(tǒng)是一個教育單位不可缺少的部分,它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要,所以學(xué)籍管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。 RDBMS.目錄摘 要 5 91．1 開發(fā)背景 91．1．1 當(dāng)前趨勢 91．1．2 用計算機(jī)管理學(xué)生學(xué)籍的意義 91．2 學(xué)籍管理系統(tǒng)概述 101．2．1 開展該系統(tǒng)的原因 101．3 開發(fā)環(huán)境以及開發(fā)工具介紹 101．3．1 Visual Basic 101．3．1．1 Visual Basic的編程特點(diǎn) 101．3．1．2 VB 支持的數(shù)據(jù)庫系統(tǒng) 111．3．1．3 Jet數(shù)據(jù)庫引擎 121．3．1．4 數(shù)據(jù)庫開發(fā)中的三大工具 121．3．2 SQL Server 2000簡介 13 SQL Server數(shù)據(jù)庫特點(diǎn) 131．3．3 ADO對象概述 14 利用ADO開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫應(yīng)用程序 15 ADO組件的主要對象及其功能 15 用來操縱數(shù)據(jù)的SQL命令 161．4 Visual Basic 17 182．1數(shù)據(jù)庫的設(shè)計 182．2系統(tǒng)流程圖 192. 3系統(tǒng)結(jié)構(gòu)圖： 202．4 系統(tǒng)功能分析 20 213．1 準(zhǔn)備工作 213．2 模塊設(shè)計 213．3 用戶界面實(shí)現(xiàn) 223．3．1 登陸界面(frmlogin) 223．3．2 MDI主窗口(frmmain) 243．3．2．1 菜單設(shè)計 243．3．2．2 窗體代碼設(shè)計 253．3．3 用戶管理窗體（frmmanage） 273．3．3．1 窗體代碼設(shè)計 273．3．4 修改密碼窗體（frmchgPWD） 323．3．5 瀏覽學(xué)生信息窗體（frmstu） 343．3．6 添加/修改學(xué)生信息窗體(frmAddstu) 413．3．7 學(xué)籍管理模塊 473．3．8 報表功能模塊 47 49結(jié)束語 49參考文獻(xiàn) 491．1 開發(fā)背景1．1．1 當(dāng)前趨勢現(xiàn)代教育技術(shù)特別是網(wǎng)絡(luò)與多媒體技術(shù)的發(fā)展，對學(xué)習(xí)活動產(chǎn)生了具有深遠(yuǎn)意義的沖擊，網(wǎng)絡(luò)中的學(xué)習(xí)者必須是一個主動行為著的主體，人們可以選擇或者設(shè)計適合其學(xué)習(xí)特點(diǎn)的信息采集、加工與重組方式，一種個性化的學(xué)習(xí)類型。 1．2．2 該工程的基本目標(biāo)開發(fā)此學(xué)籍管理系統(tǒng)軟件，以供教學(xué)人員及操作者進(jìn)行學(xué)籍管理，方便操作者隨時添加、查詢、修改等。利用Visual Basic語言編程有以下幾個特點(diǎn)：1． 可視化程序設(shè)計在Visual Basic中開發(fā)的應(yīng)用程序，不但有豐富的圖形界面，同時由用戶為開發(fā)圖形界面添加的代碼真是少而又少，因為在設(shè)計圖形界面的過程中只需設(shè)置 ActiveX控件的屬性即可。這些事件的順序，決定了代碼執(zhí)行的順序，因此應(yīng)用程序每次運(yùn)行時所經(jīng)過的路徑都是不同的。Jet數(shù)據(jù)庫引擎提供了多種功能，Jet的數(shù)據(jù)定義功能支持對表、索引、查詢的創(chuàng)建、修改和刪除。除了數(shù)據(jù)操作和數(shù)據(jù)定義任務(wù)外，也可用Jet引擎來執(zhí)行其他的任務(wù)。借助程序代碼編寫，直接控制Jet數(shù)據(jù)庫引擎，配合數(shù)據(jù)庫控件，能夠開發(fā)出更具彈性且高效率的數(shù)據(jù)應(yīng)用程序。用它可以方便地管理數(shù)據(jù)庫和開發(fā)應(yīng)用程序，它使用了最先進(jìn)的數(shù)據(jù)庫構(gòu)架，與Windows NT/2000平臺緊密集成，具有完全的Web功能。有了強(qiáng)大的性能和功能支持，再配合其一向為人稱道的易用性，SQL Server可以說成為了開發(fā)者手中的一柄利器！ 另外，目前國內(nèi)的一些關(guān)于微軟平臺的數(shù)據(jù)庫編程教程，喜歡使用Access作為數(shù)據(jù)庫平臺的案例，并展開相關(guān)的內(nèi)容。2．動態(tài)自動管理和優(yōu)化功能。SQL Server 2000既能運(yùn)行在Windows桌面操作系統(tǒng)下，又可運(yùn)行在服務(wù)器操作系統(tǒng)（包括Windows NT和Windows 2000）下；既能運(yùn)行在單CPU計算機(jī)上，又能運(yùn)行在對稱多處理系統(tǒng)下。ADO對象能夠存取到數(shù)據(jù)庫的內(nèi)容，首先要求數(shù)據(jù)庫的驅(qū)動程序( ODBC驅(qū)動程序與OLE DB驅(qū)動程序)必須安裝上，否則，ADO對象是無法存取數(shù)據(jù)庫中內(nèi)容，：客戶端客戶端客戶端ADO對象各種數(shù)據(jù)庫所對應(yīng)的驅(qū)動程序各種數(shù)據(jù)庫(如Access、SQL Server以及Oracle等) ADO對象存取數(shù)據(jù)原理示意圖請注意：上圖中的“各種數(shù)據(jù)庫所對應(yīng)的驅(qū)動程序”即ODBC驅(qū)動程序與OLE DB驅(qū)動程序。⑸ 先進(jìn)的Recordset數(shù)據(jù)高速緩存管理功能。提供者執(zhí)行必要的操作確保成功編輯記錄，通常采用立即鎖定數(shù)據(jù)源的記錄的方式。使用ADO對象可以建立和管理數(shù)據(jù)庫的連接，按數(shù)據(jù)庫服務(wù)器的要求獲得數(shù)據(jù)，執(zhí)行更新、刪除、添加數(shù)據(jù)等操作，獲取ODBC的錯誤信息等。pwd=。（三）專業(yè)/學(xué)院設(shè)置：（三）考試成績管理：（四）查詢學(xué)生信息：根據(jù)學(xué)號或姓名對學(xué)生信息進(jìn)行精確/模糊查詢（五）用戶管理：定義使用本系統(tǒng)的用戶名稱及密碼 經(jīng)過需求分析、功能模塊設(shè)計之后要進(jìn)入詳細(xì)設(shè)計階段，本階段將按系統(tǒng)的主要模塊進(jìn)行論述，重在闡述具體的某項功能的實(shí)現(xiàn)方法或運(yùn)用到的相關(guān)技術(shù)。Private Sub Form_Load() loginno = 0 End Sub這里將“確定”和“取消”兩個按鈕作為一個按鈕數(shù)組cmdOkCancel：確定按鈕的index屬性為0，取消按鈕的index屬性為1。當(dāng)錯誤的密碼次數(shù)達(dá)到3次時，不能登陸，退出！ If loginno = 3 Then MsgBox 對不起，您不能使用該系統(tǒng)！請與管理員聯(lián)系。Private Declare Function ShellExecuteamp。QueryUnload事件中詢問用戶是否真的要退出本系統(tǒng)；如果用戶不要退出，則將Cancel置為1，取消整個退出過程。Private Sub filemenu15_Click()If MsgBox(若重新登陸，所有窗體都將關(guān)閉！是否重新登陸？, vbYesNo + vbQuestion, 重新登陸) = vbYes Then Unload Me End IfEnd Sub5．“幫助主題”子菜單的代碼調(diào)用Windows API函數(shù)。在該窗體的通用部分寫如下代碼： Dim DelNO As Integer2．窗體加載時，初始化Listview用以顯示系統(tǒng)用戶列表，代碼如下Private Sub Form_Load()39。 39。 amp。 39。) sqlstr MsgBox 添加用戶 amp。 amp。添加用戶 End SubPrivate Sub menuDel_Click() 39。 LoginUser amp。 LoginUser amp。設(shè)置 Width 屬性 If X 1500 Then X = 1500 If X ( 1500) Then X = 1500 = X = X = X + 50 = ( + 100) = 50 = = = = End Sub單擊Treeview中的班級號碼則調(diào)用TreeView_NodeClick事件和ListviewLoad事件在Listview中顯示該班級下面學(xué)生的信息列表。在本系統(tǒng)中，在系統(tǒng)默認(rèn)情況下，班級編號作為學(xué)號的前面六位。顯示窗口Dim EditNum As StringIf Then EditNum = CStr() Call (EditNum)Else Exit SubEnd IfEnd Sub刪除學(xué)生資料的設(shè)計思路：在刪除記錄之前彈出詢問框，確認(rèn)用戶是否真的要刪除當(dāng)前記錄，如果用戶選擇了“是”，則刪除該條記錄，否則就不執(zhí)行任何操作。 amp。顯示出該生全部信息表單 Call (SelectNum) Else Exit Sub End IfEnd IfEnd Sub在frmstuinfo的代碼窗口中添入以下代碼用來顯示該學(xué)生的詳細(xì)資料。根據(jù)以上設(shè)計，在Form_Load中添加如下代碼：Private Sub Form_Load()39。 amp。 39。 classid amp。 amp。 sqlstr Call ListviewLoad(classid) End IfEnd IfEnd Sub學(xué)生信息包括了學(xué)號、姓名、出生日期、性別、家庭住址、聯(lián)系電話等內(nèi)容。在刪除了當(dāng)前記錄以后，需要重新移動當(dāng)前記錄；由于改變了當(dāng)前記錄集的內(nèi)容，所以需要調(diào)用ListviewLoad子過程來刷新Listview中的內(nèi)容。“添加”子菜單的Click事件的設(shè)計思路：用戶單擊“添加”子菜單時，調(diào)用frmmain中的“添加學(xué)生信息”子菜單顯示FrmAddStu窗體，同時將Command1的Caption屬性設(shè)置為“確定（amp。正在導(dǎo)入數(shù)據(jù)，提示用戶等待 = 11If = classid Then 39。 sqlstr MsgBox 您的密碼更新成功，請牢記你的密碼！, vbInformation Unload Me End IfElse MsgBox 異常錯誤！, vbInformationEnd If: Set rs = Not