【正文】 8,訂貨管理系統(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。因此，表單在接收到參數(shù)值后根據(jù)參數(shù)值來確定使用哪種功能，其不同點(diǎn)為表單標(biāo)題和 CmdOK 按鈕的初始標(biāo)題。邏輯刪除 PACK amp。 添加用戶表單 添加用戶（ AddUser）表單如圖 14所示。根據(jù)接收參數(shù)值的不同，標(biāo)題會改變，作為產(chǎn)品信息瀏覽時“打印 ”按鈕顯示，作為產(chǎn)品信息選擇時隱藏該按鈕 ,以及“編號”有變化。 $ 編號 ENDIF *—— 如果“產(chǎn)品名稱”文本框非空 IF .NOT. EMPTY(ALLTRIM( .VALUE)) SelTJ=SelTJ + AND 39。該表單是用來瀏覽客戶、選擇客戶的。 + ALLTRIM( .Value) + 39。 + ALLTRIM( .Value)+ 39。產(chǎn)品信息管理表單具有 3種狀態(tài)瀏覽、修改和數(shù)據(jù)表為空。 產(chǎn)品信息管理（ ProductInfo）表單的 ModeControl 方法代碼 : *—— 聲明本地變量，用來接收自定義屬性值 Local BeModify,BeBrowse BeModify= BeBrowse= *—— 控制表單中與數(shù)據(jù)綁定的控件的狀態(tài) .ReadOnly=.NOT. BeModify .ReadOnly=.NOT. BeModify .ReadOnly=.NOT. BeModify 價 .ReadOnly=.NOT. BeModify .ReadOnly=.NOT. BeModify .ReadOnly=.NOT. BeModify .ReadOnly=.NOT. BeModify *—— 控制表單中工具欄及其中按鈕的狀態(tài) =.NOT. BeModify =.NOT. BeModify =.NOT. BeModify =.NOT. BeModify =.NOT. BeModify 28 =.NOT. BeModify *—— 控制表單“命令按鈕工具欄”中“保存”與“取消”按鈕狀態(tài) =BeBrowse =BeBrowse 圖 19 產(chǎn)品信息管理表單 產(chǎn)品信息管理（ ProductInfo）表單的 Init 事件代碼 : *—— 選擇“產(chǎn)品信息”表所在的工作區(qū) SELECT productinfo *—— 清除工作區(qū)中可能存在的 過濾條件 SET FILTER TO *—— 如果“產(chǎn)品信息”表為空 IF EOF() AND BOF() OR RECCOUNT()=0 *—— 表單進(jìn)入“數(shù)據(jù)表為空”狀態(tài) =.T. =.F. =.T. =.T. ELSE *—— 表單進(jìn)入瀏 覽狀態(tài) =.F. =.F. 29 ENDIF *—— 刷新表單 “ 增加 ” 按鈕的 Click 事件代碼 : *—— 保存表單中當(dāng)前記錄號 =RECNO() *—— 增加記錄 SELECT ProductInfo APPEND BLANK *—— 表單進(jìn)入修改狀態(tài) =.T. =.T. *—— 刷新表單 “ 修改 ” 按鈕的 Click 事件代碼 : *—— 保存當(dāng)前記錄號 =RECNO() *—— 表單進(jìn)入修改狀態(tài) =.T. =.T. *—— 刷新表單 “ 刪除 ” 按鈕的 Click 事件代碼 : LOCAL YN *—— 確認(rèn)對話框 YN=Messagebox(確定刪除 ,4+32,訂貨管理系統(tǒng) ) IF YN=6 *—— 刪除記錄 SELECT ProductInfo DELETE 30 PACK *—— 如果刪除記錄后數(shù)據(jù)表為空 IF Eof() AND BOF() OR RECCOUNT()=0 *—— 對話框 Messagebox(數(shù)據(jù)表中已經(jīng)無數(shù)據(jù) ,48,訂貨管理系統(tǒng) ) *—— 表單回到初始狀態(tài) ELSE *—— 如果不為空，則移動記錄指針 If Bof() Skip Else If Eof() SKip1 ENDIF EndIF ENDIF ENDIF *—— 刷新表單 “ 保存 ” 按鈕的 Click 事件代碼 : *—— 聲明本地變量 LOCAL OK,YN *—— 變量賦初值 OK=.T. *—— 進(jìn)行檢測 DO CASE *—— 如果“編號”為空 CASE EMPTY(ALLTRIM( .Value)) MESSAGEBOX(編號不能為空 ,48,訂貨管理系統(tǒng) ) .SetFocus OK=.F. *—— 如果“品名”為空 CASE EMPTY(ALLTRIM( .Value)) MESSAGEBOX(品名不能為空 ,48,訂貨管理系統(tǒng) ) .SetFocus 31 OK=.F. *—— 如果“單位為空” CASE EMPTY(ALLTRIM( .Value)) MESSAGEBOX(單位不能為空 ,48,訂貨管理系統(tǒng) ) .SetFocus OK=.F. *—— 如果“單價”為 0 CASE .Value=0 MESSAGEBOX(單價不能為空 ,48,訂貨管理系統(tǒng) ) .SetFocus OK=.F. EndCase *—— 如果條件檢測通過 IF OK=.T. *—— 確認(rèn)對話框 YN=MESSAGEBOX(確 定保存記錄 ,4+32,訂貨管理系統(tǒng) ) *—— 如果確認(rèn) IF YN=6 *—— 保存記錄 SELECT ProductInfo *—— 試圖保存記錄，如果失敗 IF TABLEUPDATE(.F.)=.F. MESSAGEBOX(編號錯誤 ,48,訂貨管理系統(tǒng) ) .SetFocus Else *—— 保存成功 *—— 回到瀏覽狀態(tài) =.F. =.F. EndIf EndIf ENDIF “ 取消 ” 按鈕的 Click 事件代碼 : *—— 聲時本地變量 32 Local OK *—— 確認(rèn)對話框 YN=MESSAGEBOX(確定取消 ,4+32,訂貨管理系統(tǒng) ) IF YN=6 *—— 取消修改 SELECT ProductInfo TABLEREVERT(.F.) *—— 回到瀏覽狀態(tài) If RECCOUNT()=0 OR EOF() .AND. BOF() Else GO =.F. =.F. ENDIF EndIf 客戶信息管理表單 客戶信息管理（ ClientAdmin）表單如圖 20 所示。 ? 修改狀態(tài)，是指在表單中添加記錄或者修改表單中的已有記錄時，表單中移動記錄工具欄禁用 ，除了“保存”和“取消”按鈕外禁用，表單中與數(shù)據(jù)綁定的文本框中的內(nèi)容都可以編輯。 圖 21 訂貨信息管理表單 訂貨信息管理（ OrderInfo）表單的 ModeControl 方法代碼 : *—— 聲明本地變量存儲屬性值 Local BeModify,BeBrowse BeModify= BeBrowse= *— — 控制中表單與數(shù)據(jù)綁定的控件的狀態(tài) .ReadOnly=.NOT. BeModify * .ReadOnly=.NOT. BeModify .ReadOnly=.NOT. BeModify * .ReadOnly=.NOT. BeModify 37 * .ReadOnly=.NOT. BeModify .ReadOnly=.NOT. BeModify .ReadOnly=.NOT. BeModify .ReadOnly=.NOT. BeModify .ReadOnly=.NOT. BeModify *—— 控制表單中工具欄及其中按鈕的狀態(tài) =.NOT. BeModify =.NOT. BeModify =.NOT. BeModify =.NOT. BeModify =.NOT. BeModify =.NOT. BeModify =BeBrowse =BeBrowse *—— 控制表單中選擇按鈕的狀態(tài) =BeBrowse =BeBrowse =BeBrowse 訂貨信息管理（ OrderInfo）表單的 Init 事件代碼 : *—— 選擇“訂貨信息”表所在的工作區(qū) Select orderinfo *—— 清除“訂貨信息”表所在的工作區(qū)中可能存在過濾條件 SET FILTER TO *—— 判斷“訂貨信息”表是否為空 *—— 如果為空 IF EOF() .AND. BOF() OR RECCOUNT()=0 =.T. =.F. =.T. =.T. ELSE *—— 如果不為空 =.F. =.F. 38 ENDIF *—— 刷新表單 “ 增加 ” 按鈕的 Click 事件代碼 : *—— 選擇“訂貨信息”表所在的工作區(qū) SELECT orderi