网吧管理系统报告.docVIP

表： 管理员登陆表 账户办理表 账户查询表 表单： 登录界面 确认： 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