【正文】 在菜單設計器對話框中的“結果”欄 選擇“子菜單”，并單擊“創(chuàng)建”按鈕，將會彈出一個設置子菜單的對話框； 2） 在子菜單對話框中輸入子菜單名稱； 3） 在“結果”欄都選擇“命令”，并在“命令”右邊的文本框中分別輸入命令 ， 由于普通用戶不能使用這兩個菜單功能，需要將其屏蔽，操作方法是：用鼠標單擊“選項”欄的按鈕，將人彈出一個“提示選項”對話框，并在“跳過”欄文本框中輸入屏蔽菜單的條件，例如輸入： superuser. 做完了之后，如果需要屏蔽菜單，只需要將 Superuser 的賦值為 .t .就可以了，如果不需要屏蔽菜單，就將 Superuser 的賦值為 .f. 七、主程序設計 在 Visual FoxPro 中，主程序不是必須的，表單和菜單都可以成為一個應用程序的入口。在應用于程序中，用戶最先接觸到的就菜單系統(tǒng)。生成報表就是把輸入的數據按照一定的條件和格式轉換成書面文檔形式的過程。 order by bumen INTO dbf c:\newsoft\myreport。 order by bumen INTO dbf c:\newsoft\myreport。 WHERE ALLTRIM(leibie)==cleibie AND ALLTRIM(pinpai)==cpinpai into ARRAY cdanjia *根據領取庫，自動計算剩余數量 UPDATE jiku set shuliang=shuliangcshuliang。 該表單包括了 9個標簽、 5個組合框、 1 個編輯框、 3個文本框、 1 個命令按鈕組，其中：其中：組合框要注冊生成器（單擊鼠標右鍵），命令按鈕的“ caption”屬性分別為確定和取消，命令按鈕“確定”的“ click”事件代碼如下： cleibie=ALLTRIM() cpinpai=ALLTRIM() cdanjia=VAL(ALLTRIM()) cshuliang=VAL(ALLTRIM()) cgoumairen=ALLTRIM() criqi=CTOD(ALLTRIM()+.+ALLTRIM(.DisplayValue)+.+ALLTRIM()) cbeizhu=ALLTRIM() IF NOT USED(jiku) SELECT 0 USE jiku ENDIF SELECT jiku LOCATE FOR ALLTRIM(leibie)==cleibie AND ALLTRIM(pinpai)=cpinpai IF FOUND() UPDATE jiku set shuliang=shuliang+cshuliang,danjia=(danjia+cdanjia)/2,riqi=criqi。用戶還能向表單中添加各種控件，設計出非常美觀、操作方便的用戶界面。 用表設計器建立系統(tǒng)所需的表與字段。此外，還可利用參照完整性來幫助維護數據庫中相關表中記錄的一致性等。 單擊“保存”按鈕后，這個新的項目就建立起來了。 三、系統(tǒng)結構 系統(tǒng)結構功能流程圖如圖： 四、系統(tǒng)設計 建立項目管理器 密碼驗證？ 主菜單 登錄界面 系 統(tǒng) 數 據 處 理 報 表 生 成 初 始 化 系 統(tǒng) 物 品 類 別 添 加 年 報 表 月 報 表 新 購 物 品 錄 入 領 取 物 品 錄 入 季 報 表 用 戶 管 理 物 品 類 別 修 改 退 出 系 統(tǒng) 修 改 口 令 用 戶 添 加 幫 助 為提高軟件開發(fā)、維護和效率，應使用項目管理器設計一個應用系統(tǒng)。 ⑺ 報表打 印：可以按年、季、月或自定義一段時期打印報表。 ⑶ 部門添加：添 加公司部門，還沒有加上，有興趣的朋友可以自己加上，方法與類別添加一樣，表名為 bm。 各種 信息的靈活組合統(tǒng)計，各種報表的自動化生成。 一、需求分析 物品資料的數據庫建立和管理 物品信息的增加、刪除變化的處理如物品類別的添加、物品類別的修改、新購物品的錄入、領取物品的錄入等等，保證所有物品信息的完整、有效 按年、季、月或自定義一段時期打印報表。 ⑵ 類別添加：添加所購物品分類，如鋼筆、筆記本等 。注：設想改為到一定時期（如一個月），自動備份數據，打印報表，交財務分攤費用。 ⑼ 退出：退出系統(tǒng)。 （ 2） 在彈出的“創(chuàng)建”對話框中輸入創(chuàng)建項目文件名和選擇文件保存目錄。通過數據庫，可以創(chuàng)建表與表之間的永 久關聯和存儲過程、建立字段、記錄和有效性規(guī)則、設置字段缺省值、建立觸發(fā)器、建立與遠程數據源的連接、創(chuàng)建表和本地表的視圖。 在“創(chuàng)建”對話框中輸入表名： ””，保存表單進入表設計器。表單有多種屬性和方法，通過對各種屬性和方法的設置，可以改變表單的外觀和操作行為。 系統(tǒng)登錄表單 FRM＿ ,如下圖所示 : 該表單包括了 3 個標簽、 1 個組合框、 1 個文本框、 1 個按鈕組（包括了“確定”和“取消”兩個命令 按鈕）， 其中：命令按鈕的“ caption”屬性分別為確定和取消，文本框的“ password”屬性為“ *” , 命令按鈕“確定”的“ click”事件代碼如下： public clevel,cczy clevel= if not used(usepass) sele 0 use usepass endif locate for alltrim(uname)==alltrim() cczy=alltrim() if upper(alltrim())==upper(alltrim(upassword)) clevel=alltrim(uquanxian) do form face else cMessageTitle=辦公用品管理系統(tǒng) cMessageText=口令錯誤，要重新輸入嗎？ nDialogType=4+32 nanswer=MESSAGEBOX(cMessageText,nDialogType,cMessageTitle) do case case nAnswer=6 = case nAnswer=7 cMessageText=你不是合法用戶，請離開！ MESSAGEBOX(cMessageText,0,cMessageTitle) endcase endif 命令按鈕“取消”的“ click”事件代碼如下： clear events quit ㈡ 新購物品錄入表單 辦公用品的添置和更新要有計劃并嚴格遵守設備購置和管理的規(guī)程 。該表單的設計界面與新購物品表單差不多，可以根據上面的步驟進行設計，這里就只介紹一下兩個命令按鈕的“ click”事件代碼，其中：命令按鈕“確定”的“ click”事件代碼如下： DIMENSION cdanjia[1] cleibie=ALLTRIM() cpinpai=ALLTRIM() cbumen=alltrim() cshuliang=VAL(ALLTRIM()) clingquren=ALLTRIM() criqi=CTOD(ALLTRIM()+.+ALLTRIM(yValue)+.+ALLTRIM()) cbeizhu=ALLTRIM() IF NOT USED(jiku) SELECT 0 USE jiku ENDIF *自動計算單價 IF NOT USED(jiku) SELECT 0 USE jiku ENDIF SELECT danjia FROM jiku。 WHERE year(riqi)=val(alltrim()) AND month(riqi)=3 report form c:\newsoft\myreport prev ELSE MESSAGEBOX(對不起，沒有此記錄！ ) ENDIF CASE cjidu=2 LOCATE FOR year(riqi)=val(alltrim()) AND (month(riqi)3 and month(riqi)=6) IF FOUND() SELECT * from lingquview。 WHERE year(riqi)=val(alltrim()) AND (month(riqi)6 and month(riqi)=9) report form c:\newsoft\myreport prev ELSE MESSAGEBOX(對不起，沒有此記錄！ ) ENDIF CASE cjidu=4 LOCATE FOR year(riqi)=val(alltrim()) AND (month(riqi)9 and month(riqi)=12) IF FOUND() SELECT * from lingquview。 WHERE year(riqi)=val(alltrim()) AND month(riqi)=val(cyue) report form c:\newsoft\myreport prev ELSE MESSAGEBOX(對不起，沒有此記錄！ ) ENDIF 對“取消”命令按鈕的“ click”事件編程： 五、報表設計 報表是數據庫管理系統(tǒng)中最常使用的查看數據的手段之一。本系統(tǒng)報表界面如下圖： 六、菜單設計 Visual FoxPro “菜單設計器”可以簡便、快捷地創(chuàng)建菜單，提高應用程序的質量。 （ 2） 在菜單設計器對話框中分別將主菜單項的名稱輸入到“菜單名稱”文本框中。但使用主程序顯得更規(guī)范。 1 多用戶數據安全管理，保證各部門的數據安全、完整，對每個使用本系統(tǒng)用戶進行權限的設置 1 簡易操作，不需要計算機專業(yè)人員 1 預留接口，系統(tǒng)的可擴展性功能，保證軟件的永不落后 1 支持計算機網絡，可擴展至互聯網 (Inter)，也支持單機獨立運行 . 二、系統(tǒng)功能 (1) 權限：該系統(tǒng)分為超級戶和一般用戶。 ⑽ 物品入庫：采購來的物品應及時入庫，若兩次采購相同的物品，系統(tǒng)會自動計算其平均價格，并更新購買日期。 ⒁ 限設置：本系統(tǒng)可以設置用戶權限，根據權限可以實現不同級別的操作；修改超級用戶密碼。 Visual 使用項目管理器提供簡單可視的方法幫助用戶管理各類復雜的資源，項目管理器的主要功能是對應用程序的所有文件（包括表、表單、數據庫、 報表、查詢和其他部件）進行統(tǒng)一組織和管理 。 建立數據庫和表 項目管理器建好以后，就可以建立辦公用品管理系統(tǒng)所需的表的數據了。具體操作步驟如下： 在項目管理器的“全部頁”或“數據頁”中選中“數據庫”，再單擊項目管理器右邊的“新建”按鈕，將會彈出“新建數據庫”對話框，單擊“新建數據庫”按鈕，將會彈出“創(chuàng)建“數據庫”對話框。 創(chuàng)建表單與代碼設計 Visual FoxPro 作為 Windows 平臺上的數據庫管理軟件和應用程序設計語言，它提供靈活方便的界面設計工具，這就是表單。 ㈠ 系統(tǒng)登錄表單設計 為了保證系統(tǒng)的保密性，在進入系統(tǒng)時應輸入用戶名以及密碼。 WHERE ALLTRIM(leibie)==cleibie AND ALLTRIM(pinpai)=cpinpai else INSERT INTO jiku。 WHERE ALLTRIM(leibie)==cleibie AND ALLTRIM(pinpai)==cpinpai *將記錄寫入領取庫 IF NOT USED(lingqu) SELECT 0 USE lingqu ENDIF INSERT INTO lingqu values(cleibie,cpinpai,cshuliang,cdanjia,criqi,clingquren,cbumen,cbeizhu) cMessageTitle=數據錄入 cMessageText=數據添加成功，還要繼續(xù)嗎？ nDialogType=4+32 nanswer=MESSAGEBOX(cMessageText,nDialogType,cMessageTitle) if nAnswer=6 = = = = ELSE ENDIF 命令按鈕“取消”的“ click”事件代碼如下：