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

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

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

3、ageText二確認(rèn)要?jiǎng)h除嗎？'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丄日占