员工薪酬信息管理系统主程序.prg

可以有效管理员工的薪酬

clear all
close all
set sysmenu off
set sysmenu to
set clock on
set status bar off
set notify off
set palette off
set bell on
set escape on
set keycomp to windows
set carry on
set confirm on
set exact on
set near on
set ansi off
set deleted on
set optimize on
set refresh to 0,5
set odometer to 100
set blocksize to 64
set collate to 'stroke'
set sysformats off
set seconds on
set century on
set currency left
set currency to 'NT$'
set hours to 12
set date to ansi
set decimals to 2
set fdow to 1
set fweek to 1
set mark to '.'
set separator to ','
set point to '.'
set talk off
set safety off

if mod(day(date()),2)=0
_SCREEN.backcolor=rgb(80,180,150)
MODIFY WINDOW SCREEN TITLE "  员工薪酬信息管理系统;
                                    今天是："+dtoc(date())+"  "+cdow(date())
else
_SCREEN.backcolor=rgb(80,150,180)
MODIFY WINDOW SCREEN TITLE "  员工薪酬信息管理系统;
                                      今天是："+dtoc(date())+"  "+cdow(date())
endif

_screen.picture="背景1.jpg"
zoom window screen max    &&主窗口最大化
_SCREEN.controlbox=.f.   &&去掉主窗口中的控制按钮
_screen.caption="员工薪酬信息管理系统"
do form 欢迎界面.scx
read events
quit