📄 add.spr
字号:
* *********************************************************
* *
* * 04-02-25 ADD.SPR 09:49:51
* *
* *********************************************************
* *
* * 陈寿松
* *
* * Copyright (c) 2004 Company Name
* * 国顺路117弄33号401室
* * 上海市, 200433
* * 中国
* *
* * 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()
* *********************************************************
* *
* * ADD/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("tianjia") ;
OR UPPER(WTITLE("TIANJIA")) == "TIANJIA.PJX" ;
OR UPPER(WTITLE("TIANJIA")) == "TIANJIA.SCX" ;
OR UPPER(WTITLE("TIANJIA")) == "TIANJIA.MNX" ;
OR UPPER(WTITLE("TIANJIA")) == "TIANJIA.PRG" ;
OR UPPER(WTITLE("TIANJIA")) == "TIANJIA.FRX" ;
OR UPPER(WTITLE("TIANJIA")) == "TIANJIA.QPR"
DEFINE WINDOW tianjia ;
AT 0.000, 0.000 ;
SIZE 21.769,96.600 ;
TITLE "添加窗口" ;
FONT "MS Sans Serif", 8 ;
FLOAT ;
NOCLOSE ;
MINIMIZE ;
SYSTEM
MOVE WINDOW tianjia CENTER
ENDIF
* *********************************************************
* *
* * ADD/Windows Screen Layout
* *
* *********************************************************
*
#REGION 1
IF WVISIBLE("tianjia")
ACTIVATE WINDOW tianjia SAME
ELSE
ACTIVATE WINDOW tianjia 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 _16c0l2k7q()
@ 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 _16c0l2k7u()
@ 17.846,52.400 GET tianjia1 ;
PICTURE "@*HN 添加" ;
SIZE 2.063,6.375,0.500 ;
DEFAULT 1 ;
FONT "MS Sans Serif", 10 ;
STYLE "B" ;
VALID _16c0l2k7x()
@ 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("tianjia")
ACTIVATE WINDOW tianjia
ENDIF
READ CYCLE
RELEASE WINDOW tianjia
* *********************************************************
* *
* * 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
* *********************************************************
* *
* * _16C0L2K7Q shangyitiao1 VALID
* *
* * Function Origin:
* *
* * From Platform: Windows
* * From Screen: ADD, Record Number: 20
* * Variable: shangyitiao1
* * Called By: VALID Clause
* * Object Type: Push Button
* * Snippet Number: 1
* *
* *********************************************************
*
FUNCTION _16c0l2k7q && shangyitiao1 VALID
#REGION 1
if not bof()
skip - 1
else
go bott
endif
show gets
return
* *********************************************************
* *
* * _16C0L2K7U xiayitiao1 VALID
* *
* * Function Origin:
* *
* * From Platform: Windows
* * From Screen: ADD, Record Number: 21
* * Variable: xiayitiao1
* * Called By: VALID Clause
* * Object Type: Push Button
* * Snippet Number: 2
* *
* *********************************************************
*
FUNCTION _16c0l2k7u && xiayitiao1 VALID
#REGION 1
if not eof()
skip
else
go top
endif
show gets
return
* *********************************************************
* *
* * _16C0L2K7X tianjia1 VALID
* *
* * Function Origin:
* *
* * From Platform: Windows
* * From Screen: ADD, Record Number: 22
* * Variable: tianjia1
* * Called By: VALID Clause
* * Object Type: Push Button
* * Snippet Number: 3
* *
* *********************************************************
*
FUNCTION _16c0l2k7x && tianjia1 VALID
#REGION 1
insert
show gets
return⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -