【正文】 6 察看信息表 23 系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì) 本信息管理系統(tǒng)是適合學(xué)校使用的學(xué)籍管理系統(tǒng)是運(yùn)用 Visual Basic60編寫而成的使用本學(xué)生學(xué)籍管理系統(tǒng)可以提高學(xué)校的管理水平學(xué)校辦公效率可以有很大的提高為學(xué)校的信息管理提供了一個(gè)良好的工具減化了繁瑣的工作模式從而使學(xué)校的管理更加合理化和科學(xué)化本系統(tǒng)軟件能幫助教研人員利用計(jì)算機(jī)快速方便的對(duì)學(xué)生學(xué)籍管理進(jìn)行管理 輸入輸出查找的所需操作使散亂的人事檔案能夠具體化直觀化合理化 本軟件適用于教育界對(duì)學(xué)生的學(xué)籍可以隨時(shí)輸入輸出查找修改本系統(tǒng)是一個(gè)復(fù)雜的信息系統(tǒng)包含了信息錄入信息查詢信息修改等功能能滿足學(xué)校學(xué)生管理工作方面的基本要求該系統(tǒng)主要包括學(xué)生信息班級(jí)信息課程信息等方面的信息管 理操作方便適合廣大中小學(xué)及其他中小規(guī)模的學(xué)校使用是一個(gè)獨(dú)立運(yùn)行的信息管理系統(tǒng) 23 系統(tǒng)層次圖 第三章 系統(tǒng)設(shè)計(jì) 31 軟件模塊結(jié)構(gòu)設(shè)計(jì) 案確定 通過對(duì)系統(tǒng)的調(diào)研與分析系統(tǒng)主要應(yīng)完成的功能有系統(tǒng)登錄班級(jí)信息管理學(xué)生信息管理課程信息管理等功能 構(gòu)設(shè)計(jì) 本系統(tǒng)在執(zhí)行時(shí)先根據(jù)不同的操作人員的需要來進(jìn)行相應(yīng)的操作然后可以輸入數(shù)據(jù)或者進(jìn)行其它的查詢或?yàn)g覽等操作總體來說本系統(tǒng)屬于一個(gè)事務(wù)型管理系統(tǒng) 32 數(shù)據(jù)庫(kù)設(shè)計(jì) 本系統(tǒng)數(shù)據(jù)庫(kù)采用了 Microsoft推出的 Access 2021數(shù)據(jù)庫(kù)這是微軟集成到Office中的一個(gè)桌面數(shù)據(jù)庫(kù)能夠快速方便的和 Office的其他套件綜合使用由于Access 2021 具有顯著的簡(jiǎn)易性和有效性大量的桌面數(shù)據(jù)庫(kù)系統(tǒng)都采用 Access 2021 作為后臺(tái)數(shù)據(jù)庫(kù)使用 Access 2021 的好處還在于如果你的系統(tǒng)擴(kuò)展到ClientServer 模式的時(shí)候可以使用 Microsoft 的數(shù)據(jù)庫(kù)服務(wù)器軟件 SQL Server此時(shí)程序只需要簡(jiǎn)單的修改一下鏈接 ADO 的數(shù)據(jù)源就可以這樣為程序的平滑擴(kuò)展提供了非常有利的條件 中所涉及到的主要實(shí)體共有四個(gè)數(shù)據(jù)表 學(xué)生信息表 學(xué)號(hào)姓名性別年齡班號(hào) 班級(jí)信息表 班號(hào)年級(jí)班主任教室 課程信息表 課程編號(hào)課程名稱授課老師 用戶信息表 用戶名用戶密碼用戶注釋 各數(shù)據(jù)表信息如下 班級(jí)信息表 班號(hào) 年級(jí) 班主任 教室 601 06 陳平 A501 611 06 張林 A502 501 05 李靜 B405 學(xué)生信息表 學(xué)號(hào) 姓名 性別 年齡 班號(hào) 1 李清 女 20 601 2 王小明 男 19 601 3 黃大鵬 男 20 601 4 王敏 女 21 601 5 劉晨 女 21 601 6 張文斌 男 19 601 7 劉毅 男 20 601 8 李勇 男 20 601 9 張立 男 21 601 10 王平 男 22 601 課程信息表 課程編號(hào) 課程名稱 授課老師 10 高數(shù) 洪曉 11 英語(yǔ) 李曉宇 12 軟件工程 章建平 13 計(jì)算機(jī)原理 王時(shí)雨 用戶信息表 用戶名 用戶密碼 用戶注釋 admin admin 公共用戶 mss0902 123 注冊(cè)用戶 信息 第四章 系統(tǒng)功能的具體實(shí)現(xiàn) 根據(jù)上幾章的分析我們對(duì)系統(tǒng)有了深刻的了解系 統(tǒng)開發(fā)進(jìn)入第二個(gè)階段詳細(xì)設(shè)計(jì)在這一階段的工作中主要任務(wù)有以下幾項(xiàng) 1 根據(jù)原型化的開發(fā)原則為系統(tǒng)的每個(gè)模塊功能進(jìn)行界面設(shè)計(jì)作為進(jìn)一步優(yōu)化的基礎(chǔ) 2 通過系統(tǒng)的流程分析為模塊的細(xì)化做好準(zhǔn)備 3 對(duì)每個(gè)模塊進(jìn)行詳細(xì)的算法設(shè)計(jì) 41 數(shù)據(jù)庫(kù)與 VB 的連接 本系統(tǒng)的數(shù)據(jù)鏈接采用的是 ADO方法打開控制面板打開 ODBC數(shù)據(jù)源圖標(biāo)選擇系統(tǒng) DSN 標(biāo)簽點(diǎn)擊添加按鈕在彈出的創(chuàng)建新數(shù)據(jù)源對(duì)話框中選擇名稱為Microsoft Access 2021 Drivemdb 點(diǎn)擊完成按鈕在 ODBC Microsoft Access 2021安裝對(duì)話 框在數(shù)據(jù)源名中輸入信息在數(shù)據(jù)庫(kù)這個(gè)框中 單擊選擇按鈕在彈出的選擇數(shù)據(jù)庫(kù)這一對(duì)話框架中在驅(qū)動(dòng)器下拉列表框中選擇本系統(tǒng)數(shù)據(jù)庫(kù)所在驅(qū)動(dòng)器在目錄中選擇庫(kù)所在的文件夾在文件類型中選擇選 Access 數(shù)據(jù)庫(kù) mdb 在數(shù)據(jù)庫(kù)名中選擇本系統(tǒng)的數(shù)據(jù)庫(kù)點(diǎn)擊確定按鈕即完成數(shù)據(jù)鏈接 在 VB 中用 ADODC 鏈接數(shù)據(jù)庫(kù)用 Data Grid或 DATA 將庫(kù)中的數(shù)據(jù)在界面中顯示出來本系統(tǒng)采用 Data Grid在界面上右擊 Adodc控制在彈出的快捷菜單中選擇屬性在屬性對(duì)話框中在屬性這一標(biāo)簽中 選中單選框 Use ODBC Data Source Name并在下拉文本框中選擇已經(jīng)配置好的數(shù)據(jù)源名信息再在 RecordSoure 標(biāo)簽中在Command TextSQL 文本框中輸入查詢語(yǔ)句如 select from 學(xué)生檔案同時(shí)將桌面的 Data Grid 控件選中在屬性框中將它的 DataSoure 設(shè)為 Adodc 我們可以設(shè)置 Data Grid控件的外觀選中該控件右擊在彈出的快捷菜單中選擇檢索字段在彈出的對(duì)話框中單擊確定這時(shí)表格中出現(xiàn)了表的字段然后再右擊同樣在彈出的快捷菜單中選擇編輯我們就可以所在的表格的寬度進(jìn)行調(diào)整 42 系統(tǒng)模塊的設(shè)計(jì) 本系統(tǒng)共包括 歡迎界面 登陸界面 主界面學(xué)生信息管理界面班級(jí)信息管理界面課程信息管理界面 學(xué)生信息管理界面查詢界面修改界面刪除界面 班級(jí)信息管理界面查詢界面修改界面刪除界面 課程信息管理界面查詢界面修改界面刪除界面 歡迎界面如圖 41 所示 本界面是一個(gè)顯示歡迎界面沒有具體的功能主要是為了美化系統(tǒng)而設(shè)置了這個(gè)界面在設(shè)計(jì)時(shí)我將它設(shè)計(jì)為點(diǎn)擊下鼠標(biāo)進(jìn)入到下一界面 圖 41 下面為其代碼 Public dl As Integer 定義引出 form2 的 條件 Private Sub Form Click Form2Show Unload Form1 End Sub Private Sub Form Load dl 01 End Sub Private Sub Timer1_Timer If dl 01 Then Form2Show End If dl 0 End Sub 關(guān)鍵介紹 通過增加一個(gè) timer 控件實(shí)現(xiàn)了單擊鼠標(biāo)進(jìn)入下一界面 登陸界面如圖 42 所示 本界面的主要功能是為了對(duì)系統(tǒng)進(jìn)行安全性管理本系統(tǒng)的用戶名和密碼保存在用戶信息表中本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限可以用admin 這個(gè)默認(rèn)賬號(hào)來登陸本系統(tǒng) 圖 42 其代碼如下 Dim conn As New ADODBConnection Dim rs As New ADODBRecordset Dim rs1 As New ADODBRecordset Private Sub Command1_Click rsLockType adLockOptimistic rsCursorType adOpenKeyset rs1LockType adLockOptimistic rs1CursorType adOpenKeyset connConnectionString Provider MicroData Source App Path \學(xué)生學(xué)籍管理 mdb If Text1Text Then MsgBox 請(qǐng)輸入用戶名 vbOKOnly 提示 Else If Text2Text Then MsgBox 請(qǐng)輸入密碼 vbOKOnly 提示 Else connOpen rsOpen SELECT FROM 用 戶 信息 表 where 用戶 名 Text1Text conn If rsRecordCount 0 Then MsgBox 用戶名或密碼錯(cuò)誤 vbOKOnly vbInformation 注意 rsClose connClose Else rs1Open select from 用戶信息表 where 用戶密碼 Text2Text conn If rs1RecordCount 0 Then MsgBox 密碼錯(cuò)誤 vbOKOnly vbInformation 注意 rs1Close connClose Else Text2Text Unload Form1 Unload F