main.prg

银行代发工资系统

*-------------------main.prg
set talk off
set esca off
set exact on
set excl on
*SET REPROCESS TO AUTOMATIC
*set default to c:\salary
*set help to salary.txt
set cons on
set date ansi
set score off
set safe off
set stat bar on
set cent on
set color to 
set sysmenu off
*set refresh to 1,1
set help on
clea
clear all
*ON ERROR DO err.PRG
on shutdown do Quit1.prg
*set proc to main2.prg
with _screen
 * .caption=''
 * .closable=.f.
 * .controlbox=.f.
 * .maxbutton=.f.
 * .minbutton=.f.
 * .movable=.f.
  .windowstate=1 
 * .caption=''
  .visible=.f.
endwith
do form begin
read event
do form login
read event
with _screen
  .visible=.t.
  .closable=.t.
  .controlbox=.t.
  .maxbutton=.t.
  .minbutton=.t.
  .movable=.t.
  .top=0
  .left=0
  .windowstate=2
  .caption='海宁市农村信用社代发企业接口系统 for Kami 1.0'
  *.picture='zhj6.bmp'
  .icon='support.ico'
  endwith
 
*---------------------
*do start.mpr

public gz_insert,gz_modify,gz_creat,gz_print,gz_passwd,gz_gj,gz_link,gz_gs,gz_clear,screen
SET SYSMENU TO _MSM_EDIT
SET SYSMENU AUTOMATIC

DEFINE PAD _s4r0mpm7v OF _MSYSMENU PROMPT "数据管理(\<N)" COLOR SCHEME 3 ;
	KEY ALT+N, ""
DEFINE PAD _s4r0mpm7y OF _MSYSMENU PROMPT "系统管理(\<S)" COLOR SCHEME 3 ;
	KEY ALT+S, ""
DEFINE PAD _s4r0mpm7x OF _MSYSMENU PROMPT "帮助(\<H)" COLOR SCHEME 3 ;
	KEY ALT+H, ""
ON PAD _s4r0mpm7v OF _MSYSMENU ACTIVATE POPUP 台帐基础管
ON PAD _s4r0mpm7y OF _MSYSMENU ACTIVATE POPUP 系统管理
ON PAD _s4r0mpm7x OF _MSYSMENU ACTIVATE POPUP 帮助h

DEFINE POPUP 台帐基础管 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 台帐基础管 PROMPT "企业工资导入(\<I)" ;
	MESSAGE '把企业工资数据导入到本系统中' 
DEFINE BAR 2 OF 台帐基础管 PROMPT "修改/查询工资(\<M)" ;
	MESSAGE '修改/查询企业工资' 
DEFINE BAR 3 OF 台帐基础管 PROMPT "生成信合代工盘(\<R)" ;
	MESSAGE '生成信合储蓄前sapc_xtzk系统代工Fox格式文件' 
DEFINE BAR 4 OF 台帐基础管 PROMPT "打印工资报表(\<P)" ;
	MESSAGE '打印企业工资报表' 
DEFINE BAR 5 OF 台帐基础管 PROMPT "\-" 
DEFINE BAR 6 OF 台帐基础管 PROMPT "修改登录密码(\<W)" ;
	MESSAGE '修改登录密码' 
DEFINE BAR 7 OF 台帐基础管 PROMPT "\-" 
DEFINE BAR 8 OF 台帐基础管 PROMPT "关闭(\<C)" ;
    MESSAGE '关闭代发企业工资系统'
ON SELECTION BAR 1 OF 台帐基础管 DO FORM gz_insert name gz_insert
ON SELECTION BAR 2 OF 台帐基础管 DO FORM gz_modify name gz_modify
ON SELECTION BAR 3 OF 台帐基础管 DO FORM gz_creat name gz_creat
ON SELECTION BAR 4 OF 台帐基础管 DO FORM gz_print name gz_print
*ON SELECTION BAR 6 OF 台帐基础管 DO form gz_passwd name gz_passwd
ON SELECTION BAR 6 OF 台帐基础管 modify stru
ON SELECTION BAR 8 OF 台帐基础管 do quit1

******
DEFINE POPUP 系统管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4

DEFINE BAR 1 OF 系统管理 PROMPT "修改工资项目(\<A)" ;
	MESSAGE '修改本系统中工资项目' 
DEFINE BAR 2 OF 系统管理 PROMPT "建立与企业工资项目对应关系(\<L)" ;
	MESSAGE '建立本系统中工资项目与企业工资项目的对应关系' 
DEFINE BAR 3 OF 系统管理 PROMPT "建立工资项目计算公式(\<K)" ;
	MESSAGE '打印企业工资报表' 
DEFINE BAR 4 OF 系统管理 PROMPT "数据清理(\<C)" ;
	MESSAGE '修改登录密码' 
ON SELECTION BAR 1 OF 系统管理 DO  gz_str
ON SELECTION BAR 2 OF 系统管理 DO form gz_link name gz_link
ON SELECTION BAR 3 OF 系统管理 DO form gz_gs name gz_gs
ON SELECTION BAR 4 OF 系统管理 DO gz_clear 


DEFINE POPUP 帮助h MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助h PROMPT "系统使用说明(\<H)" ;
	MESSAGE '系统使用帮助说明'
DEFINE BAR 2 OF 帮助h PROMPT "\-"
DEFINE BAR 3 OF 帮助h PROMPT "关于(\<A)" ;
    MESSAGE '系统著作版权及版本号'
ON SELECTION BAR 1 OF 帮助h DO help_RUN  
ON SELECTION BAR 3 OF 帮助h DO FORM ABOUT
acti menu _msysmenu nowait
do form gz_gj name gz_gj
*read event


 _screen.addobject("imge1","quit1")
  read event
define class quit1 as image
  top=-10
  left=0
 *height=_screen.height-50
 *width=_screen.width-50
  picture='main_back.jpg'
 backstyle=0
  visible=.t.
*  stretch=1
 enddefine