【文章內(nèi)容簡(jiǎn)介】 碼保護(hù)提示問題、提示答案、 權(quán)限級(jí)別 和類型 等信息，其結(jié)構(gòu)如圖 56 所示； 圖 51 圖 52 11 圖 53 圖 54 圖 55 圖 56 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì) [8]概念結(jié)構(gòu)是獨(dú)立于實(shí)際數(shù)據(jù)模型的信息結(jié)構(gòu)，必須將其轉(zhuǎn)化為邏輯結(jié)構(gòu)后才能進(jìn)行數(shù)據(jù)庫(kù)應(yīng)用的設(shè)計(jì)。也就是要將概念上的結(jié)構(gòu)轉(zhuǎn)化為數(shù)據(jù)庫(kù)系統(tǒng)所支持的實(shí)際數(shù)據(jù)模型。第一種轉(zhuǎn)化是將實(shí)體轉(zhuǎn)化為關(guān)系表。這種轉(zhuǎn)化較簡(jiǎn)單，將實(shí)體的屬性定義為表的屬性即可。第二種轉(zhuǎn)化是聯(lián)系的轉(zhuǎn)化。即將各個(gè)實(shí)體之間的聯(lián)系轉(zhuǎn)化為表格之間的關(guān) 系，如外部鍵的定義。 本系統(tǒng)恰好使用了外部鍵的定義，在表設(shè)計(jì)器中單擊鼠標(biāo)右鍵，選擇“關(guān)系”菜單項(xiàng)，在“屬性”窗口中定義外鍵 信息 (如圖 57所示 ). 12 圖 57 分別選定主鍵表和外鍵表的字段， SQL Server 即可自動(dòng)生成關(guān)系名，本系統(tǒng)中定義的關(guān)系如表格 58所示： 關(guān)系名 主鍵表 主鍵字段 外鍵表 外鍵字段 FKjiaoyustu stu 學(xué)號(hào) jiaoyu 學(xué)號(hào) FKjiangfastu stu 學(xué)號(hào) Jiangfa 學(xué)號(hào) FKxuejistu stu 學(xué)號(hào) xueji 學(xué)號(hào) 表格 58 數(shù)據(jù)庫(kù)中各表創(chuàng)建的完成，即可進(jìn)入系統(tǒng)的具體實(shí)現(xiàn)，下面將進(jìn)行簡(jiǎn)述。 學(xué)籍管理系統(tǒng) 的具體實(shí)現(xiàn) 系統(tǒng)功能分析 系統(tǒng)基本功能 學(xué)籍 管理系統(tǒng)必須具備三大基本功能 ： 學(xué)籍 管理數(shù)據(jù)庫(kù)及表的操縱，以實(shí)現(xiàn)對(duì)學(xué)籍 管理數(shù)據(jù)庫(kù)及其表的創(chuàng)建、表中數(shù)據(jù)維護(hù) ；學(xué)生基本信息、獎(jiǎng)罰信息、教育經(jīng)歷、學(xué)籍變動(dòng) 管理 的添加、刪除和修改 ， 并可根據(jù)姓名和學(xué)號(hào)以實(shí)現(xiàn)學(xué)籍 信息的查詢 ； 用戶信息的 添加、刪除和修改 以及密碼的更改 。 基于學(xué)籍 管理 的相關(guān) 結(jié)果 和 相 13 關(guān) 用戶 信息 用 DBGrid 顯示在窗體上 。 系統(tǒng)功能模塊設(shè)計(jì) 系統(tǒng)的運(yùn)行是先彈出登錄的界面，輸入用戶 ID、密碼和用戶類別之后進(jìn)行驗(yàn)證，驗(yàn)證通過方可根據(jù)不同的用戶類別進(jìn)入相應(yīng)的功能模塊，否則退出系統(tǒng)。 如圖61 所示 。根據(jù)實(shí)際應(yīng)用需求，需要完成如下功能： 圖 6－ 1 系統(tǒng)功能模塊 示意 圖 本實(shí)例根據(jù)上面的設(shè)計(jì)規(guī)劃出 來的實(shí)體有：學(xué)生 基本信息實(shí)體、 教育經(jīng)歷 實(shí)體、獎(jiǎng)罰 信息實(shí)體、 學(xué)籍變動(dòng) 實(shí)體、 班級(jí)管理 實(shí)體 和用戶信息實(shí)體 。各個(gè)實(shí)體具體的描述 ER 圖如下 ： …… …… 用戶登 陸 ――驗(yàn)證成功 學(xué)籍變動(dòng)管理 基本信息管理 教育經(jīng)歷管理 設(shè)置 學(xué)生信息管理 針對(duì)各個(gè)模塊不同的表實(shí)現(xiàn)添加、刪除、修改記錄以及 查詢 顯示等功能 退學(xué)休學(xué)管理 轉(zhuǎn)學(xué)調(diào)班管理 班級(jí)管理 用戶管理 獎(jiǎng)罰信息管理 更改密碼 更改密碼保護(hù)資料 學(xué)生基本信息實(shí)體 學(xué)號(hào) 姓名 所在班級(jí) 籍貫 教育經(jīng)歷實(shí)體 學(xué)號(hào) 開始時(shí)間 職務(wù) 學(xué)校名稱 學(xué)生基本信息實(shí)體 ER 圖 教育經(jīng)歷實(shí)體 ER 圖 14 …… …… 獎(jiǎng)罰信息實(shí)體 ER 圖 學(xué)籍變動(dòng)實(shí)體 ER 圖 …… 班級(jí)管理實(shí)體 ER 圖 用戶信息實(shí)體 ER 圖 系統(tǒng)模塊的具體實(shí)現(xiàn) 學(xué)籍 管理系統(tǒng)的主窗體 登陸界面 :系統(tǒng)運(yùn)行時(shí) ，首先彈出此啟動(dòng)窗口。在界面上各有兩 個(gè) Panel、 btton 和edit 控件 ,一個(gè) boBox 控件和 四個(gè) Label 控件。 登陸功能 : 設(shè)置權(quán)限 控制 用戶 登錄，防止非法用戶闖入本系統(tǒng)，保證系統(tǒng)的安全，輸入口令時(shí)屏幕顯示為 “*” 以利保密 ； 當(dāng)輸入的用戶 ID 和密碼以及選擇的用戶 類別正確無誤方可進(jìn)入系統(tǒng) 主界面 進(jìn)行 相 應(yīng)的操作。 所有的用戶 如果一時(shí)忘記了密碼，還可以點(diǎn)擊“忘記密碼”進(jìn)行 回答密碼提示問題和答案提交正確后即可 取回密碼的操作。 圖 62 登錄功能 獎(jiǎng)罰信息實(shí)體 學(xué)號(hào) 獎(jiǎng)罰類型 獎(jiǎng)罰說明 獎(jiǎng)罰時(shí)間 學(xué)籍變動(dòng)實(shí)體 學(xué)號(hào) 姓名 所在班級(jí) 籍貫 班級(jí)管理實(shí)體 id 班級(jí)編號(hào) 班級(jí)名稱 用戶信息實(shí)體 用戶 ID 姓名 權(quán)限 密碼 15 系統(tǒng)主體界面 : 本界面是這個(gè)工程的主窗體。 在這個(gè)窗體上添加所需的控件，創(chuàng)建好的窗體如下所示 ， 在界面上放置了菜單欄、 工具欄 、八個(gè) Label 和八個(gè) timer 控件 ；菜單欄集中了系統(tǒng)操作的入口，各功能模塊的執(zhí)行從此進(jìn)入；工具框顯示了系統(tǒng)菜單中常 用項(xiàng)目的快鍵 按紐 ， 不過各個(gè)工具按紐的 Menultem 屬性值要與菜單各項(xiàng)的 name 屬性值相對(duì)應(yīng) ,這樣 用戶 才可以 點(diǎn)擊相應(yīng) 的按紐 連接 進(jìn)入相應(yīng) 的 窗體 功能模塊 。 每個(gè) Label 對(duì)應(yīng)有個(gè) timer 控制， 通過 設(shè)置 timer 控件的 OnTimer 事件使相應(yīng)的 Label 控件有動(dòng)漫的效果。 圖 63 系統(tǒng)主界面 創(chuàng)建主窗體的菜單 :在主窗體中，需使用一個(gè)菜單欄來滿足 用戶 的日常方便使用。在此，可 利用 Delphi 中的菜單 欄 編輯器來創(chuàng)建我們所需要的各個(gè) 菜單，具體的菜單結(jié)構(gòu)如表 64 所示： caption name caption name 系統(tǒng) N1 班級(jí)管理 Nbanji … 退出 NClose 用戶管理 Nyonghu 學(xué)生管理 N6 … 學(xué)生 管理 Nxues … 基本資料 NStudentInfo … 其他用戶 管理 Njg … 獎(jiǎng)罰情況 Njiangfa 設(shè)置 Nset 16 … 教育經(jīng)歷 Nexperience … 更改密碼 NChangePwd 學(xué)籍管理 Nxueji … 更改密碼保護(hù)資料 Nchmm … 學(xué)籍變動(dòng) Nout 表 64 創(chuàng)建公 共 模塊 [9]在 Delphi 中可以用公用模塊來存放整個(gè)工程項(xiàng)目公用的函數(shù)、過程和全局變量等。這樣可以極大的提高代碼的效率。由于系統(tǒng)中各個(gè)模塊都將大量頻繁的使用數(shù)據(jù)庫(kù)中的各種數(shù)據(jù)，因此需要一個(gè)公共數(shù)據(jù)操作，執(zhí)行相關(guān)的數(shù)據(jù)操作。 1 單元文件 ：此文件主要是與數(shù)據(jù)庫(kù)建立連接； const //連接字符串 ，連接數(shù)據(jù)庫(kù) connectionStr=39。Provider=。39。+ 39。Password=sa。Persist Security Info=True。39。+ 39。User ID=sa。Initial Catalog=xsxjgl。39。+ 39。Data Source=(local)39。 var ADOCon:TADOConnection。 2 單元文件 ：在這個(gè)單元中， 主要是實(shí)現(xiàn)與數(shù)據(jù)操作，有兩種方法，一種是執(zhí)行沒有返回值的 SQL 語(yǔ)句， 如果執(zhí)行 正確 返回 true,否則返回 false；另一種是執(zhí)行有返回值的 sql 語(yǔ)句 ,返回得到的 ADOQuery； 除了要調(diào)用連接數(shù)據(jù)庫(kù) 文件外， 將程序數(shù)據(jù)操作進(jìn)行了有效地封裝，提供了兩種方法，代碼如下： // 執(zhí)行有返回值的 sql 語(yǔ)句 ,返回得到的 ADOQuery。 function ExeSqlQuery(sql:string):TADOQuery。 var query:TADOQuery。 begin try if stClosed in then //判斷連接狀態(tài)是否關(guān)閉 , 若關(guān)閉則連接打開 17 。 query:=(nil)。 :=。 。 。 (sql)。 。 except result:=nil。 end。 result:=query。 end。 //執(zhí)行沒有返回值的 sql 語(yǔ)句 ,如果正確執(zhí) 行則返回 true,否則返回 false function ExeSqlNoQuery(sql:string):boolean。 var query:TADOQuery。 ref:integer。 begin ref:=0。 if stClosed in then //判斷連接狀態(tài)是否關(guān)閉 , 若關(guān)閉則打開 。 query:=(nil)。