倉庫管理系統(tǒng)的實(shí)現(xiàn)概述(存儲(chǔ)版)
【正文】 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()) 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) =messagebox(警告，這已經(jīng)是最后一條記錄！,48,信息窗口) go bottom endif 7：添加操作員表單的最末按鈕的click事件源代碼： go bottom 8：添加操作員表單的修改按鈕的click事件源代碼： if =39。 =.f. =.f. =.f. =.f. =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。 update on exit ELSE TableRevert(.T.,lcAlias) amp。 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。 cMessageText=39。 =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. =.t. endif 9：添加操作員表單的添加按鈕的click事件源代碼： if =39。 =39。 小結(jié) 一個(gè)完整的倉庫管理系統(tǒng)到此就制作完成了。如果想修改這些文件，把它們放在項(xiàng)目中并設(shè)置為“排除”，然后作為獨(dú)立文件隨著應(yīng)用程序一起發(fā)布。 （1） 現(xiàn)設(shè)置應(yīng)用環(huán)境界面。 為了快速開發(fā)高效的軟件，本設(shè)計(jì)中的多數(shù)表單的設(shè)計(jì)采用利用表單設(shè)計(jì)向?qū)桑缓笤谏傻谋韱蔚幕A(chǔ)上修改。設(shè)置表單中控件的屬性。設(shè)備需求39。,date()) *如果庫存表中有該項(xiàng)設(shè)備，則更新庫存表,同時(shí)更新操作日志 else messagebox(出錯(cuò),1,錯(cuò)誤的設(shè)備號(hào)) *如果沒有該設(shè)備號(hào)則報(bào)告出錯(cuò)信息 endif 保存后運(yùn)行表單，可得到如圖所示的設(shè)備還庫表。每個(gè)表格表示在數(shù)據(jù)庫中的一個(gè)表。包括的數(shù)據(jù)項(xiàng)有歸還設(shè)備、歸還部門、歸還數(shù)目、歸還時(shí)間、經(jīng)手人等。包括的數(shù)據(jù)項(xiàng)有設(shè)備號(hào)、設(shè)備名稱。 ●在庫存管理中加入最高儲(chǔ)備和最低儲(chǔ)備字段，對(duì)倉庫中的物資設(shè)備實(shí)現(xiàn)監(jiān)控和報(bào)警。 ●刪除不必要的管理冗余，實(shí)現(xiàn)管理規(guī)范化、 科學(xué) 化。設(shè)備使用完畢需要及時(shí)歸還入庫，填寫入庫單。系統(tǒng)外部環(huán)境與內(nèi)部因素的變化，不斷影響系統(tǒng)的運(yùn)行，這時(shí)就需要不斷地完善系統(tǒng)，以提高系統(tǒng)運(yùn)行的效率與服務(wù)水平，這就需要從始至終地進(jìn)行系統(tǒng)的維護(hù)工作。 在系統(tǒng)實(shí)施階段要成立系統(tǒng)實(shí)施工作量到小組，組織各專業(yè)小組組長和有關(guān)部門的領(lǐng)導(dǎo)共同編制新系統(tǒng)實(shí)施計(jì)劃。用戶可以對(duì)新系統(tǒng)的邏輯模型提出意見，雙方經(jīng)過討論、修改，最后達(dá)成共識(shí)，并完成系統(tǒng)分析報(bào)告（系統(tǒng)邏輯設(shè)計(jì)說明書），經(jīng)有關(guān)領(lǐng)導(dǎo)審批通過之后，轉(zhuǎn)入系統(tǒng)設(shè)計(jì)（又稱系統(tǒng)物理設(shè)計(jì)）階段。 （6）新系統(tǒng)的功能和目標(biāo)：了解各級(jí)領(lǐng)導(dǎo)和各類業(yè)務(wù)工作人員對(duì)新系統(tǒng)功能的要求，為進(jìn)一步完善新系統(tǒng)的目標(biāo)做準(zhǔn)備。 調(diào)查的主要內(nèi)容有： （1）現(xiàn)行系統(tǒng)概況：該組織的 發(fā)展 歷史 、 目前 組織的規(guī)模、工作
電大資料相關(guān)推薦
鄂ICP備17016276號(hào)-1