cd.mpr

这是一个工资管理程序

*       *********************************************************
*       *                                                         
*       * 01/09/05               CD.MPR                 13:13:29  
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 作者名称                                                
*       *                                                         
*       * 版权所有 (C) 2005 公司名称                             
*       * 地址                                                    
*       * 城市,     邮编                                          
*       * 国家                                              
*       *                                                         
*       * 说明:                                            
*       * 此程序由 GENMENU 自动生成。    
*       *                                                         
*       *********************************************************


*       *********************************************************
*       *                                                         
*       *                         菜单定义                        
*       *                                                         
*       *********************************************************
*

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1f80scfsc OF _MSYSMENU PROMPT "数 据 录 入" COLOR SCHEME 3
DEFINE PAD _1f80scfsf OF _MSYSMENU PROMPT "数 据 查 询" COLOR SCHEME 3
DEFINE PAD _1f80scfsi OF _MSYSMENU PROMPT "数 据 传 递" COLOR SCHEME 3
DEFINE PAD _1f80scfsk OF _MSYSMENU PROMPT "报 表 输 出" COLOR SCHEME 3
DEFINE PAD _1f80scfsm OF _MSYSMENU PROMPT "倒班饭管理" COLOR SCHEME 3
DEFINE PAD _1f80scfso OF _MSYSMENU PROMPT "退       出" COLOR SCHEME 3
ON PAD _1f80scfsc OF _MSYSMENU ACTIVATE POPUP 数据录入
ON PAD _1f80scfsf OF _MSYSMENU ACTIVATE POPUP 数据查询
ON PAD _1f80scfsi OF _MSYSMENU ACTIVATE POPUP 数据传递
ON PAD _1f80scfsk OF _MSYSMENU ACTIVATE POPUP 报表输出
ON PAD _1f80scfsm OF _MSYSMENU ACTIVATE POPUP 倒班饭管理
ON SELECTION PAD _1f80scfso OF _MSYSMENU clear event

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 "录入奖金"
DEFINE BAR 5 OF 数据录入 PROMPT "初始化"
ON SELECTION BAR 1 OF 数据录入 do form lrykq
ON SELECTION BAR 2 OF 数据录入 do form zjxjl
ON SELECTION BAR 3 OF 数据录入 do form xqjl
ON SELECTION BAR 4 OF 数据录入 do form lrjj
ON SELECTION BAR 5 OF 数据录入 do form csh

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 "考勤情况"
DEFINE BAR 5 OF 数据查询 PROMPT "补退工资"
DEFINE BAR 6 OF 数据查询 PROMPT "浏览查询"
ON SELECTION BAR 1 OF 数据查询 do form zrqk
ON SELECTION BAR 2 OF 数据查询 do form rydd
ON SELECTION BAR 3 OF 数据查询 do form cgjj
ON SELECTION BAR 4 OF 数据查询 do form kqqk
ON SELECTION BAR 5 OF 数据查询 do form btgz
ON SELECTION BAR 6 OF 数据查询 ;
	DO _1f80scftn ;
	IN LOCFILE("..\GZGL\CD" ,"MPX;MPR|FXP;PRG" ,"WHERE is CD?")

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 "数据存储"
ON SELECTION BAR 1 OF 数据传递 do hzys
ON SELECTION BAR 2 OF 数据传递 ;
	DO _1f80scftw ;
	IN LOCFILE("..\GZGL\CD" ,"MPX;MPR|FXP;PRG" ,"WHERE is CD?")
ON SELECTION BAR 3 OF 数据传递 ;
	DO _1f80scftz ;
	IN LOCFILE("..\GZGL\CD" ,"MPX;MPR|FXP;PRG" ,"WHERE is CD?")
ON SELECTION BAR 4 OF 数据传递 ;
	DO _1f80scfu2 ;
	IN LOCFILE("..\GZGL\CD" ,"MPX;MPR|FXP;PRG" ,"WHERE is CD?")

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 "总汇总单"
DEFINE BAR 5 OF 报表输出 PROMPT "倒班补贴"
DEFINE BAR 6 OF 报表输出 PROMPT "倒班补贴汇总"
ON SELECTION BAR 1 OF 报表输出 do form gzd
ON SELECTION BAR 2 OF 报表输出 do form gzt
ON SELECTION BAR 3 OF 报表输出 ;
	DO _1f80scfuc ;
	IN LOCFILE("..\GZGL\CD" ,"MPX;MPR|FXP;PRG" ,"WHERE is CD?")
ON SELECTION BAR 4 OF 报表输出 ;
	DO _1f80scfug ;
	IN LOCFILE("..\GZGL\CD" ,"MPX;MPR|FXP;PRG" ,"WHERE is CD?")
ON SELECTION BAR 5 OF 报表输出 do form dbfbt
ON SELECTION BAR 6 OF 报表输出 ;
	DO _1f80scfuk ;
	IN LOCFILE("..\GZGL\CD" ,"MPX;MPR|FXP;PRG" ,"WHERE is CD?")

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 "倒班饭汇总"
DEFINE BAR 5 OF 倒班饭管理 PROMPT "倒班饭上报"
DEFINE BAR 6 OF 倒班饭管理 PROMPT "倒班饭传入"
ON SELECTION BAR 1 OF 倒班饭管理 do form lrdbf
ON SELECTION BAR 2 OF 倒班饭管理 do form dbfcsh
ON SELECTION BAR 3 OF 倒班饭管理 do form cgdbf
ON SELECTION BAR 4 OF 倒班饭管理 do dbfhz
ON SELECTION BAR 5 OF 倒班饭管理 ;
	DO _1f80scfuv ;
	IN LOCFILE("..\GZGL\CD" ,"MPX;MPR|FXP;PRG" ,"WHERE is CD?")
ON SELECTION BAR 6 OF 倒班饭管理 ;
	DO _1f80scfuz ;
	IN LOCFILE("..\GZGL\CD" ,"MPX;MPR|FXP;PRG" ,"WHERE is CD?")


*       *********************************************************
*       *                                                         
*       * _1F80SCFTN  ON SELECTION BAR 6 OF POPUP 数据查询        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  CD.MPR,            Record:   17             
*       * Called By:  ON SELECTION BAR 6 OF POPUP 数据查询        
*       * Prompt:     浏览查询                                    
*       * Snippet:    1                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1f80scftn
uae gzda
inde on dwbm to dwm
brow nomo
use


*       *********************************************************
*       *                                                         
*       * _1F80SCFTW  ON SELECTION BAR 2 OF POPUP 数据传递        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  CD.MPR,            Record:   21             
*       * Called By:  ON SELECTION BAR 2 OF POPUP 数据传递        
*       * Prompt:     总厂数据传入                                
*       * Snippet:    2                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1f80scftw
cmessagetitle = '准备从软盘中上传总厂数据'
cmessagetext = '请在A：驱中插入磁盘，继续否？'
ndialogtype = 4 + 32 + 256
* 4 = yes and no buttons
* 32 = question mark icon
* 256 = second button is default

nanswer = messagebox(cmessagetext, ndialogtype, cmessagetitle)

do case
case nanswer = 6
copy A:gzda.dbf
case nanswer = 7
endcase


*       *********************************************************
*       *                                                         
*       * _1F80SCFTZ  ON SELECTION BAR 3 OF POPUP 数据传递        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  CD.MPR,            Record:   22             
*       * Called By:  ON SELECTION BAR 3 OF POPUP 数据传递        
*       * Prompt:     分厂数据上报                                
*       * Snippet:    3                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1f80scftz
cmessagetitle = '准备上报工资数据库'
cmessagetext = '请在A：驱中插入磁盘，继续否？'
ndialogtype = 4 + 32 + 256
* 4 = yes and no buttons
* 32 = question mark icon
* 256 = second button is default

nanswer = messagebox(cmessagetext, ndialogtype, cmessagetitle)

do case
case nanswer = 6
use gzda
copy to A:gzda
use
close data
case nanswer = 7
endcase


*       *********************************************************
*       *                                                         
*       * _1F80SCFU2  ON SELECTION BAR 4 OF POPUP 数据传递        
*       *                                                         
*       * Procedure Origin:                                       
*       *                                                         
*       * From Menu:  CD.MPR,            Record:   23             
*       * Called By:  ON SELECTION BAR 4 OF POPUP 数据传递        
*       * Prompt:     数据存储                                    
*       * Snippet:    4                                           
*       *                                                         
*       *********************************************************
*
PROCEDURE _1f80scfu2
cmessagetitle = '准备存贮本月数据库'
cmessagetext = '请确认本月月份，继续否？'
ndialogtype = 4 + 32 + 256
* 4 = yes and no buttons
* 32 = question mark icon
* 256 = second button is default

nanswer = messagebox(cmessagetext, ndialogtype, cmessagetitle)

do case
case nanswer = 6
sele a
use yk
loca for y=month(date())