【文章內(nèi)容簡(jiǎn)介】 組長(zhǎng)具有除系統(tǒng)管理員以外的所有權(quán)限，因此除了“系統(tǒng)管理”菜單項(xiàng)外，主窗體的主菜單中將顯示其他所有的菜單項(xiàng) ?？梢酝ㄟ^(guò)單擊菜單子項(xiàng)進(jìn)入“通訊錄數(shù)據(jù)管理”子模塊、“信 息管理”子模塊、“登錄信息查詢”子模塊，但是不能進(jìn)入“系統(tǒng)管理”子模塊。 對(duì)于一般人員，由于只有查詢通訊錄數(shù)據(jù)和用戶留言的權(quán)限，因此 主窗體的主菜單中將顯示除“系統(tǒng)管理”和“登錄信息查詢”以外的其他的菜單項(xiàng)，并且“通訊錄數(shù)據(jù)管理”菜單中的“數(shù)據(jù)管理”子菜單項(xiàng)的顏色呈灰色?？梢酝ㄟ^(guò)單擊菜單項(xiàng)進(jìn)入“通訊錄數(shù)據(jù)管理” 子模塊和“信 息管理”子模塊，但不能進(jìn)入“系統(tǒng)管理”子模塊和“登錄信息查詢”子模塊，也不能使用“通訊錄數(shù)據(jù)集”子模塊中的“數(shù)據(jù)管理”功能。 數(shù)據(jù)更新子?？? 當(dāng)系統(tǒng)主菜單中依次選擇“通訊錄數(shù)據(jù)管理” “ 數(shù)據(jù)更新” 后 ，或者在PgCtrl_ShortCut 組件中依次單擊“數(shù)據(jù)管理” “數(shù)據(jù)更新”后 ，將進(jìn)入通訊錄數(shù)據(jù)更新子模塊。 該模塊主要用于 通訊錄數(shù)據(jù)的管理，包括同學(xué)記錄的添加、修改、簡(jiǎn)單查詢和刪除操作。 該子模塊對(duì)應(yīng)得 frm_mian 窗體界面設(shè)計(jì)如圖： 處 理“選擇圖像”按鈕的 Click 事件 “選擇圖像”按鈕的 Click 事件對(duì)應(yīng)的代碼主要作用是為正在添加 或修改的同學(xué)記錄中的照片字段選擇一幅圖像。 在該事件的代碼中，首先使用系統(tǒng)提供的 OpenPictureDialog1 組件選擇一幅圖像，然后在系統(tǒng)中載入這幅圖象 。事件代碼如下： 處理“保存圖像”按鈕 Click 事件 “保存圖像”按鈕的 Click 事件對(duì)應(yīng)的代碼主要作用是為將用戶選擇的圖像存入正在添加或修改的同學(xué)記錄中的照片字段。 在該事件的代碼中，首先 判斷用戶 選擇的圖像是否為空，如果選擇的圖像不位空，則 調(diào)用系統(tǒng) 函數(shù) extractfileext 得到 所選圖像文件的擴(kuò)展名，接著根據(jù)所選圖像文件的擴(kuò)展名設(shè)置同學(xué)表中的 isbmp 字段的值，以標(biāo)明該幅圖象是 bmp 還是其他的圖像，最后將用戶選擇的圖像存入正在添加或修改的同學(xué)記錄 中的照片字段。 事件代碼如下： 18 數(shù)據(jù) 更新 子模塊 當(dāng)在系統(tǒng)主菜單中依次選擇“通訊錄數(shù)據(jù)管理 ” “數(shù)據(jù) 更新 ”后，或者在PgCtrl_ShortCut 組件中依次單擊“數(shù)據(jù)管理” “ 數(shù)據(jù) 更新 ”后 ，將進(jìn)入通訊錄數(shù)據(jù) 更新 子模塊，該模塊主要用于同學(xué) 添加、編輯、刪除等功能 。 該子模塊對(duì)應(yīng) 得 frm_mian 界面 設(shè)計(jì) 圖如下： 添加了 Actionlist1 控件。 該 控件主要是添加： object DataSetInsert1: TDataSetInsert Category = 39。Dataset39。 Caption = 39。DataSetInsert139。 End object DataSetDelete1: TDataSetDelete Category = 39。Dataset39。 Caption = 39。DataSetDelete139。 End object DataSetEdit1: TDataSetEdit Category = 39。Dataset39。 Caption = 39。DataSetEdit139。 End object DataSetPost1: TDataSetPost Category = 39。Dataset39。 Caption = 39。DataSetPost139。 19 end 處理 “刪除” 按鈕的 Click 事件 “刪除” 按 鈕 的 Click 事件代碼的主要作用是 刪除 所有信息。代碼如下： procedure (Sender: TObject)。 begin if MessageDlg(39。你確信要?jiǎng)h除記錄 ?39。,mtwarning,[mbok,mbcancel],0)=mrok then 。 end。 數(shù)據(jù)導(dǎo)出 excel 子模塊 當(dāng)系統(tǒng)主菜單中依次 選擇“ 通 訊錄數(shù)據(jù)管理 ” “數(shù)據(jù) 導(dǎo)出 excel” 后，或者在 PgCtrl_ShortCut 組件中依次單擊“查詢 統(tǒng)計(jì) ” “ excel”后，將進(jìn)入通訊錄數(shù)據(jù)導(dǎo)出 excel 子模塊。 該模塊主要用于將通訊錄中的數(shù)據(jù)導(dǎo)出至 Excel 表中， 以便進(jìn)一步的處理，例如設(shè)計(jì)統(tǒng)計(jì) 和打印。 該子模塊對(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 表中。 代碼 如下： procedure (Sender: TObject)。 var i,row,column:integer。 begin Try 。 Except MessageDlg(39。Excel may not be installed39。,mtError, [mbOk], 0)。 Abort。 End。 [0]:=True。 :=39。Excel Application39。 (Null,0)。 ([1])。 ([1] as _Worksheet)。 。 row:=1。 While Not( ) do begin column:=1。 for i:=1 to do begin [row,column]:= [i1].AsString。 column:=column+1。 end。 。 row:=row+1。 end。 end。 數(shù)據(jù)統(tǒng)計(jì)子模塊 當(dāng)在系統(tǒng)主菜單中依次選擇“通訊錄數(shù)據(jù)管理” “數(shù)據(jù)統(tǒng)計(jì)” 后，或者在PgCtrl_ShortCut 組件中依次單擊“查詢統(tǒng)計(jì)” “數(shù)據(jù)統(tǒng)計(jì)” 后，將進(jìn)入通訊錄數(shù) 21 據(jù)統(tǒng)計(jì)子模塊。 該模塊主要用于統(tǒng)計(jì)通訊錄中具有相同條件的記錄的個(gè)數(shù)。 該子模塊對(duì)應(yīng)的 frm_mian 窗體界面的設(shè)計(jì) 對(duì)應(yīng)窗體界面設(shè)計(jì)圖如下： 模塊級(jí)過(guò)程 DisplayAllRecorders。 模塊級(jí)過(guò)程 DisplayAllRecorders 的主要作用是顯示同學(xué)表中所有記錄。 模塊級(jí)過(guò)程 DisplayAllRecorders 的代碼如下： procedure 。 begin with ADOQueryclass do begin close。 。 (39。select * from 同學(xué) 39。)。 open。 end。 end。 22 模塊級(jí)過(guò)程 search。 模塊級(jí)過(guò)程 search 的主要作用是來(lái)模糊查詢同學(xué)中記錄的條件。 模塊級(jí)過(guò)程 search 代碼如下： procedure 。 var SearchField: string。 //要查找的字段名 SearchValue: string。 //要查找的字段值 begin SearchField := Trim()。 //將 ComboBox 的值賦給 SearchField SearchValue := 39。%39。 + Trim() + 39。%39。 //將 Edit 的值賦給 SearchField try with ADOQueryclass do begin close。 //先關(guān)閉數(shù)據(jù)模塊中的 ADOQuery 。 //清空 ADOQuery 中的 SQL 值 (39。select * from 同學(xué) where 39。 + SearchField + 39。 like 39。39。%39。 + SearchValue + 39。%39。39。39。)。 //進(jìn)行數(shù)據(jù)查詢的 SQL語(yǔ)句（ SearchFidel 和 SearchValue // 分別賦到 SQL 語(yǔ)句中 end。 finally 。 //打開(kāi)數(shù)據(jù)模塊中的 ADOQuery end。 end。 模塊級(jí)過(guò)程 filldata。 模塊級(jí)過(guò)程 filldata 的主要作用的來(lái)調(diào)用 ADOQueryclass 的記錄。 模塊級(jí)過(guò)程 filldata 代碼如下： procedure 。 var iCount: Integer。 //將從數(shù)據(jù)模塊中取得的數(shù)據(jù)庫(kù)表的字段名填入 ComboBox中 begin 。 //首先清空 ComboBox 中 Items 的值 for iCount := 0 to 1 do 23 begin ([iCount].FieldName)。 //加入字段名 。 //向下移動(dòng)到下一個(gè)字段 end。 := 0。 //設(shè)置表單剛出現(xiàn)時(shí) ComboBox 的值為第一個(gè) end。 處理“ 查詢 ”按鈕的 Click 事件 “ 查詢 ” 按鈕的 Click 事件 的代碼的主要作用是在所有記錄中或者登錄用戶所在的用戶組中統(tǒng)計(jì)出同類(lèi)型別的記錄數(shù)。 使其統(tǒng)計(jì)出符合條件的記錄的數(shù)量。代碼如下： procedure (Sender: TObject)。 begin search。 := IntToStr()。 ////將數(shù)據(jù)庫(kù)表中檢索到的結(jié)果條數(shù)賦給 label39 的 Caption end。 處理“顯示所有”按鈕的 Click 事件 。 “顯示所有”按鈕的 Click 事件 主要用顯示“同學(xué)“表中的信息，它調(diào)用模塊級(jí)過(guò)程 DisplayAllRecorders。 procedure (Sender: TObject)。 begin DisplayAllRecorders。 //顯示所有 end。 登錄信息查詢子模塊 當(dāng)在系統(tǒng)主菜單中選擇“ 登錄信息查詢 ” 后，或者在 PgCtrl_ShortCut 組件中單擊“登錄信息”后，將進(jìn)入通訊錄的登錄 信息查詢子模塊。 只有具有系統(tǒng)管理員權(quán)限的登錄用戶才能看到和單擊登錄信息查詢的菜單項(xiàng)，具有 用戶組組長(zhǎng)和一般人員身份的登錄用戶不能使用該模塊。 該模塊主要用于查詢所有登錄用戶的登錄信息，包括登錄用戶的登錄時(shí)間、退出時(shí)間。 該子模塊對(duì)應(yīng)的 frm_mian 窗體界面的設(shè)計(jì) 對(duì)應(yīng)窗體界面設(shè)計(jì)圖如下： 24 處理“查詢”按鈕的 Click 事件 “查詢”按鈕的 Click 事件的代碼的主要作用是查詢符合用戶設(shè)置條件的記錄，并將符合條件的記錄顯示在 DBGrid3 網(wǎng)格組件中。 在該事件的代碼中，首先判斷用戶輸入或選擇的登錄用戶名是否為空，如果不為空，則接著設(shè)置查詢字符串，然后設(shè)置數(shù)據(jù)集組件 ADOQuerylogin 的 Filter 屬性，使其返回符合查詢字符串條件的記錄，最后判斷是否有符合條件的記錄，如果沒(méi)有符合條件的記錄，則給出提示，并重新設(shè)置數(shù)據(jù)集組件 ADOQuerylogin 的 Filter 屬性 ，使其 返回記錄。代碼如下： procedure (Sender: TObject)。 var sqlstr:string。 begin sqlstr:=39。 登陸時(shí)間 =39。39。39。+datetimetostr()+39。39。39。 and 登陸時(shí)間=39。39。39。+datetimetostr()+39。39。39。39。 //判斷用戶輸入或