【文章內(nèi)容簡介】 r (txtUserName,” “)=True Then MsgBox”密碼不正確！請重新登陸。 ”,vbokonly+vbInformation,”錯誤 ” Else MsgBox “無此用戶！請先注冊。 ”,vbokonly+vbInformation,”錯誤 ” End If End If End sub 注冊模塊設(shè)計（ Register 窗體的建立） Register 窗體實現(xiàn)了注冊新用戶的功能。用戶在此界面中填寫各種個人信息。如果用戶注冊的注冊名已經(jīng)存在，系統(tǒng)則要求用其他的用戶名重新注冊。在代碼中不但要保存用戶的信息，還要將信息存放 UserTable 表中，用 SQL 語言描述。 其中，對應(yīng)于“用戶名：“的控件的 MaxLength 屬性要設(shè)為 20，這樣做是為了與數(shù)據(jù)庫中的 UserName 字段的長度匹配，否則當(dāng)用戶名的長度大于 20 時，會出現(xiàn)錯誤。檢測用戶名輸入的具體代碼如下： If Then MsgBox “兩次密碼不相同，請重新填寫！ ”,vbOKOnly+vbInformation,”注意 ” =”” =”” Exit sub End If On Error GoTo exit1 If Not IsExistUser(txtUserName,””) Then ?添加用戶 txtUserName,txtPassword,txtRealname,txtUnit,Now,udAge,Usertype, State MsgBox “注冊成功！ ”,vbOKOnly + vbInformation, “注意 ” Unload Me Else MsgBox “用戶已經(jīng)存在！請重新注冊一個新的用戶名 ”,vbOKOnly+ vbInformation,”注意 ” =” “ = “ “ =” “ End If Exit sub 權(quán)限管理模塊設(shè)計（ Manage 窗體的建立） Manage 窗體是管理員才有的權(quán)限進(jìn)入的窗體，在 Manage 窗體中可以對各個表進(jìn)行增加、修改、刪除等操作，即可以查看和修改數(shù)據(jù)庫中所有的內(nèi)容。 在 Manage 窗體中，使用了 TabStrip 控 件，創(chuàng)建了兩個選項卡，還必須添加兩個 Frame控件與 TabStrip 控件配合使用，在 TabStrip 控件的 Click 事件中，根據(jù)用戶所選擇的選項卡來顯示相應(yīng)的 Frame 控件。具體代碼見附錄。 Private Sub tsUser_Click() Frame1( –1).Zorder 0 End Sub 詢模塊的設(shè)計（ frmSearch 窗體的建立） frmSearch 窗體實現(xiàn)了查詢表的功能。該模塊鏈接數(shù) 據(jù)庫中 StudentTable、 ScorTable 兩個表。初始化和載窗體的代碼如下： Private Sub Form_Load() =200 =()/2 Frameborrow(0).Left= Frameborrow(0).Top= Frameborrow(0).Height= Frameborrow(0).Width= Frameborrow(0).Zorder 0 “無“， 0 “學(xué)號 ”,1 “姓名 ”,2 “班級 ”,3 “性別 ”,4 =1 If =adstateOpen Then DataE, End If =True =True =True =True =True =True =False =False call cmdSearch_Click =False End Sub 小結(jié)： 本學(xué)生信息管理系統(tǒng)程序可實現(xiàn)的功能很多，但還不夠全面。例如，沒有管理員就無法修改學(xué)生成績；系統(tǒng)用戶和學(xué)生不一致（學(xué)生用學(xué)號作為用戶名）；學(xué)生能夠看到其他人的成績等。 致 謝 感謝數(shù)學(xué)與計算機(jī)科學(xué)學(xué)院各位領(lǐng)導(dǎo)對畢業(yè)生的關(guān)懷和照顧，給我們提供完善的設(shè)備進(jìn)行學(xué)習(xí)和研究；感謝各位老師，特別是羅衛(wèi)敏老師在百忙之中抽出時間來對我的畢業(yè)論文進(jìn)行指導(dǎo)，他們的教誨讓我受益匪淺；感謝我的家人、同學(xué)和朋友在生活上給予我的幫助和支持；也感謝在座的各位老師給我這個機(jī)會讓我展示自己的論文。謝謝！ 參考文獻(xiàn) （ 1）《 Visual Basic》 基礎(chǔ)教程 中國水利水電出版社 張勇 2021 年 1 月第一版 （ 2）《信息系統(tǒng)設(shè)計與開發(fā)》 機(jī)械工業(yè)出版社 黃明 梁旭 2021 年 3 月第 1 版 5．附錄 附錄 1 數(shù)據(jù)庫表格 運(yùn)行 Microsoft Access 2021,建立一個新的數(shù)據(jù)庫，然后分別設(shè)計 StudentTable、 UserTable和 ScoreTable 三個表。 ScoreTable: Studentid studentname 語文 數(shù)學(xué) 英語 物理 化學(xué) 1 李莉 85 71 78 62 67 2 文章 92 83 86 84 79 3 鐘麗君 76 68 76 76 72 4 楊洋 86 82 85 81 83 5 周仲實 100 100 100 100 100 UserTable: Username Password Realname Age Usertype State registetime Lili 0 李莉 18 1 學(xué)校 Wenzhang 0 文章 15 1 學(xué)校 Zhonglijun 0 鐘 麗君 15 1 學(xué)校 Yangyang 0 楊洋 15 1 學(xué)校 admin 1 周仲實 15 2 學(xué)校 StudentTable Studentid Studentname Class Gender Hometown acceptancetime dormitory 1 李莉 高三三班 女 重慶 2 2 文章 初三三班 女 重慶 2 3 鐘麗君 初三一班 女 重慶 2 4 楊洋 初三八班 女 重慶 2 5 周仲實 初三一班 男 重慶 1 附錄 2 系統(tǒng)源代碼 學(xué)生信息管理系統(tǒng)的數(shù)據(jù)庫部分是使用 Microsoft Access 2021 來實現(xiàn)的。首先是數(shù)據(jù)庫的建立，運(yùn)行 Microsoft Access 2021，建立一個新的數(shù)據(jù)庫，然后分別設(shè)計 Stud entTable、UserTable 和 ScoreTable 三個表。其中 StudentTable 表保存學(xué)生的信息， ScoreTable 表保存學(xué)生的成績， UserTable 表保存用 戶的信息。 程序的設(shè)計按照一個標(biāo)準(zhǔn)的 exe 的界面來設(shè)計的。它一共有 5 個窗體（ Frmsearch 、 Login 、 mdiFrm 、 Register），兩個類模塊（ mdlMain、 mdlVar）和一個 Data 控件（ ）。 mdiFrm 主窗體的建立 建立一個新的工程，添加 MDI 窗體，保存為 mdiFrm，并將在工程屬性對話框中的“通用”選項卡中的“啟動對象”設(shè)為“ mdiFrm”，使 mdiFrm 成為啟動窗體。在此程序中， mdiFrm是主窗體，所以要在 mdiFrm 上的菜單和工具欄中提供各個窗體間的切換。 界面設(shè)計好后，進(jìn)行代碼編寫。當(dāng)用戶輸入用戶名和密碼后，單擊“確定”按鈕，則程序要和數(shù)據(jù)庫進(jìn)行交互，查詢用戶是否存在。如果有，則允許用戶進(jìn)行下一步操作，即進(jìn)入系統(tǒng)；如果沒有這個用戶，則請求用戶注冊為新用戶。 要查詢數(shù)據(jù)庫中是否存在該用戶，程序中使用 IsExistUser 函數(shù)來實現(xiàn)。 IsExistUser 函數(shù)在公共模塊 mdlVar 中，它返回一個 Boolean 值。如果返回值為 True,則數(shù)據(jù)庫存在該用戶，反之不存在。 IsExistUser 函數(shù)要和數(shù)據(jù)庫鏈接。本程序使用 DataEnviroument 工具來訪問數(shù)據(jù)庫。Data Environment 中的 con Library l連接對象，使用 mand 對象的 Execute方法可以實現(xiàn)數(shù)據(jù)庫的查詢工作，但首先要設(shè)置 mand 對象的 Active Connection 屬性和 CommandText屬性。 Private Sub MDIForm_Load() F_CurUser ID=0 g_bLogin=False g_bAdmin=False f_bstudent=False mnuFileLog_click End sub private Sub mnuAboutit_click() MsgBox” 畢業(yè)設(shè)計： ”+chr$(13)+chr$(10)+” 學(xué)生信息管理系統(tǒng) ”+chr$(13)+chr$(10)+””,0,”學(xué)生信息管理系統(tǒng) ” End sub Private Sub munExit_click() If MsgBox(“是否退出此系統(tǒng)？ ”,vbYes No+vbcritical,”系統(tǒng) ”)=vbYes Then End End If End sub Private Sub mnuFile Log_click() Closewin =3600 =4000 =5000 =2021 End Sub Private Sub mnuLogout_click() If MsgBox(“是否真的注銷當(dāng)前用戶？ ”,vbcritical+vbYes No,”注銷 ”)=vbYes Then g_bLogin=False g_bAdmin=False g_bstudent=False g_CurUser ID=0 closewin End If End Sub Private SubmnuMng_click() If g_bAdmin=True Then Closewin Else MsgBox”請以管理員身份登陸系統(tǒng)！ ”,vbInformation,”登陸 ” End If End sub Private sub mnuBorrow_click() If g_bstudent=True Then Closewin Else MsgBox”請先登陸系統(tǒng)！ ”,vbInformation,”登陸 ” End If Closewin End sub Private Sub mnuReg_click() Closewin End sub Pribate Sub Toolbar1_Buttonclick(Byval Button As ) Select case case”logout” MnuLogout_click Case”reg” MnuTeg_click Case”Mng” MnuMng_click Case”borrow” MnuBorrow_click End select End sub Private Sub mnuMng_click() ?單擊“系統(tǒng)員管理” If g_bAdmin=True Then?如果是管理員，則顯示管理界面 Closewin Else MsgBox”請以管理員身份登陸系統(tǒng)！ ”,vbInformation,”登陸 ” End If End Sub Private Sub mnuBorrow_click() ?單擊“用戶出查詢” If g_bStudent=True Then Closewin Else MsgBox”請先登陸系統(tǒng)！ ”,vbInformation,”登陸 “ End If Closewin End sub Private sub mnuReg_click() ?單擊“注冊” closewin End sub Private sub Toolbar1_Buttonclick(Byval