📄 rksr.spr
字号:
* *********************************************************
* *
* * 05-01-20 RKSR.SPR 15:54:00
* *
* *********************************************************
* *
* * 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()
* *********************************************************
* *
* * RKSR/Windows Databases, Indexes, Relations
* *
* *********************************************************
*
IF USED("rkjbxxk")
SELECT rkjbxxk
SET ORDER TO 0
ELSE
SELECT 0
USE (LOCFILE("rkjbxxk.dbf","DBF","Where is rkjbxxk?"));
AGAIN ALIAS rkjbxxk ;
ORDER 0
ENDIF
* *********************************************************
* *
* * Windows Window definitions
* *
* *********************************************************
*
IF NOT WEXIST("rksr") ;
OR UPPER(WTITLE("RKSR")) == "RKSR.PJX" ;
OR UPPER(WTITLE("RKSR")) == "RKSR.SCX" ;
OR UPPER(WTITLE("RKSR")) == "RKSR.MNX" ;
OR UPPER(WTITLE("RKSR")) == "RKSR.PRG" ;
OR UPPER(WTITLE("RKSR")) == "RKSR.FRX" ;
OR UPPER(WTITLE("RKSR")) == "RKSR.QPR"
DEFINE WINDOW rksr ;
AT 0.000, 0.000 ;
SIZE 30.769,120.000 ;
TITLE "输入窗口" ;
FONT "MS Sans Serif", 8 ;
FLOAT ;
NOCLOSE ;
MINIMIZE ;
SYSTEM ;
COLOR RGB(,,,192,192,192)
MOVE WINDOW rksr CENTER
ENDIF
* *********************************************************
* *
* * RKSR/Windows Setup Code - SECTION 2
* *
* *********************************************************
*
#REGION 1
set talk off
set safe off
use rkjbxxk
inde on 入库单号 to abc
vrkdh=space(4)
vrkrq=ctod(' / / ')
vrkpz=1
vrkmc=space(10)
vrksl=0
vrkr=space(8)
vzdr=space(8)
vqsrq=ctod(' / / ')
vbz=space(200)
a1=.t.
a2=.f.
a3=.f.
cd1=.t.
show gets
* *********************************************************
* *
* * RKSR/Windows Screen Layout
* *
* *********************************************************
*
#REGION 1
IF WVISIBLE("rksr")
ACTIVATE WINDOW rksr SAME
ELSE
ACTIVATE WINDOW rksr NOSHOW
ENDIF
@ 6.538,7.200 SAY "入库单号" ;
FONT "楷体_GB2312", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,255,128,128,128)
@ 9.308,7.200 SAY "入库日期" ;
FONT "楷体_GB2312", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,255,,,,)
@ 6.538,45.600 SAY "入库品种" ;
FONT "楷体_GB2312", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,255,,,,)
@ 12.077,7.200 SAY "入库名称" ;
FONT "楷体_GB2312", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,255,,,,)
@ 14.846,7.200 SAY "入库数量" ;
FONT "楷体_GB2312", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,255,,,,)
@ 9.308,45.600 SAY "入 库 人" ;
FONT "楷体_GB2312", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,255,,,,)
@ 12.077,45.600 SAY "制 单 人" ;
FONT "楷体_GB2312", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,255,,,,)
@ 14.846,45.600 SAY "签收日期" ;
FONT "楷体_GB2312", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,255,,,,)
@ 17.615,7.200 SAY "备 注" ;
FONT "楷体_GB2312", 10 ;
STYLE "BT" ;
COLOR RGB(0,0,255,,,,)
@ 1.462,33.000 SAY "建业公司入库信息输入窗口" ;
PICTURE "@I" ;
FONT "华文中宋", 14 ;
STYLE "BIT" ;
COLOR RGB(128,0,0,,,,)
@ 4.385,4.200 TO 27.077,89.600 ;
PEN 4, 8 ;
COLOR RGB(128,0,128,,,,)
@ 6.538,22.000 GET vrkdh ;
SIZE 1.000,16.000 ;
DEFAULT " " ;
FONT "MS Sans Serif", 8 ;
PICTURE "@K 9999" ;
WHEN a2 ;
VALID _1fj0y2uqm()
@ 9.308,22.000 GET vrkrq ;
SIZE 1.000,16.000 ;
DEFAULT { / / } ;
FONT "MS Sans Serif", 8 ;
PICTURE "@KD" ;
WHEN a3
@ 12.077,22.000 GET vrkmc ;
SIZE 1.000,16.000 ;
DEFAULT " " ;
FONT "MS Sans Serif", 8 ;
PICTURE "@K" ;
WHEN a3
@ 14.846,22.000 GET vrksl ;
SIZE 1.000,16.000 ;
RANGE 0 ;
DEFAULT 0 ;
FONT "MS Sans Serif", 8 ;
PICTURE "@K 999999" ;
WHEN a3
@ 6.462,60.000 GET vrkpz ;
PICTURE "@^ 主板;硬盘;芯片;光驱;显示器;键盘;机箱;音箱;其他" ;
SIZE 1.538,14.167 ;
DEFAULT "主板" ;
FONT "MS Sans Serif", 8 ;
STYLE "B" ;
WHEN a3
@ 9.308,60.400 GET vrkr ;
SIZE 1.000,16.000 ;
DEFAULT " " ;
FONT "MS Sans Serif", 8 ;
PICTURE "@K" ;
WHEN a3
@ 12.077,60.400 GET vzdr ;
SIZE 1.000,16.000 ;
DEFAULT " " ;
FONT "MS Sans Serif", 8 ;
PICTURE "@K" ;
WHEN a3
@ 14.846,60.400 GET vqsrq ;
SIZE 1.000,16.000 ;
DEFAULT { / / } ;
FONT "MS Sans Serif", 8 ;
PICTURE "@KD" ;
WHEN a3
@ 17.615,22.000 EDIT vbz ;
SIZE 7.000,55.000,0.000 ;
PICTURE "@K" ;
DEFAULT " " ;
FONT "MS Sans Serif", 8 ;
SCROLL ;
WHEN a3
@ 8.308,96.000 GET hxyg ;
PICTURE "@*HN 输入记录" ;
SIZE 1.278,10.625,0.500 ;
DEFAULT 1 ;
FONT "黑体", 12 ;
WHEN a1 ;
VALID _1fj0y2uqq()
@ 16.615,96.000 GET hpbc ;
PICTURE "@*HN 保存记录" ;
SIZE 1.278,10.625,0.500 ;
DEFAULT 1 ;
FONT "黑体", 12 ;
WHEN a3 ;
VALID _1fj0y2uqs()
@ 12.462,96.000 GET phfq ;
PICTURE "@*HN 放弃输入" ;
SIZE 1.278,10.625,0.500 ;
DEFAULT 1 ;
FONT "黑体", 12 ;
WHEN a3 ;
VALID _1fj0y2uqw()
@ 20.769,96.000 GET phtc ;
PICTURE "@*HT 退出输入" ;
SIZE 1.278,10.625,0.500 ;
DEFAULT 1 ;
FONT "黑体", 12 ;
WHEN a1 ;
VALID _1fj0y2uqy()
IF NOT WVISIBLE("rksr")
ACTIVATE WINDOW rksr
ENDIF
READ CYCLE
RELEASE WINDOW rksr
* *********************************************************
* *
* * 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
* *********************************************************
* *
* * RKSR/Windows Supporting Procedures and Functions
* *
* *********************************************************
*
#REGION 1
proc abc
vrkdh=space(4)
vrkrq=ctod(' / / ')
vrkpz=1
vrkmc=space(10)
vrksl=0
vrkr=space(8)
vzdr=space(8)
vqsrq=ctod(' / / ')
vbz=space(300)
retu
* *********************************************************
* *
* * _1FJ0Y2UQM vrkdh VALID
* *
* * Function Origin:
* *
* * From Platform: Windows
* * From Screen: RKSR, Record Number: 14
* * Variable: vrkdh
* * Called By: VALID Clause
* * Object Type: Field
* * Snippet Number: 1
* *
* *********************************************************
*
FUNCTION _1fj0y2uqm && vrkdh VALID
#REGION 1
seek alltrim(vrkdh)
if found()
vrkdh=space(4)
wait wind'该入库单号对应的记录已存在'
a1=.f.
a2=.t.
a3=.f.
else
a1=.f.
a2=.f.
a3=.t.
endif
show gets
* *********************************************************
* *
* * _1FJ0Y2UQQ hxyg VALID
* *
* * Function Origin:
* *
* * From Platform: Windows
* * From Screen: RKSR, Record Number: 23
* * Variable: hxyg
* * Called By: VALID Clause
* * Object Type: Push Button
* * Snippet Number: 2
* *
* *********************************************************
*
FUNCTION _1fj0y2uqq && hxyg VALID
#REGION 1
do abc
a1=.f.
a2=.t.
a3=.f.
show gets
* *********************************************************
* *
* * _1FJ0Y2UQS hpbc VALID
* *
* * Function Origin:
* *
* * From Platform: Windows
* * From Screen: RKSR, Record Number: 24
* * Variable: hpbc
* * Called By: VALID Clause
* * Object Type: Push Button
* * Snippet Number: 3
* *
* *********************************************************
*
FUNCTION _1fj0y2uqs && hpbc VALID
#REGION 1
appe blan
repl 入库单号 with vrkdh
repl 入库日期 with vrkrq
repl 入库数量 with vrksl
repl 入库名称 with vrkmc
repl 入库品种 with str(vrkpz,1)
repl 入库人 with vrkr
repl 签收日期 with vqsrq
repl 制单人 with vzdr
repl 备注 with vbz
do abc
a1=.t.
a2=.f.
a3=.f.
show gets
* *********************************************************
* *
* * _1FJ0Y2UQW phfq VALID
* *
* * Function Origin:
* *
* * From Platform: Windows
* * From Screen: RKSR, Record Number: 25
* * Variable: phfq
* * Called By: VALID Clause
* * Object Type: Push Button
* * Snippet Number: 4
* *
* *********************************************************
*
FUNCTION _1fj0y2uqw && phfq VALID
#REGION 1
do abc
a1=.t.
a2=.f.
a3=.f.
show gets
* *********************************************************
* *
* * _1FJ0Y2UQY phtc VALID
* *
* * Function Origin:
* *
* * From Platform: Windows
* * From Screen: RKSR, Record Number: 26
* * Variable: phtc
* * Called By: VALID Clause
* * Object Type: Push Button
* * Snippet Number: 5
* *
* *********************************************************
*
FUNCTION _1fj0y2uqy && phtc VALID
#REGION 1
cd1=.f.⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -