倉庫管理系統(tǒng)的VISAUL FOXPRO實現(xiàn) （下）

倉庫管理系統(tǒng)的VISAULFOXPRO實現(xiàn)（下）

4．4設(shè)備還庫模塊的設(shè)計在設(shè)備還庫模塊中將實現(xiàn)設(shè)備還庫數(shù)據(jù)的添加和修改庫存等功能，按照前面介紹的步驟設(shè)計設(shè)備還庫表。設(shè)備還庫表所可能用到的控件的屬性如表所示：（1）Form1控件的主要屬性：select現(xiàn)有庫存表*先在該表單的數(shù)據(jù)環(huán)境中添加現(xiàn)有庫存表getid=thisform.設(shè)備號1.text1.valuesetorderto設(shè)備號seekgetid*在現(xiàn)有庫存表中查找設(shè)備號等于getid的紀(jì)錄iffound()getnum=thisform.歸還數(shù)量1.text1.valueupdate現(xiàn)有庫存表;set現(xiàn)有庫存=(現(xiàn)有庫存-getnum)where(設(shè)備號=getid)insertinto操作日志表(操作員，操作內(nèi)容，操作時間);values(thisform.歸還人1.text1.value，'設(shè)備還庫'，date())*如果庫存表中有該項設(shè)備，則更新庫存表，同時更新操作日志elsemessagebox("出錯"，1，"錯誤的設(shè)備號")*如果沒有該設(shè)備號則報告出錯信息endif保存后運行表單，可得到如圖所示的設(shè)備還庫表。4．5設(shè)備需求模塊的設(shè)計在設(shè)備需求模塊中將實現(xiàn)設(shè)備需求數(shù)據(jù)的添加和保存日志等功能。首先通過VisualFoxpro的表單向?qū)伤璧脑O(shè)備需求表單，選擇部門需求表的所有可用字段，然后為保持程序風(fēng)格的一致，繼續(xù)采用表單的陰影式和圖片按鈕的風(fēng)格。在“步驟3-排序次序”時。選擇設(shè)備號的升序排列。最后單擊“完成”按鈕，把表單保存在“c:倉庫管理”目錄下，名為“設(shè)備需求.scx”。通過表單向?qū)傻谋韱稳鐖D所示，我們可以調(diào)節(jié)控件的位置，修改表單中控件的屬性，最后結(jié)果所下圖所示：在表單設(shè)計器中，雙擊“保存日志”命令按鈕。添加click事件代碼如下：insertinto操作日志表(操作員，操作內(nèi)容，操作時間)values(username，'設(shè)備需求'，date())雙擊回主界面命令按鈕，添加click事件代碼如下：thisform.releasedoform倉庫管理保存對表單所作的修改。4．6設(shè)備采購模塊的設(shè)計在設(shè)備采購模塊中將實現(xiàn)設(shè)備采購數(shù)據(jù)的添加和保存日志等功能。（1）由數(shù)據(jù)表生成表單通過VisualFoxpro的表單向?qū)?，生成設(shè)備采購計劃表單。在選擇數(shù)據(jù)庫和表時，選擇倉庫管理數(shù)據(jù)庫和設(shè)備采購計劃表。在選擇字段時，選擇所有可用字段，選擇陰影式和圖片按鈕作為設(shè)備采購計劃表的樣式。選擇計劃采購時間的升序排列作為設(shè)備采購計劃表的索引。（2）為窗體修改和添加命令按鈕添加2個命令按鈕“保存日志”和“回主界面”。設(shè)置表單中控件的屬性。下面的表列出了需要修改的控件的名稱以及屬性值。（1）Form1控件的主要屬性：（3）為按鈕添加click事件代碼：在表單設(shè)計器中，雙擊保存日志命令按鈕。添加click事件代碼如下：insertinto操作日志表(操作員，操作內(nèi)容，操作時間)values(username，"設(shè)備需求"，date())*把設(shè)備需求寫入操作日志表中雙擊回主界面按鈕，添加click事件代碼如下：thisform.release*釋放本表單doform倉庫管理*運行倉庫管理界面保存對表單所作的修改，表單運行效果如圖所示：4．7顯示報表模塊的設(shè)計在該模塊中，一共要顯示3個報表，分別提供庫存不足，庫存過多和操作日志等信息。在如圖所示的空白表單中添加一個頁框控件，并按照下表設(shè)置頁框的屬性，同時在數(shù)據(jù)環(huán)境里添加現(xiàn)有庫存表和操作日志表。操作日志表設(shè)置表格控件的屬性，如表所示：grid1控件的主要屬性表：2．代碼設(shè)計定義Pageframe1.Page1.grid1的init事件運行“顯示報表”表單，界面所圖所示：localCusts1select設(shè)備號，最大庫存，現(xiàn)有庫存from現(xiàn)有庫存表where(現(xiàn)有庫存>最大庫存)intocursorCusts1thisform.頁框.庫存過多.庫存過多表.recordsource="Custs1"定義Pageframe1.Page2.grid1的init事件localCusts2select設(shè)備號，最小庫存，現(xiàn)有庫存from現(xiàn)有庫存表where(現(xiàn)有庫存<最小庫存)intocursorCusts2thisform.頁框.庫存不足.庫存不足表.recordsource="Custs2"定義Pageframe1.Page3.grid1的init事件localCusts3select*from操作日志表intocursorCusts3thisform.頁框.操作日志.操作日志表1.recordsource="Custs3"運行“顯示報表”表單，界面如圖所示。4．8開發(fā)中的難點和解決技巧VisualFoxPro6.0中的向?qū)Оū硐驅(qū)?、?shù)據(jù)庫向?qū)?、表單向?qū)?、查詢向?qū)?、報表向?qū)?、?biāo)簽向?qū)?、郵件合并向?qū)?、?shù)據(jù)透視表向?qū)?、?dǎo)入向?qū)?、文檔向?qū)?、安裝向?qū)?、升遷向?qū)?、?yīng)用程序向?qū)?、WEB發(fā)表向?qū)У?、我們合理?yīng)用向?qū)Э梢栽诰幊讨刑岣咝省榱丝焖匍_發(fā)高效的軟件，本設(shè)計中的多數(shù)表單的設(shè)計采用利用表單設(shè)計向?qū)桑缓笤谏傻谋韱蔚幕A(chǔ)上修改。數(shù)據(jù)庫軟件用來管理數(shù)據(jù)的優(yōu)勢在于可以迅速從成千上萬的數(shù)據(jù)中找到我們需要的數(shù)據(jù)，而查詢功能的設(shè)計也是數(shù)據(jù)庫應(yīng)用軟件設(shè)計過程中的重點也是難點。本設(shè)計過程中利用表單向?qū)姶蟮墓δ埽p松完成了數(shù)據(jù)的查詢功能。而且表單向?qū)傻牟樵児δ芊浅姶?，完全可以滿足數(shù)據(jù)庫應(yīng)用軟件的需要。第五章系統(tǒng)的編譯和發(fā)行5．1設(shè)置主文件用主圖標(biāo)標(biāo)記的文件是用戶在啟動.app或者.exe時被調(diào)用的文件。它可以是一個表單、菜單或者程序，建議使用程序作為主文件。5．2構(gòu)造主文件如果主文件是一個程序，它將調(diào)用應(yīng)用程序框架中的各個功能組件，然后由這些組件調(diào)用應(yīng)用程序的其余部分。如果要建立一個簡單的主程序，可以按下列步驟進行。（1）現(xiàn)設(shè)置應(yīng)用環(huán)境界面。（2）建立初始用戶界面。（3）建立事件循環(huán)。（4）恢復(fù)環(huán)境，退出應(yīng)用程序。例如，可以建立下面的程序作為主程序：為了避免無限循環(huán)，必須在READEVENTS命令之前安排CLEAREVENTS命令?？梢栽谥鞑藛位蛘咧鞅韱沃刑砑右粋€“退出”項，該項發(fā)出CLEAREVENTS命令。5．3在.app和.exe文件中包含和排除文件如果在發(fā)布的應(yīng)用程序中不想再更改這些文件，可把它們放在項目中并設(shè)置為“包含”。那么這些文件變成只讀的，不能修改。如果想修改這些文件，把它們放在項目中并設(shè)置為“排除”，然后作為獨立文件隨著應(yīng)用程序一起發(fā)布。在默認(rèn)情況下，VisualFoxPro6.0在嵌放的過程中排除了數(shù)據(jù)庫、表格、成為.ff的c庫文件和.app文件。建議除了一些特定的表格，最好不要包含這類文件。數(shù)據(jù)庫和表格需要變化和添加，而如果編譯后包含自.exe或者是.app文件中，由于這二個文件被創(chuàng)建后都是靜態(tài)的，因此被包含的文件也是靜態(tài)的和只讀的。把數(shù)據(jù)庫和表格包含在這些文件中很明顯會帶來問題。因為這些文件不能被包含在文件.exe或者是.app文件中，所以要在發(fā)布一個應(yīng)用程序之前為這些文件做好準(zhǔn)備。如要排除可修改的文件，首先在項目管理器中，選擇可修改的文件，然后從“項目”菜單中選擇“排除”命令。在一個文件被排除后，則在文件的左方加入一個排除符號。小結(jié)一個完整的倉庫管理系統(tǒng)到此就制作完成了。在本例中詳細(xì)的講述了從創(chuàng)建數(shù)據(jù)庫到系統(tǒng)設(shè)計和各模塊的創(chuàng)建、面向?qū)ο蟮?/p>