main.prg

来自「用VFP编写的报亭管理系统」· PRG 代码 · 共 32 行

SET TALK OFF
SET EXCLUSIVE ON
SET DATE YMD 
SET CENTURY on
set escape off
set talk off
set century on
set sysm off
SET HOURS TO 24
SET PATH TO dbf,pic,form,vct,prg
set message to 'copyright:DOGKING!'
CLOSE TABLES all
clos all
 WITH _SCREEN  
 .caption='四川农业大学报亭进销存系统'
 .picture='pic\back.jpg'
 .BORDERSTYLE = 2
 .CLOSABLE = .F.
 .CONTROLBOX = .T.
 .MAXBUTTON = .t.
 .MINBUTTON = .T.
 .MOVABLE = .t.
 .WINDOWSTATE = 2
 .icon='pic\BOOK04.ICO'
 .LOCKSCREEN = .F.
 ENDWITH 
 PUBLIC gsb,tg
 gsb=0
 tg=0
 DO FORM form\frmlogin
read events