【正文】 值 OK=.T. *—— 進行檢測 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. *—— 確認對話框 YN=MESSAGEBOX(確 定保存記錄 ,4+32,訂貨管理系統(tǒng) ) *—— 如果確認 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 *—— 確認對話框 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 所示。該表單的主要功能包括瀏覽、增加、修改、刪除和打印客戶信息?？蛻粜畔⒐芾肀韱尉哂?3 種狀態(tài)瀏覽、修改和數(shù)據(jù)表為空。 ? 瀏覽狀態(tài)，表單數(shù)據(jù)環(huán)境中的客戶信息表不為空，“保存”和“取消”按鈕不可用，其它可用，表單中與數(shù)據(jù)綁定的文本框都只讀，數(shù)據(jù)表中記錄的條數(shù)大于 1，表單中移動記錄工具欄可用。 ? 修改狀態(tài)，是指在表單中添加記錄或者修改表單中的已有記錄時，表單中移動記錄工具欄禁用 ，除了“保存”和“取消”按鈕外禁用，表單中與數(shù)據(jù)綁定的文本框中的內(nèi)容都可以編輯。 ? 數(shù)據(jù)表為空狀態(tài)，表單數(shù)據(jù)環(huán)境中的客戶信息表為空，則表單中與數(shù)據(jù)綁定的文本框只讀，移動記錄工具欄禁用，除了“增加”和“退出”按鈕外都禁用。 客戶信息管理（ ClientAdmin）表單的 ModeControl 方法代碼 : *—— 聲明本地變量用來儲存 Local BeModify,BeBrowse 33 BeModify= BeBrowse= *—— 控制中表單與數(shù)據(jù)綁定的控件的狀態(tài) .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 =.NOT. BeModify =BeBrowse =BeBrowse 客戶信息管理（ ClientAdmin）表單的 Init 事件代碼 : *—— 選擇“客戶信息”表所在的工作區(qū) SELECT ClientInfo *—— 清除工作區(qū)中可能存在的過濾條件 SET FILTER TO *—— 如果“客 戶信息”表中記錄為空 IF EOF() AND BOF() OR RECCOUNT()=0 =.T. =.F. =.T. =.T. ELSE =.F. =.F. ENDIF *—— 刷新表單 34 “ 增加 ” 按鈕的 Click 事件代碼 : （略，詳見產(chǎn)品信息管理 “ 增加 ” 按鈕的 Click 事件代碼） “ 修改 ” 按鈕的 Click 事件代碼 : （略，詳見產(chǎn)品信息管理 “ 修改 ” 按鈕的 Click 事件代碼） “ 刪除 ” 按鈕的 Click 事件代碼 : （略，詳見產(chǎn)品信息管理 “ 刪除 ” 按鈕的 Click 事件代碼） 圖 20 客戶信息管理表單 “ 保存 ” 按鈕的 Click 事件代碼 : *—— 聲明本地變量 LOCAL OK,YN *—— 默認數(shù)據(jù)檢測通過 OK=.T. *—— 進入數(shù)據(jù)檢測 DO CASE *—— 如果“編號”為空 CASE EMPTY(ALLTRIM( .Value)) MESSAGEBOX(編號不能為空 ,48,訂貨管理系統(tǒng) ) .SetFocus OK=.F. *—— 如果“名稱”為空 CASE EMPTY(ALLTRIM( .Value)) 35 MESSAGEBOX(客戶名稱不能為空 ,48,訂貨管理系統(tǒng) ) .SetFocus OK=.F. *—— 如果“聯(lián)系人”為空 CASE EMPTY(ALLTRIM( .Value)) MESSAGEBOX(聯(lián)系人不能為 空 ,48,訂貨管理系統(tǒng) ) .SetFocus OK=.F. *—— 如果“電話”為空 CASE EMPTY(ALLTRIM( .Value)) MESSAGEBOX(電話不能為空 ,48,訂貨管理系統(tǒng) ) .SetFocus OK=.F. EndCase *—— 如果數(shù)據(jù)檢測通過 IF OK=.T. *—— 確認對話框 YN=MESSAGEBOX(確定保存記錄 ,4+32,訂貨管理系統(tǒng) ) *—— 如果確認 IF YN=6 *—— 保存記錄 SELECT ClientInfo *—— 試圖保存 *—— 如果保存失敗 IF TABLEUPDATE(.F.)=.F. MESSAGEBOX(編號錯誤 ,48,訂貨管理系統(tǒng) ) .SetFocus Else *—— 如果保存成功 *—— 表單回到瀏覽狀態(tài) =.F. =.F. EndIf EndIf ENDIF 36 “ 取消 ” 按鈕的 Click 事件代碼 : （略，詳見產(chǎn)品信息管理 “ 取消 ” 按鈕的 Click 事件代碼） 訂貨信息管理表單 訂貨信息管理（ OrderInfo）表單如圖 21所示。該表單主要包括對訂貨信息表中的數(shù)據(jù)進行瀏覽、添加、修改、打印等操作，在對數(shù)據(jù)進行添加和修 改時，可以調(diào)用產(chǎn)品信息瀏覽和客戶信息瀏覽表單來快速輸入數(shù)據(jù)庫中的已有信息。 圖 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 orderinfo *—— 保存“訂貨信息”表中記錄指針的位置 =RECNO() *—— 增加記錄 APPEND BLANK *—— “下單日期”的默認值為系統(tǒng)當(dāng)前日期 .VALUE=DATE() *—— “訂貨總額”的默認值為 0 .VALUE=0 *—— 表單進入修改狀態(tài) =.T. =.T. *—— 刷新表單 “ 修改 ” 按鈕的 Click 事件代碼 : （略，詳見產(chǎn)品信息管理 “ 修改 ” 按鈕的 Click 事件代碼） “ 刪除 ” 按鈕的 Click 事件代碼 : （略，詳見產(chǎn)品信息管理 “ 刪除 ” 按鈕的 Click 事件代碼） “ 保存 ” 按鈕的 Click 事件代碼 :