wdc.spr

一个简单的酒店管理系统 用VB.net+SQL2000实现

*       *********************************************************
*       *                                                         
*       * 97-08-18               WDC.SPR                 17:27:04 
*       *                                                         
*       *********************************************************
*       *                                                         
*       * XinShuJun                                               
*       *                                                         
*       * Copyright (c) 1997 YAXIN                                
*       * NanJingMoCouRoad                                        
*       * NanJing, 025  210024                                     
*       * China                                             
*       *                                                         
*       * 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("_rn911eka7")
	DEFINE WINDOW _rn911eka7 ;
	      AT 0.000, 0.000 ;
	      SIZE 22.000,98.400 ;
	    FONT "MS Sans Serif", 8 ;
	       FLOAT ;
	       NOCLOSE ;
	    MINIMIZE ;
	    SYSTEM
ENDIF


*       *********************************************************
*       *                                                         
*       *                WDC/Windows Screen Layout                
*       *                                                         
*       *********************************************************
*

#REGION 1
IF WVISIBLE("_rn911eka7")
    ACTIVATE WINDOW _rn911eka7 SAME
ELSE
    ACTIVATE WINDOW _rn911eka7 NOSHOW
ENDIF
@ 16.615,7.200 GET no1 ;
    PICTURE "@*HN no1" ;
       SIZE 1.769,5.667,0.667 ;
       DEFAULT 1 ;
    FONT "MS Sans Serif", 8 ;
 STYLE "B" ;
 VALID _rn911ekdz()
@ 1.846,7.200 SAY (LOCFILE("cjend.bmp","BMP|ICO", "Where is cjend?")) BITMAP ;
    SIZE 13.000,86.600 ;
 STYLE "T"
@ 16.615,74.400 GET aa ;
    PICTURE "@*HN 中带反" ;
       SIZE 1.769,8.167,0.667 ;
       DEFAULT 1 ;
    FONT "MS Sans Serif", 8 ;
 STYLE "B" ;
 VALID _rn911ekfa()

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

READ CYCLE

RELEASE WINDOW _rn911eka7
SELECT (m.currarea)


#REGION 0

SET READBORDER &rborder

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


*       *********************************************************
*       *                                                         
*       * _RN911EKDZ           no1 VALID                          
*       *                                                         
*       * Function Origin:                                        
*       *                                                         
*       * From Platform:       Windows                            
*       * From Screen:         WDC,     Record Number:    2       
*       * Variable:            no1                                
*       * Called By:           VALID Clause                       
*       * Object Type:         Push Button                        
*       * Snippet Number:      1                                  
*       *                                                         
*       *********************************************************
*
FUNCTION _rn911ekdz     &&  no1 VALID
#REGION 1
quit

*       *********************************************************
*       *                                                         
*       * _RN911EKFA           aa VALID                           
*       *                                                         
*       * Function Origin:                                        
*       *                                                         
*       * From Platform:       Windows                            
*       * From Screen:         WDC,     Record Number:    4       
*       * Variable:            aa                                 
*       * Called By:           VALID Clause                       
*       * Object Type:         Push Button                        
*       * Snippet Number:      2                                  
*       *                                                         
*       *********************************************************
*
FUNCTION _rn911ekfa     &&  aa VALID
#REGION 1
wait window "sdlfsdf"