main4.prg

来自「一个很优秀的企业人事管理系统。本软件免费」· PRG 代码 · 共 36 行

set talk off
set delete off
set exclusive off
set sysmenu off
set sysmenu to
clear all
close all
clear
_screen.caption="路桥收费管理系统-数据统计端 V2.0 李春葆软件开发工作室"
if !used("sfjl")
   use sfjl in 0
endif
select sfjl
locate for deleted()
if found()
   use in sfjl
   =messagebox("需要进行数据清理工作,请等到本工作完成后再开始收费",48,"信息提示")
   set exclusive on
   use sfjl in 0
   select sfjl
   pack
   use in sfjl
   =messagebox("数据清理工作完毕",48,"信息提示")
endif
use in sfjl
set exclusive off
set delete on
set safe off
set date ansi
do form pass  &&调用表单pass
read event
set sysmenu to default
close all
clear all
return