ninmemoryunlessyouwishtoreactivateitlaterinanewform.
*IfyoupassedtheoptionallRenameparameteras.T.asintheaboveexample,
*youcaneasilyremovethemenuintheform'sDestroyeventasshownbelow.
*ThisstrategyisidealwhenusingmultipleinstancesofTop-Levelforms.
* example:
* PROCEDUREDestroy
* RELEASEMENU(THIS.Name)EXTENDED
* ENDPROC
*UsingAppend/Before/Afterlocationoptions:
*YoumightwanttoappendamenutoanexistingTop-Levelformbysetting
*theLocationoptionintheGeneralOptionsdialog.Inordertodothis,you
*mustpassthenameofthemenuinwhichtoattachthenewone.Thesecond
*parameterisrequiredhere.IfyouoriginallycreatedthemenuwiththelRename
*parameter=.T.,thenyoucanupdatethemenuwithcodesimilartothefollowing:
* example:
* DOmymenu2.mprWITHTHISFORM,THISFORM.name
*
*UsinglUniquePopups:
*Ifyouarerunningthismenumultipletimesinyourapplication,suchasinmultiple
*instancesofthesametop-levelform,youshouldpass.T.tothelUniquePopups
*parametersothatuniquepopupnamesaregeneratedtoavoidpossibleconflicts.
* example:
* PROCEDUREInit
* DOmymenu.mprWITHTHIS,.T.,.T.
* ENDPROC
*
*Note:Parm4-Parm9arenotreservedandfreelyavailableforusewithyourmenucode.
*LPARAMETERSoFormRef,getMenuName,lUniquePopups,parm4,parm5,parm6,parm7,parm8,parm9
LOCALcMenuName,nTotPops,a_menupops,cTypeParm2,cSaveFormName
IFTYPE("m.oFormRef")#"O"OR;
LOWER(m.oFormRef.BaseClass)#'form'OR;
m.oFormRef.ShowWindow#2
MESSAGEBOX([只能从顶层表单调用该表单。请确认您表单的ShowWindow属性已设为2阅读此菜单MPR文件的头部分,可以获得详细信息。])
RETURN
ENDIF
m.cTypeParm2=TYPE("m.getMenuName")
m.cMenuName=SYS(2015)
m.cSaveFormName=m.oFormRef.Name
IFm.cTypeParm2="C"OR(m.cTypeParm2="L"ANDm.getMenuName)
m.oFormRef.Name=m.cMenuName
ENDIF
IFm.cTypeParm2="C"AND!EMPTY(m.getMenuName)
m.cMenuName=m.getMenuName
ENDIF
DIMENSIONa_menupops[5]
IFTYPE("m.lUniquePopups")="L"ANDm.lUniquePopups
FORnTotPops=1TOALEN(a_menupops)
a_menupops[m.nTotPops]=SYS(2015)
ENDFOR
ELSE
a_menupops[1]="记录"
a_menupops[2]="打印"
a_menupops[3]="查询"
a_menupops[4]="信息"
a_menupops[5]="其它"
ENDIF
**********************************************************
DEFINEMENU(m.cMenuName)IN(m.oFormRef.Name)BAR
DEFINEPAD_1ee14ys59OF(m.cMenuName)PROMPT"记录"COLORSCHEME3
DEFINEPAD_1ee14ys5aOF(m.cMenuName)PROMPT"打印"COLORSCHEME3
DEFINEPAD_1ee14ys5bOF(m.cMenuName)PROMPT"查询ˉ"COLORSCHEME3
DEFINEPAD_1ee14ys5cOF(m.cMenuName)PROMPT"信息"COLORSCHEME3
DEFINEPAD_1ee14ys5dOF(m.cMenuName)PROMPT"其它"COLORSCHEME3
ONPAD_1ee14ys59OF(m.cMenuName)ACTIVATEPOPUP(a_menupops[1])
ONPAD_1ee14ys5aOF(m.cMenuName)ACTIVATEPOPUP(a_menupops[2])
ONPAD_1ee14ys5bOF(m.cMenuName)ACTIVATEPOPUP(a_menupops[3])
ONPAD_1ee14ys5cOF(m.cMenuName)ACTIVATEPOPUP(a_menupops[4])
ONPAD_1ee14ys5dOF(m.cMenuName)ACTIVATEPOPUP(a_menupops[5])
DEFINEPOPUP(a_menupops[1])MARGINRELATIVESHADOWCOLORSCHEME4
DEFINEBAR1OF(a_menupops[1])PROMPT"打开"
DEFINEBAR2OF(a_menupops[1])PROMPT"商品进货记录"
DEFINEBAR3OF(a_menupops[1])PROMPT"填写凭证"
ONSELECTIONBAR1OF(a_menupops[1]);
DO_1ee14ys5e;
INLOCFILE("E:\财务管理系统\主菜单","MPX;MPR|FXP;PRG","WHEREis主菜单?")
ONSELECTIONBAR2OF(a_menupops[1])doform商品进货记录
ONSELECTIONBAR3OF(a_menupops[1])doform±报帐凭证
DEFINEPOPUP(a_menupops[2])MARGINRELATIVESHADOWCOLORSCHEME4
DEFINEBAR1OF(a_menupops[2])PROMPT"打印年终报表"
ONSELECTIONBAR1OF(a_menupops[2])doform打印年终报表
DEFINEPOPUP(a_menupops[3])MARGINRELATIVESHADOWCOLORSCHEME4
DEFINEBAR1OF(a_menupops[3])PROMPT"按商品名称查询"
DEFINEBAR2OF(a_menupops[3])PROMPT"按验收员查询"
DEFINEBAR3OF(a_menupops[3])PROMPT"商品销售记录"
ONSELECTIONBAR1OF(a_menupops[3])doform按名称查询
ONSELECTIONBAR2OF(a_menupops[3])doform按验收员查询
ONSELECTIONBAR3OF(a_menupops[3])doform产品销售记录
DEFINEPOPUP(a_menupops[4])MARGINRELATIVESHADOWCOLORSCHEME4
DEFINEBAR1OF(a_menupops[4])PROMPT"信息"
ONSELECTIONBAR1OF(a_menupops[4])doform信息
DEFINEPOPUP(a_menupops[5])MARGINRELATIVESHADOWCOLORSCHEME4
DEFINEBAR1OF(a_menupops[5])PROMPT"关于"
DEFINEBAR2OF(a_menupops[5])PROMPT"\-"
DEFINEBAR3OF(a_menupops[5])PROMPT"退出"
ONSELECTIONBAR1OF(a_menupops[5])doform帮助
ONSELECTIONBAR3OF(a_menupops[5]);
DO_1ee14ys5p;
INLOCFILE("E:\财务管理系统\主菜单","MPX;MPR|FXP;PRG","WHEREis主菜单?")
ACTIVATEMENU(m.cMenuName)NOWAIT
IFm.cTypeParm2="C"
m.getMenuName=m.cMenuName
m.oFormRef.Name=m.cSaveFormName
ENDIF
**********************************************************
**_1EE14YS5EONSELECTIONBAR1OFPOPUP记录
**ProcedureOrigin:
**FromMenu:主菜单.MPR,Record:5
**CalledBy:ONSELECTIONBAR1OFPOPUP记录
**Prompt:打开
**Snippet:1
**********************************************************
*PROCEDURE_1ee14ys5e
=getfile()
**********************************************************
**_1EE14YS5PONSELECTIONBAR3OFPOPUP其它
**ProcedureOrigin:
**FromMenu:主菜单.MPR,Record:24
**CalledBy:ONSELECTIONBAR3OFPOPUP其它
**Prompt:退出
**Snippet:2
**********************************************************
*PROCEDURE_1ee14ys5p
_screen.activeform.release
clearevent
clearall
closeall
readevents
quit
setsysmenutodefault
**********************************************************
SETSYSMENUTO
SETSYSMENUAUTOMATIC
DEFINEPAD_0kt0z899xOF_MSYSMENUPROMPT"记录"COLORSCHEME3
DEFINEPAD_0kt0z899yOF_MSYSMENUPROMPT"′打印"COLORSCHEME3
DEFINEPAD_0kt0z899zOF_MSYSMENUPROMPT"查询ˉ"COLORSCHEME3
DEFINEPAD_0kt0z89a0OF_MSYSMENUPROMPT"更改密码"COLORSCHEME3
DEFINEPAD_0kt0z89a1OF_MSYSMENUPROMPT"其他"COLORSCHEME3
ONPAD_0kt0z899xOF_MSYSMENUACTIVATEPOPUP记录
ONPAD_0kt0z899yOF_MSYSMENUACTIVATEPOPUP打印
ONPAD_0kt0z899zOF_MSYSMENUACTIVATEPOPUP查询
ONPAD_0kt0z89a1OF_MSYSMENUACTIVATEPOPUP其他
DEFINEPOPUP记录MARGINRELATIVESHADOWCOLORSCHEME4
DEFINEBAR1OF记录PROMPT"′打开"
DEFINEBAR2OF记录PROMPT"商品进货记录"
DEFINEBAR3OF记录PROMPT"填写凭证"
ONSELECTIONBAR1OF记录;
DO_0kt0z89a2;
INLOCFILE("E:\财务管理系统\主菜单","MPX;MPR|FXP;PRG","WHEREis主菜单")
ONSELECTIONBAR
上一篇:
宾馆客房管理系统(论文设计)(论文和程序)
下一篇:
扛起年轻化大旗,哈弗F系玩转行业新风潮