网吧管理系统报告.docVIP

  • 10
  • 0
  • 约1.18千字
  • 约 5页
  • 2017-05-15 发布于天津
  • 举报
网吧管理系统报告.doc

表: 管理员登陆表 账户办理表 账户查询表 表单: 登录界面 确认: cname=alltrim(thisform.text1.value) set exact on go top locate for id=cname if eof() messagebox(管理员ID错误,请重新输入!,系统提示) return else thisform.visible=.f. do form 管理员菜单.scx endif set exact off 返回: Quit 管理员菜单 账户办理: DO FORM 账户办理 账户查询: DO FORM 账户查询 网卡充值: DO FORM 卡费存入 退出: Quit 卡费存入 确定: USE 账户查询 LOCATE FOR VAL(ALLTRIM(thisform.text1.value))=账户查询.身份证 replace 现有余额 WITH STR(VAL(现有余额)+val(ALLTRIM(thisform.text2.value))) MESSAGEBOX(存入金额成功!,0+64+0,信息提示) use 取消: thisform.Release 账户办理: 提交: cname=alltrim(thisform.text3.value) ppassword=alltrim(thisform.text2.valu

文档评论(0)

1亿VIP精品文档

相关文档