main.prg

一个汽车修理厂管理系统源码

public showbegaaa 
_Screen.windowstate=2
_Screen.Caption="汽车修理厂自动化管理系统 VER3.0"
_Screen.Closable=.F. 
_screen.icon="cars.ico"
modi window screen fill file back1.bac
store 0 to showbegaaa
set talk off
set century on
set date to ymd 
set status bar off
do form showbeg
do menu1.mpr