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

　　

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