czcd.mpr

来自「茄子的cs工资管理」· MPR 代码 · 共 33 行

Set SYSMENU TO
Set SYSMENU AUTOMATIC
Define PAD _0PL0GHZFM OF _MSYSMENU PROMPT '系统管理 (\<X)' COLOR SCHEME 3 KEY CTRL+X ,  ;
	'CTRL+X'
Define PAD _0PL0GHZFN OF _MSYSMENU PROMPT '工资管理 (\<G)' COLOR SCHEME 3 KEY CTRL+G ,  ;
	'CTRL+G'
Define PAD _0PL0GHZFO OF _MSYSMENU PROMPT '关于 (\<A)' COLOR SCHEME 3 KEY CTRL+A ,  ;
	'CTRL+A'
On PAD _0PL0GHZFM OF _MSYSMENU ACTIVATE POPUP 系统管理X
On PAD _0PL0GHZFN OF _MSYSMENU ACTIVATE POPUP 工资管理G
On SELECTION PAD _0PL0GHZFO OF _MSYSMENU DO FORM GY
Define POPUP 系统管理X COLOR SCHEME 4 SHADOW MARGIN RELATIVE
Define BAR 1 OF 系统管理X PROMPT '项目设置'
Define BAR 2 OF 系统管理X PROMPT '职工档案'
Define BAR 3 OF 系统管理X PROMPT '\-'
Define BAR 4 OF 系统管理X PROMPT '退出'
On SELECTION BAR 1 OF 系统管理X do form xmsz
On SELECTION BAR 2 OF 系统管理X do form zgda
On SELECTION BAR 4 OF 系统管理X  ;
	DO _0pl0ghzfv  IN LOCFILE("GZ\CZCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is CZCD?")
Define POPUP 工资管理G COLOR SCHEME 4 SHADOW MARGIN RELATIVE
Define BAR 1 OF 工资管理G PROMPT '工资发放'
Define BAR 2 OF 工资管理G PROMPT '\-'
Define BAR 3 OF 工资管理G PROMPT '统计查询'
On SELECTION BAR 1 OF 工资管理G do form gzb
On SELECTION BAR 3 OF 工资管理G do form gzb_cx

	Procedure _0pl0ghzfv
	SQLDISCONNECT(0)
	Quit
Endproc
*------*