if messagebox("修改工資項目前，請其他用戶退出本系統，"+chr(13)+;
              "否則，將強行關閉其他用戶的數據文件。",1+64,"提示")#1
  return
else
  set excl on
  close database
  use gongzi
  modi stru
  use
endif