📄 myquit.prg

📁 医药管理系统VF。这是本人在网上找到的

💻 PRG

字号:

CLEAR Event 
IF _SCREEN.FormCount>0 
  h=_screen.formcount
  DIME TmpForm(h)
  FOR i=1 TO h 
      TmpForm(i)=_SCREEN.Forms(i) 
  ENDFOR 
  FOR i=1 TO h
      TmpForm(i).Release 
  ENDFOR 
ENDIF 
QUIT

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -