*       *********************************************************
*       *                                                         
*       * 12/27/04              RSGL.MPR                09:06:02  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (C) 2004 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This PROGRAM was automatically generated BY GENMENU.    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                        Setup Code                       
*       *                                                         
*       *********************************************************
*

set talk off
set safety off
set date ansi
set century on
set default to e:\li\rsgl
use rsda
select 0
use bmzd
select 0
use zwzd

dkda=.f.


*       *********************************************************
*       *                                                         
*       *                      Menu Definition                    
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1eu0ji829 OF _MSYSMENU PROMPT "系統(tǒng)" COLOR SCHEME 3
DEFINE PAD _1eu0ji82h OF _MSYSMENU PROMPT "編輯" COLOR SCHEME 3
DEFINE PAD _1eu0ji82i OF _MSYSMENU PROMPT "查詢及統(tǒng)計(jì)" COLOR SCHEME 3
DEFINE PAD _1eu0ji82j OF _MSYSMENU PROMPT "維護(hù)" COLOR SCHEME 3
ON PAD _1eu0ji829 OF _MSYSMENU ACTIVATE POPUP 系統(tǒng)
ON PAD _1eu0ji82h OF _MSYSMENU ACTIVATE POPUP 編輯
ON PAD _1eu0ji82i OF _MSYSMENU ACTIVATE POPUP 查詢及統(tǒng)計(jì)
ON PAD _1eu0ji82j OF _MSYSMENU ACTIVATE POPUP 維護(hù)

DEFINE POPUP 系統(tǒng) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系統(tǒng) PROMPT "打開人事檔案(\<D)" ;
	KEY CTRL+A, "CTRL+A"
DEFINE BAR 2 OF 系統(tǒng) PROMPT "關(guān)閉人事檔案(\<C)" ;
	KEY CTRL+D, "CTRL+D"
DEFINE BAR 3 OF 系統(tǒng) PROMPT "打印花名冊" ;
	KEY CTRL+P, "CTRL+P"
DEFINE BAR 4 OF 系統(tǒng) PROMPT "\-"
DEFINE BAR 5 OF 系統(tǒng) PROMPT "退出(\<Q)" ;
	KEY CTRL+Q, "CTRL+Q" ;
	MESSAGE '退出系統(tǒng)'
ON SELECTION BAR 1 OF 系統(tǒng) do form rsda name rsda
ON SELECTION BAR 2 OF 系統(tǒng) rsda.release
ON SELECTION BAR 3 OF 系統(tǒng) report form hmc
ON SELECTION BAR 5 OF 系統(tǒng) clear events

DEFINE POPUP 編輯 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 編輯 PROMPT "新增或修改人員"
DEFINE BAR 2 OF 編輯 PROMPT "\-"
DEFINE BAR 3 OF 編輯 PROMPT "刪除人員"
DEFINE BAR 4 OF 編輯 PROMPT "恢復(fù)人員"
DEFINE BAR 5 OF 編輯 PROMPT "\-"
DEFINE BAR _med_paste OF 編輯 PROMPT "粘貼(\<P)" ;
	KEY CTRL+V, "Ctrl+V" ;
	MESSAGE "粘貼剪貼板上的內(nèi)容"
DEFINE BAR _med_copy OF 編輯 PROMPT "復(fù)制(\<C)" ;
	KEY CTRL+C, "Ctrl+C" ;
	MESSAGE "將選定內(nèi)容復(fù)制到剪貼板上"
DEFINE BAR _med_cut OF 編輯 PROMPT "剪切(\<T)" ;
	KEY CTRL+X, "Ctrl+X" ;
	MESSAGE "移去選定內(nèi)容并將其放入剪貼板"
ON SELECTION BAR 1 OF 編輯 do form bjry name bjry
ON SELECTION BAR 3 OF 編輯 delete
ON SELECTION BAR 4 OF 編輯 recall

DEFINE POPUP 查詢及統(tǒng)計(jì) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查詢及統(tǒng)計(jì) PROMPT "查詢" ;
	SKIP FOR .not.dkda
DEFINE BAR 2 OF 查詢及統(tǒng)計(jì) PROMPT "查看簡歷"
DEFINE BAR 3 OF 查詢及統(tǒng)計(jì) PROMPT "統(tǒng)計(jì)"
ON SELECTION BAR 1 OF 查詢及統(tǒng)計(jì) do form cx name cx
ON SELECTION BAR 2 OF 查詢及統(tǒng)計(jì) do form ckjl name ckjl
ON BAR 3 OF 查詢及統(tǒng)計(jì) ACTIVATE POPUP 新菜單項(xiàng)

DEFINE POPUP 新菜單項(xiàng) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 新菜單項(xiàng) PROMPT "統(tǒng)計(jì)各部門人數(shù)"
DEFINE BAR 2 OF 新菜單項(xiàng) PROMPT "統(tǒng)計(jì)各職務(wù)人數(shù)"
ON SELECTION BAR 1 OF 新菜單項(xiàng) do tjbm
ON SELECTION BAR 2 OF 新菜單項(xiàng) do tjzw

DEFINE POPUP 維護(hù) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 維護(hù) PROMPT "部門字典"
DEFINE BAR 2 OF 維護(hù) PROMPT "職務(wù)字典"
ON SELECTION BAR 1 OF 維護(hù) do form bmzd name bmzd
ON SELECTION BAR 2 OF 維護(hù) do form zwzd name zwzd


*       *********************************************************
*       *                                                         
*       *                 Cleanup Code & Procedures               
*       *                                                         
*       *********************************************************
*

read events
set sysmenu to default
if dkda
   rsda.release
endif
close database all

cancel