?? main.prg
字號:
SET TALK off
SET MESSAGE ON
SET EXCL on
set CENT ON
SET DATE TO AMERICAN
set safety off
RELEASE WINDOW 常用
deactivate window "項目管理器"
ZOOM WINDOW SCREEN MAX
dd=cdow(date())
do case
case dd="Monday"
ddd="星期一"
case dd="Tuesday"
ddd="星期二"
case dd="Wednesday"
ddd="星期三"
case dd="Thursday"
ddd="星期四"
case dd="Friday"
ddd="星期五"
case dd="Saturday"
ddd="星期六"
case dd="Sunday"
ddd="星期日"
endcase
if mod(day(date()),2)=0
_SCREEN.backcolor=rgb(80,230,210)
MODIFY WINDOW SCREEN TITLE " 工會工作管理程序 "+;
" 今天是:"+dtoc(date())+" "+ddd
else
_SCREEN.backcolor= rgb(70,140,180)
MODIFY WINDOW SCREEN TITLE " 工會工作管理程序 "+;
" 今天是:"+dtoc(date())+" "+ddd
endif
publ mypath
mypath=lower(allt(left(sys(16),rat("\",sys(16)))))
set defa to (mypath)
set path to form,data,frx
OPEN DATABASE gonghui
do form MAIN
read even
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -