main.prg

工资管理系统源文件工资管理系统源文件工资管理系统源文件工资管理系统源文件

SET TALK off
set sysmenu off        
set cent on           
_screen.windowstate=2
_screen.icon="icons\happy.ico"   
_screen.maxbutton=0
_screen.minbutton=1
_screen.closable=.f.
modify window screen noclose

MODIFY WINDOW SCREEN TITLE "工资管理系统  今天是："+dtoc(date())+"  "+cdow(date())
ZOOM WINDOW SCREEN MAX 
set default to data
open database salary.dbc
do form 封面
read events
clear
close all
return