【文章內(nèi)容簡介】 1 個組合框、 2 個命令按鈕組；然后對各表單控件進行設(shè)置，將 2個命令按鈕的“ caption”屬性設(shè)置為“確定”和“取消”，對“確認”命令按鈕的“ click”事件編程： IF NOT USED(lingquview) SELECT 0 USE lingquview ENDIF SELECT lingquview LOCATE FOR year(riqi)=val(alltrim()) IF FOUND() SELECT * from lingquview order by bumen INTO dbf c:\newsoft\myreport WHERE year(riqi)=val(alltrim()) report form c:\newsoft\myreport prev ELSE MESSAGEBOX(對不起，沒有此記錄！ ) ENDIF 對“取消”命令按鈕的“ click”事件編程： ㈩ 季報表生成表單 該表單包括了 4 個標簽、 1 個組合框、 2 個命令按鈕組；然后對各表單控件進行設(shè)置，將 2個命令按鈕的“ caption”屬性設(shè)置為“確定”和“取消”，對“確認”命令按鈕的“ click”事件編程： IF NOT USED(lingquview) SELECT 0 USE lingquview ENDIF SELECT lingquview cjidu=VAL(ALLTRIM()) DO CASE CASE cjidu=1 LOCATE FOR year(riqi)=val(alltrim()) AND month(riqi)=3 IF FOUND() SELECT * from lingquview。 order by bumen INTO dbf c:\newsoft\myreport。 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。 order by bumen INTO dbf c:\newsoft\myreport。 WHERE year(riqi)=val(alltrim()) AND (month(riqi)3 and month(riqi)=6) report form c:\newsoft\myreport prev ELSE MESSAGEBOX(對不起，沒有此記錄！ ) ENDIF CASE cjidu=3 LOCATE FOR year(riqi)=val(alltrim()) AND (month(riqi)6 and month(riqi)=9) IF FOUND() SELECT * from lingquview。 order by bumen INTO dbf c:\newsoft\myreport。 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。 order by bumen INTO dbf c:\newsoft\myreport。 WHERE year(riqi)=val(alltrim()) AND (month(riqi)9 and month(riqi)=12) report form c:\newsoft\myreport prev ELSE MESSAGEBOX(對不起，沒有此記錄！ ) ENDIF ENDCASE 對“取消”命令按鈕的“ click”事件編程： (十一 )月報表生成表單 該表單包括了 4 個標簽、 1 個組合框、 2 個命令按鈕組；然后對各表單控件進行設(shè)置，將 2 個命令按鈕的“ caption”屬性設(shè)置為“確定”和“取消”，對“確認”命令按鈕的“ click”事件編程： IF NOT USED(lingquview) SELECT 0 USE lingquview ENDIF SELECT lingquview cyue=ALLTRIM() LOCATE FOR year(riqi)=val(alltrim()) AND month(riqi)=val(cyue) IF FOUND() SELECT * from lingquview。 order by bumen INTO dbf c:\newsoft\myreport。 WHERE year(riqi)=val(alltrim()) AND month(riqi)=val(cyue) report form c:\newsoft\myreport prev ELSE MESSAGEBOX(對不起，沒有此記錄！ ) ENDIF 對“取消”命令按鈕的“ click”事件編程： 五、報表設(shè)計 報表是數(shù)據(jù)庫管理系統(tǒng)中最常使用的查看數(shù)據(jù)的手段之一。生成報表就是把輸入的數(shù)據(jù)按照一定的條件和格式轉(zhuǎn)換成書面文檔形式的過程。 報表設(shè)計是應(yīng)用程序設(shè)計中非常重要的工作，報表設(shè)計主要分兩個步驟來完成：第一步，用報表設(shè)計器設(shè)計報表；第 二步，編程調(diào)用報表。 操作步驟如下： 在項目管理器中選中“報表”，再單擊項目管理器右邊的“新建”按鈕，將會彈出“新建報表”對話框，單擊“新建報表”按鈕，將會進入報表設(shè)計窗口。本系統(tǒng)報表界面如下圖： 六、菜單設(shè)計 Visual FoxPro “菜單設(shè)計器”可以簡便、快捷地創(chuàng)建菜單，提高應(yīng)用程序的質(zhì)量。在應(yīng)用于程序中，用戶最先接觸到的就菜單系統(tǒng)。 主菜單用來控制系統(tǒng)中的各項操作，從開始的總體結(jié)構(gòu)圖，我們不難得出應(yīng)用程序的菜單，如下圖： 系統(tǒng) 數(shù)據(jù)處理 報表生成 用戶管理 幫助 初始化系統(tǒng) 新購物品錄入 年報表 修改口令 幫助主題 物品類別添加 領(lǐng)取物品錄入 季報表 用戶添加 自述文件 物品類別修改 月報表 關(guān)于 退出系統(tǒng) 本系統(tǒng)采用菜單作為初始化界面，并設(shè)置一個主文件來調(diào)用該菜單程序； 也可以采用表單作為初始界面，則需要在表單上設(shè)置若干個按鈕來表示各子系統(tǒng)的功能； 菜單中的各項功能，要對它進行設(shè)計和編碼才能實現(xiàn)。創(chuàng)建自定義菜單： （ 1） 在項目管理器中選中“其它”下的“菜單”，再單擊項目管理器右邊的“新建”按鈕，將會彈出“新建菜單”對話框，單擊“菜單”按鈕，將會進入菜單設(shè)計器 對話框。 （ 2） 在菜單設(shè)計器對話框中分別將主菜單項的名稱輸入到“菜單名稱”文本框中。 （ 3） 設(shè)計子菜單 ? 設(shè)計“系統(tǒng)”菜單項的子菜單 1） 在菜單設(shè)計器對話框中的“結(jié)果”欄選擇“子菜單”，并單擊“創(chuàng)建”按鈕，將會彈出一個設(shè)置子菜單的對話框； 2） 在子菜單對話框中輸入子菜單名稱； 3） 在“結(jié)果”欄都選擇“命令”，并在“命令”右邊的文本框中分別輸入命令 ， 由于普通用戶不能使用這兩個菜單功能，需要將其屏蔽，操作方法是：用鼠標單擊“選項”欄的按鈕，將人彈出一個“提示選項”對話框，并在“跳過”欄文本框中輸入屏蔽菜單的條件，例如輸入： superuser. 做完了之后，如果需要屏蔽菜單，只需要將 Superuser 的賦值為 .t .就可以了，如果不需要屏蔽菜單，就將 Superuser 的賦值為 .f. 七、主程序設(shè)計 在 Visual FoxPro 中，主程序不是必須的，表單和菜單都可以成為一個應(yīng)用程序的入口。在 Visual FoxPro 中把應(yīng)用程序的入口點稱為主文件。您可以從鼠標右鍵彈出的快捷菜單中，選擇文件來修改一個應(yīng)用程序的入口點。但使用主程序顯得更規(guī)范。 在不同的系統(tǒng)中主文件的設(shè)置不完全相同，本系統(tǒng)的主文件的代碼編寫如下： 主 程序 ： set date to ansi set century on SET SAFETY OFF SET PATH TO c:\newsoft SET COLOR TO BG/BG public mysqlsever mysqlsever= deactivate window project manger zoom windows screen max DO FORM frm_login modify windows screen title 辦公用品管理系統(tǒng) ON SHUTDOWN down1() READ events 程序 : quit clear events close all 可畢竟還是做過主持人，意識到這是一個暗示，馬上接過來。 “對啊，我們很急?！? “你們急什么？”謝正看著已經(jīng)慌成一團的學(xué)員們，嚴肅的問道。 “嗯，著急簽合同啊?！币呀?jīng)有點抽泣的小姑娘接話到，不禁讓這個有點悲哀的氣氛添加一點喜劇色彩。 謝正搖搖頭，意思這不是他想要的答案。 “如果今天簽不回去，經(jīng)理肯定會對我們很失望，請您關(guān)照一下我的工作?！庇峥煽稍囂叫缘膯柕?。 “嗯，聽上去不錯，還有么？