main.bak

某水厂抄表查询系统

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="background.gif"
do form 登录.scx
read event
set sysmenu to default
set sysmenu on
set status bar on
close all
clear all
return