main.prg

用VFP编写的报亭管理系统

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