【正文】 詢，修改，刪除等操作，比以前使用卡片的方法有很大的進(jìn)步，使學(xué)生信息關(guān)系系統(tǒng)化，規(guī)范化和自動(dòng)化。 （ 2） 數(shù)據(jù)庫的鏈接：構(gòu)造數(shù)據(jù)庫基本表，以 供管理系統(tǒng)調(diào)用，如本系統(tǒng)主要構(gòu)造 3個(gè) 表： StudentTable, 、 UserTable 、 ScoreTable。本系統(tǒng)還設(shè)置的多種匹配查詢路徑。如下圖所示。 （ 2）注冊(cè)模塊：新用戶注冊(cè)。 （ 4）查詢模塊：可查看瀏覽學(xué)生基本信息，成績(jī)冊(cè)，提供多種匹配查詢方式。 （ 6）修改模塊：系統(tǒng)管理員利用其權(quán)限對(duì)數(shù)據(jù)表進(jìn)行修改，更新以保持?jǐn)?shù)據(jù)庫完整性。 數(shù)據(jù)庫設(shè)計(jì)與數(shù)據(jù)結(jié)構(gòu)描述 根據(jù)系統(tǒng)功能設(shè)計(jì)的要求以及功能模塊的劃分，對(duì)于系統(tǒng)用戶 信息，學(xué)生成績(jī)表 ,學(xué)生基本信息表，可以作出以下 ER 圖，并列出以下數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)： 學(xué)生信息管理系統(tǒng) 登 陸 注冊(cè) 查 詢 添 加 修 改 刪 除 學(xué) 生 教務(wù)處 計(jì)算機(jī)中心 授權(quán) 授權(quán) 統(tǒng)計(jì) 學(xué)號(hào) 姓名 性別班級(jí) 部門名稱 宿舍用 戶信息表 地址 籍貫 部門編號(hào) 部門名稱 部門編號(hào) 用戶信息表 地 址 基本信息 年齡 成績(jī)表 權(quán)限管理 相關(guān)機(jī)構(gòu) ER 圖 成績(jī)表 ER 圖 基本信息表 ER 圖 用戶信息表 ER 圖 數(shù)據(jù)字典 （ 1） 名稱：學(xué)生基本信息表。 數(shù)據(jù)來源：權(quán)限管理模塊進(jìn)行錄入（教務(wù)處）。 用戶信息表 名稱 字段名稱 類型 主鍵 非空 標(biāo)識(shí) UserID 自動(dòng)編號(hào) Yes No 用戶名 Username 文本 No Yes 密碼 Password 數(shù)字 No No 真實(shí)姓名 Realname 文本 No No 年齡 Userage 數(shù)字 No No 用戶類型 usertype 數(shù)字 Yes Yes 單位 State 文本 No No 注冊(cè)時(shí)間 Registtime 數(shù)字 No Yes 數(shù)據(jù)項(xiàng)名：用戶名 說明：表明用戶的身份，在系統(tǒng)內(nèi)是唯一的 類型： Char(8) 別名：無 數(shù)據(jù)描述：由字母，數(shù)字或 者 “ — ”組成的字符串 數(shù)據(jù)項(xiàng)名：用戶類型 別名：無 說明：在登陸用戶的基礎(chǔ)上進(jìn)一步刻畫其身份，不同的用戶類型可賦予不同的操作權(quán) .類型： Char(8) 數(shù)據(jù)描述：如： 2 管理級(jí)用戶 查詢，修改，刪除等所有權(quán)限 1 普通用戶 查詢 系統(tǒng)流程圖 （ 1）用戶啟動(dòng)學(xué)生管理系統(tǒng)后，即進(jìn)入登陸模塊，提示輸入用戶名和密碼。 （ 6）用戶在主操作界面進(jìn)行操作請(qǐng)求。在這里，系統(tǒng)自動(dòng)隱藏用。 （ 9）系統(tǒng)響應(yīng)用戶操作申請(qǐng)，鏈接數(shù)據(jù)庫，并反饋操作結(jié)果 數(shù)據(jù)流圖 輸入：用戶名、密碼、操作請(qǐng)求 輸出：查詢結(jié)果、 修改結(jié)果、刪除結(jié)果、打印相關(guān)報(bào)表。在此程序中，mdiFrm 是主窗體，所以要在 mdiFrm 上的菜單和工具欄中提供各個(gè)窗體間的切換。當(dāng)用戶輸入用戶名和密碼后，單擊“確定”按鈕，則程序要和數(shù)據(jù)庫進(jìn)行交互，查詢用戶是否存在。 要查詢數(shù)據(jù)庫中是否存在該用戶，程序中使用 IsExistUser 函數(shù)來實(shí)現(xiàn)。如果返回值為 True,則數(shù)據(jù)庫存在該用戶，反之不存在。本程序使用 DataEnviroument 工具來訪問數(shù)據(jù)庫。 Private Sub MDIForm_Load() F_CurUser ID=0 g_bLogin=False g_bAdmin=False f_bstudent=False mnuFileLog_click End sub 登陸模塊（ Login 窗體的建立） Login 窗體實(shí)現(xiàn)了用戶登陸到系統(tǒng)的功能。如下圖 其中管理員的用戶名為 admin，口令為 1，均已在初始化時(shí)設(shè)定。strUserNameamp。strpwdamp。 ”,vbokonly+vbInformation,”錯(cuò)誤 ” Else MsgBox “無此用戶！請(qǐng)先注冊(cè)。用戶在此界面中填寫各種個(gè)人信息。在代碼中不但要保存用戶的信息，還要將信息存放 UserTable 表中，用 SQL 語言描述。檢測(cè)用戶名輸入的具體代碼如下： If Then MsgBox “兩次密碼不相同，請(qǐng)重新填寫！ ”,vbOKOnly+vbInformation,”注意 ” =”” =”” Exit sub End If On Error GoTo exit1 If Not IsExistUser(txtUserName,””) Then ?添加用戶 txtUserName,txtPassword,txtRealname,txtUnit,Now,udAge,Usertype, State MsgBox “注冊(cè)成功！ ”,vbOKOnly + vbInformation, “注意 ” Unload Me Else MsgBox “用戶已經(jīng)存在！請(qǐng)重新注冊(cè)一個(gè)新的用戶名 ”,vbOKOnly+ vbInformation,”注意 ” =” “ = “ “ =” “ End If Exit sub 權(quán)限管理模塊設(shè)計(jì)（ Manage 窗體的建立） Manage 窗體是管理員才有的權(quán)限進(jìn)入的窗體，在 Manage 窗體中可以對(duì)各個(gè)表進(jìn)行增加、修改、刪除等操作，即可以查看和修改數(shù)據(jù)庫中所有的內(nèi)容。具體代碼見附錄。該模塊鏈接數(shù) 據(jù)庫中 StudentTable、 ScorTable 兩個(gè)表。例如，沒有管理員就無法修改學(xué)生成績(jī)；系統(tǒng)用戶和學(xué)生不一致（學(xué)生用學(xué)號(hào)作為用戶名）；學(xué)生能夠看到其他人的成績(jī)等。謝謝！ 參考文獻(xiàn) （ 1）《 Visual Basic》 基礎(chǔ)教程 中國(guó)水利水電出版社 張勇 2021 年 1 月第一版 （ 2）《信息系統(tǒng)設(shè)計(jì)與開發(fā)》 機(jī)械工業(yè)出版社 黃明 梁旭 2021 年 3 月第 1 版 5．附錄 附錄 1 數(shù)據(jù)庫表格 運(yùn)行 Microsoft Access 2021,建立一個(gè)新的數(shù)據(jù)庫，然后分別設(shè)計(jì) StudentTable、 UserTable和 ScoreTable 三個(gè)表。首先是數(shù)據(jù)庫的建立，運(yùn)行 Microsoft Access 2021，建立一個(gè)新的數(shù)據(jù)庫，然后分別設(shè)計(jì) Stud entTable、UserTable 和 ScoreTable 三個(gè)表。 程序的設(shè)計(jì)按照一個(gè)標(biāo)準(zhǔn)的 exe 的界面來設(shè)計(jì)的。 mdiFrm 主窗體的建立 建立一個(gè)新的工程，添加 MDI 窗體，保存為 mdiFrm，并將在工程屬性對(duì)話框中的“通用”選項(xiàng)卡中的“啟動(dòng)對(duì)象”設(shè)為“ mdiFrm”，使 mdiFrm 成為啟動(dòng)窗體。 界面設(shè)計(jì)好后，進(jìn)行代碼編寫。如果有，則允許用戶進(jìn)行下一步操作，即進(jìn)入系統(tǒng)；如果沒有這個(gè)用戶，則請(qǐng)求用戶注冊(cè)為新用戶。 IsExistUser 函數(shù)在公共模塊 mdlVar 中，它返回一個(gè) Boolean 值。 IsExistUser 函數(shù)要和數(shù)據(jù)庫鏈接。Data Environment 中的 con Library l連接對(duì)象，使用 mand 對(duì)象的 Execute方法可以實(shí)現(xiàn)數(shù)據(jù)庫的查詢工作，但首先要設(shè)置 mand 對(duì)象的 Active Connection 屬性和 CommandText屬性。它的形式為，一個(gè)是填寫“用戶名”的文本框，一個(gè)是填寫“密碼”的文本框，然后是“確認(rèn)”按鈕和“取消”按鈕。 各主要控件屬性如下表所示 下面是 IsExistUser 函數(shù)的源程序： Public Function IsExistUser(stuUseName Asstring,strpwd As string)As Boolean Dim cmd As mand Dim rs As Recordset Set cmd=New mand ?打開連接 If =adstate closed Then End If Cmd .Active connection=?注冊(cè) =”select * from Usertable where Username=?”amp。”?” If strpwd” “ Then ?登陸 =+”and pwd=?”amp。”?” End If ?有無重復(fù) set rs= If 0 then IsExistUser=True If g_bLogin Then g_CurUserID=rs!userid ?為管理員 If rs!Usertype=Manager Then g_bAdmin=True End If End If IsExistUser=False End If End Function 單擊“確定”按鈕后，將激發(fā)以下程序： private sub cmdok_click() If =” “ Then MsgBox”請(qǐng)?zhí)顚懹脩裘?”,vbokonly+vbInformation,”注意 ” Exit sub ElseIf =” “Then MsgBox”請(qǐng)?zhí)顚懨艽a！ ”,vbokonly+vbInformation,”注意 ” Exit sub End If ?設(shè)置登陸變量 g_bLogin=True If IsExistUser (txtUserName,” “)=True Then MsgBox”密碼不正確！請(qǐng)重新登陸。 ”,vbokonly+vbInformation,”錯(cuò)誤 ”