主程序.prg

一个超市管理系统

set directory to curdir()
clear screen
clear events
do setting
open database 职员信息管理
do form 主界面
on shutdown quit
read events
close database
do reset