err.prg

建设银行帐户管理系统

DO CASE
  CASE ERROR()=1002
  XX=MESSAGEBOX("输入/输出错误，您的磁盘没有放好或磁盘已满",0+48,"信息")
  retu
  other
  XX=MESSAGEBOX("操作错误,请与作者联系..."+chr(13)+"主页地址:http://zhanghongju.163.net"+chr(13)+"技术支持:Email:[e-mail]",0+48,"信息")
 retu
endcase