ops[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主菜单")
ONSELECTIONBAR2OF记录doform商品进货记录
ONSELECTIONBAR3OF记录doform±¨报帐凭证
DEFINEPOPUP打印MARGINRELATIVESHADOWCOLORSCHEME4
DEFINEBAR1OF打印PROMPT"打印年终报表í"
ONSELECTIONBAR1OF打印doform打印年终报表
DEFINEPOPUP查询MARGINRELATIVESHADOWCOLORSCHEME4
DEFINEBAR1OF查询PROMPT"按商品名称查询"
DEFINEBAR2OF查询PROMPT"按日期查询"
DEFINEBAR3OF2查询PROMPT"商品销售记录"
ONSELECTIONBAR1OF查询doform按名称查询
ONSELECTIONBAR2OF查询doform按日期查询
ONSELECTIONBAR3OF查询doform产品销售记录
DEFINEPOPUP其它MARGINRELATIVESHADOWCOLORSCHEME4
DEFINEBAR1OF其它PROMPT"1关于"
DEFINEBAR2OF其它PROMPT"\-"
DEFINEBAR3OF其它PROMPT"退出"
ONSELECTIONBAR3OF其它;
DO_0kt0z89a4;
INLOCFILE("E:\财务管理系统\主菜单","MPX;MPR|FXP;PRG","WHEREis主菜单")
**********************************************************
**_0KT0Z89A2ONSELECTIONBAR1OFPOPUP记录
**ProcedureOrigin:
**FromMenu:主菜单.PRG,Record:5
**CalledBy:ONSELECTIONBAR1OFPOPUP记录
**Prompt:打开
**Snippet:1
**********************************************************
PROCEDURE_0kt0z89a2
=getfile()
**********************************************************
**_0KT0Z89A4ONSELECTIONBAR3OFPOPUP其它
**ProcedureOrigin:
**FromMenu:主菜单.PRG,Record:24
**CalledBy:ONSELECTIONBAR3OFPOPUP其它
**Prompt:退出
**Snippet:2
**********************************************************
PROCEDURE_0kt0z89a4
_screen.activeform.release
clearevent
clearall
closeall
readevents
quit
setsysmenutodefault
ettalkoff
setexclusiveon