📄 zsglxt.bak
字号:
clear screen
clear events
set talk off
set cons on
set safe off
set sysmenu to
SET STATU BAR OFF
SET SYSMENU TO
SET CENT Off
_SCREEN.PICTURE="lxmjpg\xiaoming.JPG" &&_SCREEN是系统变量,代表屏幕;该语句是将BG.JPG设置为屏幕背景图片
_SCREEN.HEIGHT=600
_SCREEN.WIDTH=800
_SCREEN.caption="招生管理系统"
*_SCREEN.icon="myform\ROCKET.ICO"
sysdir=sys(16) &&获取本程序名及位置串
yxgwz=rat("\",sysdir) &&求sysdir中右起第一个\的位置
pfwz=at(":",sysdir)-1 &&求出sysdir中左起第一个:的位置减1,即串sysdir中盘符的位置
SYSWJJ=SUBST(SYSDIR,PFWZ,YXGWZ) &&在SYSDIR字符串中从位置PFWZ起截取YXGWZ个字符,得出本程序(系统)所在目录
CD &SYSWJJ &&进入该系统目录;其中&是宏替换函数,求取变量的值;该语句可改成 CD (SYSWJJ)
do form lxmscx\yanzheng
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -