?? hypm.spr
字號:
* *********************************************************
* *
* * 04-02-24 HYPM.SPR 12:14:59
* *
* *********************************************************
* *
* * 陳壽松
* *
* * Copyright (c) 2004 Company Name
* * 上海市國順路177弄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()
* *********************************************************
* *
* * Windows Window definitions
* *
* *********************************************************
*
IF NOT WEXIST("drck") ;
OR UPPER(WTITLE("DRCK")) == "DRCK.PJX" ;
OR UPPER(WTITLE("DRCK")) == "DRCK.SCX" ;
OR UPPER(WTITLE("DRCK")) == "DRCK.MNX" ;
OR UPPER(WTITLE("DRCK")) == "DRCK.PRG" ;
OR UPPER(WTITLE("DRCK")) == "DRCK.FRX" ;
OR UPPER(WTITLE("DRCK")) == "DRCK.QPR"
DEFINE WINDOW drck ;
AT 0.000, 0.000 ;
SIZE 23.077,100.000 ;
TITLE "登陸窗口" ;
FONT "MS Sans Serif", 8 ;
FLOAT ;
NOCLOSE ;
MINIMIZE ;
SYSTEM ;
FILL FILE LOCFILE("\1.BMP","BMP|ICO", ;
"Where is 1?")
MOVE WINDOW drck CENTER
ENDIF
* *********************************************************
* *
* * HYPM/Windows Screen Layout
* *
* *********************************************************
*
#REGION 1
IF WVISIBLE("drck")
ACTIVATE WINDOW drck SAME
ELSE
ACTIVATE WINDOW drck NOSHOW
ENDIF
@ 2.308,11.600 SAY "歡迎進入通訊錄管理系統" ;
FONT "楷體_GB2312", 26 ;
STYLE "T" ;
COLOR RGB(0,255,0,,,,)
@ 8.538,35.400 SAY "作者:" ;
FONT "宋體", 18 ;
STYLE "T" ;
COLOR RGB(255,0,255,,,,)
@ 8.692,48.600 SAY "陳壽松" ;
FONT "楷體_GB2312", 16 ;
STYLE "T" ;
COLOR RGB(128,0,0,,,,)
@ 15.462,19.800 GET denglu ;
PICTURE "@*HN 登陸" ;
SIZE 1.259,5.385,0.308 ;
DEFAULT 1 ;
FONT "黑體", 18 ;
STYLE "B" ;
VALID _16b0q97j4()
@ 15.538,64.600 GET tuichu ;
PICTURE "@*HT 退出" ;
SIZE 1.333,5.385,0.308 ;
DEFAULT 1 ;
FONT "黑體", 18 ;
STYLE "B"
IF NOT WVISIBLE("drck")
ACTIVATE WINDOW drck
ENDIF
READ CYCLE
RELEASE WINDOW drck
SELECT (m.currarea)
#REGION 0
SET READBORDER &rborder
IF m.talkstat = "ON"
SET TALK ON
ENDIF
IF m.compstat = "ON"
SET COMPATIBLE ON
ENDIF
* *********************************************************
* *
* * _16B0Q97J4 denglu VALID
* *
* * Function Origin:
* *
* * From Platform: Windows
* * From Screen: HYPM, Record Number: 5
* * Variable: denglu
* * Called By: VALID Clause
* * Object Type: Push Button
* * Snippet Number: 1
* *
* *********************************************************
*
FUNCTION _16b0q97j4 && denglu VALID
#REGION 1
do mm.prg
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -