【正文】 助 模 模 模 模 模 模 塊 塊 塊 塊 塊 塊 打 日 入 出 還 需 印 志 庫 庫 庫 求 設(shè) 管 模 模 模 模 置 理 塊 塊 塊 塊 第三章 數(shù)據(jù)庫設(shè)計 3． 1 數(shù)據(jù)庫需求分析 在仔細(xì)調(diào)查企業(yè)倉庫物資設(shè) 備管理過程的基礎(chǔ)上，得到本系統(tǒng)所處理的時間流程如圖所示： 倉庫現(xiàn)有庫存 各部門需求 企業(yè)總體生產(chǎn)計劃 匯總 處理 設(shè)備 采購 設(shè)備 出庫 設(shè)備 入庫 設(shè)備 還庫 數(shù)據(jù)流程圖 在本設(shè)計中，通過對企業(yè)倉庫管理的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計的 數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)如下： ● 設(shè)備代碼信息。 ● 設(shè)備使用信息。 ● 設(shè)備歸還信息。 有了上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項和數(shù)據(jù)流程，就能進行下面的數(shù)據(jù)庫設(shè)計。 倉庫管理系統(tǒng)數(shù)據(jù)庫中的各個表格的設(shè)計結(jié)果如下面的幾個表格所示。 在彈出的如圖所示的數(shù)據(jù)庫設(shè)計器中單擊鼠標(biāo)右鍵，選擇“新建表”，為數(shù)據(jù)庫添加數(shù)據(jù)表（表的內(nèi)容見上節(jié)）。 字段設(shè)置完成后，單擊“確定”按鈕后為表輸入數(shù)據(jù)，如不想現(xiàn)在輸入，可以先“取消”，以后再輸入。不過這種方法只 能一次輸入一條記錄，如果要輸入第二條記錄時，需再次選擇追加新記錄。 切換面板 設(shè) 設(shè) 設(shè) 設(shè) 設(shè) 顯 備 備 備 備 備 示 入 出 還 需 采 報 庫 庫 庫 求 購 表 下面對各模塊的作用進行說明： （ 1） 設(shè)備入庫模塊：添加設(shè)備到庫存中。 （ 5） 設(shè)備采購模塊：記錄要采購的設(shè)備。首先在 Visual 中建立一個項目管理器，以便管理本系 統(tǒng)中所有的數(shù)據(jù)，命名為“倉庫管理”。 首先建立一個表單，設(shè)取“ caption”屬性為“倉庫管理”。 添加“ form1”的“ init”事件的代碼如下： set directory to c:\倉庫管理 \ *將程序的默認(rèn)的路徑指向資源所在的文件夾 該表單設(shè)計結(jié)果如圖所示： 4． 2 設(shè)備入庫模塊 的設(shè)計 在設(shè)備入庫模塊中將實現(xiàn)設(shè)備數(shù)據(jù)的添加和入庫等功能。左上角的窗口提供了表單樣式的預(yù)覽功能，圖片按鈕和文本按鈕的區(qū)別在于顯 示的時候是以圖片來表達功能還是文字來表達，實現(xiàn)功能的函數(shù)沒有區(qū)別。 值得注意的是，在結(jié)束表單向?qū)?，可選擇“保存表單以備將來使用”，“保存并運行表單”，或者“保存表單并用表單設(shè)計器修改表單”。 在修改 BUTTONSET 時，可以通過屬性窗口的下拉列表選定單個按鈕，調(diào)整其位置和其它屬性。 在“回主界面”命令按鈕的 click 事件中添加代碼如下： do form 倉庫管理 在修改庫存命令按鈕的 click 事件中添加代碼如下： select 現(xiàn)有庫存表 getid= set order to 設(shè)備號 seek getid if found() getnum= update 現(xiàn)有庫存表 set 現(xiàn)有庫存 =( 現(xiàn)有庫存 +getnum) where (設(shè)備號=getid) else insert into 現(xiàn)有庫存表 (設(shè)備號 ,現(xiàn)有庫存 ,最大庫存 ,最小庫存 )。,date()) 保存后運行表單，界面如 圖所示： 4． 3 設(shè)備出庫模塊的設(shè)計： 在設(shè)備出庫模塊中將實現(xiàn)設(shè)備出庫數(shù)據(jù)的添加和修改庫存等功能。下面列出了表單中所用到 控件的屬性值。設(shè)備出庫 39。 values ( ,39。首先通過 Visual Foxpro 的表單向?qū)伤璧脑O(shè)備需求表單，選擇部門需求表的所有可用字段，然后為保持程序風(fēng)格的一致，繼續(xù)采用表單的陰影式和圖片按鈕的風(fēng)格。 通過表單向?qū)傻谋韱稳鐖D所示，我們可以調(diào)節(jié)控件的位置，修改表單中控件的屬性，最后結(jié)果所下圖所示： 相關(guān)的屬性設(shè)置如下圖所示： （ 1） Form1 控件的主要屬性： 屬性名稱 屬性值 Caption 部門需求表 Autocenter . BackColor （ 2） ButtonSet1 控件的主要屬性： 控件名 屬性名稱 屬性值 cmdExit Visible . cmdDelete Visible . cmdPrint Visible . cmdEdit Visible . Command1 Caption 保存日志 Command2 Caption 回主界面 在表單設(shè)計器中，雙擊“保存日志” 命令按鈕。 4． 6 設(shè)備采購模塊的設(shè)計 在設(shè)備采購模塊中將實現(xiàn)設(shè)備采購數(shù)據(jù)的添加和保存日志等功能。選擇計劃采購時間的升序排列作為設(shè)備采購計劃表的索引。 （ 1） Form1 控件的主要屬性： 屬性名稱 屬性值 Caption 設(shè)備采購表 Autocenter . BackColor （ 2） ButtonSet1 控件的主 要屬性： 控件名 屬性名稱 屬性值 cmdExit Visible . cmdDelete Visible . cmdPrint Visible . cmdEdit Visible . Command1 Caption 保存日志 Command2 Caption 回主界面 （ 3）為按鈕添加 click 事件代碼： 在表單設(shè)計器中，雙擊保存日志命令按鈕。 控件名 屬性名稱 屬性值 Form1 Caption 顯示報表 Pageframe1 Caption 3 Caption 庫存不足表 Caption 庫存過多表 Caption 操作日志 分別為每個 page 添加一個表格 grid1，如圖所示： 庫存過多表 庫存不足表 操作日志表 設(shè)置表格控件的屬性，如表所示： grid1 控件的主要屬性表： 控件名 屬性名稱 屬性值 ReadOnly . RecordSourceType 1別名 ColumnCount 1 ReadOnly . RecordSourceType 1別名 ColumnCount 1 ReadOnly . RecordSourceType 1別名 ColumnCount 1 2． 代碼設(shè)計 定義 的 init 事件 運行“顯示報表”表單，界面所圖所示： local Custs1 select 設(shè)備號 ,最大庫存 ,現(xiàn)有庫存 from 現(xiàn)有庫存表 where (現(xiàn)有庫存 最大庫存 ) into cursor Custs1 .庫存過多 .庫存過多表 .recordsource=Custs1 定義 的 init 事件 local Custs2 select 設(shè)備號 ,最小庫存 ,現(xiàn)有庫存 from 現(xiàn)有庫存表 where (現(xiàn)有庫存 最小庫存 ) into cursor Custs2 .庫存不足 .庫存不足表 .recordsource=Custs2 定義 的 init 事件 local Custs3 select * from 操作日志表 into cursor Custs3 .操作日志 .操作日志表 =Custs3 運行“顯示報表”表單，界面如圖所示。本設(shè)計過程中利用表單向?qū)姶蟮墓δ?，輕松完成了數(shù)據(jù)的查詢功能。 5． 2 構(gòu)造主文件 如果主文件是一個程序，它將調(diào)用應(yīng)用程序框架中的各個功能組件，然后由這些組件調(diào)用應(yīng)用程序的其余部分。 （ 3） 建立事件循環(huán)。 5． 3 在 .app 和 .exe 文件中包含和排除文件 如果在發(fā)布的應(yīng)用程序中不想再更改這些文件，可把它們放在項目中并設(shè)置為“包含”。建議除了一些特定的表格，最好不要包含這類文件。 如要排除可修改的文件，首先在項目管理器中，選擇可修改的文件，然后從“項目”菜單中選擇“排除”命令。 主要參考文獻 作者 . 書名 . 出版社 . 出版日期 1． 李加福 1999 年 6 月 2．周建成 1994 年 7月 3．梁杰、效英、殷咸青 1995 年 5 月