vf作業(yè)設計(編輯修改稿)
2024-09-01 09:16 本頁面
【文章內容簡介】 主菜單如下圖所示 ： 子菜單如下圖所示： 系統(tǒng)運行后，單擊主菜單或子菜單上選項實現(xiàn)相關操作。 (3) 單擊“ 貨品資料錄入修改”，調用“貨品資料表單”，如下圖： １３ 具體操作步驟如下： 第 1 步：新建表單。 第 2 步：設計用戶界面，在表單中添加 9 個 COMMAND，并進行相關屬性的設 置。 第 3 步：單擊右鍵，選擇“數(shù)據(jù)環(huán)境”，添加“貨品資料表 .dbf”。 第 4 步：將“貨品資料表 .dbf”中各個字段拖入表單中，并進行整理。 此表單的屬性及方法設置如下表所示： 對象 屬性 屬性值 屬性 屬性值 Form1 Autocenter .T. Command1 Caption 上一個 FontSize 9 Command2 Caption 下一個 FontSize 9 Command3 Caption 第一個 FontSize 9 Command4 Caption 最后一個 FontSize 9 Command5 Caption 錄入 FontSize 9 Command6 Caption 刪除 FontSize 9 Command7 Caption 添加 FontSize 9 Command8 Caption 編輯 FontSize 9 Command9 Caption 返回 FontSize 9 其命令按鈕組中各命令按鈕的事件代碼如下： １４ “上一個”命令按鈕的 Click 事件： IF reo()=1 =.F. =.F. =.T. =.T. ELSE SKIP 1 =.T. =.T. =.T. =.T. ENDIF 貨品資料表單 .REFRESH 貨品資料表單 .SETFOCUS “下一個”命令按鈕的 Click 事件： IF EOF()=.t. =.T. =.T. =.F. =.F. ELSE SKIP 1 =.T. =.T. =.T. =.T. ENDIF 貨品資料表單 .REFRESH 貨品資料表單 .SETFOCUS “第一個”命令按鈕的 Click 事件： GO TOP =.F. =.F. =.T. =.T. 貨品資料表 .REFRESH 貨品資料表 .SETFOCUS “最后一個”命令按鈕的 Click 事件： １５ GO BOTT =.T. =.T. =.F. =.F. 貨品資料表單 .REFRESH 貨品資料表單 .SETFOCUS “錄入”命令按鈕的 Click 事件： =.T. =.F. =.F. =.T. =.F. APPEND BLANK 貨品資料表 .REFRESH 貨品資料表 .SETFOCUS “刪除”命令按鈕的 Click 事件： DELE YN=MESSAGEBOX(是否確認刪除 ?,4+48,確認刪除 ) IF YN=6 PACK =.T. =.T. =.T. =.F. =.T. ELSE RECALL =.T. =.T. =.T. =.F. =.T. ENDIF 貨品資料表單 .SETFOCUS “添加”命令按鈕的 Click 事件： 貨品資料表單 .READONLY=.F. =.F. １６ =.F. =.F. =.T. =.F. 貨品資料表單 .SETFOCUS “編輯”命令按鈕的 Click 事件： YN=MESSAGEBOX(您已完成對數(shù)據(jù)的保存！ ,0+64,確認保存 ) IF YN=1 =.T. =.T. =.T. =.F. =.T. 貨品資料表單 .READONLY=.T. 貨品資料表單 .SETFOCUS ENDIF =.T. =.T. =.T. =.F. =.T. “返回”命令按鈕的 Click 事件： (4)單擊倉庫錄入修改，調用“ 分銷商資料表單”，見下圖所示： 具體操作步驟如下： １７ 第 1 步：新建表單。 第 2 步：設計用戶界面，在表單中添加 9 個 COMMAND，并進行相關屬性的設置。 第 3 步：單擊右鍵，選擇“數(shù)據(jù)環(huán)境”，添加“分銷商資料表 .dbf”。 第 4 步：將“分銷商資料 .dbf”中各個字段拖入表單中，并進行整理。 此表單的屬性及方法設置如下表所示： 對象 屬性 屬性值 屬性 屬性值 Form1 Autocenter .T. Command1 Caption 上一個 FontSize 9 Command2 Caption 下一個 FontSize 9 Command3 Caption 第一個 FontSize 9 Command4 Caption 最后一個 FontSize 9 Command5 Caption 錄入 FontSize 9 Command6 Caption 刪除 FontSize 9 Command7 Caption 添加 FontSize 9 Command8 Caption 編輯 FontSize 9 Command9 Caption 返回 FontSize 9 其命令按鈕組中各命令按鈕的事件代碼如下： “上一個”命令按鈕的 Click 事件： IF reo()=1 =.F. =.F. =.T. =.T. ELSE SKIP 1 =.T. =.T. =.T. =.T. ENDIF 分銷商資料 表 單 .REFRESH 分銷商資料 表 單 .SETFOCUS １８ “下一個”命令按鈕的 Click 事件： IF EOF()=.t. =.T. =.T. =.F. =.F. ELSE SKIP 1 =.T. =.T. =.T. =.T. ENDIF 分銷商資料 表 單 .REFRESH 分銷商資料 表 單 .SETFOCUS “第一個”命令按鈕的 Click 事件： GO TOP =.F. =.F. =.T. =.T. 分銷商資料 表 單 .REFRESH 分銷商資料 表 單 .SETFOCUS “最后一 個”命令按鈕的 Click 事件： GO BOTT =.T. =.T. =.F. =.F. 分銷商資料 表 .REFRESH 分銷商資料 表 .SETFOCUS “錄入”命令按鈕的 Click 事件： =.T. =.F. =.F. =.T. =.F. １９ APPEND BLANK 分銷商資料 表 單 .REFRESH 分銷商資料 表 單 .SETFOCUS “刪除”命令按鈕的 Click 事件： DELE YN=MESSAGEBOX(是否確認刪除 ?,4+48,確認刪除 ) IF YN=6 PACK =.T. =.T. =.T. =.F. =.T. ELSE RECALL =.T. =.T. =.T. =.F. =.T. ENDIF 分銷商資料 表
研究報告相關推薦
鄂ICP備17016276號-1