main.prg

这是一个在正实际应用当中运行的电力监控系统软件源代码

CLEAR
SET TALK OFF
SET DEFAULT TO C:\tcz\dm
*SET STATUS  BAR OFF
SET ESCAPE  OFF
SET safety OFF
SET NOTIFY  OFF
 SET SYSMENU to
*PUBLIC DHKXZ
PUBLIC MCfq
PUBLIC MCzh
PUBLIC MCzm
PUBLIC MMsgNo
PUBLIC MCap
 MCfq=0
* DEACTIVATE WINDOW SCREEN
* HIDE WINDOW SCREEN 
*SET SYSMENU SAVE
*SET message to center
*SET message to 'TCZ'

*DEFINE POPUP MAINMENU
*ACTIVATE POPUP MAINMENU
*DO (THIS.MAINMENU)
 *DEACTIVATE  MENU SYSMENU
 *READ EVENTSSET
_SCREEN.CAPTION="数据库管理"
  set MULTILOCKS ON
 sele 2
 use
 sele 1
 use flag
 if flag
	 copy file ..\\xtcsk.dbf to xtcs.dbf
	 copy file ..\\yccsk.dbf to yccs.dbf
	 copy file ..\\yxcsk.dbf to yxcs.dbf
	 copy file ..\\ddcsk.dbf to ddcs.dbf
 else	
	 copy file xtcs.dbf to ..\\xtcsk.dbf
	 copy file yccs.dbf to ..\\yccsk.dbf
	 copy file yxcs.dbf to ..\\yxcsk.dbf
	 copy file ddcs.dbf to ..\\ddcsk.dbf
	 repl flag with .t.
 endif
 use
 	 copy file flag.dbf  to ..\\flag.dbf
 use xtcs
 DO FORM wzck to o
* READ EVENTS
*  SET  SYSMENU TO DEFAULT 
 *QUIT