xggzxm.prg

来自「vfp编写的代发工资接口系统包括数据管理」· PRG 代码 · 共 10 行

if messagebox("修改工资项目前，请其他用户退出本系统，"+chr(13)+;
              "否则，将强行关闭其他用户的数据文件。",1+64,"提示")#1
  return
else
  set excl on
  close database
  use gongzi
  modi stru
  use
endif