【正文】 查詢”子模塊，但是不能進入“系統(tǒng)管理”子模塊。 如果登錄用戶是合法用戶，則第一部將存儲登錄用戶的用戶權(quán)限、用戶名稱、密碼和所屬的用戶組，第二步將在“登陸登記表”中記錄該用戶的登錄時間和所屬的用戶組，第三步將顯示歡迎用戶登錄的信息，最后調(diào)用窗體級過程 judge_user 判斷登錄用戶的用戶權(quán)限，并根據(jù)登錄用戶的權(quán)限來設(shè)置通訊錄管理系統(tǒng)主窗體中的菜單項和一些組件的初始狀態(tài)。 :=false。 :=false。 :=true。登錄窗體 FormShow 事件對應(yīng)得代碼如下： procedure (Sender: TObject)。 聲明模塊級函數(shù)的代碼如下： 模塊級函數(shù)的定義 （ 1） 窗體級過程 judge_user() 在窗體級函數(shù) judge_user 的代碼中，首先 創(chuàng)建通訊錄管理系統(tǒng)得主窗體，然后判斷登錄用戶的用戶權(quán)限，并根據(jù)用戶權(quán)限的不同執(zhí)行不同的操作。 使用本系統(tǒng)得用戶分為 3 類：管理員 和一般 人 員。 信息管理子模塊 通 過此模塊來管理通訊錄中的同學留言信息，包括這些同學留言的添加、修改、 12 查詢和刪除。 在進行系統(tǒng)登陸用戶記錄的添加和修改時，對于用戶組字段，要提供一些用戶組名稱，以便于用戶選擇。 2. 登陸窗體模塊 通訊錄管理系統(tǒng) 登陸窗體模塊 數(shù)據(jù)集模塊 系統(tǒng)管理模塊 主窗體模塊 用戶管理 用戶組管理 登陸信息查詢子模塊 數(shù)據(jù)管理子模塊 信息管理子模塊 數(shù)據(jù) excel 信息瀏覽 數(shù)據(jù)更新 數(shù)據(jù)統(tǒng)計 11 使用本系統(tǒng)的用戶分為 3 類：管理員、組長和一般人員。 （ 3） 單擊“登錄信息查詢”菜單，便可以進入到“登錄信息查詢”模塊，進行系統(tǒng)登錄信息查詢操作 10 （ 4） 在“系統(tǒng)管理”菜單中包含 2 個子菜單。 ? 信息瀏覽：可進入同學信息詳細瀏覽的管理子模塊，進行 信 息詳細的查詢操作。 開發(fā)軟件流程如下：（ 1）將合適的控件加入窗體（ 2）修改控件屬性并添加響應(yīng)事件代碼（ 3）調(diào)試軟件（ 4）完成開發(fā)，進行維護階段 開發(fā)過程： （ 1）數(shù)據(jù)庫引擎（存取規(guī)范）的選擇： Delphi 本身自帶有 BDE 數(shù)據(jù)庫引擎，可以用來存取很多類型的數(shù)據(jù)庫，如 Access,InterBase 等數(shù)據(jù)庫，鑒于其開發(fā)軟件時設(shè)置的困難及軟件發(fā)布時附帶的文件容量（大約要 9M 多）太大，故使用微軟的數(shù)據(jù)庫操作引擎 ADO； （ 2） ADO 簡介： ADO（ Access Data Object）是微軟為了統(tǒng)一數(shù)據(jù)庫存 取的標準而制訂的規(guī)范，用 ADO 可以存取幾乎任何類型的數(shù)據(jù)，如文本文件，電子郵件，關(guān)系型數(shù)據(jù)庫等， ADO是以 OLE DB 為基礎(chǔ)發(fā)展起來的，具有使用方便，存取效率高等特點，并且軟件發(fā)布簡單（在Windows 平臺上，只要安裝了 ADO 的數(shù)據(jù)庫驅(qū)動程序即可，也即安裝了 Office 辦公軟件中的Access 即可）。 本畢業(yè)設(shè)計以通用的通訊錄管理系統(tǒng)為實例，運用 Microsoft Access 和 Delphi進行程序設(shè)計，講述如何開發(fā)通訊錄 管理系統(tǒng)。我們根據(jù)這些功能，設(shè)計出系統(tǒng)的功能模塊，每一個功能模塊都需要針對不同的表完成相同的數(shù)據(jù)庫操作，分別是查詢（查看、預(yù)覽） 模塊，具體實現(xiàn)了用戶和人員信息的查看和預(yù)覽；更新（添加、修改、刪除）模塊，具體實現(xiàn)了用戶和（新）人員信息的登記，修改和刪除；生成預(yù)覽報表，具體實現(xiàn)了人員信息的總的查看和瀏覽。 信息表是對同學在通訊錄中所留言信息的統(tǒng)計 （表 1） 字段名 數(shù)據(jù)類型 說明 Id Int Id 號，主鍵，字段大小為 4 發(fā)送人 Nvarchar 發(fā)送人姓名，字段大小為 20 接受人 Nvarchar 接受人姓名，字段大小為 20 信息內(nèi)容 Nvarchar 所留信息的內(nèi)容，字段大小為 200 發(fā)送時間 Datetime 信息發(fā)送的時間，字段大小為 8 同學表是對同學信息的統(tǒng)計 （表 2） 字段名 數(shù)據(jù)類型 說明 Id Int Id 號，主鍵，字段大小為4 姓名 Nvarchar 字段大小為 10 性別 Nvarchar 字段大小為 6 出生年月 Datetime 字段大小為 8 用戶組 Nvarchar 字段大小為 10 昵稱 Nvarchar 字段大小為 8 手機號碼 Nvarchar 字段大小為 12 家庭電話 Nvarchar 字段大小為 12 家庭地址 Nvarchar 字段大小為 24 就讀學校 Nvarchar 字段大小為 20 班級 Nvarchar 字段大小為 14 郵編 Nvarchar 字段大小為 10 Email Nvarchar 字段大小為 20 [/ICQ/MSN] Nvarchar 字段大小為 16 星座 Nvarchar 字段大小為 16 備注 Nvarchar 字段大小為 16 Isbmp Nvarchar 字段大小為 2 相片 Nvarchar 字段大小為 16 7 用戶表是對通訊錄系統(tǒng)登錄用戶信息的統(tǒng)計 （表 3） 字段名 數(shù)據(jù)類型 說明 Id Int Id 號，主鍵，字段大小為4 用戶名 Nvarchar 字段大小為 15 密碼 Nvarchar 字段大小為 12 用戶權(quán)限 Nvarchar 字段大小為 20 用戶組 Nvarchar 字段大小為 20 用戶組表是對用戶信息的統(tǒng)計 （表 4） 字段名 數(shù)據(jù)類型 說明 Id Int Id 號，主鍵，字段大小為4 用戶名 Nvarchar 字段大小為 20 組長 Nvarchar 字段大小為 20 登錄系統(tǒng)登記表是對用戶登錄信息的統(tǒng)計（表 5） 字段名 數(shù)據(jù)類型 說明 Id Int Id 號，主鍵，字段大小為4 用戶名 Nvarchar 字段大小為 10 用戶組 Nvarchar 字段大小為 10 登陸時間 Nvarchar 字段大小為 20 退出時間 Nvarchar 字段大小為 20 二、主表間的關(guān)系設(shè)計 在這些標之間存在一定的關(guān)系。 （ 2） 在“消息管理”菜單中包含 4 個子菜單。 （ 5） 單擊“退出本系統(tǒng)”菜單，便可以退出通訊錄管理系統(tǒng)。 3. 系統(tǒng)管理模塊 用戶通過此模塊來管理用戶組合系統(tǒng)登陸用戶，包括登陸用戶組和系統(tǒng)登陸用戶名稱的添加、修改、刪除和查詢等。 在主窗體模塊中，還包括 3 個子模塊：通訊錄數(shù)據(jù)管理子模塊、信息管理子模塊和登陸信息查詢子模塊。在過程代碼中，首先記錄當前數(shù)據(jù)集所處的操作狀態(tài)，最后根據(jù)所處操作狀 態(tài)的不同執(zhí)行不同的操作。 窗體界面設(shè)計 在工程中添加一個窗體，命名為 CheckUserForm，界面圖 7 如下： 13 系統(tǒng)主窗體的設(shè)置 要將 CheckUserForm 窗體設(shè)置為系統(tǒng)的主窗體，應(yīng)該按照以下步驟執(zhí)行： （ 1）在菜單中依次選擇“工程” “選項”，出現(xiàn) 的對話框。 如果登錄用戶是系統(tǒng)管理員，則將沒有任何限制，首先打開數(shù)據(jù)級對象ADODataSet_message、 ADODataSet_classMate 和 ADODataSet_login,然后顯示通訊錄管理系統(tǒng)的主窗體。39。 :=true。 :=false。 end。 窗體界面的設(shè)計 在工程中添加一個窗體，命名為 frm_mian。 數(shù)據(jù)更新子?？? 當系統(tǒng)主菜單中依次選擇“通訊錄數(shù)據(jù)管理” “ 數(shù)據(jù)更新” 后 ，或者在PgCtrl_ShortCut 組件中依次單擊“數(shù)據(jù)管理” “數(shù)據(jù)更新”后 ，將進入通訊錄數(shù)據(jù)更新子模塊。 該 控件主要是添加： object DataSetInsert1: TDataSetInsert Category = 39。 End object DataSetEdit1: TDataSetEdit Category = 39。 19 end 處理 “刪除” 按鈕的 Click 事件 “刪除” 按 鈕 的 Click 事件代碼的主要作用是 刪除 所有信息。 該子模塊對應(yīng) 的 frm_mian 窗體界面的設(shè)計 對應(yīng)窗體界面設(shè)計圖如下： 處理“導(dǎo)出 excel”按鈕的 Click 事件 20 處理 “導(dǎo)出”按鈕的 Click 事件對應(yīng)代碼的主要作用是 導(dǎo)出數(shù)據(jù)到 Excel 表中。 End。 row:=1。 end。 (39。 模塊級過程 search 代碼如下： procedure 。 //將 Edit 的值賦給 SearchField try with ADOQueryclass do begin close。 + SearchValue + 39。 end。 //向下移動到下一個字段 end。 ////將數(shù)據(jù)庫表中檢索到的結(jié)果條數(shù)賦給 label39 的 Caption end。 該模塊主要用于查詢所有登錄用戶的登錄信息，包括登錄用戶的登錄時間、退出時間。39。39。39。)。 ////將數(shù)據(jù)庫表中檢索到的結(jié)果條數(shù)賦給 label17 的 Caption end。)。 end。 ? 如果用戶選 擇的是“查詢”按鈕，則首先彈出對話框要求 用戶輸入要查詢的 27 發(fā)送人的姓名，然后判斷用戶輸入的發(fā)送人姓名是否為空，如果用戶輸入的發(fā)送人姓名不為空，則最后設(shè)置數(shù)據(jù)集組件 ADOQuerymessagee 的 Filter 屬性，使其返回符合用戶輸入條件的記錄。39。 then //用戶選擇的是“修改”按鈕 begin //將數(shù)據(jù)集組件 adoquerymessage 置于修改狀態(tài) 。輸入數(shù)據(jù) 39。 then //用戶輸入發(fā)送人的姓名為空，退出該過程 exit。39。39。 //判斷數(shù)據(jù)集組件 ADODataSet_classMate2 中的當前記錄是否在文件尾部 while not do begin //當前記錄不在文件尾部，在發(fā)送人對應(yīng)的數(shù)據(jù)控件中添加當前記錄的姓名字段 的值 ((39。 //設(shè)置 cmdadd 按鈕的狀態(tài) :=false。 處理“保存”按鈕的 Click 事件 “保存”按鈕的 Click 事件的代碼的主要作用是保存用戶添加或修改的信息。 exit。 :=false。 :=false。 窗體的工作流程 （ 1）當單擊“添加”按鈕或“修改”按鈕時，將把窗體中除“添加”按鈕或“修改”按鈕以及“退出”按鈕外的所有組件的 Enabled 屬性設(shè)為 false。 編寫窗體代碼 聲明窗體級變量、函數(shù)和過程 在此窗體中要經(jīng)常用到一些函數(shù)、過程和變量，如用于存儲登錄用戶記錄的storeuser 函數(shù)、用于設(shè)置組件 Enabled 屬性的 setbuttons 過程和記錄當前操作狀態(tài)的addrecord 變量。 :=bval。退出 39。 end。 begin result:=false。此用戶名已經(jīng)存在！ 39。39。組長 39。 :=39。 。+ +39。 。 代碼如下： procedure (Sender: TObject)。 在“修改”按鈕對應(yīng)得事件代碼中 首先記錄當前的操類型，然后記錄當前欲修改記錄的用戶名稱，接著調(diào)用 setbuttons 過程來設(shè)置所有數(shù)據(jù)組件和命令按鈕的顯示狀態(tài)，再接著將光標定位在與用戶名稱對應(yīng) 的 組合框中 ，最后將當前的操作裝態(tài)設(shè)置為修改狀態(tài)，即執(zhí)行 語句。 處理“保存”按鈕的 Click 事件 單擊“保存”按鈕，則觸發(fā)“ 保存”按鈕的 Click 事件。 處理“查詢”按鈕的 Click 事件 單擊“查詢”按鈕，則觸發(fā)“查詢”按鈕的 Click 事件。, 39。39。)。 end。用戶名 39。 在“刪除”按鈕對應(yīng)的事件代碼中，將彈出如圖 420 所述的信息提示框，讓用戶確認是否刪除當前記錄，如果用戶確認刪除當前記錄，則刪除當前記錄。 “上一條”按鈕對應(yīng)的事件代碼如下： procedure (Sender: TObje