【正文】 23 begin ([iCount].FieldName)。 begin search。 登錄信息查詢(xún)子模塊 當(dāng)在系統(tǒng)主菜單中選擇“ 登錄信息查詢(xún) ” 后，或者在 PgCtrl_ShortCut 組件中單擊“登錄信息”后，將進(jìn)入通訊錄的登錄 信息查詢(xún)子模塊。 登陸時(shí)間 =39。39。 and 用戶(hù)名 =39。 //判斷是否有符合條件的記錄 if then begin //沒(méi)有符合條件的記錄，給出提 示 showmessage(39。39。 //設(shè)置登陸時(shí)間為‘ 2021101‘ :=strtodate(39。39。 ? 如果用戶(hù)選擇的是“修改”按鈕，則首先將數(shù)據(jù)集組件 ADOQuerymessage置于修改狀態(tài)，然后將光標(biāo)定位在發(fā)送人對(duì)應(yīng)的數(shù)據(jù)控件中，以方便用戶(hù)輸入，最后設(shè)置命令按鈕和數(shù)據(jù)控件的狀態(tài)，要求用戶(hù)輸入信息的發(fā)送人、接收人、發(fā)送時(shí)間和信息內(nèi)容。 39。 end else if =39。 28 exit。 //判斷用戶(hù)輸入發(fā)送人的姓名是否為空 if InputString=39。%39。39。 //用戶(hù)單擊的“添加”或“修改”按鈕 :=true。 //移到當(dāng)前記錄的下一條記錄上 (1)。 //設(shè)置 DBEditcontent 數(shù)據(jù)控件的狀態(tài) :=true。)。 //設(shè)置 dbsendname 數(shù)據(jù)控件的狀態(tài) :=false。 //設(shè)置命令按鈕和數(shù)據(jù)控件的顯示狀態(tài) :=true。 窗體界 面的設(shè)計(jì) 在工程中添加一個(gè)窗體，命名為 frm_UserMatainence。 （ 7）當(dāng)單擊“上一條”按鈕時(shí)，則將在窗體中顯示當(dāng)前記錄的上一條記錄的內(nèi)容。 Setbuttons 過(guò)程的代碼如下： procedure (bval:boolean)。 ////設(shè)置 cmdstore 等按鈕的狀態(tài) :=not bval。 //設(shè)置窗口中與密碼對(duì)應(yīng)的 TDBComboBox 組件的的 Enabled 屬性 :=not bval。 Storeuser 函數(shù)的代碼如下： function ():boolean。用戶(hù)權(quán)限選擇不正確！ 39。 end。管理員 39。 end。39。39。 //判斷輸入的用戶(hù)名在用戶(hù)表中是否存在。 “添加”按鈕對(duì)應(yīng)的事件代碼的作用是初始 化添加窗體中的數(shù)據(jù)組件和設(shè)置這些數(shù)據(jù)組件及命令按鈕的狀態(tài)。 處理“修改”按鈕的 Click 事件 36 單擊“修改”按鈕，則觸發(fā)“修改”按鈕的 Click 事 件。 // 將當(dāng)前的操作狀態(tài)設(shè)置為修改狀態(tài) 。 end。, 39。 //設(shè)置數(shù)據(jù)集組件 ADODataSet_Users 的 filter 屬性，以找到用戶(hù)名稱(chēng)等于用戶(hù)輸入的用戶(hù)名稱(chēng)的記錄 :=39。 //判斷是否找到符合條件的記錄 if then //沒(méi)有找到符合條件的記錄 begin //給出提示 showmessage(39。39。 “顯示所有記錄”按鈕對(duì)應(yīng)的事件代碼如下： procedure (Sender: TObject)。 “刪除”按鈕的 Click 事件 單擊“刪除”按鈕，則觸發(fā)“刪除”按鈕的 Click 事件。 “上一 條”按鈕對(duì)應(yīng)的事件代碼的作用是將當(dāng)前的記錄指針一定到當(dāng)前記錄的上 39 一條記錄，并顯示出該條記錄的詳細(xì)內(nèi)容。 end。 //判斷當(dāng)前的記錄指針是否在表頭 if then begin //當(dāng)前的記錄指針在表頭，給出相應(yīng)的提示 showmessage(39。 begin //彈出提示框，確認(rèn)用戶(hù)是否刪除當(dāng)前記錄 if MessageDlg(39。 39。 在“查詢(xún)”按鈕對(duì)應(yīng)的事件代碼中，首先 將定義記錄用戶(hù)輸入數(shù)據(jù)的字符串變量，然后彈出如圖 19 所示的數(shù)據(jù)輸入窗體，要求用戶(hù)輸入欲查詢(xún)的數(shù)據(jù)，接著判斷用戶(hù)輸入的查詢(xún)條件是否為空，如果輸入的查詢(xún)條件不為空，再接著設(shè)置 數(shù)據(jù)集組建 38 ADODataSet_Users 的 filter 屬性，以找到憑證號(hào)碼等于用戶(hù)輸 入的憑證號(hào)碼的記錄，最后判斷是否找到符合條件記錄。用戶(hù)名 39。+inputstring+39。)。 代碼如下： procedure (Sender: TObject)。 在“保存”按鈕對(duì)應(yīng)得事件代碼中首先調(diào)用 storeuser 函數(shù)檢測(cè)用戶(hù)輸入數(shù)據(jù)的合法性，如果用戶(hù)輸入的數(shù)據(jù)合乎要求，則接著保存添加或修改的記錄， 即 執(zhí)行 語(yǔ)句 ，最后調(diào)用 setbuttons 過(guò)程設(shè)置所有數(shù)據(jù)組件和命令按鈕的顯示狀態(tài) 。 begin //記錄當(dāng)前的操作類(lèi)型 addrecord:=2。 //調(diào)用 setbuttons 過(guò)程設(shè)置所有數(shù)據(jù)組件和命令按鈕的顯示狀態(tài) setbuttons(false)。 end。39。 exit。39。一般人員 39。 。39。用戶(hù)名不能為空！ 39。 在該函數(shù)中，首先判斷輸入的用戶(hù)名稱(chēng)、密碼、用戶(hù)權(quán)限和所屬的用戶(hù)組是否為空。取消 39。 :=bval。 addrecord:integer。 （ 3）當(dāng)單擊“取消”按鈕時(shí)，則將取消剛才的輸入，把窗體中除“添加”按鈕或“修改”按鈕和“退出”按鈕外的所有組件的 Enabled 屬性設(shè)為 false，并把“添加”按鈕和“退出”按鈕的 Enabled 屬性設(shè)為 true。 :=false。 處理“取消”按鈕的 Click 事件 “取消”按鈕的 Click 事件的代碼的主要作用是取消用戶(hù)對(duì)信息的添加和修改。 //保存用戶(hù)添加或修改的記錄 。 處理“保存”按鈕的 Click 事件的代碼如下： procedure (Sender: TObject)。 //設(shè)置取消按鈕的狀態(tài) :=true。).AsString,Sender)。 exit。沒(méi)有該用戶(hù)！ 39。發(fā)送人 like 39。請(qǐng)輸入要發(fā)送人的名稱(chēng) 39。 //將光標(biāo)定位在發(fā)送人對(duì)應(yīng)的數(shù)據(jù)控件中 。添加 39。 var InputString:string。在該子模塊中，登錄用戶(hù)可以給同學(xué)留言，也可以查詢(xún) 、修改和刪除留言。 //重新設(shè)置數(shù)據(jù)集組件 ADODataSet_login 的 Filter 屬性，使其返回所有記錄 :=39。 在該事件的代碼中，首先清空登錄用戶(hù)對(duì)應(yīng)的組合框中的內(nèi)容，然后設(shè)置登錄事件和退出時(shí)間，最后重新設(shè)置數(shù)據(jù)集組件 ADOQuerylogin 的 Ftlter 屬性，使其返回所有記錄。用戶(hù)名 =39。39。39。39。 在該事件的代碼中，首先判斷用戶(hù)輸入或選擇的登錄用戶(hù)名是否為空，如果不為空，則接著設(shè)置查詢(xún)字符串，然后設(shè)置數(shù)據(jù)集組件 ADOQuerylogin 的 Filter 屬性，使其返回符合查詢(xún)字符串條件的記錄，最后判斷是否有符合條件的記錄，如果沒(méi)有符合條件的記錄，則給出提示，并重新設(shè)置數(shù)據(jù)集組件 ADOQuerylogin 的 Filter 屬性 ，使其 返回記錄。 “顯示所有”按鈕的 Click 事件 主要用顯示“同學(xué)“表中的信息，它調(diào)用模塊級(jí)過(guò)程 DisplayAllRecorders。 //設(shè)置表單剛出現(xiàn)時(shí) ComboBox 的值為第一個(gè) end。 模塊級(jí)過(guò)程 filldata 的主要作用的來(lái)調(diào)用 ADOQueryclass 的記錄。39。 //清空 ADOQuery 中的 SQL 值 (39。 //要查找的字段名 SearchValue: string。)。 該模塊主要用于統(tǒng)計(jì)通訊錄中具有相同條件的記錄的個(gè)數(shù)。 for i:=1 to do begin [row,column]:= [i1].AsString。 :=39。 var i,row,column:integer。 begin if MessageDlg(39。 Caption = 39。 Caption = 39。 該子模塊對(duì)應(yīng)得 frm_mian 窗體界面設(shè)計(jì)如圖： 處 理“選擇圖像”按鈕的 Click 事件 “選擇圖像”按鈕的 Click 事件對(duì)應(yīng)的代碼主要作用是為正在添加 或修改的同學(xué)記錄中的照片字段選擇一幅圖像。對(duì)于不同身 17 份的登錄用戶(hù)（管理員、組長(zhǎng) 和 一般人員），主窗體中的主菜單顯示不同的菜單項(xiàng)，并且 PgCtrl_ShortCut 和 PgCtrl_Mainpulation 組件上也將顯示不同的內(nèi)容。 end。 :=false。 :=true。 := true。 定義窗體級(jí)過(guò)程 clear 的代碼如下： （ 3）窗體級(jí)函數(shù) Glogin() 在窗體級(jí)函數(shù) Glogin 的代碼中，首先關(guān)閉數(shù)據(jù)庫(kù)鏈接對(duì)象 ADOConnection,然后設(shè)置對(duì)應(yīng)于用戶(hù)表的數(shù)據(jù)集對(duì)象的 CommmandText 屬性，使該數(shù)據(jù)集包括用戶(hù)名、密碼、用戶(hù)權(quán)限等于用戶(hù)輸入的用戶(hù)名、密碼、用戶(hù)權(quán)限的紀(jì)錄，最后判斷是否有滿(mǎn)足條件的記錄，如果沒(méi)有滿(mǎn)足條件的記錄，返回 false 值，如果有滿(mǎn)足條件的記錄，返回 true 值。 編寫(xiě)窗體代碼 1. 模塊級(jí)變量的聲明 聲明窗體級(jí)變量 username、 userright、 usergroup 和 user_loginintime,分別記錄登錄用戶(hù)的用戶(hù)名、用戶(hù)權(quán)限、所屬用戶(hù)組和登錄時(shí)間。 該事件代碼的主要作用是根據(jù)當(dāng)前數(shù)據(jù)集組件 ADODataSetclassMate 所處的操作狀態(tài)，采取不同的方式來(lái)保存同學(xué)信息記錄中的出生年月字段和相片字段。 （ 2） 數(shù)據(jù)查詢(xún) 通過(guò)此模塊進(jìn)行通訊錄數(shù)據(jù)的復(fù)雜查詢(xún)。如果添加的用戶(hù)組名和系統(tǒng)登陸用戶(hù)名稱(chēng)重復(fù)，則要對(duì)用戶(hù) 進(jìn)行提示，只有在不重復(fù)的情況下才能夠進(jìn)行用戶(hù)組和系統(tǒng)登陸用戶(hù)記錄的添加。其中主窗體模塊又包括通訊錄數(shù)據(jù)管理子模塊、信息管理子模塊和登陸信息查詢(xún)子模塊，主要的系統(tǒng)模塊如圖 7 所示。 ? 查詢(xún)消息：進(jìn)入信息管理子模塊，查詢(xún)給同學(xué)寫(xiě)的留言。系統(tǒng)會(huì)在用戶(hù)表中驗(yàn)證用戶(hù)輸入或者選擇的信息，如果驗(yàn)證不成功，則給出圖 3 所示的提示信息；如果驗(yàn)證成功，則根據(jù)用戶(hù)的權(quán)限不同進(jìn)入不同的操作界面。以前是將這些信息手寫(xiě)到通訊錄中，這很容易造成信息的丟失，而且查找起來(lái)很不方便。論文 論文題目：通訊錄管理系統(tǒng) 學(xué)號(hào)： 姓名： 教育層次： 專(zhuān)業(yè)名稱(chēng)：計(jì)算機(jī)信息管理 2 目錄 摘要 ……………………………………………………………… 前言 …… ………………………………………………………… 1. 數(shù)據(jù)庫(kù)設(shè)計(jì) …… ……………………………………………… . 表 …… ……………………………………………………… . 主表的結(jié)構(gòu)設(shè)計(jì) …… ……………………………………… . 主表間的關(guān)系設(shè)計(jì) …… …………………………………… . 系統(tǒng)功能設(shè)計(jì) …… ………………………………………… . 系統(tǒng)的運(yùn)行流層 …… …………… ………………………… . 系統(tǒng)的功能模塊 …… ……………………………………… . 窗建數(shù)據(jù)集模塊 …… ………………………………………… . 窗體界面設(shè)計(jì) …… ………………………………………… . 編寫(xiě)創(chuàng)體代碼 …… ………………………………………… . 創(chuàng)建登錄創(chuàng)體模塊 …… ……………………………………… . 窗體界面設(shè)計(jì) …… ………………………………………… . 系統(tǒng)主窗體設(shè)計(jì) …… ……………………………………… . 編寫(xiě)窗體代碼 …… ………………………………………… . 創(chuàng)建主窗體模塊 …… ………………………………………… . 窗體界面的設(shè)計(jì) …… …………………… ………………… . 主窗體（ frm_mian）的工作流程 …… ………………………… . 數(shù)據(jù)更新子模塊 …… ……………………………………… 3 . 數(shù)據(jù)查詢(xún)子模塊 …… ……………………………………… . 數(shù)據(jù)導(dǎo)出報(bào)表子模塊 …… ………………………………… . 數(shù)據(jù)