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