📄 main.prg
字号:
set talk off &&关闭对话模式
set safe off
set stat off
set dele on &&不处理已删除的记录
set cent on
set date to ansi
close all
RELEASE WINDOW 常用
if mod(day(date()),2)=0
_SCREEN.backcolor=rgb(80,180,150)
MODIFY WINDOW SCREEN TITLE " 库房管理应用软件 ver 2.1 为齐;
鲁石化检修公司机泵车间编制 今天是:"+dtoc(date())+" "+cdow(date())
else
_SCREEN.backcolor=rgb(80,150,180)
MODIFY WINDOW SCREEN TITLE " 库房管理应用软件 ver 2.1 ;
软件编制者:王永成 今天是:"+dtoc(date())+" "+cdow(date())
endif
ZOOM WINDOW SCREEN MAX
_SCREEN.controlbox=.f.
deactivate window "项目管理器"
mypath=left(sys(16),rat("\",sys(16)))
set defa to (mypath)
set path to data;form;pic
open database kfgl
do form logo
read events
quit
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -