【導(dǎo)讀】《倉(cāng)庫(kù)管理系統(tǒng)》是采用VISAULFOXPRO開(kāi)發(fā)的一個(gè)數(shù)據(jù)庫(kù)管理系統(tǒng)。本設(shè)計(jì)說(shuō)明書(shū)主要講述了VISAULFOXPRO的基本功能及設(shè)計(jì)方法。在系統(tǒng)分析中先后用數(shù)據(jù)流圖、系統(tǒng)的功能結(jié)構(gòu)圖分析了系統(tǒng)所需的。在系統(tǒng)的實(shí)現(xiàn)中，給出了實(shí)現(xiàn)表單中相應(yīng)的功能控。件的事件及代碼。企業(yè)的物資供應(yīng)管理往往是很復(fù)雜的，煩瑣的。由于所掌握的物資種類眾多，訂。制定相應(yīng)的方案。企業(yè)領(lǐng)導(dǎo)和自身管理的需要按月，季度，年來(lái)進(jìn)行統(tǒng)計(jì)分析，產(chǎn)生相應(yīng)報(bào)表。所以一個(gè)完整的企業(yè)物資供應(yīng)管理系統(tǒng)應(yīng)該包括計(jì)劃管理，合同托收管理，其中倉(cāng)庫(kù)管理是整個(gè)物資供。MIS是一門(mén)新的學(xué)科，它跨?？刂普?，他認(rèn)為管理是一個(gè)控制過(guò)程。本得到及時(shí)準(zhǔn)確的信息，做到較好的控制。機(jī)構(gòu)，他們?cè)谙到y(tǒng)中起主導(dǎo)作用。MIS是一項(xiàng)系統(tǒng)工程，不是只靠一些計(jì)算機(jī)開(kāi)。計(jì)算機(jī)技術(shù)是MIS得以實(shí)施的主要技術(shù)。企業(yè)的管理數(shù)據(jù)是MIS正常運(yùn)行的基礎(chǔ)。各項(xiàng)管理制度是MIS建設(shè)成功的基礎(chǔ)。息必須準(zhǔn)確，不致引起誤解或混亂?；煸谝黄?，以免互相干擾，影響速度。

　　

【正文】 還使我學(xué)到了很多有益的經(jīng)驗(yàn)。在此， 我謹(jǐn)向他表示最衷心的感謝。 同時(shí)，學(xué)校給了我這次畢業(yè)設(shè)計(jì)的機(jī)會(huì)，使我得到了很好的 鍛煉，在此，我也向?qū)W校的各位老師表示最誠(chéng)摯的感謝。 主要參考文獻(xiàn) 作者 . 書(shū)名 . 出版社 . 出版日期 1． 李加福 Visual 北京清華大學(xué)出版社 1999 年 6 月 2．周建成 命令與函數(shù)專輯北京人們郵電出版社 1994 年 7月 3．梁杰、效英、殷咸青 Foxpro for windows 使用詳解西安西安電子科技大學(xué)出版社 1995 年 5 月 倉(cāng)庫(kù)管理系統(tǒng) 第 42 頁(yè) 共 55 頁(yè) 附錄：程序運(yùn)行界面： 1：主界面： 2：設(shè)備入庫(kù)表： 3：設(shè)備出庫(kù)表： 4：設(shè)備還庫(kù)表： 5：部門(mén)需求表： 倉(cāng)庫(kù)管理系統(tǒng) 第 43 頁(yè) 共 55 頁(yè) 6：設(shè)備采購(gòu)表： 7：顯示報(bào)表： 附錄 2：主要控件的源代碼清單： 1：主程序源代碼： SET TALK off set sysmenu off set cent on =2 =icons\ =0 倉(cāng)庫(kù)管理系統(tǒng) 第 44 頁(yè) 共 55 頁(yè) =1 =.f. modify window screen noclose MODIFY WINDOW SCREEN TITLE 倉(cāng)庫(kù)管理信息系統(tǒng) ZOOM WINDOW SCREEN MAX set default to data do form 登錄表單 read events clear close all return endif 2：登錄表單的確定按鈕控件的 click 源代碼： locate for alltrim( 用 戶 名 )==alltrim() and alltrim( 密碼 )==alltrim() if !eof() if alltrim(級(jí)別 )==管理員 public jb,username jb=1 username=alltrim() else public jb,username jb=0 username=alltrim() endif do do form 倉(cāng)庫(kù)管理 else 倉(cāng)庫(kù)管理系統(tǒng) 第 45 頁(yè) 共 55 頁(yè) define missmatch_loc 用戶或口令錯(cuò)，請(qǐng)重新登錄！ 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 endif 3：密碼修改表單的修改按鈕的 click 事件源代碼： if empty() mess=messagebox(用戶名不能為空！ ,48,警告 ) else if empty() mess=messagebox(舊密碼不能為空！ ,48,警告 ) else if empty() mess=messagebox(新密碼不能為空！ ,48,警告 ) else if empty() mess=messagebox(重復(fù)密碼不能為空！ ,48,警告 ) else if alltrim()alltrim() or len(alltrim())len(alltrim()) 倉(cāng)庫(kù)管理系統(tǒng) 第 46 頁(yè) 共 55 頁(yè) mess=messagebox(二次密碼不一致！ ,48,警告 ) else locate for alltrim(用戶名 )==alltrim() and alltrim(密碼 )==alltrim() if eof() mess=messagebox(密碼錯(cuò)誤，系統(tǒng)將取消你的修改權(quán)利！ ,48,警告 ) else repl 密碼 with alltrim() mess=messagebox(密碼修改成功！ ,48,信息 ) endif 4：添加操作員表單的最首按鈕的 click 事件源代碼： go top 5：添加操作員表單的上一個(gè)按鈕的 click 事件源代碼： skip1 if bof() ?? chr(7) =messagebox(警告，這已經(jīng)是第一條記錄！ ,48,信息窗口 ) go top endif 6：添加操作員表單的下一個(gè)按鈕的 click 事件源代碼： skip if eof() ?? chr(7) 倉(cāng)庫(kù)管理系統(tǒng) 第 47 頁(yè) 共 55 頁(yè) =messagebox(警告，這已經(jīng)是最后一條記錄！ ,48,信息窗口 ) go bottom endif 7：添加操作員表單的最末按鈕的 click 事件源代碼： go bottom 8：添加操作員表單的修改按鈕的 click 事件源代碼： if =39。修改 39。 =.f. =.f. =.f. =.f. =39。保存 39。 =.f. =.f. =.f. =.f. =.f. =.f. =.f. else =39。修改 39。 =.t. =.t. =.t. =.t. =.t. 倉(cāng)庫(kù)管理系統(tǒng) 第 48 頁(yè) 共 55 頁(yè) =.t. =.t. =.t. =.t. =.t. =.t. endif 9：添加操作員表單的添加按鈕的 click 事件源代碼： if =39。添加 39。 =.f. =.f. =.f. =.f. =39。保存 39。 =.f. =.f. =.f. =.f. =.f. =.f. =.f. appe blan else =39。添加 39。 =.t. =.t. =.t. =.t. 倉(cāng)庫(kù)管理系統(tǒng) 第 49 頁(yè) 共 55 頁(yè) =.t. =.t. =.t. =.t. =.t. =.t. =.t. endif 10：添加操作員表單的刪除按鈕的 click 事件源代碼： cMessageTitle=39。系統(tǒng)警告 39。 cMessageText=39。確認(rèn)要?jiǎng)h除嗎？ 39。 nDialogType=4+32 nanswer=messagebox(cMessageText,nDialogType,cMessageTitle) if nanswer=6 dele endif 11：類 baseform的 picrecord 的源代碼： IF TYPE()C RETURN ENDIF IF () IF AND !EMPTY(ALIAS()) () * Check if we have blank record already from txtbtns IF GETFLDSTATE(1) 3 倉(cāng)庫(kù)管理系統(tǒng) 第 50 頁(yè) 共 55 頁(yè) () ENDIF ENDIF ENDIF 12：類 baseform的 queryunload 的源代碼： IF TYPE()C IF !() NODEFAULT RETURN .F. ENDIF RETURN ENDIF IF DODEFAULT() IF NOT () NODEFAULT RETURN .F. ENDIF ELSE NODEFAULT RETURN .F. ENDIF 13：類 baseform的 release 的源代碼： IF !() NODEFAULT RETURN .F. ENDIF 14：類 baseform的 resolveconflicts 的源代碼： DEFINE PROMPTTOSAVE_LOC Data has been changed. Would you like to save changes? 倉(cāng)庫(kù)管理系統(tǒng) 第 51 頁(yè) 共 55 頁(yè) IF ! RETURN ENDIF LOCAL nDECursors, aDECursors, cDataEnvRef, lPromptSave,lHadPrompt LOCAL lcAlias, lnFields, nPromptSave, i, loCurrentControl * Flush current control IF TYPE()=C AND。 PEMSTATUS(,value,5) AND。 PEMSTATUS(,controlsource,5) AND。 !EMPTY() loCurrentControl = * Check if data actually changed IF !EVAL()= = ENDIF loCurrentControl= ENDIF nDECursors = 0 cDataEnvRef = DIMENSION aDECursors[1] DO CASE CASE TYPE() = O nDECursors = AMEMBERS(aDECursors,2) cDataEnvRef = CASE TYPE() = O nDECursors = AMEMBERS(aDECursors,2) cDataEnvRef = 倉(cāng)庫(kù)管理系統(tǒng) 第 52 頁(yè) 共 55 頁(yè) CASE nDECursors=AUSED(aDECursors) OTHERWISE IF !EMPTY(ALIAS()) aDECursors[1]=ALIAS() nDECursors=1 ENDIF ENDCASE FOR i = 1 TO IF EMPTY() lcAlias = aDECursors[] ELSE WITH EVAL( + . + aDECursors[]) IF ATC(CURSOR,.BaseClass)=0 amp。amp。skip relations LOOP ENDIF lcAlias = .ALIAS ENDWITH ENDIF IF USED(lcAlias) AND CursorGetProp(sourcetype,lcAlias )=3 AND 。 CursorGetProp(buffering,lcAlias )1 IF ! IF CursorGetProp(buffering,lcAlias )3 IF GETNEXTMODIFIED(0,lcAlias )=0 LOOP ENDIF ELSE 倉(cāng)庫(kù)管理系統(tǒng) 第 53 頁(yè) 共 55 頁(yè) lnFields = GETFLDSTATE(1,lcAlias) IF REPLICATE(1,LEN(lnFields))=TRANS(lnFields) LOOP ENDIF ENDIF nPromptSave = MESSAGEBOX(PROMPTTOSAVE_LOC,35) IF nPromptSave=2 RETURN .F. ENDIF lPromptSave=(nPromptSave=6) lHadPrompt = .