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

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

3．4數(shù)據(jù)庫結(jié)構(gòu)的實(shí)現(xiàn)在需求分析、概念結(jié)構(gòu)設(shè)計的基礎(chǔ)上得到數(shù)據(jù)庫的邏輯結(jié)構(gòu)設(shè)計之后，我們就可以在VisualFoxPro6.0數(shù)據(jù)庫系統(tǒng)中實(shí)現(xiàn)該邏輯結(jié)構(gòu)。打開如圖所示的“倉庫管理”項(xiàng)目后，在項(xiàng)目管理器中展開數(shù)據(jù)文本夾，用鼠標(biāo)選中數(shù)據(jù)庫，單擊右側(cè)的“新建”按鈕，在彈出的對話框中將該數(shù)據(jù)庫文件存儲為c:倉庫管理倉庫管理.dbc。在彈出的如圖所示的數(shù)據(jù)庫設(shè)計器中單擊鼠標(biāo)右鍵，選擇“新建表”，為數(shù)據(jù)庫添加數(shù)據(jù)表（表的內(nèi)容見上節(jié)）。下面以表設(shè)備代碼表為例來介紹表的建立過程。選擇“新建表”，在彈出的對話框中將表存儲為c:倉庫管理設(shè)備代碼.dbf。在彈出的如圖所示的表設(shè)計器中填寫表的內(nèi)容。字段設(shè)置完成后，單擊“確定”按鈕后為表輸入數(shù)據(jù)，如不想現(xiàn)在輸入，可以先“取消”，以后再輸入。具體方法如下：（1）如圖所示，選中要輸入數(shù)據(jù)的表，單擊“瀏覽”按鈕。（2）此時彈出無數(shù)據(jù)的表，在VisualFoxPro6.0的主窗口中選擇“表”，選擇“追加新記錄”后，就可以在表中輸入數(shù)據(jù)了。如圖所示。不過這種方法只能一次輸入一條記錄，如果要輸入第二條記錄時，需再次選擇追加新記錄。如果有一個已有的數(shù)據(jù)表，就可以使用“使用追加記錄”將這個有數(shù)據(jù)的表追加到當(dāng)前表中，不過執(zhí)行該操作要求這二個表的結(jié)構(gòu)完全相同。第四章系統(tǒng)主要功能模塊的創(chuàng)建按照前面的分析，我們將管理系統(tǒng)的邏輯模塊統(tǒng)一到6個實(shí)際功能模塊中，如圖所示。切換面板用于切換不同的操作，每項(xiàng)具體操作結(jié)束后，都會返回到切換面板。下面對各模塊的作用進(jìn)行說明：（1）設(shè)備入庫模塊：添加設(shè)備到庫存中。（2）設(shè)備出庫模塊：將設(shè)備從庫存取出并記錄。（3）設(shè)備還庫模塊：將歸并到庫存的設(shè)備保存到數(shù)據(jù)庫。（4）設(shè)備需求模塊：記錄各部門的設(shè)備需求。（5）設(shè)備采購模塊：記錄要采購的設(shè)備。（6）切換面板：用于切換到不同的操作，如設(shè)備入庫、設(shè)備出庫等。（7）顯示報表：顯示庫存過多、庫存不足等信息。下面就按照功能模塊圖來設(shè)計該倉庫管理系統(tǒng)。首先在VisualFoxPro6.0中建立一個項(xiàng)目管理器，以便管理本系統(tǒng)中所有的數(shù)據(jù)，命名為“倉庫管理”。一下操作均在該項(xiàng)目管理器中進(jìn)行。以下所有表單的“desktop”屬性全部設(shè)為“.T.-真”。4．1功能選擇界面的設(shè)計：這一模塊的主要功能是作為系統(tǒng)主界面為進(jìn)入本系統(tǒng)不同功能界面選擇提供一個接口，使用一個窗口來實(shí)現(xiàn)這一功能。首先建立一個表單，設(shè)取“caption”屬性為“倉庫管理”。在該表單上添加6個“按鈕”控件，它們的“caption”屬性分別為“設(shè)備入庫”，“設(shè)備出庫”，“設(shè)備還庫”，“部門需求”，“設(shè)備采購”，“顯示報表”。然后在表單上添加“圖象控件”，并設(shè)其“stretch”屬性為“2-strech（擴(kuò)展）”，“pictrue”屬性為圖片所在的位置，本例中為“c:倉庫管理01.jpg”。在“comm.and1”(“caption”屬性為“設(shè)備入庫”)控件的“click”事件中添加如下代碼：doform設(shè)備入庫表thisform.release在“comm.and2”(“caption”屬性為“設(shè)備出庫”)控件的“click”事件中添加如下代碼：doform設(shè)備出庫表thisform.release在“comm.and3”(“caption”屬性為“設(shè)備還庫”)控件的“click”事件中添加如下代碼：doform設(shè)備還庫表thisform.release在“comm.and4”(“caption”屬性為“部門需求”)控件的“click”事件中添加如下代碼：doform部門需求表thisform.release在“comm.and5”(“caption”屬性為“設(shè)備采購”)控件的“click”事件中添加如下代碼：doform設(shè)備采購表thisform.release在“comm.and6”(“caption”屬性為“顯示報表”)控件的“click”事件中添加如下代碼：doform顯示報表thisform.release在“form1”的屬性里選擇“autocenter”設(shè)置為“.T.-真”，同時將“backcolor”設(shè)置為“255，255，255”，“windowstate”設(shè)置為“0-普通”。添加“form1”的“init”事件的代碼如下：setdirectorytoc:倉庫管理4．2設(shè)備入庫模塊的設(shè)計在設(shè)備入庫模塊中將實(shí)現(xiàn)設(shè)備數(shù)據(jù)的添加和入庫等功能。本模塊設(shè)計采用先用向?qū)杀韱?，然后修改的方法?shí)現(xiàn)。首先在項(xiàng)目管理器的文檔視圖下單擊“新建”按鈕，在接下來的向?qū)е?，“?shù)據(jù)庫和表”選擇“倉庫管理”以及“設(shè)備入庫表”，這是前面定義好的數(shù)據(jù)庫和表。由于設(shè)備入庫需要顯示所有的字段，因此我們將可用字段全部移至選定字段，如圖所示，單擊“下一步”按鈕，在表單樣式中，選擇“陰影式”以及“圖片按鈕”，如圖所示。左上角的窗口提供了表單樣式的預(yù)覽功能，圖片按鈕和文本按鈕的區(qū)別在于顯示的時候是以圖片來表達(dá)功能還是文字來表達(dá)，實(shí)現(xiàn)功能的函數(shù)沒有區(qū)別。選擇“上一步”按鈕可以跳回上一個界面對表單中顯示的字段進(jìn)行修改。單擊“下一步”按鈕后，向?qū)нM(jìn)行到“步驟3-排序次序”，如圖所示，選擇“設(shè)備號”為索引，并選擇升序排列。最后預(yù)覽表單，核對每項(xiàng)的設(shè)置，完成表單向?qū)В鐖D所示。值得注意的是，在結(jié)束表單向?qū)埃蛇x擇“保存表單以備將來使用”，“保存并運(yùn)行表單”，或者“保存表單并用表單設(shè)計器修改表單”。由于VisualFoxPro6.0向?qū)傻谋韱沃痪哂衅毡樾裕瑢τ诋?dāng)前設(shè)計的倉庫管理系統(tǒng)還需要一定的改變，因此以我們選擇“保存表單并用表設(shè)計器修改表單”。單擊“完成”按鈕系統(tǒng)提示保存表單，將表單保存為“設(shè)備入庫表.scx”，存于c:倉庫管理目錄下。然后打開表單修改器生成的表單，如圖所示。根據(jù)功能需求，把“cmdprint”、“”cmdexit、“cmdDelete”和“cmdedit”的Visible屬性都設(shè)為“.F.-假”。添加2個命令按鈕，Caption屬性分別設(shè)為“修改庫存”和“回主界面”。在“回主界面”命令按鈕的click事件中添加代碼如下：thisform.releasedoform倉庫管理在修改庫存命令按鈕的click事件中添加代碼如下：select現(xiàn)有庫存表getid=thisform.設(shè)備號1.text1.valuesetorderto設(shè)備號seekgetidiffound()getnum=thisform.入庫數(shù)量1.text1.valueupdate現(xiàn)有庫存表set現(xiàn)有庫存=(現(xiàn)有庫存+getnum)where(設(shè)備號=getid)elseinsertinto現(xiàn)有庫存表(設(shè)備號，現(xiàn)有庫存，最大庫存，最小庫存);value(thisform.設(shè)備號1.text1.value，thisform.入庫數(shù)量1.text1.value，1000，10)endifinsertinto操作日志表(操作員，操作內(nèi)容，操作時間);values(thisform.采購員1.text1.value，'設(shè)備入庫'，date())保存后運(yùn)行表單，界面如圖所示：4．3設(shè)備出庫模塊的設(shè)計：在設(shè)備出庫模塊中將實(shí)現(xiàn)設(shè)備出庫數(shù)據(jù)的添加和修改庫存等功能。該模塊的功能和設(shè)備入庫的功能相似。具體操作可以參考設(shè)備入庫模塊的設(shè)計，設(shè)計最終的界面如圖所示。在表單的左上角加上了顯示當(dāng)前時間的功能，添加標(biāo)簽label2的caption屬性設(shè)為“當(dāng)前時間”；添加label3的caption屬性設(shè)為空；為當(dāng)前表單的label3init事件添加如下代碼：this.caption=dtoc(date())該模塊具體實(shí)現(xiàn)過程不再一一詳細(xì)說明。下面列出了表單中所用到控件的屬性值。(1)Form1控件的主要屬性：下面時設(shè)備出庫表單中“修改庫存”命令按鈕的click事件的代碼：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)有庫存