【正文】 用戶名 Nvarchar 字段大小為 10 用戶組 Nvarchar 字段大小為 10 登陸時(shí)間 Nvarchar 字段大小為 20 退出時(shí)間 Nvarchar 字段大小為 20 二、主表間的關(guān)系設(shè)計(jì) 在這些標(biāo)之間存在一定的關(guān)系。 ? 數(shù)據(jù) 更新 ：可進(jìn)入同學(xué)信息的管理子模塊 ，進(jìn)行同學(xué)信息的添加 信息 、 保存信息、編輯信息 和刪除 信息 操作。 （ 2） 在“消息管理”菜單中包含 4 個(gè)子菜單。 ? 刪除消息：進(jìn)入信息管理子模塊，刪除給同學(xué)寫的留言。 （ 5） 單擊“退出本系統(tǒng)”菜單，便可以退出通訊錄管理系統(tǒng)。 1. 數(shù)據(jù)集模塊 通過此模塊來(lái)統(tǒng)一管理通訊錄管理系統(tǒng)中用到的數(shù)據(jù)庫(kù)連接控件、數(shù)據(jù)源控件、數(shù)據(jù)集控件和數(shù)據(jù)查詢控件。 3. 系統(tǒng)管理模塊 用戶通過此模塊來(lái)管理用戶組合系統(tǒng)登陸用戶，包括登陸用戶組和系統(tǒng)登陸用戶名稱的添加、修改、刪除和查詢等。 在進(jìn)行用戶組的添加和修改時(shí)，對(duì)于用戶組組長(zhǎng)字段，要提供一些用戶名，以便于用戶選擇。 在主窗體模塊中，還包括 3 個(gè)子模塊：通訊錄數(shù)據(jù)管理子模塊、信息管理子模塊和登陸信息查詢子模塊。 （ 4） 數(shù)據(jù)導(dǎo)出報(bào)表 通過此模塊將通訊錄中的數(shù)據(jù)導(dǎo)出到 Excel 表中，以便進(jìn)一步的處理。在過程代碼中，首先記錄當(dāng)前數(shù)據(jù)集所處的操作狀態(tài)，最后根據(jù)所處操作狀 態(tài)的不同執(zhí)行不同的操作。 數(shù)據(jù)集組件 ADODataSet_classMate 的 AfterScroll 事件代碼如下： 創(chuàng)建登錄窗體模塊 登錄窗體是通訊錄管理系統(tǒng)的主 窗體。 窗體界面設(shè)計(jì) 在工程中添加一個(gè)窗體，命名為 CheckUserForm，界面圖 7 如下： 13 系統(tǒng)主窗體的設(shè)置 要將 CheckUserForm 窗體設(shè)置為系統(tǒng)的主窗體，應(yīng)該按照以下步驟執(zhí)行： （ 1）在菜單中依次選擇“工程” “選項(xiàng)”，出現(xiàn) 的對(duì)話框。 其中窗體級(jí)函數(shù) Glogin 用于判斷用戶輸入的用戶名、密碼和用戶權(quán)限是否符合用戶登錄的條件：窗體級(jí)過程 judge_user 用于判斷 登錄用戶的用戶權(quán)限，并根據(jù)用戶權(quán)限的不同設(shè)置系統(tǒng)主窗體中的菜單項(xiàng)；窗體級(jí)過程 clear 用于清空登錄窗體中用戶名、密碼和用戶權(quán)限對(duì)應(yīng)的數(shù)據(jù)控件中的內(nèi)容，以方便用戶的輸入。 如果登錄用戶是系統(tǒng)管理員，則將沒有任何限制，首先打開數(shù)據(jù)級(jí)對(duì)象ADODataSet_message、 ADODataSet_classMate 和 ADODataSet_login,然后顯示通訊錄管理系統(tǒng)的主窗體。 在該事件的代碼中，首先從“通訊錄管理 .ini”配置文件中讀取 數(shù)據(jù)庫(kù)連接字符串，然后設(shè)置數(shù)據(jù)庫(kù)連接組件 ADOConnectionxx 的 ConnectionString 屬性，使其連接到數(shù)據(jù)庫(kù) classl，最后在與用 戶權(quán)限對(duì)應(yīng)得數(shù)據(jù)控件中添加內(nèi)容“管理員”、“組長(zhǎng)”和“一般人員”。39。 :=true。 :=true。 :=false。 :=false。 :=false。 end。 16 在該事件的代碼中，首先調(diào)用窗體級(jí)函數(shù) Glogin 判斷登錄用戶的合法性，然后根據(jù)用戶是否合法來(lái)進(jìn)行相應(yīng)的操作。 窗體界面的設(shè)計(jì) 在工程中添加一個(gè)窗體，命名為 frm_mian。 對(duì)于用戶組長(zhǎng)，由于用戶組組長(zhǎng)具有除系統(tǒng)管理員以外的所有權(quán)限，因此除了“系統(tǒng)管理”菜單項(xiàng)外，主窗體的主菜單中將顯示其他所有的菜單項(xiàng) 。 數(shù)據(jù)更新子?？? 當(dāng)系統(tǒng)主菜單中依次選擇“通訊錄數(shù)據(jù)管理” “ 數(shù)據(jù)更新” 后 ，或者在PgCtrl_ShortCut 組件中依次單擊“數(shù)據(jù)管理” “數(shù)據(jù)更新”后 ，將進(jìn)入通訊錄數(shù)據(jù)更新子模塊。事件代碼如下： 處理“保存圖像”按鈕 Click 事件 “保存圖像”按鈕的 Click 事件對(duì)應(yīng)的代碼主要作用是為將用戶選擇的圖像存入正在添加或修改的同學(xué)記錄中的照片字段。 該 控件主要是添加： object DataSetInsert1: TDataSetInsert Category = 39。 End object DataSetDelete1: TDataSetDelete Category = 39。 End object DataSetEdit1: TDataSetEdit Category = 39。 End object DataSetPost1: TDataSetPost Category = 39。 19 end 處理 “刪除” 按鈕的 Click 事件 “刪除” 按 鈕 的 Click 事件代碼的主要作用是 刪除 所有信息。,mtwarning,[mbok,mbcancel],0)=mrok then 。 該子模塊對(duì)應(yīng) 的 frm_mian 窗體界面的設(shè)計(jì) 對(duì)應(yīng)窗體界面設(shè)計(jì)圖如下： 處理“導(dǎo)出 excel”按鈕的 Click 事件 20 處理 “導(dǎo)出”按鈕的 Click 事件對(duì)應(yīng)代碼的主要作用是 導(dǎo)出數(shù)據(jù)到 Excel 表中。 Except MessageDlg(39。 End。 (Null,0)。 row:=1。 end。 end。 模塊級(jí)過程 DisplayAllRecorders 的主要作用是顯示同學(xué)表中所有記錄。 (39。 end。 模塊級(jí)過程 search 代碼如下： procedure 。 //將 ComboBox 的值賦給 SearchField SearchValue := 39。 //將 Edit 的值賦給 SearchField try with ADOQueryclass do begin close。 + SearchField + 39。 + SearchValue + 39。)。 end。 var iCount: Integer。 //向下移動(dòng)到下一個(gè)字段 end。 使其統(tǒng)計(jì)出符合條件的記錄的數(shù)量。 ////將數(shù)據(jù)庫(kù)表中檢索到的結(jié)果條數(shù)賦給 label39 的 Caption end。 begin DisplayAllRecorders。 該模塊主要用于查詢所有登錄用戶的登錄信息，包括登錄用戶的登錄時(shí)間、退出時(shí)間。 var sqlstr:string。39。 and 登陸時(shí)間=39。39。39。39。39。)。39。 ////將數(shù)據(jù)庫(kù)表中檢索到的結(jié)果條數(shù)賦給 label17 的 Caption end。 begin //清空登陸用戶對(duì)應(yīng)的組合框中的內(nèi)容 :=39。)。39。 end。 在該事件的代碼中，首先設(shè)置數(shù)據(jù)集組件 ADOQuerymessage 的 Filter 屬性，使其返回所有記錄，然后判斷用戶在信息管理子模塊中選擇的什么按鈕，最后根據(jù)選擇的按鈕的不同執(zhí)行相應(yīng)的操作。 ? 如果用戶選 擇的是“查詢”按鈕，則首先彈出對(duì)話框要求 用戶輸入要查詢的 27 發(fā)送人的姓名，然后判斷用戶輸入的發(fā)送人姓名是否為空，如果用戶輸入的發(fā)送人姓名不為空，則最后設(shè)置數(shù)據(jù)集組件 ADOQuerymessagee 的 Filter 屬性，使其返回符合用戶輸入條件的記錄。發(fā)送人 39。39。 :=true。 then //用戶選擇的是“修改”按鈕 begin //將數(shù)據(jù)集組件 adoquerymessage 置于修改狀態(tài) 。刪除 39。輸入數(shù)據(jù) 39。39。 then //用戶輸入發(fā)送人的姓名為空，退出該過程 exit。%39。39。 //重新設(shè)置數(shù)據(jù)集組件 ADODataSet_login 的 Filter 屬性，使其返回所有記錄 :=39。39。 exit。 //判斷數(shù)據(jù)集組件 ADODataSet_classMate2 中的當(dāng)前記錄是否在文件尾部 while not do begin //當(dāng)前記錄不在文件尾部，在發(fā)送人對(duì)應(yīng)的數(shù)據(jù)控件中添加當(dāng)前記錄的姓名字段 的值 ((39。 姓名39。 //設(shè)置 cmdadd 按鈕的狀態(tài) :=false。 //設(shè)置 dbsendname 數(shù)據(jù)控件的狀態(tài) :=true。 處理“保存”按鈕的 Click 事件 “保存”按鈕的 Click 事件的代碼的主要作用是保存用戶添加或修改的信息。發(fā)送人與接受人不能相同。 exit。 //設(shè)置保存按鈕的狀態(tài) :=false。 :=false。 處理“取消”按鈕的 Click 事件的代碼如下： procedure (Sender: TObject)。 :=false。 end。 窗體的工作流程 （ 1）當(dāng)單擊“添加”按鈕或“修改”按鈕時(shí)，將把窗體中除“添加”按鈕或“修改”按鈕以及“退出”按鈕外的所有組件的 Enabled 屬性設(shè)為 false。 （ 5）當(dāng)單擊“刪除”按鈕時(shí)，則彈出提示窗口，要求用戶確認(rèn)是否刪除當(dāng)前記 32 錄，如果用戶單擊“確定”則將刪除當(dāng)前記錄。 編寫窗體代碼 聲明窗體級(jí)變量、函數(shù)和過程 在此窗體中要經(jīng)常用到一些函數(shù)、過程和變量，如用于存儲(chǔ)登錄用戶記錄的storeuser 函數(shù)、用于設(shè)置組件 Enabled 屬性的 setbuttons 過程和記錄當(dāng)前操作狀態(tài)的addrecord 變量。 聲明窗體級(jí)函數(shù)和過程 的代碼如下： .定義窗體級(jí)函數(shù)的過程 （ 1） setbuttons 過程 setbuttons 過程的作用是根據(jù)命令按鈕的狀態(tài)設(shè)置窗體中的組件、命令按鈕的狀態(tài)和屬性。 :=bval。 :=bval。退出 39。退出 39。 end。接著判斷用戶表中是否存在輸入的用戶名稱，如果存在，就提示“已經(jīng)存在”，并要求重新輸入。 begin result:=false。用戶權(quán)限不能為空！ 39。此用戶名已經(jīng)存在！ 39。 //將光標(biāo)定位在 boxname 組件，要求重新輸入 。39。 end。組長(zhǎng) 39。 。 :=39。+ +39。 。 :=39。+ +39。 。 。 end。 代碼如下： procedure (Sender: TObject)。 //將當(dāng)前的操作狀態(tài)設(shè)置為添加狀態(tài) 。 在“修改”按鈕對(duì)應(yīng)得事件代碼中 首先記錄當(dāng)前的操類型，然后記錄當(dāng)前欲修改記錄的用戶名稱，接著調(diào)用 setbuttons 過程來(lái)設(shè)置所有數(shù)據(jù)組件和命令按鈕的顯示狀態(tài)，再接著將光標(biāo)定位在與用戶名稱對(duì)應(yīng) 的 組合框中 ，最后將當(dāng)前的操作裝態(tài)設(shè)置為修改狀態(tài)，即執(zhí)行 語(yǔ)句。 //調(diào)用 setbuttons 過程設(shè)置所有數(shù)據(jù)組件和命令按鈕的顯示狀態(tài) setbuttons(false)。 處理“保存”按鈕的 Click 事件 單擊“保存”按鈕，則觸發(fā)“ 保存”按鈕的 Click 事件。 begin //調(diào)用 storeuser 函數(shù)檢測(cè)用戶輸入數(shù)據(jù)的合法性 if storeuser=true then //用戶輸入的數(shù)據(jù)合乎要求 begin //保存添加或修改的記錄 。 處理“查詢”按鈕的 Click 事件 單擊“查詢”按鈕，則觸發(fā)“查詢”按鈕的 Click 事件。 begin //彈出數(shù)據(jù)輸入窗口 ,要求用戶輸入欲查詢的用戶名稱 InputString:= InputBox(39。, 39。39。39。39。)。 39。 end。 圖： “顯示所有記錄”按鈕的 Click 事件 單擊“顯示所有記錄”按鈕，則觸發(fā)“顯示所有記錄”按鈕的 click 事件。用戶名 39。39。 在“刪除”按鈕對(duì)應(yīng)的事件代碼中，將彈出如圖 420 所述的信息提示框，讓用戶確認(rèn)是否刪除當(dāng)前記錄，如果用戶確認(rèn)刪除當(dāng)前記錄，則刪除當(dāng)前記錄。,mtInformation,[mbYes,mbNo],0)=mrYes THEN //刪除當(dāng)前記錄 end。 “上一條”按鈕對(duì)應(yīng)的事件代碼如下： procedure (Sender: TObject