【文章內(nèi)容簡介】 lues (,39。設(shè)備入庫39。,date())*如果庫存表中沒有該項設(shè)備，則添加設(shè)備到庫存表保存后運行表單，界面如圖427所示：在設(shè)備出庫模塊中將實現(xiàn)設(shè)備出庫數(shù)據(jù)的添加和修改庫存等功能。該模塊的功能和設(shè)備入庫的功能相似。具體操作可以參考設(shè)備入庫模塊的設(shè)計，設(shè)計最終的界面如圖428所示。在表單的左上角加上了顯示當前時間的功能，添加標簽label2的caption屬性設(shè)為“當前時間”；添加label3的caption屬性設(shè)為空；為當前表單的label3init事件添加如下代碼：=dtoc(date())amp。amp。date()用來獲取當前的系統(tǒng)時間amp。amp。Init事件在每次表單被初始化時被調(diào)用該模塊具體實現(xiàn)留給讀者自行完成，表4410列出了表單中所用到控件的屬性值。下面時設(shè)備出庫表單中“修改庫存”命令按鈕的Click事件的代碼：set directory to c:\倉庫管理\use現(xiàn)有庫存表again*先在該表單的數(shù)據(jù)環(huán)境中添加現(xiàn)有庫存表getid=set order to 設(shè)備號seek getid *在現(xiàn)有庫存表中查找設(shè)備號等于getid的紀錄if found() getnum= update 現(xiàn)有庫存表。 set 現(xiàn)有庫存=(現(xiàn)有庫存getnum) where (設(shè)備號=getid)insert into 操作日志表（操作員，操作內(nèi)容，操作時間）；values(,‘設(shè)備出庫,’date()) *如果庫存表中有該項設(shè)備，則更新庫存表 insert into 操作日志表(操作員,操作內(nèi)容,操作時間)。 values (,39。設(shè)備出庫39。,date())elsemessagebox(出錯,1,錯誤的設(shè)備號)*如果沒有該設(shè)備號則報告出錯信息endif在設(shè)備還庫模塊中將實現(xiàn)設(shè)備還庫數(shù)據(jù)的添加和修改庫存等功能，按照上文介紹的步驟設(shè)計設(shè)備還庫表。設(shè)備還庫表所可能用到的控件的屬性如表41412所示.下面是設(shè)備還庫表中“修改庫存”命令按鈕的click事件的代碼：set directory to c:\倉庫管理\use現(xiàn)有庫存表again*先在該表單的數(shù)據(jù)環(huán)境中添加現(xiàn)有庫存表 getid=set order to 設(shè)備號seek getid *在現(xiàn)有庫存表中查找設(shè)備號等于getid的紀錄if found() getnum= update 現(xiàn)有庫存表。 set 現(xiàn)有庫存=(現(xiàn)有庫存getnum) where (設(shè)備號=getid) insert into 操作日志表(操作員,操作內(nèi)容,操作時間)。 values (,39。設(shè)備還庫39。,date()) *如果庫存表中有該項設(shè)備，則更新庫存表,同時更新操作日志else messagebox(出錯,1,錯誤的設(shè)備號)*如果沒有該設(shè)備號則報告出錯信息 endif保存后運行表單，可得到如圖429所示的設(shè)備還庫表。 設(shè)備需求模塊的設(shè)計在設(shè)備需求模塊中將實現(xiàn)設(shè)備需求數(shù)據(jù)的添加和保存日志等功能。首先通過Visual Foxpro的表單向?qū)伤璧脑O(shè)備需求表單，選擇部門需求表的所有可用字段，然后為保持程序風格的一致，繼續(xù)采用表單的陰影式和圖片按鈕的風格。在“步驟3排序次序”時。選擇設(shè)備號的升序排列。最后單擊“完成”按鈕，把表單保存在“c:\倉庫管理\”目錄下，名為“”。重要步驟參照圖430到圖433。通過表單向?qū)傻谋韱稳鐖D433所示，用戶可以調(diào)節(jié)控件的位置，修改表單中控件的屬性，最后結(jié)果如圖434所示。相關(guān)的屬性設(shè)置如表41表414所示。在表單設(shè)計器中，雙擊“保存日志”命令按鈕。添加click事件代碼如下：insert into 操作日志表 (操作員,操作內(nèi)容,操作時間) values (username,39。設(shè)備需求39。,date())*把設(shè)備需求寫入操作日志表中雙擊回主界面命令按鈕，添加click事件代碼如下：do form 倉庫管理*運行倉庫管理界面保存對表單所作的修改。 設(shè)備采購模塊的設(shè)計在設(shè)備采購模塊中將實現(xiàn)設(shè)備采購數(shù)據(jù)的添加和保存日志等功能。（1）由數(shù)據(jù)表生成表單通過Visual Foxpro的表單向?qū)В稍O(shè)備采購計劃表單。在選擇數(shù)據(jù)庫和表時，選擇倉庫管理數(shù)據(jù)庫和設(shè)備采購計劃表。在選擇字段時，選擇所有可用字段，選擇陰影式和圖片按鈕作為設(shè)備采購計劃表的樣式。選擇計劃采購時間的升序排列作為設(shè)備采購計劃表的索引。（2）為窗體修改和添加命令按鈕添加2個命令按鈕“保存日志”和“回主界面”。設(shè)置表單中控件的屬性。下面的表列出了需要修改的控件的名稱以及屬性值。表415 Form1控件的主要屬性 屬性名稱屬性值Caption設(shè)備采購表Autocenter.BackColor表416 ButtonSet1控件的主要屬性：控件名屬性名稱屬性值cmdExitVisible.cmdDeleteVisible.cmdPrintVisible.cmdEditVisible.Command1Caption保存日志Command2Caption回主界面3. 為按鈕添加click事件代碼：在表單設(shè)計器中，雙擊保存日志命令按鈕。添加click事件代碼如下：insert into 操作日志表 (操作員,操作內(nèi)容,操作時間) values (username,設(shè)備需求,date())*把設(shè)備需求寫入操作日志表中雙擊回主界面按鈕，添加click事件代碼如下：*釋放本表單do form 倉庫管理*運行倉庫管理界面保存對表單所作的修改，表單運行效果如圖435所示： 顯示報表模塊的設(shè)計在該模塊中，一共要顯示3個報表，分別提供庫存不足，庫存過多和操作日志等信息。1． 設(shè)計顯示報表表單在項目管理器的文檔視圖下選擇“新建”，然后選擇新建表單，如圖436所示。436在如圖437所示的空白表單中添加一個頁框控件，并按照下表417設(shè)置頁框的屬性，同時在數(shù)據(jù)環(huán)境里添加現(xiàn)有庫存表和操作日志表。 “pageframe1”控件的主要屬性控件名屬性名稱屬性值Form1Caption顯示報表Pageframe1Caption3Caption庫存不足表Caption庫存過多表Caption操作日志分別為每個page添加一個表格grid1，如圖438所示：分別為每個page添加一個表格grid1，如圖所示： 庫存過多表 庫存不足表 操作日志表設(shè)置表格控件的屬性，如表418所示：控件名屬性名稱屬性值ReadOnly.RecordSourceType1別名ColumnCount1ReadOnly.RecordSourceType1別名ColumnCount1ReadOnly.RecordSourceType1別名ColumnCount12． 代碼設(shè)計