【正文】 ．．．．．．．．．． 32 軟件模塊結(jié)構(gòu)設(shè)計(jì) 3． 1． 1 系統(tǒng)方案確定 通過對(duì)系統(tǒng)的調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能有：班級(jí)管理、學(xué)生成績管理、學(xué)生交費(fèi)管理、課程管理、成績管理、系統(tǒng)管理等功能。 學(xué)生注冊(cè) 獎(jiǎng)懲信息管理 學(xué)籍信息管理 基本信息管理 課程信息管理 成績信息管理 基本信息輸 入 課程信息輸入 成績 信息輸入入 獎(jiǎng)懲信息輸入 學(xué)籍信息輸 入 接受數(shù)據(jù) 處理中心 1. 系統(tǒng)登錄界面 系統(tǒng)啟動(dòng)后，將首先出現(xiàn)下圖所示的登陸窗體，用具首先輸入登陸名，然后輸入密碼。 使用方法：將用戶名和密碼分別輸入對(duì)應(yīng)框，通過確定按鈕連接到數(shù)據(jù)庫，如果數(shù)據(jù)庫存在此用戶名，即登陸本系統(tǒng)。如果取消登陸，可以通過取消按鈕取消。同時(shí)分為超級(jí)用戶 和一般用戶 2 學(xué)生交費(fèi)管理 系統(tǒng)主界面 這是系統(tǒng)的主界面，在些主要有 班級(jí)管理、學(xué)生檔案管理、學(xué)生交費(fèi)管理、課程管理、成績管理 等模塊組成下面說細(xì)介紹主界面下的每個(gè)模塊的功能 主窗體，也是很重要的一個(gè)窗體，它起到連接各個(gè)窗體的作用，是各個(gè)窗體的核心，用戶成功登陸后，出現(xiàn)以下窗體： 主窗體的作用雖然重要，但它的使用并不復(fù)雜，只要用鼠標(biāo)直接點(diǎn)擊所需選項(xiàng)就可以連接到各個(gè)窗體中，本人也設(shè)置了一些快捷鍵 1） 系統(tǒng)管理： 進(jìn)入系統(tǒng)后，選擇菜單“添加用戶信息”就可以添加用戶，出 現(xiàn)如下所示的窗體。如果想取消操作，可以通過取消按鈕退出。 3．學(xué)生檔案管理模塊 通過這個(gè)窗體，用戶可以自行查詢和刪除學(xué)生信息，通過修改按鈕，連接到修改學(xué)生基本信息窗體，自行修改學(xué)生信息。如果想取消操作，可以通過取消按鈕退出。 4課程管理模塊 該模塊對(duì)各個(gè)班 級(jí)的課程進(jìn)行設(shè)置，并可在其中設(shè)置各門課程的教材選用情況，方便了學(xué)校教材管理部門和教務(wù)處的教學(xué)管理人員的工作。 4． 4 數(shù)據(jù)庫設(shè)計(jì) 數(shù)據(jù)庫處理在信息系統(tǒng)的研究中一直是非常重要的主題，然而，近年來，隨著World Wide Web(WWW)的猛增及 Inter 技術(shù)的迅速發(fā)展，使得數(shù)據(jù)庫技術(shù)之時(shí)成為最熱門技術(shù)之一。同時(shí)， Inter 技術(shù)提供了 一種向用戶發(fā)布數(shù)據(jù)庫內(nèi)容的標(biāo)準(zhǔn)化的訪問方法。它們只是加重了數(shù)據(jù)庫技術(shù)的重要性。理解用戶的需求，然后，把它們轉(zhuǎn)變?yōu)橛行У臄?shù)據(jù)庫設(shè)計(jì)是一個(gè)藝術(shù)過程。 數(shù)據(jù)庫的目的是幫助人們跟蹤事務(wù)。最近，由于數(shù)據(jù)庫的普及，數(shù)據(jù)庫技術(shù)已經(jīng)被應(yīng)用到了新的領(lǐng)域，諸如用 于 Inter的數(shù)據(jù)庫或用于公司內(nèi)聯(lián)網(wǎng)的數(shù)據(jù)庫。 計(jì)算機(jī)的數(shù)據(jù)處理應(yīng)用，首先要把大量的信息以數(shù)據(jù)形式存放在存儲(chǔ)器中。從 1956 年生產(chǎn)出第一臺(tái)計(jì)算機(jī)到現(xiàn)在，存儲(chǔ)器的發(fā)展，為數(shù)據(jù)庫技術(shù)提供了良好的物質(zhì)基礎(chǔ)。通常在數(shù)據(jù)處理中，計(jì)算是比較簡單的而數(shù)據(jù)的管理卻比較復(fù)雜。數(shù)據(jù)管理技術(shù)的優(yōu)劣，將直接影響數(shù)據(jù)處理的效率。合理的數(shù)據(jù)庫設(shè)計(jì)可以提高數(shù)據(jù)庫存儲(chǔ)效率，保證數(shù)據(jù)的完整和一致。 設(shè)計(jì)數(shù)據(jù)庫系統(tǒng)時(shí)，應(yīng)該首先了解用戶的各個(gè)方面的需求，包括現(xiàn)有的以及將來可能增加的。如下所示： 打開 ACCESS2020 之后，會(huì)開啟一個(gè)窗口，可選擇是打開以前的數(shù)據(jù)庫文件還是新建一個(gè)新的空數(shù)據(jù)庫文件，如果選擇空 ACCESS 數(shù)據(jù)庫，然后點(diǎn)擊確定按鈕。 最后一步就是要選擇一個(gè)要保存數(shù)據(jù)庫文件的名字和位置。 怎樣創(chuàng)建一個(gè)數(shù)據(jù)表 上面已經(jīng)講了如何創(chuàng)建一個(gè)數(shù)據(jù)庫文件，按照上面的步驟建立一個(gè)數(shù)據(jù)庫文件后，需要在數(shù)據(jù)庫文件中建立一個(gè)數(shù)據(jù)表。 出現(xiàn)設(shè)計(jì)的界面后，就可以開始設(shè)計(jì)數(shù)據(jù)表了！ VB 連接 ACCESS2020 數(shù)據(jù)庫 用 vb 編寫一個(gè)管理軟件，如果不能連接數(shù)據(jù)庫，那也沒有什么用處。 Sub ConnStr() 39。建立數(shù)據(jù)庫連接對(duì)像 DBpath = amp。 39。Data Source= amp。打開數(shù)據(jù)庫連接 Set rs = CreateObject() 39。上用到了三個(gè)變量 conn,Dbpath,rs。 聲明公用變量的方法如下： Public conn Public rs 上面就是聲明為公用變量，上面的聲明一定要放在模塊的最上面。 數(shù)據(jù)庫采用了 Microsoft 推出的 Access 數(shù)據(jù)庫，這是微軟集成 Office 中的一個(gè)桌面數(shù) 據(jù)庫，能夠快速方便的和 Office 的其他套件綜合使用。使用Access 的 好處還在于，如果你的系統(tǒng)擴(kuò)展到 Client/Server 模式的時(shí)候，可以使用Microsoft 的數(shù)據(jù)庫服務(wù)器軟件 SQL Server，此時(shí)，程序只需要簡單的修改一下鏈接（ ADO 的數(shù)據(jù)源）就可以，這樣，為程序的平滑擴(kuò)展提供了非常有力的條件。 數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì) 得到上面的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)以后，就可以設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體， 以及它們之間的關(guān)系，為以后的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。 下圖為學(xué)生實(shí)體 ER圖： 下圖為課程實(shí)體 ER圖： 下圖為年級(jí)實(shí)體 ER圖： 實(shí)體和實(shí)體之間的關(guān)系 ER 圖如下圖所示： 學(xué) 生 學(xué)生基本信息 學(xué)生學(xué)籍信息 學(xué)生獎(jiǎng)懲信息 學(xué)生考試信息 課 程 課程編號(hào) 設(shè)置年級(jí) 設(shè)置專業(yè) 課程名稱 專 業(yè) 班級(jí)編號(hào) 設(shè)置課程 成績管理 學(xué) 生 專業(yè)設(shè)置 考核過程 各表的物理結(jié)構(gòu)如下： allkecheng 表： 字段名稱 類型 寬度 小數(shù)位 課程名稱 文本 20 教材 文本 30 Cj 表： 字段名稱 類型 寬度 小數(shù)位 學(xué)號(hào) 文本 10 學(xué)期 文本 50 類型 文本 16 課程名稱 文本 20 分?jǐn)?shù) 單精度型數(shù)字 自動(dòng) Class 表： 字段名稱 類型 寬度 小數(shù)位 年級(jí) 文本 16 班級(jí) 文本 20 教室 文本 5 年制 文本 8 專業(yè) 文本 16 班主任 文本 8 備注 備注 Classkecheng 表： 字段名稱 類型 寬度 小數(shù)位 年級(jí) 文本 16 專業(yè) 文本 12 年制 文本 8 學(xué)期 文本 50 課程名 稱 文本 20 專 業(yè) 課 程 課程設(shè)置 Jf 表： 字段名稱 類型 寬度 小數(shù)位 學(xué)號(hào) 文本 5 學(xué)期 文本 50 交費(fèi) 貨幣 自動(dòng) 欠費(fèi) 貨幣 自動(dòng) 日期 日期 /時(shí)間 操作員 文本 10 Kaosileixing 表： 字段名稱 類型 寬度 小數(shù)位 類型 文本 10 Use 表： 字段名稱 類型 寬度 小數(shù)位 username 文本 20 password 文本 20 Admin 文本 2 Readonly 文本 2 Qx1 文本 2 Qx2 文本 2 Qx3 文本 2 Qx4 文本 2 xj 表： 字段名稱 類型 寬度 小數(shù)位 學(xué)號(hào) 文本 9 姓名 文本 8 性別 文本 2 班級(jí) 文本 10 出生年月 日期 /時(shí)間 家庭住址 文本 30 郵政編碼 數(shù)字（長整型） 聯(lián)系電話 數(shù)字（長整型） 入學(xué)時(shí)間 日期 /時(shí)間 備注 備注 xuefei 表： 字段名稱 類型 寬度 小數(shù)位 年級(jí) 文本 16 專業(yè) 文本 50 年制 文本 20 學(xué)期 文本 40 學(xué)費(fèi) 貨幣 自動(dòng) 5 詳細(xì)設(shè)計(jì) 本部分主要內(nèi)容為本系統(tǒng)的運(yùn)行界面以及主要界面的源代碼。密碼： admin 來登陸本系統(tǒng)。 5． 3 用戶管理模塊： 本模塊是本系統(tǒng)的安全性設(shè)置模塊，根據(jù)學(xué)校不同部門以及不同使用人員對(duì)本系統(tǒng)的要求和需要，從而實(shí)行了分級(jí)管理，對(duì)用戶的權(quán)限和類別進(jìn)行了分類管理。其它的相似模塊的代碼可能參閱本模塊的設(shè)計(jì)思路。 Private Sub Command1_Click() Dim mrc As txtsql = select username from use where username=39。 Trim() amp。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用戶名錯(cuò)誤！ , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub End If username = (0) txtsql2 = select username from use where password=39。 Trim() amp。 Set mrc = ExecuteSQL(txtsql2) If = True Then MsgBox 密碼錯(cuò)誤！ , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub End If txtsql = select username from use where username=39。 Trim() amp。and password=39。 Trim() amp。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用戶名稱和密碼不匹配！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If = Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub 6． 2 系統(tǒng)主界面 代碼 ： Private Sub classkecheng_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(對(duì)不起，你沒有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub Private Sub jiaofeiadd_Click() qxstr = Executeqx(3) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對(duì)不起，你沒有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub 5． 3 用戶管理模塊： Private Sub Command1_Click() If Trim(Text1(0).Text) = Then MsgBox 用戶名不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If If Trim(Text1(1).Text) = Then MsgBox 密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(1).SetFocus Exit Sub End If If Trim(Text1(2).Text) = Then MsgBox 確認(rèn)密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit Sub End If If