main_new.prg

来自「建设银行计算机设备台帐程序计算机设备管理程序。其中包括一个网络文件传输示例」· PRG 代码 · 共 33 行

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