main.prg

收费系统我的第一个系统

*--主程序代码
*--初始环境设置
clea all
close all
set talk off
set date to short
set sysmenu off
set date long
set dele on
_screen.caption="学生收费管理系统1.1版"
_screen.windowstate=2
p1=sys(5)+sys(2003)+"\note14.ico"
_screen.icon=p1
_screen.closable=.F.
_screen.activate
*--打开登录界面
do form pass.scx
read events
*--退出时恢复环境设置
set talk on
set dele off
set sysmenu on
_screen.closable=.T.