program1.prg

一个用vf做成的学生管理系统

clear screen 
clear events

*hide window screen
*activate window 'welcome'
open database student\database\student.dbc

*hide window screen
do form student\form\welcome
_screen.left=-10000  
read events
close database