rkcx.spr

本入库信息管理系统

*       *********************************************************
*       *                                                         
*       * 05-01-27              RKCX.SPR                 10:35: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()


*       *********************************************************
*       *                                                         
*       *       RKCX/Windows Databases, Indexes, Relations        
*       *                                                         
*       *********************************************************
*

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


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

IF NOT WEXIST("_1fq0m6i4m")
	DEFINE WINDOW _1fq0m6i4m ;
	      AT  0.000, 0.000  ;
	      SIZE 30.769,130.000 ;
	 TITLE "查询窗口" ;
	    FONT "MS Sans Serif", 8 ;
	       FLOAT ;
	       NOCLOSE ;
	    MINIMIZE ;
	    SYSTEM ;
	      COLOR RGB(,,,192,192,192)
	MOVE WINDOW _1fq0m6i4m CENTER
ENDIF


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

#REGION 1
set talk off
set safe off
use rkjbxxk
vrkpz=val(入库品种)
a1=.f.
a3=.f.
cd1=.t.
show gets


*       *********************************************************
*       *                                                         
*       *               RKCX/Windows Screen Layout                
*       *                                                         
*       *********************************************************
*

#REGION 1
IF WVISIBLE("_1fq0m6i4m")
    ACTIVATE WINDOW _1fq0m6i4m SAME
ELSE
    ACTIVATE WINDOW _1fq0m6i4m NOSHOW
ENDIF
@ 4.923,5.000 SAY "入库单号" ;
    FONT "楷体_GB2312", 10 ;
 STYLE "BT" ;
      COLOR RGB(0,0,255,128,128,128)
@ 7.692,5.000 SAY "入库日期" ;
    FONT "楷体_GB2312", 10 ;
 STYLE "BT" ;
      COLOR RGB(0,0,255,,,,)
@ 4.923,43.400 SAY "入库品种" ;
    FONT "楷体_GB2312", 10 ;
 STYLE "BT" ;
      COLOR RGB(0,0,255,,,,)
@ 10.462,5.000 SAY "入库名称" ;
    FONT "楷体_GB2312", 10 ;
 STYLE "BT" ;
      COLOR RGB(0,0,255,,,,)
@ 13.231,5.000 SAY "入库数量" ;
    FONT "楷体_GB2312", 10 ;
 STYLE "BT" ;
      COLOR RGB(0,0,255,,,,)
@ 7.692,43.400 SAY "入 库 人" ;
    FONT "楷体_GB2312", 10 ;
 STYLE "BT" ;
      COLOR RGB(0,0,255,,,,)
@ 10.462,43.400 SAY "制 单 人" ;
    FONT "楷体_GB2312", 10 ;
 STYLE "BT" ;
      COLOR RGB(0,0,255,,,,)
@ 13.231,43.400 SAY "签收日期" ;
    FONT "楷体_GB2312", 10 ;
 STYLE "BT" ;
      COLOR RGB(0,0,255,,,,)
@ 16.000,5.000 SAY "备    注" ;
    FONT "楷体_GB2312", 10 ;
 STYLE "BT" ;
      COLOR RGB(0,0,255,,,,)
@ 0.538,36.000 SAY "建业公司入库信息查询窗口" ;
 PICTURE "@I" ;
    FONT "华文中宋", 14 ;
 STYLE "BIT" ;
      COLOR RGB(128,0,0,,,,)
@ 3.231,2.000 TO 24.077,87.400 ;
    PEN 4, 8 ;
      COLOR RGB(128,0,128,,,,)
@ 4.923,19.800 GET Rkjbxxk.入库单号 ;
    SIZE 1.000,16.000 ;
       DEFAULT " " ;
    FONT "MS Sans Serif", 8 ;
 PICTURE "@K" ;
    WHEN a3
@ 7.692,19.800 GET Rkjbxxk.入库日期 ;
    SIZE 1.000,16.000 ;
       DEFAULT {  /  /  } ;
    FONT "MS Sans Serif", 8 ;
 PICTURE "@K" ;
    WHEN a3
@ 10.462,19.800 GET Rkjbxxk.入库名称 ;
    SIZE 1.000,16.000 ;
       DEFAULT " " ;
    FONT "MS Sans Serif", 8 ;
 PICTURE "@K" ;
    WHEN a3
@ 13.231,19.800 GET Rkjbxxk.入库数量 ;
    SIZE 1.000,16.000 ;
    RANGE 0 ;
       DEFAULT 0 ;
    FONT "MS Sans Serif", 8 ;
 PICTURE "@K 999999" ;
    WHEN a3
@ 4.846,57.800 GET vrkpz ;
    PICTURE "@^ 主板;硬盘;芯片;光驱;显示器;键盘;机箱;音箱;其他" ;
    SIZE 1.538,14.167 ;
    DEFAULT "主板" ;
    FONT "MS Sans Serif", 8 ;
 STYLE "B" ;
    WHEN a3
@ 7.692,58.200 GET Rkjbxxk.入库人 ;
    SIZE 1.000,16.000 ;
       DEFAULT " " ;
    FONT "MS Sans Serif", 8 ;
 PICTURE "@K" ;
    WHEN a3
@ 10.462,58.200 GET Rkjbxxk.制单人 ;
    SIZE 1.000,16.000 ;
       DEFAULT " " ;
    FONT "MS Sans Serif", 8 ;
 PICTURE "@K" ;
    WHEN a3
@ 13.231,58.200 GET Rkjbxxk.签收日期 ;
    SIZE 1.000,16.000 ;
       DEFAULT {  /  /  } ;
    FONT "MS Sans Serif", 8 ;
 PICTURE "@KD" ;
    WHEN a3
@ 16.000,19.800 EDIT Rkjbxxk.备注 ;
       SIZE 7.000,55.000,0.000 ;
 PICTURE "@K" ;
       DEFAULT " " ;
    FONT "MS Sans Serif", 8 ;
    SCROLL ;
    WHEN a3
@ 3.923,110.000 GET tjcx ;
    PICTURE "@*HN 条件查询" ;
       SIZE 1.389,10.125,0.500 ;
       DEFAULT 1 ;
    FONT "黑体", 12 ;
 VALID _1fq0m6i6i()
@ 24.538,99.600 GET phtc ;
    PICTURE "@*HT 退出查询" ;
       SIZE 1.389,10.250,0.500 ;
       DEFAULT 1 ;
    FONT "黑体", 12 ;
 VALID _1fq0m6i6u()
@ 3.923,89.800 GET qbcx ;
    PICTURE "@*HN 全部查询" ;
       SIZE 1.389,10.125,0.500 ;
       DEFAULT 1 ;
    FONT "黑体", 12 ;
    WHEN _1fq0m6i6v()
@ 9.308,93.600 SAY "入库单号" ;
    FONT "楷体_GB2312", 10 ;
 STYLE "BT" ;
      COLOR RGB(0,0,255,128,128,128)
@ 9.231,108.000 GET vrkdh1 ;
    SIZE 1.000,13.600 ;
       DEFAULT " " ;
    FONT "MS Sans Serif", 8 ;
 PICTURE "@K 9999" ;
    WHEN a1
@ 11.231,93.600 SAY "入库日期" ;
    FONT "楷体_GB2312", 10 ;
 STYLE "BT" ;
      COLOR RGB(0,0,255,,,,)
@ 11.231,108.000 GET vrkrq1 ;
    SIZE 1.000,13.600 ;
       DEFAULT {  /  /  } ;
    FONT "MS Sans Serif", 8 ;
 PICTURE "@KD" ;
    WHEN a1