mymenu.mpr

本人做的毕业设计

DEFINE BAR 5 OF (a_menupops[4]) PROMPT "打印到期记录(\<D)"
ON BAR 1 OF (a_menupops[4]) ACTIVATE POPUP (a_menupops[5])
ON BAR 2 OF (a_menupops[4]) ACTIVATE POPUP (a_menupops[6])
ON SELECTION BAR 4 OF (a_menupops[4]) ;
	DO _0ys0t8lev ;
	IN LOCFILE("ZCGL\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")
ON BAR 5 OF (a_menupops[4]) ACTIVATE POPUP (a_menupops[8])

DEFINE POPUP (a_menupops[5]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[5]) PROMPT "资产标签(\<L)" ;
	SKIP FOR Not zcgl.toolbar.cmdpri.enabled
DEFINE BAR 2 OF (a_menupops[5]) PROMPT "资产报表(\<B)" ;
	SKIP FOR Not zcgl.mode1="cpre"
ON SELECTION BAR 1 OF (a_menupops[5]) zcgl.toolbar.cmdpri.click
ON SELECTION BAR 2 OF (a_menupops[5]) ;
	DO _0ys0t8ley ;
	IN LOCFILE("ZCGL\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")

DEFINE POPUP (a_menupops[6]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[6]) PROMPT "资产标签(\<L)" ;
	SKIP FOR Not zcgl.mode1="cpre"
DEFINE BAR 2 OF (a_menupops[6]) PROMPT "资产报表(\<B)" ;
	SKIP FOR Not zcgl.mode1="cpre"
ON SELECTION BAR 1 OF (a_menupops[6]) ;
	DO _0ys0t8lf0 ;
	IN LOCFILE("ZCGL\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")
ON BAR 2 OF (a_menupops[6]) ACTIVATE POPUP (a_menupops[7])

DEFINE POPUP (a_menupops[7]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[7]) PROMPT "按编号汇总(\<G)" ;
	SKIP FOR Not zcgl.mode1="cpre"
DEFINE BAR 2 OF (a_menupops[7]) PROMPT "按类型汇总(\<L)" ;
	SKIP FOR Not zcgl.mode1="cpre"
DEFINE BAR 3 OF (a_menupops[7]) PROMPT "汇总摘要(\<Z)" ;
	SKIP FOR Not zcgl.mode1="cpre"
ON SELECTION BAR 1 OF (a_menupops[7]) ;
	DO _0ys0t8lf3 ;
	IN LOCFILE("ZCGL\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")
ON SELECTION BAR 2 OF (a_menupops[7]) REPORT FORM TOTBYLEI PREVIEW IN SCREEN
ON SELECTION BAR 3 OF (a_menupops[7]) ;
	DO _0ys0t8lf8 ;
	IN LOCFILE("ZCGL\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")

DEFINE POPUP (a_menupops[8]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[8]) PROMPT "资产报表(\<B)" ;
	SKIP FOR Not zcgl.mode1="cpre"
DEFINE BAR 2 OF (a_menupops[8]) PROMPT "催还通知(\<T)" ;
	SKIP FOR Not zcgl.mode1="cpre"
ON SELECTION BAR 1 OF (a_menupops[8]) REPORT FORM LENDEAD PREVIEW IN SCREEN
ON SELECTION BAR 2 OF (a_menupops[8]) REPORT FORM LENDNOTE PREVIEW IN SCREEN

DEFINE POPUP (a_menupops[9]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[9]) PROMPT "数据增加(\<A)" ;
	SKIP FOR not zcgl.toolbar.cmdadd.enabled
DEFINE BAR 2 OF (a_menupops[9]) PROMPT "数据修改(\<M)" ;
	SKIP FOR not zcgl.toolbar.cmdmod.enabled
DEFINE BAR 3 OF (a_menupops[9]) PROMPT "数据删除(\<D)" ;
	SKIP FOR not zcgl.toolbar.cmddel.enabled
DEFINE BAR 4 OF (a_menupops[9]) PROMPT "\-"
DEFINE BAR 5 OF (a_menupops[9]) PROMPT "资产报废(\<B)" ;
	SKIP FOR not zcgl.toolbar.cmdbf.enabled
DEFINE BAR 6 OF (a_menupops[9]) PROMPT "资产借还(\<J)" ;
	SKIP FOR (not zcgl.lend.enabled) or (zcgl.lend.visible=.F.) or (zcgl.lend.caption="回收")
ON SELECTION BAR 1 OF (a_menupops[9]) zcgl.toolbar.cmdadd.click
ON SELECTION BAR 2 OF (a_menupops[9]) zcgl.toolbar.cmdmod.click
ON SELECTION BAR 3 OF (a_menupops[9]) zcgl.toolbar.cmddel.click
ON SELECTION BAR 5 OF (a_menupops[9]) zcgl.toolbar.cmdbf.click
ON SELECTION BAR 6 OF (a_menupops[9]) zcgl.lend.click

DEFINE POPUP (a_menupops[10]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[10]) PROMPT "添加帐号(\<A)" ;
	SKIP FOR not zcgl.mode="csys"
DEFINE BAR 2 OF (a_menupops[10]) PROMPT "删除帐号(\<D)" ;
	SKIP FOR (not zcgl.mode="csys") or (not zcgl.mode1="cpre")
DEFINE BAR 3 OF (a_menupops[10]) PROMPT "修改帐号(\<M)" ;
	SKIP FOR (not zcgl.mode="csys") or (not zcgl.mode1="cpre")
DEFINE BAR 4 OF (a_menupops[10]) PROMPT "\-"
DEFINE BAR 5 OF (a_menupops[10]) PROMPT "修改密码(\<G)" ;
	SKIP FOR not zcgl.toolbar.cmdpass.enabled
ON SELECTION BAR 1 OF (a_menupops[10]) Do Form addacc
ON SELECTION BAR 2 OF (a_menupops[10]) Do Form delacc
ON SELECTION BAR 3 OF (a_menupops[10]) Do Form modacc
ON SELECTION BAR 5 OF (a_menupops[10]) zcgl.toolbar.cmdpass.click

DEFINE POPUP (a_menupops[11]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[11]) PROMPT "关于(\<A)" ;
	SKIP FOR not zcgl.mode1="cpre"
ON SELECTION BAR 1 OF (a_menupops[11]) DO FORM about

ACTIVATE MENU (m.cMenuName) NOWAIT

IF m.cTypeParm2 = "C"
	m.getMenuName = m.cMenuName
	m.oFormRef.Name = m.cSaveFormName 
ENDIF


*       *********************************************************
*       *                                                         
*       * _0YS0T8LEV  ON SELECTION BAR 4 OF POPUP 数据打印p       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   32         
*       * Called By:  ON SELECTION BAR 4 OF POPUP 数据打印p       
*       * Prompt:     打印借出记录(J)                             
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0ys0t8lev
REPORT FORM LENDOUT PREVIEW IN SCREEN


*       *********************************************************
*       *                                                         
*       * _0YS0T8LEY  ON SELECTION BAR 2 OF POPUP 打印当前记      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   21         
*       * Called By:  ON SELECTION BAR 2 OF POPUP 打印当前记      
*       * Prompt:     资产报表(B)                                 
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0ys0t8ley
TJ=".T."
TJ=TJ+"and 资产编号='"+ALLTRIM(ZCGL.TXT资产编号.VALUE)+"'"
REPORT FORM GSEROUT PREVIEW IN SCREEN


*       *********************************************************
*       *                                                         
*       * _0YS0T8LF0  ON SELECTION BAR 1 OF POPUP 打印全部记      
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   24         
*       * Called By:  ON SELECTION BAR 1 OF POPUP 打印全部记      
*       * Prompt:     资产标签(L)                                 
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0ys0t8lf0
TJ=".T."
LABEL FORM labcur.lbx preview IN SCREEN


*       *********************************************************
*       *                                                         
*       * _0YS0T8LF3  ON SELECTION BAR 1 OF POPUP 资产报表b       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   27         
*       * Called By:  ON SELECTION BAR 1 OF POPUP 资产报表b       
*       * Prompt:     按编号汇总(G)                               
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0ys0t8lf3
TJ=".T."
REPORT FORM GSEROUT preview IN SCREEN


*       *********************************************************
*       *                                                         
*       * _0YS0T8LF8  ON SELECTION BAR 3 OF POPUP 资产报表b       
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  MYMENU.MPR,            Record:   29         
*       * Called By:  ON SELECTION BAR 3 OF POPUP 资产报表b       
*       * Prompt:     汇总摘要(Z)                                 
*       * Snippet:    5                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _0ys0t8lf8
TJ=".T."
REPORT FORM GSEROUT PREVIEW  IN SCREEN SUMMARY