main.spr

本入库信息管理系统

*       *********************************************************
*       *                                                         
*       * 05-04-04              MAIN.SPR                 15:43:15 
*       *                                                         
*       *********************************************************
*       *                                                         
*       * Author's Name                                           
*       *                                                         
*       * Copyright (c) 2005 Company Name                         
*       * Address                                                 
*       * City,     Zip                                           
*       *                                                         
*       * Description:                                            
*       * This program was automatically generated by GENSCRN.    
*       *                                                         
*       *********************************************************


#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat

IF SET("TALK") = "ON"
    SET TALK OFF
    m.talkstat = "ON"
ELSE
    m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS

m.rborder = SET("READBORDER")
SET READBORDER ON

m.currarea = SELECT()


*       *********************************************************
*       *                                                         
*       *               Windows Window definitions                
*       *                                                         
*       *********************************************************
*

IF NOT WEXIST("a1") ;
 OR UPPER(WTITLE("A1")) == "A1.PJX" ;
 OR UPPER(WTITLE("A1")) == "A1.SCX" ;
 OR UPPER(WTITLE("A1")) == "A1.MNX" ;
 OR UPPER(WTITLE("A1")) == "A1.PRG" ;
 OR UPPER(WTITLE("A1")) == "A1.FRX" ;
 OR UPPER(WTITLE("A1")) == "A1.QPR"
	DEFINE WINDOW a1 ;
	      AT  0.000, 0.000  ;
	      SIZE 27.692,110.000 ;
	    FONT "MS Sans Serif", 8 ;
	       FLOAT ;
	       NOCLOSE ;
	    MINIMIZE ;
	    SYSTEM ;
	      COLOR RGB(,,,192,192,192)
	MOVE WINDOW a1 CENTER
ENDIF


*       *********************************************************
*       *                                                         
*       *           MAIN/Windows Setup Code - SECTION 2           
*       *                                                         
*       *********************************************************
*

#REGION 1
set talk off
set safe off
set esca off
set defa to d:\job
public cd1
cd1=.f.
keyboard [{ctrl+f4}]


*       *********************************************************
*       *                                                         
*       *               MAIN/Windows Screen Layout                
*       *                                                         
*       *********************************************************
*

#REGION 1
IF WVISIBLE("a1")
    ACTIVATE WINDOW a1 SAME
ELSE
    ACTIVATE WINDOW a1 NOSHOW
ENDIF
@ 3.385,14.400 SAY "欢迎使用入库信息管理系统" ;
    FONT "隶书", 24 ;
 STYLE "BT" ;
      COLOR RGB(255,0,255,,,,)
@ 19.385,24.000 GET jrxt ;
    PICTURE "@*HN 进入系统" ;
       SIZE 1.091,9.182,0.364 ;
       DEFAULT 1 ;
    FONT "黑体", 14 ;
 STYLE "B" ;
 VALID _1hl0xp0e1()
@ 19.385,60.000 GET tcxt ;
    PICTURE "@*HT 退出系统" ;
       SIZE 1.091,9.182,0.364 ;
       DEFAULT 1 ;
    FONT "黑体", 14 ;
 STYLE "B"
@ 8.000,38.400 SAY "建业电脑公司" ;
 PICTURE "@I" ;
    FONT "幼圆", 14 ;
 STYLE "BIT" ;
      COLOR RGB(128,0,0,,,,)

IF NOT WVISIBLE("a1")
 ACTIVATE WINDOW a1
ENDIF

READ CYCLE

RELEASE WINDOW a1
SELECT (m.currarea)


#REGION 0

SET READBORDER &rborder

IF m.talkstat = "ON"
    SET TALK ON
ENDIF
IF m.compstat = "ON"
    SET COMPATIBLE ON
ENDIF


*       *********************************************************
*       *                                                         
*       * _1HL0XP0E1           jrxt VALID                         
*       *                                                         
*       * Function Origin:                                        
*       *                                                         
*       * From Platform:       Windows                            
*       * From Screen:         MAIN,     Record Number:    3      
*       * Variable:            jrxt                               
*       * Called By:           VALID Clause                       
*       * Object Type:         Push Button                        
*       * Snippet Number:      1                                  
*       *                                                         
*       *********************************************************
*
FUNCTION _1hl0xp0e1     &&  jrxt VALID
#REGION 1
keyboard [{ctrl+f4}]
do cd.mpr
deac wind a1