倉(cāng)庫(kù)管理系統(tǒng)的VISAUL FOXPRO實(shí)現(xiàn) （下）

倉(cāng)庫(kù)管理系統(tǒng)的VISAULFOXPRO實(shí)現(xiàn)（下）

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