【文章內容簡介】 輸出結果分別如下： 畢業(yè)設計 第 4 章 各個功能模塊的創(chuàng)建 15 4 各個功能模塊的創(chuàng)建 建立功能模塊的目的在于：一個是使用者能簡單明了地掌握軟件功能，另個是未開發(fā)的人貝也能輕松地進行維護。根據(jù)本軟件的特點，本系統(tǒng)將分為 3個功能模塊．它們是：信息管理模塊、日常操作模塊、信息查詢模塊。 在進入各個功能模塊前，應該給用戶提供一個選擇的界面，即系統(tǒng)的主界面。下面按系統(tǒng)計開發(fā)順序逐一介紹。 系統(tǒng)主菜單的功能在于引導用戶進入不同的功能模塊。本系統(tǒng)主菜單的界面為簡單起見，設計界面如圖所示。 界面的系統(tǒng)菜單又包含 三個子菜單，分別為“日常操作”、“信息查詢”、“系統(tǒng)管理”，引導進入個同的功能模塊。 畢業(yè)設計 第 4 章 各個功能模塊的創(chuàng)建 16 本例中的系統(tǒng)主菜單的結構如下表所示： 菜單 菜單項 結果 命令 信息管理 (\A) 商品信息管理 (\P) 命令 DoformproAdmin 日常操作 (\D) 商品進貨管理 (\I) 命令 DOFORMIinact \_ 商品操作 (\O) 命令 DOFORMOutAct 信息查詢 (\S) 進貨信息查詢 (\I) 命令 DOFORMInseach \_ 銷售信息查詢 (\O) 命令 DOFORMOutSeach \_ 庫存信息查詢 (\S) 命令 DOFORMStoreSearch 系統(tǒng)管理 (\M) 修改密碼 (\M) 命令 DOFORMSetPass \_ 關于系統(tǒng) (\A) \_ 退出系統(tǒng) (\E) CLEAREVENTS “ Splash”表單 “ Splash”表單是程序中比較常見的一種界面，一般作為程序的第一個界面顯示給用戶，在該界面中顯示程序的名稱，創(chuàng)建人，版本等信息?！?Splash”表單布局如下所示： 畢業(yè)設計 第 4 章 各個功能模塊的創(chuàng)建 17 “ Splash”表單中計時器控件 Time 事件代碼為： *—— 移動歡迎使用標簽 *—— 當標簽移動到表單最右側時 = *移動到最左側 =+1 ENDIF *使“超市進銷存管理系統(tǒng)”變色 *隨機生成顏色 i=tnt(RAND()*255) j=tnt(RAND()*255) k=tnt(RAND()*255) 的設計 因為本系統(tǒng)的特殊性，本系統(tǒng)各處會涉及到密碼即身份驗證。如用戶身份驗證等。 用戶身份驗證界面 設計“系統(tǒng)登錄表單”的用戶驗證界面如圖所示。 畢業(yè)設計 第 4 章 各個功能模塊的創(chuàng)建 18 接下來，我們?yōu)楦骺丶顚懯录憫? “ 系統(tǒng)登錄“表單中“確定 ” 按鈕的“ Click”事件代碼： *精確比較 SETEXACTON *判斷是否輸入用戶名 IFALLTRIM（ ） “” MESSAGEBOX(“ 請輸入用戶名 ” ， 48，“進銷存管理系統(tǒng)” ) Return ENDIF *獲取輸入的信息 USER__N=ALLTRIM() USER__P=ALLTRIM() *定義邏輯變量 is_user,用于判斷是否為合法用戶 LOCALIsUuser IsUuser=.F. *遍歷用表中所有的記錄 畢業(yè)設計 第 4 章 各個功能模塊的創(chuàng)建 19 *判斷輸入的用戶名稱和用戶密碼是否存在 SELECT 用戶信息 GOTOP () *尋找與輸入的用戶名和密 碼匹配的記錄 ISUser=(USER_N=用戶信息 .用戶名 ).AND.(USER_P=用戶信息 .密碼 ) *如果找到 IFIS_USER EXIT ELSE SKIP ENDIF ENDDO *如果正確 IFIS—— USER *保存登錄用戶 cCurUser=ALLTRIM() *調用主界面 DOFORMMainForm *推出當前表單 *如果登錄不正確 ELSE MESSAGEBOX(“ 用戶 名或用戶密碼不正確 !” ,0+16,” 進銷存管理系統(tǒng) ” ) =”” =”” ENDIF *模糊比較 畢業(yè)設計 第 4 章 各個功能模塊的創(chuàng)建 20 SEREXACTOFF “ 取消 ” 按鈕的 ” Click” 事件代碼如下 : *釋放登錄表單 *清除事件循環(huán) ClearEVENTS *退出 VisualFoxPro QUIT 至此 ,” 系統(tǒng)登錄 ” 表單創(chuàng)建完成。 創(chuàng)建“修改密碼”表單 首先要創(chuàng)建表單界面，在表單中添加 3 個標簽控件， 4 個文本框控件， 2 個按鈕控件，布局如下： 然后向“修改密碼”表單中添加“確定”按鈕的“ Click” 事件代碼如下： SETEXACTON *進入數(shù)據(jù)檢查 *檢查原密碼 SELECT 用戶信息 LOCATEFORALLTRIM(用戶名 )=ALLTRIM( 用戶名 .Value)。 .(密碼 )=ALLTRIM( 原密碼 .Value) 畢業(yè)設計 第 4 章 各個功能模塊的創(chuàng)建 21 () MESSAGEBOX(“ 原密碼錯誤 ,請重新輸入 ” ,48” 進銷存管理系統(tǒng) ” ) 原密碼 .SetFocus RETURN ENDIF *如果 ” 密碼 ” 欄為空 IFEMPTY(ALLTRIM( 新密碼 .Value)).(ALLTRIM( .VALRE)) MESSAGEBOX(“ 密碼不能為空 ” ,48,” 進銷存管理系統(tǒng) ” ) 新密碼 .SetFocus RETURN ENDIF *如果兩次密碼不一致 IFALLTRIM( 新密碼 .Value)ALLTRIM( 確認密碼 .VALUE) MESSAGEBOX(“ 密碼與確認密碼不一致 ” ,48,” 進銷存管理系統(tǒng) ” ) 新密碼 .Setfocus RETURN ENDIF *獲取表單中各數(shù)據(jù)項的值 sName=ALLTRIM( 用戶名 .Value) sPass=ALLTRIM( 新密碼 .Value) *確定對話框 YN=MESSAGEBOX(“ 確定保存 ” ,4+32,” 進銷存管理系統(tǒng) ” ) *如果確認 IFYN=6 *修改密碼 UPDATE 用戶信息 SET 密碼 =sPassWHERE 用戶名 =sName MESSAGEBOX(“ 密碼修改成功 ” ,64,” 進銷存管理系統(tǒng) ” ) 畢業(yè)設計 第 4 章 各個功能模塊的創(chuàng)建 22 ENDIF STEEXACTOFF “ 修改密碼 ” 表單中 ” 取消 ” 按鈕的功能設計是被單擊退出當前表單 ,該按鈕的 ” Click” 時間代碼如下 : 本模塊由“商品信息管理”功組成，該功能由“商品 信息管理”和“輸入查詢條件”表單完成。 “商品信息管理”表單 “商品信息管理”表單界面如下圖： “商品信息管理”表單中的“ CheckEmpty” 方法代碼如下： *如果商品信息為空 畢業(yè)設計 第 4 章 各個功能模塊的創(chuàng)建 23 IFEOF().().ORRECCOUNT()=0 =.F. =.F. =.F. =.F. =.F. =.F. =.F. =.F. Return ENDIF *— 如果“商品消息”表只有一條記錄 IFRECCOUNT（） =1 =.F. =.F. =.F. =.F. Return ENDIF *— 如果記錄指針位于第 1 條記錄并且處于“瀏覽”狀態(tài) IFBOF（） .()==.F. =.F. =.F. =.T. =.T. Rerurn ENDIF *— 如果記錄指針位于最后 1條并且處于“瀏覽”狀態(tài) IFBOF（） .()==.F. 畢業(yè)設計 第 4 章 各個功能模塊的創(chuàng)建 24 =.T. =.T. =.F. =.F. Rerurn ENDIF *— 如果處于“瀏覽”狀態(tài)并且記錄指針位于表中部 =.F..()()RECCUNT() =.T. =.T. =.T. =.T. Rerurn ENDIF “商品信息管理”表單中的“ SetMode” 方法代碼如下 *FormMode 為 . *FormMode 為 . *— 控制表單中文本框 (“ Readonly” ,!FormMode,“ textbox” ) *— 控制編輯框 說明 .readonly=!formMode *— 控制組合框 商品類別 .enabled=formMode *— 控制命令組中的命令按扭 ,Enabled=!formmode ,Enabled=!formmode ,Enabled=!formmode *— 移動記錄按扭 ,Enabled=!formmode 畢業(yè)設計 第 4 章 各個功能模塊的創(chuàng)建 25 ,Enabled=!formmode ,Enabled=!formmode ,Enabled=!formmode *— 修改狀態(tài)時 Ifformmode=.t. =” 保存 ” =” 恢復 ” =” 保存對記錄的修改 ” =” s刪除當前記錄 ” Endif 因此，如果要使表的單進入“瀏覽”狀態(tài)，則只需要使用如下代碼即可。 =.f. 相應地，如果要使表單進入“修改”狀態(tài)，則只需要使用如下代碼即可。 =.Ｔ .