rkcx.spr

本入库信息管理系统

@ 13.385,93.600 SAY "入库品种" ;
    FONT "楷体_GB2312", 10 ;
 STYLE "BT" ;
      COLOR RGB(0,0,255,,,,)
@ 13.154,107.600 GET vrkpz1 ;
    PICTURE "@^      ;主板;硬盘;芯片;光驱;显示器;键盘;机箱;音箱;其他" ;
    SIZE 1.538,12.167 ;
    DEFAULT "     " ;
    FONT "MS Sans Serif", 8 ;
 STYLE "B" ;
    WHEN a1
@ 24.846,4.800 GET phan ;
    PICTURE "@*HN 首记录;末记录;上一条;下一条" ;
       SIZE 1.467,12.125,2.000 ;
       DEFAULT 1 ;
    FONT "华文中宋", 10 ;
 STYLE "B" ;
 VALID _1fq0m6i6x()
@ 17.538,99.000 GET zxcx ;
    PICTURE "@*HN 执行查询" ;
       SIZE 1.278,10.625,0.500 ;
       DEFAULT 1 ;
    FONT "黑体", 12 ;
    WHEN a1 ;
 VALID _1fq0m6i6z()
@ 7.308,91.000 TO 22.308,125.200 ;
    PEN 2, 8 ;
 STYLE "16" ;
      COLOR RGB(128,0,128,,,,)

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

READ CYCLE

RELEASE WINDOW _1fq0m6i4m

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

IF USED("rkjbxxk")
 SELECT rkjbxxk
 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



*       *********************************************************
*       *                                                         
*       *    RKCX/Windows Supporting Procedures and Functions     
*       *                                                         
*       *********************************************************
*

#REGION 1
proc abc
vrkpz=val(入库品种)
retu

*       *********************************************************
*       *                                                         
*       * _1FQ0M6I6I           tjcx VALID                         
*       *                                                         
*       * Function Origin:                                        
*       *                                                         
*       * From Platform:       Windows                            
*       * From Screen:         RKCX,     Record Number:   24      
*       * Variable:            tjcx                               
*       * Called By:           VALID Clause                       
*       * Object Type:         Push Button                        
*       * Snippet Number:      1                                  
*       *                                                         
*       *********************************************************
*
FUNCTION _1fq0m6i6i     &&  tjcx VALID
#REGION 1
vrkdh1=space(4)
vrkrq1=ctod('  /  /  ')
vrkpz1=1
a1=.t.
show gets


*       *********************************************************
*       *                                                         
*       * _1FQ0M6I6U           phtc VALID                         
*       *                                                         
*       * Function Origin:                                        
*       *                                                         
*       * From Platform:       Windows                            
*       * From Screen:         RKCX,     Record Number:   25      
*       * Variable:            phtc                               
*       * Called By:           VALID Clause                       
*       * Object Type:         Push Button                        
*       * Snippet Number:      2                                  
*       *                                                         
*       *********************************************************
*
FUNCTION _1fq0m6i6u     &&  phtc VALID
#REGION 1
cd1=.f.

*       *********************************************************
*       *                                                         
*       * _1FQ0M6I6V           qbcx WHEN                          
*       *                                                         
*       * Function Origin:                                        
*       *                                                         
*       * From Platform:       Windows                            
*       * From Screen:         RKCX,     Record Number:   26      
*       * Variable:            qbcx                               
*       * Called By:           WHEN Clause                        
*       * Object Type:         Push Button                        
*       * Snippet Number:      3                                  
*       *                                                         
*       *********************************************************
*
FUNCTION _1fq0m6i6v     &&  qbcx WHEN
#REGION 1
set filter to
go top
do abc
show gets


*       *********************************************************
*       *                                                         
*       * _1FQ0M6I6X           phan VALID                         
*       *                                                         
*       * Function Origin:                                        
*       *                                                         
*       * From Platform:       Windows                            
*       * From Screen:         RKCX,     Record Number:   33      
*       * Variable:            phan                               
*       * Called By:           VALID Clause                       
*       * Object Type:         Push Button                        
*       * Snippet Number:      4                                  
*       *                                                         
*       *********************************************************
*
FUNCTION _1fq0m6i6x     &&  phan VALID
#REGION 1
do case
   case phan=1
     go top
   case phan=2
     go bott
   case phan=3
     if .not. eof()
        skip -1
     endif
     if bof()
        wait wind "已是第一条记录"
        go top
     endif
   case phan=4
     if .not.eof()
        skip
     endif
     if eof()
        wait wind "已是最后一条记录"
        go bott
     endif
endcase
do abc
show gets
retu


*       *********************************************************
*       *                                                         
*       * _1FQ0M6I6Z           zxcx VALID                         
*       *                                                         
*       * Function Origin:                                        
*       *                                                         
*       * From Platform:       Windows                            
*       * From Screen:         RKCX,     Record Number:   34      
*       * Variable:            zxcx                               
*       * Called By:           VALID Clause                       
*       * Object Type:         Push Button                        
*       * Snippet Number:      5                                  
*       *                                                         
*       *********************************************************
*
FUNCTION _1fq0m6i6z     &&  zxcx VALID
#REGION 1
if len(alltrim(vrkdh1))>0
   b1='入库单号=alltrim(vrkdh1)'
else
   b1='.t.'
endif
if len(alltrim(dtoc(vrkrq1,1)))>0
   b2='入库日期=vrkrq1'
else
   b2='.t.'
endif
do case
   case vrkpz1=1
     b3='.t.'
   case vrkpz1=2
     b3=[入库品种='1']
   case vrkpz1=3
     b3=[入库品种='2']
   case vrkpz1=4
     b3=[入库品种='3']
   case vrkpz1=5
     b3=[入库品种='4']
   case vrkpz1=6
     b3=[入库品种='5']
   case vrkpz1=7
     b3=[入库品种='6']
   case vrkpz1=8
     b3=[入库品种='7']
   case vrkpz1=9
     b3=[入库品种='8']
   case vrkpz1=10
     b3=[入库品种='9']
endcase
set filter to &b1..and.&b2..and.&b3.
count to n
if n>0
   go top
   do abc
   a1=.f.
else
   wait wind '没有满足条件的记录，请重新组合查询条件'
endif
show gets