【文章內(nèi)容簡介】 IC\39。,2 ??CHR(7) “進入”按鈕的 Click 事件代碼 : *調(diào)用“ Mainform”表單 DO FORM Mainform *退出“ logo”表單 () 修改密碼表單 修改密碼（ SetPass）表單如圖 11 所示。該表單是用來更改當(dāng)前登錄用戶的密碼。 圖 11 修改密碼表單 “確定”按鈕的 Click 事件代碼 : *—— 聲明本地變量，記錄表單中輸入情況 LOCAL OK *—— 默認(rèn)是輸入無誤 OK=.T. *—— 比較方式為精確比較 SET EXACT ON *—— 檢測表單中數(shù)據(jù)輸入情況 14 DO CASE *—— 如果新密碼為空 CASE EMPTY(ALLTRIM( .VALUE)) .AND. EMPTY(ALLTRIM(確認(rèn)密碼 .VALUE)) MESSAGEBOX(新密碼不能為空 ,48,訂貨管理系統(tǒng) ) .SETFOCUS OK=.F. *—— 如果新密碼與確認(rèn)密碼不一致 CASE ALLTRIM( 新密碼 .VALUE) ALLTRIM( 確認(rèn)密碼 .VALUE) MESSAGEBOX(新密碼與確認(rèn)密碼不一致 ,48,訂貨管理系統(tǒng) ) .SETFOCUS OK=.F. ENDCASE *—— 如果輸入無誤 IF OK=.T. *—— 檢測原密碼輸入情況 SELECT USERINFO LOCATE FOR ALLTRIM(賬號 )=ALLTRIM(cuser) .AND. ALLTRIM(密碼 )=ALLTRIM(原密碼 .VALUE) *—— 如果輸入正確 IF FOUND() LOCAL NewPass NewPass=ALLTRIM( .VALUE) UPDATE USERINFO SET 密碼 =NewPass amp。amp。修改密碼 MESSAGEBOX(修改成功 ,64,訂貨管理 系統(tǒng) ) ELSE *—— 如果原密碼錯誤 MESSAGEBOX(原密碼錯誤 ,48,訂貨管理系統(tǒng) ) .SETFOCUS ENDIF ENDIF *—— 改為模糊比較 SET EXACT OFF 15 修改和刪除用戶表單 修改用戶和刪除用戶（ SetUser）表單如圖 1圖 13所示。修改用戶和刪除用戶功能是使用一個表單來完成的。因此，表單在接收到參數(shù)值后根據(jù)參數(shù)值來確定使用哪種功能，其不同點為表單標(biāo)題和 CmdOK 按鈕的初始標(biāo)題。 CmdOK按鈕有 3 種標(biāo)題修改、確定和刪除。 圖 12 修改用戶表單 修改用戶和刪除用戶（ SetUser）表單的 Init 事件代碼 : *—— 聲明參數(shù)，用來接收執(zhí)行參數(shù) PARAMETERS cFormMode *—— 將接到的參數(shù)值保存到表單屬性中 =cFormMode *—— 如果參數(shù)值為“ cModify” IF =cModify *—— 表單作為“修改用戶”表單 .Width=200 =修改 ELSE *—— 表單作為“刪除用戶”表單 .Width=200 =刪除 =刪除用戶 ENDIF *—— 表單進入瀏覽狀態(tài) 16 =.F. *—— 刷新表單 “ CmdOK” 按鈕的 Click 事件代碼 : *—— 當(dāng)“確定”按鈕的標(biāo)題為“修改”時，如果單擊該按鈕 IF =修改 *—— 表單進入修改狀態(tài) =.T. *—— 顯示“確認(rèn)密碼”文本框 .Width=200 *—— 修改“確定”按鈕標(biāo)題為“確定” =確定 *—— 修改“退出”按鈕標(biāo)題為“取消” =取消 *—— 清除“密碼”與“確認(rèn)密碼”文本框中的內(nèi)容 .Value= .Value= *—— 刷新表單 ELSE *—— 當(dāng)“確定”按鈕標(biāo)題為“確定”時，如果單擊該按鈕 IF =確定 *—— 檢測表單中的數(shù)據(jù)輸入情況 LOCAL OK OK=.T. DO CASE *—— 如果密碼與確認(rèn)密碼為空 CASE EMPTY(ALLTRIM( 密碼 .VALUE)) .AND. EMPTY(ALLTRIM(確認(rèn)密碼 .VALUE)) MESSAGEBOX(新密碼不能為空 ,48,訂貨管理系統(tǒng) ) OK=.F. .SETFOCUS *—— 如果密碼與確認(rèn)密碼不一致 CASE ALLTRIM( .VALUE)ALLTRIM( .VALUE) 17 MESSAGEBOX(密碼與確認(rèn)密碼不一致 ,48,訂貨管理系統(tǒng) ) OK=.F. .SETFOCUS *—— 如果修改的是當(dāng)前用戶，而且取消了當(dāng)前用戶的賬號管理權(quán)限 CASE ALLTRIM( .DisplayValue)=Cuser .AND. 賬號管理 .Value=.F. MESSAGEBOX(你不能取消當(dāng)前用戶的賬號管理功能 ,48,訂貨管理系統(tǒng) ) .Value=.T. .SETFOCUS OK=.F. ENDCASE *—— 如果表單中數(shù)據(jù)輸入無誤 IF OK=.T. *—— 更新數(shù)據(jù)表中的數(shù)據(jù) TABLEUPDATE(.F.) MESSAGEBOX(用戶信息修改成功 ,64,訂貨管理系統(tǒng) ) *—— 表單進入瀏覽狀態(tài) =.F. *—— 隱藏確認(rèn)密碼文本框 .Width=200 *—— 修改“確定”按鈕標(biāo)題為“修改 ” =修改 *—— 修改“退出”按鈕標(biāo)題為“退出” =退出 *—— 刷新表單 ENDIF ELSE *—— 當(dāng)“確定”按鈕的標(biāo)題為“刪除” IF =刪除 *—— 確認(rèn)對話框 YN=MESSAGEBOX(確認(rèn)刪除 ,4+32,訂貨管理系統(tǒng) ) IF YN=6 *—— 如果要刪除的用戶為默認(rèn)的用 戶管理員 IF ALLTRIM( .Value)=sysadmin MESSAGEBOX(不能刪除默認(rèn)的用戶管理員 ,48,訂貨管理系統(tǒng) ) Return 18 ENDIF *—— 如果要刪除的用戶為當(dāng)前登錄用戶 IF ALLTRIM( .Value)=ALLTRIM(cuser) MESSAGEBOX(不能刪除當(dāng)前登錄用戶 ,48,訂貨管理系統(tǒng) ) Return ENDIF *—— 如果用戶可以刪除 SELECT USERINFO DELETE amp。amp。邏輯刪除 PACK amp。amp。物理刪除 *—— 移動記錄指針 IF BOF() SKIP ELSE SKIP1 ENDIF *—— 刷新表單 ENDIF ENDIF ENDIF ENDIF 圖 13 刪除用戶表單 19 在修改狀態(tài)下姓名、部門可以編輯，確認(rèn)密碼框顯示并可以編輯，賬號管理復(fù)選框啟用。 作為刪除用戶表單，默認(rèn)的管理員“ sysadmin”不能被刪除，當(dāng)前登錄用戶也不能被刪除。 添加用戶表單 添加用戶（ AddUser）表單如圖 14所示。該表單是用來添加新的賬號。 “確定”按鈕的 Click 事件代碼 : *—— 聲明本地變量，儲存表單中各數(shù)據(jù)項中的數(shù)據(jù)是否正確 LOCAL OK *—— 本地變量的默認(rèn)值為“ .T.” OK=.T. *—— 精確比較 SET EXACT ON *—— 進入數(shù)據(jù)檢查 DO CASE *—— 如果“賬號”欄為空 CASE EMPTY( .VALUE) MESSAGEBOX(用戶名不能為空 ,48,訂貨管理系統(tǒng) ) .SetFocus OK=.F. *—— 如果“姓名”欄為空 CASE EMPTY( .Value) MESSAGEBOX(姓名不能為空 ,48,訂貨管理系統(tǒng) ) .SetFocus OK=.F. *—— 如果“密碼”欄為空 CASE EMPTY(ALLTRIM( 密碼 .Value)) .AND. EMPTY(ALLTRIM(確認(rèn)密碼 .VALUE)) MESSAGEBOX(密碼不能為空 ,48,訂貨管理系統(tǒng) ) .SetFocus OK=.F. *—— 如果兩次密碼不一致 CASE ALLTRIM( .Value) ALLTRIM( .VALUE) MESSAGEBOX(密碼與確認(rèn)密碼不一致 ,48,訂貨管理系統(tǒng) ) 20 .SetFocus OK=.F. ENDCASE *—— 如果檢測無誤 IF OK=.T. *—— 檢測添加的賬號名稱是否存在 LOCAL sUser,cName,cPart,cPass,nNum sUser=ALLTRIM( .Value) SELECT Userinfo Count FOR 賬號 =sUser TO nNum *—— 如果存在 IF nNum0 MESSAGEBOX(要添加的賬號已經(jīng)存在 ,48,訂貨管理系統(tǒng) ) .Value= .Setfocus ELSE *—— 如果不存在 *—— 獲取表單中各數(shù)據(jù)項的值 cName=ALLTRIM( .Value) cPart=ALLTRIM( .Value) cPass=ALLTRIM( .Value) IF .Value=1 bAdmin=.T. ELSE bAdmin=.F. ENDIF *—— 確定對話框 YN=MESSAGEBOX(確定保存 ,4+32,訂貨管理系統(tǒng) ) *—— 如果確認(rèn) IF YN=6 *—— 添加記錄 INSERT INTO USERINFO VALUES (sUser,cPass,cName,cPart,bAdmin) *—— 對話框 MESSAGEBOX(添加成功 ,64,訂貨管理系統(tǒng) ) *—— 退出表單 ENDIF ENDIF 21 ENDIF *—— 模糊比較 SET EXACT OFF 圖 14 添加用戶表單 第 5 章 信息瀏覽管理模塊 信息瀏覽模塊包括產(chǎn)品信息瀏覽和客戶信息瀏覽兩個表單，同時還是信息選擇表單，根據(jù)接收參數(shù)值的不同來確定使用表單的哪種功能 . 產(chǎn)品信息瀏覽 表單 產(chǎn)品信息瀏覽（ ProSelect）表單如圖 15 所示。該表單是用來瀏覽產(chǎn)品、選擇產(chǎn)品的。根據(jù)接收參數(shù)值的不同，標(biāo)題會改變，作為產(chǎn)品信息瀏覽時“打印 ”按鈕顯示，作為產(chǎn)品信息選擇時隱藏該按鈕 ,以及“編號”有變化。 產(chǎn)品信息瀏覽（ ProSelect）表單的 Init 事件代碼 : *—— 聲明參數(shù)，用來接收運行參數(shù) PARAMETERS cFormMode *— — 使用屬性接收參數(shù)值 =cFormMode *