?? main.spr
字號:
* *********************************************************
* *
* * 05-04-04 MAIN.SPR 15:43: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()
* *********************************************************
* *
* * Windows Window definitions
* *
* *********************************************************
*
IF NOT WEXIST("a1") ;
OR UPPER(WTITLE("A1")) == "A1.PJX" ;
OR UPPER(WTITLE("A1")) == "A1.SCX" ;
OR UPPER(WTITLE("A1")) == "A1.MNX" ;
OR UPPER(WTITLE("A1")) == "A1.PRG" ;
OR UPPER(WTITLE("A1")) == "A1.FRX" ;
OR UPPER(WTITLE("A1")) == "A1.QPR"
DEFINE WINDOW a1 ;
AT 0.000, 0.000 ;
SIZE 27.692,110.000 ;
FONT "MS Sans Serif", 8 ;
FLOAT ;
NOCLOSE ;
MINIMIZE ;
SYSTEM ;
COLOR RGB(,,,192,192,192)
MOVE WINDOW a1 CENTER
ENDIF
* *********************************************************
* *
* * MAIN/Windows Setup Code - SECTION 2
* *
* *********************************************************
*
#REGION 1
set talk off
set safe off
set esca off
set defa to d:\job
public cd1
cd1=.f.
keyboard [{ctrl+f4}]
* *********************************************************
* *
* * MAIN/Windows Screen Layout
* *
* *********************************************************
*
#REGION 1
IF WVISIBLE("a1")
ACTIVATE WINDOW a1 SAME
ELSE
ACTIVATE WINDOW a1 NOSHOW
ENDIF
@ 3.385,14.400 SAY "歡迎使用入庫信息管理系統" ;
FONT "隸書", 24 ;
STYLE "BT" ;
COLOR RGB(255,0,255,,,,)
@ 19.385,24.000 GET jrxt ;
PICTURE "@*HN 進入系統" ;
SIZE 1.091,9.182,0.364 ;
DEFAULT 1 ;
FONT "黑體", 14 ;
STYLE "B" ;
VALID _1hl0xp0e1()
@ 19.385,60.000 GET tcxt ;
PICTURE "@*HT 退出系統" ;
SIZE 1.091,9.182,0.364 ;
DEFAULT 1 ;
FONT "黑體", 14 ;
STYLE "B"
@ 8.000,38.400 SAY "建業電腦公司" ;
PICTURE "@I" ;
FONT "幼圓", 14 ;
STYLE "BIT" ;
COLOR RGB(128,0,0,,,,)
IF NOT WVISIBLE("a1")
ACTIVATE WINDOW a1
ENDIF
READ CYCLE
RELEASE WINDOW a1
SELECT (m.currarea)
#REGION 0
SET READBORDER &rborder
IF m.talkstat = "ON"
SET TALK ON
ENDIF
IF m.compstat = "ON"
SET COMPATIBLE ON
ENDIF
* *********************************************************
* *
* * _1HL0XP0E1 jrxt VALID
* *
* * Function Origin:
* *
* * From Platform: Windows
* * From Screen: MAIN, Record Number: 3
* * Variable: jrxt
* * Called By: VALID Clause
* * Object Type: Push Button
* * Snippet Number: 1
* *
* *********************************************************
*
FUNCTION _1hl0xp0e1 && jrxt VALID
#REGION 1
keyboard [{ctrl+f4}]
do cd.mpr
deac wind a1
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -