倉庫管理系統(tǒng)的實現(xiàn)概述-資料下載頁
2025-06-29 09:33本頁面
【正文】 =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. () t36 /
電大資料相關(guān)推薦
鄂ICP備17016276號-1