程序1.bak

来自「局域网内发送文件,欢迎大家使用并支持,上传东西限制好多呀」· BAK 代码 · 共 4 行

public
thispath=SUBS(JUSTPATH(SYS(16)),IIF(':'$SYS(16),AT(':',SYS(16))-1,AT('\\',SYS(16))))  &&工作目录
DO FORM 窗体1
READ events