【導(dǎo)讀】以便對自己的同學(xué)、同事、朋友等信息資料的管理及使用。此設(shè)計具有很強的實用性，使用者只要根據(jù)具體情況稍加修。改，就可以把它應(yīng)用到實際需要中。設(shè)計利用、MicrosoftAccess數(shù)據(jù)庫技術(shù)的基本特點，提高了編成效率和。信息也逐漸增多。以前是將這些信息手寫到通訊錄中，這很容易造成信息的丟失，而且查找起來。模塊，通訊錄數(shù)據(jù)管理模塊，信息管理模塊，登錄信息查詢模塊。取很多類型的數(shù)據(jù)庫，如Access,InterBase等數(shù)據(jù)庫，鑒于其開發(fā)軟件時設(shè)置的困難及軟件發(fā)布。時附帶的文件容量太大，故使用微軟的數(shù)據(jù)庫操作引擎ADO；

　　

【正文】 inence。 addrecord:integer。 m_yhmc:string。 聲明窗體級函數(shù)和過程 的代碼如下： .定義窗體級函數(shù)的過程 （ 1） setbuttons 過程 setbuttons 過程的作用是根據(jù)命令按鈕的狀態(tài)設(shè)置窗體中的組件、命令按鈕的狀態(tài)和屬性。 在 setbuttons 過程中，首先設(shè)置窗體中與用 戶名稱、密碼、用戶權(quán)限和所屬用戶組對應(yīng)的 TDBComboBox 組件的 Enabled 屬性，然后設(shè)置 cmdadd、 cmdmodi、 cmddel和 cmdquie 等按鈕的狀態(tài)，即這些按鈕的 Enabled 屬性，最后設(shè)置 cmdquit 按鈕的標(biāo)題。 Setbuttons 過程的代碼如下： procedure (bval:boolean)。 begin //設(shè)置 cmdadd 按鈕的狀態(tài) :=bval。 :=bval。 :=bval。 :=bval。 :=bval。 :=bval。 33 :=bval。 ////設(shè)置 cmdstore 等按鈕的狀態(tài) :=not bval。 //設(shè)置 cmdquit 按鈕的標(biāo)題 if =39。退出 39。 then :=39。取消 39。 else :=39。退出 39。 //設(shè)置窗口中與用戶名稱對應(yīng)的 TDBComboBox 組件的的 Enabled 屬性 :=not bval。 //設(shè)置窗口中與密碼對應(yīng)的 TDBComboBox 組件的的 Enabled 屬性 :=not bval。 //設(shè)置窗口中與用戶權(quán)限對應(yīng)的 TDBComboBox 組件的的 Enabled 屬性 :=not bval。 end。 （ 2） storeuser 函數(shù) storeuser 函數(shù)的主要作用是檢驗用戶輸入的 數(shù)據(jù)是否滿足系統(tǒng)的要求，并完成登錄用戶信息記錄的存儲。 在該函數(shù)中，首先判斷輸入的用戶名稱、密碼、用戶權(quán)限和所屬的用戶組是否為空。如果為空，給出相應(yīng)的提示，并要求重新輸入。接著判斷用戶表中是否存在輸入的用戶名稱，如果存在，就提示“已經(jīng)存在”，并要求重新輸入。最后設(shè)置 storeuser函數(shù)的返回值。 Storeuser 函數(shù)的代碼如下： function ():boolean。 var note:array[1..5] of string。 begin result:=false。 note[1]:=39。用戶名不能為空！ 39。 note[2]:=39。用戶權(quán)限不能為空！ 39。 note[3]:=39。用戶權(quán)限選擇不正確！ 39。 note[4]:=39。此用戶名已經(jīng)存在！ 39。 //判斷輸入的用戶名是否為空 if =39。39。 then begin //輸入的用戶名為空，給出提示 用戶名不能為空！ 34 showmessage(note[1])。 //將光標(biāo)定位在 boxname 組件，要求重新輸入 。 exit。 end。 //判斷輸入的用戶權(quán)限是否為空 if =39。39。 then begin showmessage(note[2])。 。 exit。 end。 //判斷輸入的用戶權(quán)限是否符合要求 if (39。管理員 39。) and (39。組長 39。) and (39。一般人員 39。) then begin showmessage(note[3])。 。 exit。 end。 ////根據(jù)當(dāng)前的操作狀態(tài)設(shè)置 ADODataSet_Users2 的 CommandText 屬性 if addrecord=1 then begin 。 :=39。select * from 用戶 where 用戶名 =39。39。39。+ +39。39。39。39。 。 end else if m_yhmc= then begin result:=true。 exit。 end else begin 35 。 :=39。select * from 用戶 where 用戶名 =39。39。39。+ +39。39。39。39。 。 end。 //判斷輸入的用戶名在用戶表中是否存在。 if not then begin //輸入的用戶名在用戶表中已經(jīng)存在，提示 該用戶名稱已經(jīng)存在！ showmessage(note[4])。 。 exit。 end。 //設(shè)置返回值 result:=true。 end。 處理“添加”按鈕的 Click 事件 單擊“添加”按鈕，則觸發(fā)“添加”按鈕的 Click 事件。 “添加”按鈕對應(yīng)的事件代碼的作用是初始 化添加窗體中的數(shù)據(jù)組件和設(shè)置這些數(shù)據(jù)組件及命令按鈕的狀態(tài)。 在“添加”按鈕對應(yīng)的事件代碼中首先記錄當(dāng)前的操作類型，接著 調(diào)用 setbuttons 過程設(shè)置所有數(shù)據(jù)組件和命令按鈕的顯示狀態(tài)，再接著將光標(biāo)定位在用戶名稱對應(yīng)得組合 框 中 ， 最 后 將 當(dāng) 前 的 操 作 狀 態(tài) 設(shè) 置 為 添 加 狀 態(tài) ， 即 執(zhí) 行 語句。 代碼如下： procedure (Sender: TObject)。 begin //記錄當(dāng)前的操作類型 addrecord:=1。 //調(diào)用 setbuttons 過程設(shè)置所有數(shù)據(jù)組件和命令按鈕的顯示狀態(tài) setbuttons(false)。 //將光標(biāo)定位在與用戶名稱對應(yīng)的組合框中 。 //將當(dāng)前的操作狀態(tài)設(shè)置為添加狀態(tài) 。 end。 處理“修改”按鈕的 Click 事件 36 單擊“修改”按鈕，則觸發(fā)“修改”按鈕的 Click 事 件。 “修改”按鈕對應(yīng)得事件代碼 的作用是 記錄當(dāng)前欲修改記錄的用戶名稱和設(shè)置著這些數(shù)據(jù)組件及命令按鈕的狀態(tài)。 在“修改”按鈕對應(yīng)得事件代碼中 首先記錄當(dāng)前的操類型，然后記錄當(dāng)前欲修改記錄的用戶名稱，接著調(diào)用 setbuttons 過程來設(shè)置所有數(shù)據(jù)組件和命令按鈕的顯示狀態(tài)，再接著將光標(biāo)定位在與用戶名稱對應(yīng) 的 組合框中 ，最后將當(dāng)前的操作裝態(tài)設(shè)置為修改狀態(tài)，即執(zhí)行 語句。代碼如下： procedure (Sender: TObject)。 begin //記錄當(dāng)前的操作類型 addrecord:=2。 //記錄當(dāng)前記錄的用戶名稱 m_yhmc:=。 //調(diào)用 setbuttons 過程設(shè)置所有數(shù)據(jù)組件和命令按鈕的顯示狀態(tài) setbuttons(false)。 //將光標(biāo)定位在與用戶名稱對應(yīng)的組合框中 。 // 將當(dāng)前的操作狀態(tài)設(shè)置為修改狀態(tài) 。 end。 處理“保存”按鈕的 Click 事件 單擊“保存”按鈕，則觸發(fā)“ 保存”按鈕的 Click 事件。 “保存”按鈕對應(yīng)得事件代碼的作用是檢測用戶輸入數(shù)據(jù)的合法性，并根據(jù)檢測的結(jié)果存儲數(shù)據(jù)。 在“保存”按鈕對應(yīng)得事件代碼中首先調(diào)用 storeuser 函數(shù)檢測用戶輸入數(shù)據(jù)的合法性，如果用戶輸入的數(shù)據(jù)合乎要求，則接著保存添加或修改的記錄， 即 執(zhí)行 語句 ，最后調(diào)用 setbuttons 過程設(shè)置所有數(shù)據(jù)組件和命令按鈕的顯示狀態(tài) 。代碼如下： procedure (Sender: TObject)。 begin //調(diào)用 storeuser 函數(shù)檢測用戶輸入數(shù)據(jù)的合法性 if storeuser=true then //用戶輸入的數(shù)據(jù)合乎要求 begin //保存添加或修改的記錄 。 37 //調(diào)用 setbuttons 過程設(shè)置所有數(shù)據(jù)組件和命令按鈕的顯示狀態(tài) setbuttons(true)。 end。 end。 處理“查詢”按鈕的 Click 事件 單擊“查詢”按鈕，則觸發(fā)“查詢”按鈕的 Click 事件。 “查詢”按鈕對應(yīng)得事件代碼的作用是 在用戶表中查詢符合用戶輸入條件的記錄，并顯示出該條記錄的詳細(xì)內(nèi)容。 代碼如下： procedure (Sender: TObject)。 var //定義記錄用戶輸入數(shù)據(jù)的字符串變量 inputstring:string。 begin //彈出數(shù)據(jù)輸入窗口 ,要求用戶輸入欲查詢的用戶名稱 InputString:= InputBox(39。輸入數(shù)據(jù) 39。, 39。請輸入要查詢的用戶名稱 39。, 39。39。)。 //判斷用戶輸入的查詢條件是否為空 if InputString=39。39。 then exit。 //設(shè)置數(shù)據(jù)集組件 ADODataSet_Users 的 filter 屬性，以找到用戶名稱等于用戶輸入的用戶名稱的記錄 :=39。用戶名 =39。39。39。+inputstring+39。39。39。39。 //判斷是否找到符合條件的記錄 if then //沒有找到符合條件的記錄 begin //給出提示 showmessage(39。沒有該用戶！ 39。)。 // 重新設(shè)置數(shù)據(jù)集組件 ADODataSet_Users 的 filter 屬性，以顯示所有記錄 :=39。用戶名 39。39。 39。39。39。 exit。 end。 end。 在“查詢”按鈕對應(yīng)的事件代碼中，首先 將定義記錄用戶輸入數(shù)據(jù)的字符串變量，然后彈出如圖 19 所示的數(shù)據(jù)輸入窗體，要求用戶輸入欲查詢的數(shù)據(jù)，接著判斷用戶輸入的查詢條件是否為空，如果輸入的查詢條件不為空，再接著設(shè)置 數(shù)據(jù)集組建 38 ADODataSet_Users 的 filter 屬性，以找到憑證號碼等于用戶輸 入的憑證號碼的記錄，最后判斷是否找到符合條件記錄。如果沒有找到，給出提示，并重新設(shè)置數(shù)據(jù)集組件ADODataSet_Users 的 filter 屬性，以顯示所有記錄。 圖： “顯示所有記錄”按鈕的 Click 事件 單擊“顯示所有記錄”按鈕，則觸發(fā)“顯示所有記錄”按鈕的 click 事件。 “顯示所有記錄”按鈕對應(yīng)的事件代碼的作用是重新設(shè)置數(shù)據(jù)集組件ASDODataSet_Users 的 filter 屬性，在 TBGrid 網(wǎng)格組件中顯示所有記錄。 “顯示所有記錄”按鈕對應(yīng)的事件代碼如下： procedure (Sender: TObject)。 begin :=39。用戶名 39。39。 39。39。39。 end。 “刪除”按鈕的 Click 事件 單擊“刪除”按鈕，則觸發(fā)“刪除”按鈕的 Click 事件。 “刪除”按鈕對應(yīng)的事件代碼的作用事刪除當(dāng)前記錄。 在“刪除”按鈕對應(yīng)的事件代碼中，將彈出如圖 420 所述的信息提示框，讓用戶確認(rèn)是否刪除當(dāng)前記錄，如果用戶確認(rèn)刪除當(dāng)前記錄，則刪除當(dāng)前記錄。 “刪除”按鈕對應(yīng)的事事件代碼 如下： procedure (Sender: TObject)。 begin //彈出提示框，確認(rèn)用戶是否刪除當(dāng)前記錄 if MessageDlg(39。您確認(rèn)要刪除這條記錄嗎 ?39。,mtInformation,[mbYes,mbNo],0)=mrYes THEN //刪除當(dāng)前記錄 end。 “上一條”按鈕的 Click 事件 單擊“上一條”按鈕，則觸發(fā)“上一條”按鈕的 Click 事件。 “上一 條”按鈕對應(yīng)的事件代碼的作用是將當(dāng)前的記錄指針一定到當(dāng)前記錄的上 39 一條記錄，并顯示出該條記錄的詳細(xì)內(nèi)容。 在“上一條”按鈕對應(yīng)的事件代碼中，首先將當(dāng)前的記錄指針移動到當(dāng)前記錄的上一條記錄，然后判斷當(dāng)前的記錄指針是否在表頭，如果在表頭，就給出如圖 421所示的提示框。 “上一條”按鈕對應(yīng)的事件代碼如下： procedure (Sender: TObject)。 begin //將當(dāng)前的記錄指針移動到當(dāng)前記錄的上一條記錄 (1)。 //判斷當(dāng)前的記錄指針是否在表頭 if then begin //當(dāng)前的記錄指針在表頭，給出相應(yīng)的提示 showmessage(39。這是第一條記錄！ 39。)。 end。 end。 “下一條”按鈕的 Click 事件 單擊“下一條”按鈕，則觸發(fā)“