delete.spr

用VF所编的管理系统

*       *********************************************************
*       *                                                         
*       * 04-02-25             DELETE.SPR                10:05:23 
*       *                                                         
*       *********************************************************
*       *                                                         
*       * 陈寿松                                                  
*       *                                                         
*       * Copyright (c) 2004 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()


*       *********************************************************
*       *                                                         
*       *      DELETE/Windows Databases, Indexes, Relations       
*       *                                                         
*       *********************************************************
*

IF USED("txl")
       SELECT txl
    SET ORDER TO 0
ELSE
       SELECT 0
       USE (LOCFILE("txl.dbf","DBF","Where is txl?"));
               AGAIN ALIAS txl ;
               ORDER 0
ENDIF


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

IF NOT WEXIST("shangchu2") ;
 OR UPPER(WTITLE("SHANGCHU2")) == "SHANGCHU2.PJX" ;
 OR UPPER(WTITLE("SHANGCHU2")) == "SHANGCHU2.SCX" ;
 OR UPPER(WTITLE("SHANGCHU2")) == "SHANGCHU2.MNX" ;
 OR UPPER(WTITLE("SHANGCHU2")) == "SHANGCHU2.PRG" ;
 OR UPPER(WTITLE("SHANGCHU2")) == "SHANGCHU2.FRX" ;
 OR UPPER(WTITLE("SHANGCHU2")) == "SHANGCHU2.QPR"
	DEFINE WINDOW shangchu2 ;
	      AT  0.000, 0.000  ;
	      SIZE 21.769,96.600 ;
	 TITLE "删除窗口" ;
	    FONT "MS Sans Serif", 8 ;
	       FLOAT ;
	       NOCLOSE ;
	    MINIMIZE ;
	    SYSTEM
	MOVE WINDOW shangchu2 CENTER
ENDIF


*       *********************************************************
*       *                                                         
*       *              DELETE/Windows Screen Layout               
*       *                                                         
*       *********************************************************
*

#REGION 1
IF WVISIBLE("shangchu2")
    ACTIVATE WINDOW shangchu2 SAME
ELSE
    ACTIVATE WINDOW shangchu2 NOSHOW
ENDIF
@ 2.231,3.400 SAY "姓名:" ;
    FONT "MS Sans Serif", 12 ;
 STYLE "BT"
@ 2.308,12.200 GET txl.xm ;
    SIZE 1.000,6.571 ;
       DEFAULT " " ;
    FONT "MS Sans Serif", 10 ;
 PICTURE "@K"
@ 2.538,45.000 SAY "性别:" ;
    FONT "MS Sans Serif", 12 ;
 STYLE "BT"
@ 2.538,54.000 GET txl.xb ;
    SIZE 1.000,2.000 ;
       DEFAULT " " ;
    FONT "MS Sans Serif", 10 ;
 PICTURE "@K"
@ 5.615,3.600 SAY "生日:" ;
    FONT "MS Sans Serif", 12 ;
 STYLE "BT"
@ 5.692,12.000 GET txl.sr ;
    SIZE 1.000,6.714 ;
       DEFAULT {  /  /  } ;
    FONT "MS Sans Serif", 10 ;
 PICTURE "@K"
@ 5.692,44.800 SAY "关系:" ;
    FONT "MS Sans Serif", 12 ;
 STYLE "BT"
@ 5.692,53.800 GET txl.gx ;
    SIZE 1.000,8.857 ;
       DEFAULT " " ;
    FONT "MS Sans Serif", 10 ;
 PICTURE "@K"
@ 9.308,3.400 SAY "电话:" ;
    FONT "MS Sans Serif", 12 ;
 STYLE "BT"
@ 9.231,11.800 GET txl.dh ;
    SIZE 1.000,13.429 ;
       DEFAULT " " ;
    FONT "MS Sans Serif", 10 ;
 PICTURE "@K"
@ 9.231,45.000 SAY "手机:" ;
    FONT "MS Sans Serif", 12 ;
 STYLE "BT"
@ 9.308,53.600 GET txl.yddh ;
    SIZE 1.000,13.429 ;
       DEFAULT " " ;
    FONT "MS Sans Serif", 10 ;
 PICTURE "@K"
@ 13.231,3.600 SAY "电邮:" ;
    FONT "MS Sans Serif", 12 ;
 STYLE "BT"
@ 13.231,12.000 GET txl.dy ;
    SIZE 1.000,20.000 ;
       DEFAULT " " ;
    FONT "MS Sans Serif", 10 ;
 PICTURE "@K"
@ 12.923,45.200 SAY "住址:" ;
    FONT "MS Sans Serif", 12 ;
 STYLE "BT"
@ 12.923,53.600 GET txl.zz ;
    SIZE 1.000,27.143 ;
       DEFAULT " " ;
    FONT "MS Sans Serif", 10 ;
 PICTURE "@K"
@ 1.538,2.400 TO 15.769,93.800 ;
    PEN 1, 8
@ 17.769,9.600 GET shangyitiao1 ;
    PICTURE "@*HN 上一条" ;
       SIZE 2.125,7.625,0.500 ;
       DEFAULT 1 ;
    FONT "MS Sans Serif", 10 ;
 STYLE "B" ;
 VALID _16c0lmjxg()
@ 17.846,30.200 GET xiayitiao1 ;
    PICTURE "@*HN 下一条" ;
       SIZE 2.063,7.250,0.500 ;
       DEFAULT 1 ;
    FONT "MS Sans Serif", 10 ;
 STYLE "B" ;
 VALID _16c0lmjxj()
@ 17.846,52.400 GET shangchu ;
    PICTURE "@*HN 删除" ;
       SIZE 2.063,6.375,0.500 ;
       DEFAULT 1 ;
    FONT "MS Sans Serif", 10 ;
 STYLE "B" ;
 VALID _16c0lmjxl()
@ 17.769,71.800 GET tuichu1 ;
    PICTURE "@*HT 退出" ;
       SIZE 2.125,6.250,0.500 ;
       DEFAULT 1 ;
    FONT "MS Sans Serif", 10 ;
 STYLE "B"

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

READ CYCLE

RELEASE WINDOW shangchu2

*       *********************************************************
*       *                                                         
*       *                Windows Closing Databases                
*       *                                                         
*       *********************************************************
*

IF USED("txl")
 SELECT txl
 USE
ENDIF

SELECT (m.currarea)


#REGION 0

SET READBORDER &rborder

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


*       *********************************************************
*       *                                                         
*       * _16C0LMJXG           shangyitiao1 VALID                 
*       *                                                         
*       * Function Origin:                                        
*       *                                                         
*       * From Platform:       Windows                            
*       * From Screen:         DELETE,     Record Number:   20    
*       * Variable:            shangyitiao1                       
*       * Called By:           VALID Clause                       
*       * Object Type:         Push Button                        
*       * Snippet Number:      1                                  
*       *                                                         
*       *********************************************************
*
FUNCTION _16c0lmjxg     &&  shangyitiao1 VALID
#REGION 1
if not bof()
  skip - 1
else
  go bott
endif
show gets
return

*       *********************************************************
*       *                                                         
*       * _16C0LMJXJ           xiayitiao1 VALID                   
*       *                                                         
*       * Function Origin:                                        
*       *                                                         
*       * From Platform:       Windows                            
*       * From Screen:         DELETE,     Record Number:   21    
*       * Variable:            xiayitiao1                         
*       * Called By:           VALID Clause                       
*       * Object Type:         Push Button                        
*       * Snippet Number:      2                                  
*       *                                                         
*       *********************************************************
*
FUNCTION _16c0lmjxj     &&  xiayitiao1 VALID
#REGION 1
if not eof()
  skip
else
  go top
endif
show gets
return

*       *********************************************************
*       *                                                         
*       * _16C0LMJXL           shangchu VALID                     
*       *                                                         
*       * Function Origin:                                        
*       *                                                         
*       * From Platform:       Windows                            
*       * From Screen:         DELETE,     Record Number:   22    
*       * Variable:            shangchu                           
*       * Called By:           VALID Clause                       
*       * Object Type:         Push Button                        
*       * Snippet Number:      3                                  
*       *                                                         
*       *********************************************************
*
FUNCTION _16c0lmjxl     &&  shangchu VALID
#REGION 1
dele
pack
show gets
return