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

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