main.prg

某水厂抄表查询系统

clear all
_screen.windowstate=2
_screen.caption="水厂查询系统"
release windows 常用,"项目管理器",表单控件,布局,命令
*_screen.backcolor=rgb(60,110,100)
set sysmenu off
set sysmenu to
set talk off

set century on
set safety off
set escape off
*set status bar off
zoom window screen max
*do form login.scx
*set path to img
_screen.picture="纹理.jpg"
do form 登录.scx
read event
*set sysmenu to default
*set sysmenu on
set status bar on
close all
clear all
return