倉庫管理系統的VISAULFOXPRO實現（中）

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