区内医院地理信息管理系统毕业设计 第4页 if empty(alltrim(thisform.manager.value)) messagebox("请输入管理员名称！",48,"系统提示！") else if empty(thisform.PWD.value) messagebox("请输入密码！",48,"系统提示！") return else no=0 Open Database Database\Database.dbc &&打开数据库文件 Use Database\tab_manager set exact on &&设置字符精确比较 locat for 管理员名称=alltrim(thisform.manager.value) &&定位记录 if found() if alltrim(tab_manager.密码)==alltrim(thisform.PWD.value) UserStatus=.T. thisform.release do form form/区内医院地理信息管理 else no=no+1 if no>=3 messagebox("登录失败！",16,"系统提示！") _screen.visible=.t. _screen.top=0 quit &&关闭表单 else messagebox("您输入的密码不正确！",16,"系统提示！") thisform.PWD.value="" thisform.PWD.setfocus() endif endif else no=no+1 if no>=3 messagebox("登录失败！",16,"系统提示！") _screen.visible=.t. _screen.top=0 quit &&关闭表单 else messagebox("您输入的管理员名称错误！",16,"系统提示！") thisform.manager.value="" thisform.PWD.value="" thisform.manager.setfocus() endif endif endif endif use Close Database 取消按钮中的click事件下的相关程序代码如下所示： thisform.manager.value="" thisform.PWD.value="" thisform.manager.setfocus() 普通用户进入按钮的click事件的相关程序代码如下所示： thisform.release UserStatus=.F. do form form/区内医院地理信息管理退出按钮的click事件的相关程序代码如下所示： _screen.visible=.t. _screen.top=0 quit &&关闭表单

上一页  [1] [2] [3] [4] [5] [6] 下一页