【正文】 Set clmX = (, , 用戶權(quán)限 , / 4, 2) 普通用戶 超級(jí)用戶 = 0 LoadOperator End Sub 其中調(diào)用了 LoadOperator 函數(shù)，該函數(shù)用來顯示和刷新 Listview 中的數(shù)據(jù) Private Sub LoadOperator() On Error Resume Next Dim Listit As ListItem = lvwAuto = 3 Dim ef As New sqlstr = select * from UserInfo sqlstr, con, 1, 1 DelNO = Do While Not Set Listit = (, , (UserID)) (1) = *** 隱藏用戶的密碼，用 ***來替代。 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è)用戶，然后將焦點(diǎn)設(shè)置給 Text1，并將所有的文本框清空。 Userid amp。 amp。 amp。 amp。修改密碼界面 1 End Sub 圖 修改用戶密碼 當(dāng)用戶輸入完畢時(shí)，單擊“確定”按鈕，引發(fā) Click 事件。 amp。刪除用戶操作 On Error Resume Next If Then If DelNO = 1 Then MsgBox 只剩下一個(gè)用戶帳號(hào)，不允許再刪除！ , vbInformation ElseIf MsgBox(確定要?jiǎng)h除用戶名為 amp。 amp。 Userpwd amp。 Private Sub Command4_Click() ?? If Trim() Trim() Then MsgBox 兩次密碼不相同，請重輸入！ , vbOKOnly + 48, 提示： = = Exit Sub End If End Sub 如果以上全部正確無誤的設(shè)置好了，則將新用戶的信息添加到數(shù)據(jù)表中，并提示“添加新用戶成功”。 , vbOKOnly + 48, 提示 ： Exit Sub End If If Trim() = Then MsgBox 密碼不能為空，請輸入密碼！ , vbOKOnly + 48, 提示： = = Exit Sub End If End Sub 如果不為空，則檢查用戶名是否有重復(fù)，需要打開系統(tǒng)信息表， Private Sub Command4_Click() ?? sqlstr = select * from UserInfo where UserID=39。查找學(xué)生 1 End Sub 用戶管理窗體（ frmmanage） 向項(xiàng)目中添加窗體，并命名為 。 在這兩個(gè)事件中，均可將 Cancel 設(shè)置為任何非零的值來防止窗體被刪除。 Private Sub MDIForm_Load() (2).Text = 當(dāng)前操作員： amp。將當(dāng)前登陸用戶的權(quán)限保存到 LoginPower 中 Unload Me End If Else MsgBox 沒有您輸入的用戶名！ , 32 ?? End If : Set rs = Nothing Case 1 ‘ 退出整個(gè)程序 Unload Me End Select End Sub 主窗口 (frmmain) 本系統(tǒng)采取多文檔界面 (MultiDocument Interface)。 amp。 添加一個(gè)模塊 module1，在 module1 中添加如下代碼 Option Explicit Global con As New Global rs As New Global classid As String, stuid As String Global LoginUser As String, LoginPower As String LoginUser 記錄當(dāng)前登陸用戶的用戶名 ,LoginPower 記錄當(dāng)前登陸用戶的權(quán)限 Dim Userid As String, Userpwd As String, Username As String, Userpower As String Dim sqlstr As String Sub Main() If = True Then MsgBox 注意程序已經(jīng)運(yùn)行，不能再次裝載！ , vbOKOnly Exit Sub Else Provider=。 （ 5） 學(xué)生信息 管理： ? 添加新學(xué)生的基本信息并可保存，包括 學(xué)號(hào) 、姓名、性別、籍貫、出生年月、家庭住址、民族、聯(lián)系電話、郵政編碼、備注 。 ? 修改密碼，包括用戶名、舊密碼、新密碼和確認(rèn)密碼。邏輯結(jié)構(gòu)設(shè)計(jì)時(shí)一般要分兩步進(jìn)行： ? 將概念結(jié)構(gòu)轉(zhuǎn)換為一般的關(guān)系、網(wǎng)狀、層次模型，并將轉(zhuǎn)化來的關(guān)系、網(wǎng)狀、層次模型向特定數(shù)據(jù)庫管理系統(tǒng)支持下的數(shù)據(jù)模型轉(zhuǎn)換 ? 對(duì)數(shù)據(jù)模型進(jìn)行優(yōu)化 本系統(tǒng)中邏輯結(jié)構(gòu)設(shè)計(jì)主要是將概念結(jié)構(gòu)設(shè)計(jì)階段設(shè)計(jì)好的的 ER圖轉(zhuǎn)換成具體的數(shù)據(jù)庫管理系統(tǒng)支持的數(shù)據(jù)模型 。 （二）課程管理： 能對(duì)課程進(jìn)行添加、 刪除、 修改操作。因此，調(diào)查者應(yīng)給予其高度的重視。 （一）現(xiàn)有系統(tǒng)的基本情況 現(xiàn)有系統(tǒng)的基本情況即學(xué) 生檔案 管理系統(tǒng)的概況。 我們學(xué)校的電腦普及率已達(dá)到了 很高的水平，尤其是我們系擁有設(shè)備先進(jìn)管理完善的系機(jī)房，而信息工程學(xué)院 的老師和學(xué)生們對(duì)電腦 的操作也是駕輕就熟。這個(gè)關(guān)系到每個(gè)人命運(yùn)的問題絕對(duì)馬虎不得。這套學(xué)生 檔案信息 管理系統(tǒng)將是我信息工程學(xué)院 學(xué)生管理系統(tǒng)史無前例的新突破 ，系統(tǒng)在今后的應(yīng)用中再經(jīng)過不斷的修正與改進(jìn)，將會(huì)使我系的學(xué)生檔案 信息管理更加完善、盡美 。在周老師的指導(dǎo)下，我會(huì)盡最大的努力將自己的水平發(fā)揮到最好，使自己的作品得到老師的肯定和認(rèn)可。本系統(tǒng)以后可以進(jìn) 一步充分利用這一有利條件，不久的將來開發(fā)一套完全網(wǎng)絡(luò)化的學(xué)生檔案 管理系統(tǒng)，進(jìn)一步提高工作效率，使之更加便捷。 ? 系統(tǒng)維護(hù)功能太差，主要是學(xué)校缺少計(jì)算維護(hù)方面的專業(yè)人才。 目前，已經(jīng)有相當(dāng)一部分學(xué)校利用計(jì)算機(jī)來實(shí)現(xiàn)學(xué)生檔案 的管理，因?yàn)檎麄€(gè)社會(huì)都在慢慢實(shí)現(xiàn)信息管理系統(tǒng)。這是系統(tǒng)建設(shè)工作中任務(wù)最為繁重、耗費(fèi)資源最多的一個(gè)階段，這個(gè)階段又可劃分為系統(tǒng)分析、系統(tǒng)設(shè)計(jì)、系統(tǒng)實(shí)施三個(gè)小階段，構(gòu)成系統(tǒng)開發(fā)生命周期的三個(gè)主要階段。Data Source= amp。 Property 對(duì)象：單獨(dú)的一個(gè) Property 對(duì)象，提供屬性功能。 ● Recordset 對(duì)象的 LockType 屬性的設(shè)置值 客戶端 客戶端 客戶端 ADO 對(duì)象 各種數(shù)據(jù)庫所對(duì)應(yīng)的驅(qū)動(dòng)程序 各種數(shù)據(jù)庫 (如 Access、 SQL Server以及 Oracle 等 ) 常量 值 說明 adLockReadOnly 1 默認(rèn)值，只讀。 ⑶ 支持分批修改數(shù)據(jù)庫內(nèi)容。它可以把大部分?jǐn)?shù)據(jù)源可編程的屬性直接擴(kuò)展到 Active Server 上，主要含有 Connection、 Recordset 與 Command 三種對(duì)象。 Visual Basic 提供的數(shù)據(jù)訪問對(duì)象（ Data Access Object； DAO）讓程序設(shè)計(jì)者擁有更大的發(fā)揮空間。這是的數(shù)據(jù)庫管理員要對(duì)每一位用戶或用戶組分配對(duì)數(shù)據(jù)庫不同特定訪問。 Jet 引擎被Visual Basic， Microsoft Access 和其他 Microsoft 產(chǎn)品共享。事件可以由用戶操作觸發(fā)、也可以由來自操作系統(tǒng)或其它應(yīng)用程序的消息觸發(fā)、甚至由應(yīng)用程序本身的消息觸發(fā)。 1． 2． 1． 1 Visual Basic 的編程特點(diǎn) Visual Basic 語言的出現(xiàn)為 Windows 下的編程提出了一個(gè)新概念，利用 Visual Basic 的動(dòng)態(tài)數(shù)據(jù)交換、對(duì)象的鏈接和嵌入、動(dòng)態(tài)鏈接庫、 ActiveX 技術(shù)可以很方便地設(shè)計(jì)出功能強(qiáng)大的應(yīng)用程序。 管理信息系統(tǒng)的開發(fā)意義 學(xué)生檔案管理系統(tǒng)的開發(fā)是教學(xué)管理信息化的一個(gè)產(chǎn)物。因?yàn)槠髽I(yè)的業(yè)務(wù)處理是一系列連續(xù)的、相互配合的過程，所以多功能的集成系統(tǒng)比單功能的管理系統(tǒng)能夠更好地發(fā)揮管理的效率 。本系統(tǒng)包括 用戶信息管理、檔案信息管理、課程信息管理、成績信息管理四 大模塊 關(guān)鍵字：數(shù)據(jù)庫，學(xué)生檔案 ， 管理 信息系統(tǒng) 目 錄 第一章 緒 論 .......................................................... 1 ...................................................... 1 系統(tǒng)的開發(fā)意義 .................................................. 1 第二章 學(xué)生檔案管理 系統(tǒng)分析 ............................................. 2 .......................................................... 2 .......................................................... 3 .......................................................... 3 ........................................................ 3 ...................................................... 6 .......................................................... 7 系統(tǒng)業(yè)務(wù)流程圖 .............................................. 7 系統(tǒng)數(shù)據(jù)流程圖 .............................................. 8 第三章 學(xué)生檔案管理 系統(tǒng)設(shè)計(jì) ............................................ 9 .......................................................... 9 系 統(tǒng)的詳細(xì)設(shè)計(jì) ......................................................... 9 數(shù)據(jù)庫的 ER圖 ..................................................... 9 數(shù)據(jù)庫的邏輯設(shè)計(jì) ................................................. 10 第四章 學(xué)生檔案管理 系統(tǒng)實(shí)現(xiàn) ............................................ 11 界面進(jìn)入設(shè)計(jì)與實(shí)現(xiàn) .................................................... 11 數(shù)據(jù)源 ............................................................... 13 在 Access數(shù)據(jù)庫中創(chuàng)建查詢 .............................................. 14 在 ACCESS設(shè)計(jì)視圖創(chuàng)建選擇查詢 ...................................... 14 在 ACCESS中創(chuàng)建參數(shù)查詢 ............................................ 14 使用向?qū)?chuàng)建交叉表查詢 ............................................ 18 ................................................