倉庫管理系統(tǒng)的visaulfoxpro實現(xiàn)-資料下載頁
2025-08-29 08:37本頁面
【導(dǎo)讀】本設(shè)計說明書主要講述了VISAULFOXPRO的基本功能及設(shè)計方法。在系統(tǒng)分析中先后用數(shù)據(jù)流圖、系統(tǒng)的功能結(jié)構(gòu)圖分析了。系統(tǒng)所需的各種數(shù)據(jù)。需的數(shù)據(jù)庫表及表字段。在系統(tǒng)的實現(xiàn)中，給出了實現(xiàn)表單中相。應(yīng)的功能控件的事件及代碼。企業(yè)的物資供應(yīng)管理往往是很復(fù)雜的，煩瑣的。由于所掌握的物資種類眾多，情況制定相應(yīng)的方案。導(dǎo)和自身管理的需要按月，季度，年來進(jìn)行統(tǒng)計分析，產(chǎn)生相應(yīng)報表。管理，定額管理，統(tǒng)計管理，財務(wù)管理等模塊。MIS是一門新的學(xué)科，的、預(yù)測未來的有關(guān)企業(yè)內(nèi)部及其環(huán)境的信息，以幫助他們進(jìn)行決策。人是指企業(yè)領(lǐng)導(dǎo)者、管理人員、技術(shù)人員，以及MIS建設(shè)的領(lǐng)導(dǎo)機(jī)構(gòu)和實施機(jī)構(gòu)，MIS是一項系統(tǒng)工程，不是只靠一些計算機(jī)開發(fā)人員。項管理制度是MIS建設(shè)成功的基礎(chǔ)。必須準(zhǔn)確，不致引起誤解或混亂。在一起，以免互相干擾，影響速度。報表打印是MIS必備的功能之一，而且打印之前常常需要計算。設(shè)計，雖然消耗時間，但易于整個MIS系統(tǒng)的維護(hù)。
【正文】 len(alltrim())len(alltrim()) mess=messagebox(二次密碼不一致！ ,48,警告 ) else locate for alltrim(用戶名 )==alltrim() and alltrim(密碼 )==alltrim() if eof() mess=messagebox(密碼錯誤，系統(tǒng)將取消你的修改權(quán)利！ ,48,警告 ) else repl 密碼 with alltrim() mess=messagebox(密碼修改成功！ ,48,信息 ) endif 4：添加操作員表單的最首按鈕的 click 事件源代碼： go top 5：添加操作員表單的上一個按鈕的 click 事件源代碼： skip1 if bof() ?? chr(7) =messagebox(警告，這已經(jīng)是第一條記錄！ ,48,信息窗口 ) go top endif 6：添加操作員表單的下一個按鈕的 click 事件源代碼： skip if eof() ?? chr(7) =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. =.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. =.t. =.t. =.t. =.t. =.t. =.t. =.t. endif 10：添加操作員表單的刪除按鈕的 click 事件源代碼： cMessageTitle=39。系統(tǒng)警告 39。 cMessageText=39。確認(rèn)要刪除嗎？ 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 () 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? 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 = 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 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 = .T. ENDIF IF TableUpdate(.T.,.T.,lcAlias) amp。amp。 update on exit ELSE TableRevert(.T.,lcAlias) amp。amp。 update on exit ENDIF ENDIF ENDFOR 15：類 baseform 的 show 的源代碼： LPARAMETERS nStyle LOCAL lcAppRef IF TYPE()C OR ! RETURN ENDIF = .F. = .F. () t
公司管理相關(guān)推薦
鄂ICP備17016276號-1