【文章內(nèi)容簡介】 為空表5 成品庫存表字段名數(shù)據(jù)類型寬度索引可否為空貨品號(hào)字符型6↑升序不可為空現(xiàn)有庫存數(shù)值型8不可為空最大庫存數(shù)值型9不可為空最小庫存數(shù)值型9不可為空表6 原料計(jì)劃采購表字段名數(shù)據(jù)類型寬度索引可否為空貨品號(hào)字符型6↑升序不可為空貨品名稱字符型16不可為空采購數(shù)量數(shù)值型9不可為空目標(biāo)供應(yīng)商字符型16不可為空計(jì)劃采購時(shí)間日期型8↑升序 輸入設(shè)計(jì)對(duì)系統(tǒng)需要的輸入進(jìn)行設(shè)計(jì)，本系統(tǒng)主要是查詢四川奕新實(shí)業(yè)成都生產(chǎn)基地和樂門業(yè)倉庫管理輸入的相關(guān)設(shè)計(jì)。具體設(shè)計(jì)如下：（1）入庫信息輸入設(shè)計(jì)（2）出庫信息輸入設(shè)計(jì)（3）倉庫信息查詢輸入設(shè)計(jì)（4）庫存信息查詢輸入設(shè)計(jì)（5）原料計(jì)劃采購信息輸入設(shè)計(jì)（6）添加用戶信息輸入設(shè)計(jì)（7）密碼修改信息輸入設(shè)計(jì) 輸出設(shè)計(jì)對(duì)系統(tǒng)需要的輸出結(jié)果進(jìn)行設(shè)計(jì)，本系統(tǒng)主要是查詢四川奕新集團(tuán)成都生產(chǎn)基地和樂門業(yè)倉庫管理的相關(guān)信息。具體設(shè)計(jì)如下：（1）倉庫信息查詢輸出設(shè)計(jì)（2）庫存信息查詢輸出設(shè)計(jì)（3）庫存報(bào)警匯總信息輸出設(shè)計(jì)（4）原料計(jì)劃采購匯總統(tǒng)計(jì)報(bào)表輸出設(shè)計(jì)6 系統(tǒng)實(shí)施系統(tǒng)實(shí)現(xiàn)包括用戶需求實(shí)現(xiàn)和數(shù)據(jù)庫實(shí)現(xiàn)兩方面，具體包括包含4個(gè)功能模塊的實(shí)現(xiàn)，即：入庫管理模塊、出庫管理模塊、信息查詢模塊、系統(tǒng)維護(hù)模塊，力求通過程序編碼實(shí)現(xiàn)系統(tǒng)的運(yùn)行。 用戶登陸新建一個(gè)表單，命名為“登錄界面”。把表單Caption屬性設(shè)置為“登錄界面”；在“登錄表單”表單上放置相應(yīng)的控件，2個(gè)標(biāo)簽Label，1個(gè)組合框Combo，1個(gè)文本框Text,3個(gè)命令按鈕Command，在表單屬性“Picture”中為登陸界面插入一張登陸界面的圖片，并在數(shù)據(jù)環(huán)境中添加庫存管理信息系統(tǒng)數(shù)據(jù)庫中的“用戶表”。登陸界面運(yùn)行如圖9所示，用戶通過該界面登錄進(jìn)入系統(tǒng)。在其輸入用戶名與密碼之后，單擊“確定”按鈕登錄數(shù)據(jù)庫。此時(shí)系統(tǒng)將輸入之信息與數(shù)據(jù)庫中“用戶表”中的信息進(jìn)行驗(yàn)證，若用戶名和密碼都正確，則進(jìn)入系統(tǒng)主菜單；若用戶名和密碼中有一項(xiàng)或全都不正確，則系統(tǒng)彈出提示框進(jìn)行提醒。圖9 系統(tǒng)登陸界面（1）“登錄”按鈕的Click事件代碼set talk offset safe offlocate for alltrim(用戶名)==alltrim() and alltrim(密碼)==alltrim() if !eof() if alltrim(級(jí)別)==管理員 public jb,用戶表name jb=1 用戶表name=alltrim() else public jb,用戶表name jb=0 用戶表name=alltrim() endif do do form 四川奕新集團(tuán)庫存管理信息系統(tǒng)elsedefine missmatch_loc 用戶名或密碼錯(cuò)，請重新登錄！wait window missmatch_loc timeout 1=39。39。=39。39。numcount=numcount+1 if numcount=4 numcount=0 mess =messagebox(三次口令錯(cuò)，將退出程序！,4+16+2,退出) clear event release thisform endif endifset talk onset safe on（2）“取消”按鈕的Click事件代碼==（3）“退出”按鈕的Click事件代碼（4）表單“Form”的Activate事件代碼set dele on=3=39。sele 用戶名 from 用戶表 into cursor tmp39。=public numcount numcount=0 主界面新建一個(gè)表單，命名為“四川奕新集團(tuán)庫存管理信息系統(tǒng)”。把表單Caption屬性設(shè)置為“四川奕新集團(tuán)庫存管理信息系統(tǒng)”；在“四川奕新集團(tuán)庫存管理信息系統(tǒng)”表單上放置相應(yīng)的控件，1個(gè)標(biāo)簽Label，1個(gè)計(jì)時(shí)器Tomer1，1個(gè)文本框Text,5個(gè)命令按鈕Command，1個(gè)Image控件，在表單屬性“Picture”中為主界面插入一張主界面圖片。正確填寫用戶名和密碼進(jìn)入系統(tǒng)后，出現(xiàn)四川奕新集團(tuán)成都生產(chǎn)基地和樂門業(yè)庫存管理信息系統(tǒng)主界面，主界面有入庫管理、出庫管理、信息查詢、系統(tǒng)維護(hù)和退出系統(tǒng)，根據(jù)需求選擇后，進(jìn)入下一界面。系統(tǒng)主界面如圖10所示：圖10 系統(tǒng)主界面（1）“入庫管理”按鈕的Click事件代碼do form 入庫管理（2）“出庫管理”按鈕的Click事件代碼do form 出庫管理（3）“信息查詢”按鈕的Click事件代碼do form 信息查詢（4）“系統(tǒng)維護(hù)”按鈕的Click事件代碼do form 系統(tǒng)維護(hù)（5）“退出系統(tǒng)”按鈕的Click事件代碼a=messagebox(你確定要退出系統(tǒng)嗎？,4+16+0,對(duì)話窗口)if a=6 release thisformendif （6）“Tomer1”計(jì)時(shí)器的Tomer事件代碼if 1 =else =endif 入庫管理 入庫單信息填寫新建一個(gè)表單，命名為“入庫管理”。在“入庫管理”表單上放置相應(yīng)的控件，1個(gè)表格Grid1，1容器Contianer1，在容器里放7個(gè)標(biāo)簽Label和7個(gè)文本框Text,1個(gè)命令按鈕組Commandgroup1，并把命令按鈕組的選址數(shù)目ButtonCount設(shè)置為“10”， 并在該表單的數(shù)據(jù)環(huán)境中添加庫存管理信息系統(tǒng)數(shù)據(jù)庫中的“入庫表”。運(yùn)行結(jié)果如圖11所示：圖11 入庫信息管理 在這張表單中可以瀏覽、修改和刪除以往所有的入庫單信息，并且“添加”新的入庫單信息，當(dāng)添加新的入庫信息后單擊“入庫”按鈕，系統(tǒng)則執(zhí)行“入庫”表單。（1）“最首”按鈕的Click事件代碼go top（2）“上一條”按鈕的Click事件代碼skip1if bof()?? chr(7) =messagebox(警告，這已經(jīng)是第一條記錄！,48,信息窗口)go topendif（3）“下一條”按鈕的Click事件代碼skipif eof()?? chr(7) =messagebox(警告，這已經(jīng)是最后一條記錄！,48,信息窗口)go bottomendif（4）“最末”按鈕的Click事件代碼go bottom（5）“修改”按鈕的Click事件代碼if jb=0 thenmessagebox(你沒有權(quán)限修改數(shù)據(jù)！,48,警告！)elseif =39。修改39。=.f.=.f.=.f.=.f.=.f.=.f. =.f.=39。保存39。=.f.=.f.=.f.=.f.=.f.=.f.=.f.else=39。修改39。=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.endifendif（6）“添加”按鈕的Click事件代碼if =39。添加39。=.f.=.f.=.f.=.f.=.f.=.f.=.f.=39。保存39。=.f.=.f.=.f.=.f.=.f.=.f.=.f.appe blan in 入庫表else=39。添加39。=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.=.t.select 原料庫存表locate for 設(shè)備號(hào)=if eof() thenappe blan repl 設(shè)備號(hào) with repl 現(xiàn)有庫存 with elserepl 現(xiàn)有庫存 with 現(xiàn)有庫存+endif（7）“刪除”按鈕的Click事件代碼if jb=0 thenmessagebox(你沒有權(quán)限刪除數(shù)據(jù)！,48,警告！)elsecMessageTitle=39。系統(tǒng)警告39。 cMessageText=39。確認(rèn)要?jiǎng)h除嗎？39。 nDialogType=4+32 nanswer=messagebox(cMessageText,nDialogType,cMessageTitle)if nanswer=6deleendifendif（8）“入庫”按鈕的Click事件代碼do form 入庫（9）“返回上級(jí)”按鈕的Click事件代碼do form 四川奕新集團(tuán)庫存管理信息系統(tǒng)（10）“退出”按鈕的Click事件代碼 入庫新建一個(gè)表單，命名為“入庫”。在“入庫”表單上放置相應(yīng)的控件， 2容器Contianer，在第一個(gè)容器里放7個(gè)標(biāo)簽Label和7個(gè)文本框Text, 在第二個(gè)容器里放4個(gè)標(biāo)簽Label和4個(gè)文本框Text ，1個(gè)編輯框Edit，5個(gè)命令按鈕Command。 在該表單的數(shù)據(jù)環(huán)境中添加庫存管理信息系統(tǒng)數(shù)據(jù)庫中的“入庫表”和“原料庫存表”，并將入庫表中的“貨品號(hào)”和原料庫存表中的“貨品號(hào)”建立關(guān)聯(lián)。當(dāng)在入庫管理界面中填寫完新的入庫單信息后，單擊“入庫”按鈕則進(jìn)入到入庫界面，運(yùn)行結(jié)果如圖12所示：圖12 入庫界面在新填寫的入庫單信息進(jìn)入入庫界面時(shí)，單擊入庫界面的“入庫”按鈕，則原材料入庫并且此次入庫數(shù)量自動(dòng)加到原料庫存表中的現(xiàn)有庫存中。運(yùn)行結(jié)果如圖13所示：圖13 入庫運(yùn)行結(jié)果（1）“上一條”按鈕的Click事件代碼skip1if bof()?? chr(7) =messagebox(警告，這已經(jīng)是第一條記錄！,48,信息窗口)go topselect 入庫表endif （2）“下一條”按鈕的Click事件代碼skipif eof()?? chr(7) =messagebox(警告，這已經(jīng)是最后一條記錄！,48,信息窗口)go bottomselect 入庫表endif （3）“入庫”按鈕的Click事件代碼set talk offset safe off=+= set talk onset safe on（4）“返回上級(jí)”按鈕的Click事件代碼do form 入庫管理（5）“退出”按鈕的Click事件代碼 出庫管理 出庫單信息填寫新建一個(gè)表單，命名為“出庫管理”。在“出庫管理”表單上放置相應(yīng)的控件，1個(gè)表格Grid1，1容器Contianer1，在容器里放7個(gè)標(biāo)簽Label和7個(gè)文本框Text,1個(gè)命令按鈕組Commandgroup1，并把命令按鈕組的選址數(shù)目ButtonCount設(shè)置為“10”， 并在該表單的數(shù)據(jù)環(huán)境中添加庫存管理信息系統(tǒng)數(shù)據(jù)庫中的“出庫表