【正文】 ub filemenu21_Click() ShellExecute 0, open, amp。初始化 ListView Dim clmX As ColumnHeader Set clmX = (, , 用戶名 , / 3) Set clmX = (, , 密碼 , / 6, 2) Set clmX = (, , 姓名 , / 4, 2) Set clmX = (, , 用戶權(quán)限 , / 4, 2) 普通用戶 超級用戶 = 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 24 DelNO = Do While Not Set Listit = (, , (UserID)) (1) = *** 隱藏用戶的密碼，用 ***來替代。 sqlstr, con, 1, 1 End Sub 如果當前記錄不為空，則逐條記錄檢查是否有重復 Private Sub Command4_Click() ?? Userid = Trim() Userpwd = MD5(Trim()) Username = Trim() Userpower = Trim() DelNO = Do While Not ?? Loop ?? End Sub 如果有重復，則提示已存在這個用戶，然后將焦點設(shè)置給 Text1，并將所有的文本框清空。 Userid amp。 amp。 amp。 amp。刪除用戶 DeleteRecord End Sub 3． 3． 4 修改密碼 窗體（ frmchgPWD） 當用戶要更改密碼時，單擊“系統(tǒng)選項 /修改個人密碼”菜單，彈出如圖 所示窗體。 39。 39。 Private Sub TreeView_NodeClick(ByVal Node As ) 39。為了體現(xiàn)這一關(guān)系，需要將班級編號賦給顯示學號的文本框。 在刪除記錄過程中，使用學生的學號作為關(guān)鍵字，調(diào)用 Execute 方法來刪除當前記錄。 39。顯示詳細資料 Call End Sub Public Sub ListView_DblClick() On Error Resume Next If Then 。 amp。修改學生資料 Call End Sub Public Sub ModifyStu() 39。 order by SID sqlstr, con, 1, 1 Do While Not Set Listit = (, , (SID)) (1) = (SName) (2) = (SGender) 34 (3) = (SMinzu) (4) = (SZhengzhi) (5) = (SDormitory) (6) = (SAddress) Loop : Set ef = Nothing End Sub 在顯示該班級下面所有學生信息的同時，用戶可以對記錄進行管理：添加新記錄、編輯或者刪除當前記錄，為此在 Listview 中創(chuàng)建右鍵菜單，用來對記錄進行操作。 Private Sub Form_Resize() If WindowState 1 Then If 3000 Then = 3000 If 3000 Then = 3000 SizeControls End If = (0).Width = 5000 End Sub Sub SizeControls(X As Single) On Error Resume Next 39。 amp。 amp。 sqlstr Else MsgBox 對不起！您輸入的 密碼不正確，刪除該用戶失??！ , vbInformation End If LoadOperator End If End If : Set rs = Nothing End Sub 5．菜單設(shè)計 在 Listview 中單擊鼠標右鍵會調(diào)用 ListView 的 MouseUp 事件，出現(xiàn)右鍵菜 28 單 menuOpertor， 具體實現(xiàn)如下： Private Sub ListView_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then PopupMenu menuOperator End If End Sub 實現(xiàn)該右鍵菜單各項功能的代碼如下： Private Sub menuAdd_Click() 39。 的用戶帳號嗎？ , vbYesNo + 32 + vbDefaultButton2) = vbYes Then sqlstr = select * from UserInfo where UserID=39。 39。, sqlstr = sqlstr amp。 values(39。 amp。 3． 3． 3． 1 窗體代碼設(shè)計 23 1． 定義一個整型變量 DelNO 用來存儲當前系統(tǒng)用戶的數(shù)目，當 DelNO=1 時提示用戶不能再刪除用戶。 4．“重新登陸”子菜單的代碼 當單擊了“重新登陸”或者按下了“ F2”鍵時，將會給出提示，如果用戶在提示框中按下了“確定”按鈕，則退出整個 MDI 主窗體，并顯示登陸 窗體。 21 LoginPower amp。 在工程中添加一個 MDI 窗口，取名為“ ”，并為 MDI 窗體進行菜單和代碼的設(shè)計，其運行界面如圖 : 20 圖 主界面 3． 3． 2． 1 菜單設(shè)計 MDI 主窗體是整個系統(tǒng)的容器，為了方便用戶的使用，應(yīng)設(shè)計相應(yīng)的菜單和代碼。 sqlstr, con, 1, 1 If Not Then If rs(UserPWD) Userpwd Then 39。這里附上本程序的登陸界面，見圖 。 1． 用戶信息表（ UserInfo）： 14 字段名 數(shù)據(jù)類型 說明 是否為空 是否為關(guān)鍵字 UserID 文本 用戶名 Not Null Primary Key UserPWD 文本 用戶密碼 Not Null UserName 文本 姓名 Not Null UserPower 文本 使用權(quán)限 Not Null 2． 學生信息表（ StuInfo）： 字段名 數(shù)據(jù)類型 說明 是否為空 是否為關(guān)鍵字 SID 文本 學號 Not Null Primary Key SName 文本 姓名 Not Null SGender 文本 性別 Not Null SPlace 文本 籍貫 Not Null SBirthday 日期 /時間 出生日期 Not Null SMinzu 文本 民族 Not Null SZhengzhi 文本 政治面貌 Not Null SDormitory 文本 寢室號碼 Not Null SAddress 文本 家庭住址 Not Null SCode 文本 郵政編碼 Not Null STel 文本 聯(lián)系電話 Not Null SRemark 備注 備注 Not Null 3． 班級信息表（ Class）： 字段名 數(shù)據(jù)類型 說明 是否為空 是否為關(guān)鍵字 ID 文本 班級代碼 Not Null Primary Key 4． 專業(yè)信息表（ Major）： 字段名 數(shù)據(jù)類型 說明 是否為空 是否為關(guān)鍵字 ID 文本 專業(yè)代號 Not Null Primary Key Name 文本 專業(yè)名稱 Not Null 5． 學院信息表（ Depart）： 15 字段名 數(shù)據(jù)類型 說明 是否為空 是否為關(guān)鍵字 ID 文本 學院代號 Not Null Primary Key Name 文本 學院名稱 Not Null 6．課程信息表（ Lesson）： 字段名 數(shù)據(jù)類型 說明 是否為空 是否為關(guān)鍵字 ID 文本 課程代號 Not Null Primary Key Name 文本 課程名稱 Not Null Time 文本 課時 Not Null Mark 文本 學分 Not Null 7．學生成績表（ Result）： 字段名 數(shù)據(jù)類型 說明 是否為空 是否為關(guān)鍵字 ID 文本 學生學號 Not Null Primary Key Name 文本 課程名稱 Not Null Primary Key Score 文本 分數(shù) Not Null Remark 文本 備注 Not Null 2． 2 系統(tǒng)流程圖 登陸表單（管理員或者普通用戶身份登陸） Splash 表單 MDI 主窗口 （系統(tǒng)主窗口） 管理學生學籍信息（學生基本信息管理，課程管理，專業(yè) /學院管理和考試成績管理 管理系統(tǒng)用戶（添加，刪除） 對學生信息進行查找（按學號或姓名） 返回查詢信息 管理員登陸 重新登陸 16 圖 系統(tǒng)流程圖 2． 3 系統(tǒng)功能分析 系統(tǒng)開發(fā)的目標是實現(xiàn)學生學籍管理的系統(tǒng)化、規(guī)范化和自動化，這是在 用戶要求的基礎(chǔ)上提出來的，功能要求如下： （一）學生信息管理：能對學生信息進行添加、修改、刪除。server= localhost。 Property 對象：單獨的一個 Property 對象，提供屬性功能。 ● Recordset 對象的 LockType 屬性的設(shè)置值 常量 值 說明 adLockReadOnly 1 默認值，只讀。 ⑶ 支持分批修改數(shù)據(jù)庫內(nèi)容。它可以把大部分數(shù)據(jù)源可編程的屬性直接擴展到 Active Server 上，主要含有 Connection、 Recordset 與 Command 三種對象。此外， SQL Server 2021 還支持 ODBC、 OLE DB、ADO 規(guī)范，可以使用 ODBC、 OLE DB、 ADO 接口訪問 SQL Server 數(shù)據(jù)庫。 SQL Server 企業(yè)管理器是一個基于圖形用 戶界面（ GUI）的集成管理工具，利用它可以配置管理 SQL Server 服務(wù)器、管理數(shù)據(jù)庫和數(shù)據(jù)庫對象、備份和恢復數(shù)據(jù)、調(diào)度任務(wù)和管理警報、實現(xiàn)數(shù)據(jù)復制和轉(zhuǎn)換操作等。其實這是一種誤解。 我們在本系統(tǒng)中利用數(shù)據(jù)管理器創(chuàng)建了數(shù)據(jù)庫及數(shù)據(jù)庫表，并采用了 ADO數(shù)據(jù)訪問技術(shù)。數(shù)據(jù)控件可以通過一些屬性的設(shè)置去鏈接某個數(shù)據(jù)庫文件，但是它本身并無法顯示數(shù)據(jù)庫各個記錄的內(nèi)容，必須在搭配其他具有數(shù)據(jù)感知（ Data Aware）功能的控件對應(yīng)并顯示一個字段內(nèi)容，以方便地進行記錄的瀏覽及編輯工作。 Jet 也支持使用許可，或是對單個 表和查詢的訪問級別（例如，只讀或讀寫可訪問性）。 1． 3． 1． 3 Jet數(shù)據(jù)庫引擎 Microsoft 引擎為 Visual Basic 與數(shù)據(jù)庫的接口提供了基 本的方法。 在事件驅(qū)動的應(yīng)用程序中，代碼不是按預定的路徑執(zhí)行，而是在響不同的事件時執(zhí)行不同的代碼片段。故而，實現(xiàn)本系統(tǒng) VB是一個相對較好的選擇。 1． 2 學籍管理系統(tǒng)概述 1． 2． 1 開展 該系統(tǒng) 的原因 由于現(xiàn)今的學籍管理非常繁瑣，行政人員付出大量的工作時間，得到的效率很低。這些優(yōu)點能夠極大地提高學生學籍管理的效率 ,也是企業(yè)的科學化、正規(guī)化管理 ,與世界接軌的重要條件。這些都將使我終生受益。我的心在此之際，思緒萬千，心情久久不能平靜。但人都是要向前看的，更不可能因后悔上天就給我三年的時間。 1 摘 要 學生學籍