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