main.prg

来自「工资管理系统源文件工资管理系统源文件工资管理系统源文件工资管理系统源文件」· PRG 代码 · 共 21 行

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