【導(dǎo)讀】買，領(lǐng)取進行管理。超級用戶可以進行數(shù)據(jù)錄入、修改、查詢、打印以及系統(tǒng)維護等所有操作；一般用戶只能進行查詢和打印操作。與類別添加一樣，表名為bm;計算其平均價格，并更新購買日期。月、季、年結(jié)帳分攤費用。為提高軟件開發(fā)、維護和效率，應(yīng)使用項目管理器設(shè)計一個應(yīng)用系統(tǒng)。在彈出的“創(chuàng)建”對話框中輸入創(chuàng)建項目文件名和選擇文件保存目錄。立與遠程數(shù)據(jù)源的連接、創(chuàng)建表和本地表的視圖。據(jù)庫中相關(guān)表中記錄的一致性等。建“數(shù)據(jù)庫”對話框?？颍瑔螕簟靶陆ū怼卑粹o，彈出“創(chuàng)建”對話框。為了保證系統(tǒng)的保密性，在進入系統(tǒng)時應(yīng)輸入用戶名以及密碼。

　　

【正文】 按鈕組；然后對各表單控件進行設(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)建自定義菜單： （ 4） 在項目管理器中選中“其它”下的“菜單”，再單擊項目管理器右邊的“新建”按鈕，將會彈出“新建菜單”對話框，單擊“菜單”按鈕，將會進入菜單設(shè)計器對話框。 （ 5） 在菜單設(shè)計器對話框中分別將主菜單項的名稱輸入到“菜單名稱”文本框中。 （ 6） 設(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 sounds that were a lot like laughter. 39。You think it39。s funny, huh?39。 Weary inquired. He walked around to Billy39。s back. Billy39。s jacket a nd shirt and undershirt had been hauled up around his shoulders by the violence, so his back was naked. There, inches from the tips of Weary39。s bat boots, were the pitiful buttons of Billy39。s spine. Weary drew back his right boot, aimed a kick at the spine, at the tube which had so many of Billy39。s important wires in it. We ary was going to break that tube. But then Weary saw that he had an audience. Five German soldiers and a police dog on a leash were looking dow n into the bed of the creek. The soldiers39。 blue eyes were filled with bleary civilian curiosity as to why one American would try to murder another one so far from home, and why the victim should laugh. Three The Germans and the dog were engaged in a military operation which had an amusingly selfexplanatory name, a human enterprise which is seldom described in detail, whose name alone, when reported as news or history, gives many war enthusiasts a sort of postcoital satisfaction. It is, in the imagination of bat39。s fans, the divinely listless loveplay that follows the asm of victory. It is called 39。mopping up.39。 The dog, who had sounded so ferocious in the winter distances, was a female German shepherd. She was shivering. Her tail was between her legs. She had been borrowed that morning from a farmer. She had never been to war before. She had no idea what game was being played. Her mine was Princess. Two of the Germans were boys in their early teens. Two were ramshackle old me droolers as toothless as carp. They were irregulars, a rmed and clothed fragmentarily with junk taken from real soldiers who were newly dead. So it goes. They were farmers from just across the German border, not far away. Their manander was a middleaged corporalredeyed., scrawny, tough as dried beef, sic k of war. He had been