wuqiwu.prg

本工资管理系统由foxpro编写,可在VF下运行

************************************************
* 文件:      GZ.PRG
* 功能:      工资管理系统主控文档
************************************************
clear
set talk off
set scor off
set status off
set escape on
clear
close all
clear all
set sysmenu off
set colo to gr/*r
clear

define window main from 0,0 to 30,90 
activate window main


exitprogram=.t.

do while exitprogram

 define menu msysmenu bar at line 0  key alt+z 
 define pad _rdy15mue2 of msysmenu prompt "  S输入  " color scheme 8;
   key alt+s,"alt+s" skip for .f.
 define pad _rdy15mue3 of msysmenu prompt "  T统计  " color scheme 8;
   key alt+t,"alt+t" skip for .f.
 define pad _rdy15mue1 of msysmenu prompt "  J建档  " color scheme 8;
   key alt+j,"alt+j" skip for .f.
 define pad _rdy15mue4 of msysmenu prompt "  C查询  " color scheme 8;
    key alt+c,"alt+c" skip for .f.
 define pad _rdy15mue5 of msysmenu prompt "  P打印  " color scheme 8;
    key alt+p,"alt+p" skip for .f.
 define pad _rdy15mue6 of msysmenu prompt "  H帮助  " color scheme 8;
    key alt+h,"alt+h" skip for .f.
 on pad _rdy15mue1 of msysmenu activate popup popjd
 on pad _rdy15mue2 of msysmenu activate popup popinput
 on pad _rdy15mue3 of msysmenu activate popup popcount
 on pad _rdy15mue4 of msysmenu activate popup popbrows
 on pad _rdy15mue5 of msysmenu activate popup popprint
 on pad _rdy15mue6 of msysmenu activate popup pophelp

 define popup popinput relative shadow color scheme 4 
 define bar 1 of popinput prompt "单项异动输入";
     key ctrl+s,"ctrl+d" 
 define bar 2 of popinput prompt "表格浏览输入";
     key ctrl+s,"ctrl+b" 
 define bar 3 of popinput prompt "单个职工输入";
     key ctrl+g,"ctrl+g"
 define bar 4 of popinput prompt "退出";
    key alt+x,"alt+x"
 on selection bar 1 of popinput do dxydsr
 on selection bar 2 of popinput do bgllsr
 on selection bar 3 of popinput do dgzgsr
 on selection bar 4 of popinput canc
 
 define popup popcount relative shadow color scheme 4 
 define bar 1 of popcount prompt "统计";
      key ctrl+t,"ctrl+t" 
 on selection bar 1 of popcount do gztj

 define popup popjd margin relative shadow color scheme 4 
 define bar 1 of popjd prompt "增加职工档案"
 define bar 2 of popjd prompt "删除职工档案" skip for .f.
 define bar 3 of popjd prompt "修改职工档案"
 on selection bar 1 of popjd do addrec
 on selection bar 2 of popjd do delrec
 on selection bar 3 of popjd do editrec
 
 define popup popbrows margin relative shadow color scheme 4 
 define bar 1 of popbrows prompt "查统计数据"
 define bar 2 of popbrows prompt "按编号查询"
 define bar 3 of popbrows prompt "按姓名查询"
 define bar 4 of popbrows prompt "按实发查询"
 define bar 5 of popbrows prompt "按应发查询"
 define bar 6 of popbrows prompt "按扣发查询"
 define bar 7 of popbrows prompt "按工作量奖"
 define bar 8 of popbrows prompt "按电费查询"
 define bar 9 of popbrows prompt "自由式查询"

 on selection bar 1 of popbrows do cxtj
 on selection bar 2 of popbrows do cxbh
 on selection bar 3 of popbrows do cxxm
 on selection bar 4 of popbrows do cxsf
 on selection bar 5 of popbrows do cxyf
 on selection bar 6 of popbrows do cxkf
 on selection bar 7 of popbrows do cxgzl
 on selection bar 8 of popbrows do cxdf
 on selection bar 9 of popbrows do zyscx

 define popup popprint margin relative shadow color scheme 4 
 define bar 1 of popprint prompt "打印工资条"
 define bar 2 of popprint prompt "打印工资表"
 define bar 3 of popprint prompt "打印汇总表"
 define bar 4 of popprint prompt "打印小票表"
 define bar 5 of popprint prompt "通用报表打印"
 on selection bar 1 of popprint do dygzt
 on selection bar 2 of popprint do dygzb
 on selection bar 3 of popprint do dyhzb
 on selection bar 4 of popprint do dyxpb
 on selection bar 5 of popprint do bg.fxp
 
 define popup pophelp margin relative shadow color scheme 4 
 define bar 1 of pophelp prompt "帮助"
 define bar 2 of pophelp prompt "说明"
 define bar 3 of pophelp prompt "屏幕保护"
 on selection bar 1 of pophelp do thank1
 on selection bar 2 of pophelp do thank1
 on selection bar 3 of pophelp do pmbh

activate menu msysmenu 
enddo
enddo


proc  pmbh
set talk off
set status off
set escape on
define window pmbh from 2,2 to 22,76 shadow
activate window pmbh

 do while inkeyt()
@6,30 say" 你  好 !" COLO 6/1
@8,30 say"屏幕已保护" COLO 5/3
   xrnd1=int((8)*rand()+1)
  yrnd1=int((8)*rand()+1) 
  x1=STR(xrnd1)
  y1=str(yrnd1)
  xrnd1=int((16)*rand()) 
  yrnd1=int((16)*rand())
  @ xrnd1,yrnd1 say "安化职业中专" COLO &x1/&y1
  @ xrnd1,yrnd1+50 say "六十班" COLO &x1/&y1
enddo
deactivate window pmbh
release window pmbh
set talk on
return

FUNCTION inkeyt
inkeyt=.t.
on key label Ctrl+q do pass
return inkeyt

FUNCTION irand
PARAMETER i, j
RETURN int((j-i+1)*rand()+i)