倉庫管理系統(tǒng)的VISAULFOXPRO實現(xiàn)(下)

1、倉庫管理系統(tǒng)的 VISAUL FOXPRO 實現(xiàn) 下在設備還庫模塊中將實現(xiàn)設備還庫數(shù)據(jù)的添加和修改庫存等功能，按照前面介紹的步驟設計設備還庫表。設備還庫表所可能用到的控件的屬性如表所示：1Forml控件的主要屬性：select現(xiàn)有庫存表*先在該表單的數(shù)據(jù)環(huán)境中添加現(xiàn)有庫存表getid二thisform.設備號 setorderto 設備號seekgetid*在現(xiàn)有庫存表中查找設備號等于getid的紀錄iffou ndget num 二thisform .歸還數(shù)量 update現(xiàn)有庫存表；set現(xiàn)有庫存=ODIFYAXsetdefaulttodatadoform登錄表單readeve ntscl

2、earcloseall returnen dif 2：登錄表單確實定按鈕控件的click源代碼：locateforalltrim=alltrima ndalltrim=alltrimif!eofifalltrim=管理員publicjb, user namejb=1username二alltrimelsepublicjb, user namejb=Ousername二alltrimen difdome nu. mprthisform.releasedoform倉庫管理else#defi nemissmatch_loc用戶或口令錯，請重新登錄！essageTitle二系統(tǒng)警告'cMess

3、ageText二確認要刪除嗎？'n DialogType=4+32nan sEDIATOR.PickRecordToEDIATOR.IAddi ngAND!EMPT Y)THIS.REFRESH*Checkifediator.QueryU nloadNODEFAULTRETURN.F.ENDIFELSENODEFAULTRETURN.F.ENDIF13：類 baseform的 release的源代碼：IF!THIS.Queryu nloadNODEFAULTRETURN.F.ENDIF14：類 baseform 的 resolveconflicts 的源代碼：#DEFINEPROMPT

4、TOSAVE_LOC D atahasbeenchanged.STATUSAND;PEMSTATUSAND;!EMPTYloCurre ntCo ntrol二THlS.ActiveCo ntrol*Checkifdataactuallycha ngedIF!EVAL=loCurre ntCon trol.ValueloCurre ntCo ntrol.Value=loCurre ntCo ntrol.ValueENDIFloCurre ntCon trol二“ENDIFn DECursors=0cDataEnvRef二“DIMENSIONaDECursors1DOCASECASET YPE二“

5、On DECursors二AMEMBERScDataEnvRef二 “THISFORM.DataEnvironment CASET YPE二“ On DECursors二AMEMBERScDataE nvRef二 “ THISFORMSET.DataE nviro nmentCASETHlS.IUpdateAIIBufferedTablesn DECursors二AUSEDOTHERPT Y)aDECursors1=ALIASn DECursors=1ENDIFENDCASEF0Ri=1T0m. nDECursorsIFEMPTYIcAlias二aDECursorsm.iELSEODIFIED=0LOOPENDIFELSEIn Fields二GETFLDSTATEIFREPLICATE二TRANSLOOPENDIFENDIFn PromptSave二MESSAGEBOXIFn PromptSave=2RETURN.F.ENDIFIPromptSave二IHadPrompt二.T.ENDIFIFmPromptSaveTableUpdateupdate on exitELSETableRevertupdate on exitpjooeyoijSIH 丄T 二印 ecipai%n 日"esiSIH 丄 deujinsjidMOMsrSIH 丄 diaN3 NdPI丄日占