main_new.prg

建设银行帐户管理系统

set talk off
set esca off
set exact off
set excl On
*SET REPROCESS TO AUTOMATIC
*set help to comp_help.chm
set cons on
set date ansi
set score off
set safe off
*set stat bar on
set cent on
set color to 
set sysmenu off
*set refresh to 1,1
clea
clear all
*ON ERROR DO err.PRG
*on shutdown do qUIT1.prg
with _screen
 * .caption=''
 * .closable=.f.
 * .controlbox=.f.
 * .maxbutton=.f.
 * .minbutton=.f.
 * .movable=.f.
  .windowstate=1 
 * .caption=''
  .visible=.f.
endwith
do form qdir
read event