登录界面 信息技术实验教学中心
信息技术实验教学中心
建立用户信良表 衫表设计器-account.dbf 字段素引表 字段名 类型 宽度小数位数索引 NULL tuid 字符型 -208 确定 pwd 字符型 20 取消 插入) 除) 豳 Account 回☒ Vid Pwd Administrator abcabe aaa aaa bbb bbb 信怎技术实验教学中心
建立用户信息表 信息技术实验教学中心
建立登录界面表单 刻用户登陆 回X 用户登录 说明：该程序是用来验证用户的身份的：，如课帐号密码都证 确， 程序蒋诵酷束将用府话框提宗箱应错误狺息。 帐号：… Combouser 密码： extpwd 确定 取消 !! 信息技术实验教学中心
建立登录界面表单 信息技术实验教学中心
设置表单数据环境 日数据环境设计器 account 画字宇段： uid pwd 索引： uid 信息技术实验教学中心
设置表单数据环境 信息技术实验教学中心
编写“确定”按钮代码 ·*验证密码 ·if select("account'")=o&&检查数据表是否打开 ● messagebox("数据表account不存在，请检查后再试！"，o+16,"警告 ● else select account &&选取account:表 set order to UID &&设置username为控制索引 seek allt(thisform.combouser..value)&&按索引查找当前所 选user相关记录 if allt(thisform.combouser..value)==allt(uid)&&检查是否在 库找到该用户 if allt(pwd)==allt(thisform.textpwd.value) messagebox("登陆成功！"，o+64,"恭喜") thisform.release&&将来可以替换成调用系统登陆以后做 的工作 信息技术实验教学中心
编写“确定”按钮代码 *验证密码 if select("account")=0 &&检查数据表是否打开 messagebox("数据表account不存在，请检查后再试！",0+16,"警告 ") else select account &&选取account表 set order to UID &&设置username为控制索引 seek allt(thisform.combouser.value) &&按索引查找当前所 选user相关记录 if allt(thisform.combouser.value)==allt(uid) &&检查是否在 库找到该用户 if allt(pwd)==allt(thisform.textpwd.value) messagebox("登陆成功！",0+64,"恭喜") thisform.release &&将来可以替换成调用系统登陆以后做 的工作 信息技术实验教学中心
编写“确定”按钮代码 （续上页) ● else i=i-1 &&公共变量减量 ifi<=0 &&检查剩余重试次数 messagebox("非法使用，程序即将关闭！ ”,0+16,"警告") thisform.release&&将来可以替换成关闭整个 主程序 endif messagebox("密码错误！请检查后重新输入，您 还剩”+str(①)+"次机会"，0+64，"错误") thisform.textpwd.setfocus ● endif ● else messagebox("该用户不存在，请检查您的用户名！"，o+64,"错误") endif endif 信息技术实验教学中心
编写“确定”按钮代码（续上页） else i=i-1 &&公共变量i减量 if i<=0 &&检查剩余重试次数 messagebox("非法使用，程序即将关闭！ ",0+16,"警告") thisform.release &&将来可以替换成关闭整个 主程序 endif messagebox("密码错误！请检查后重新输入，您 还剩"+str(i)+"次机会",0+64,"错误") thisform.textpwd.setfocus endif else messagebox("该用户不存在，请检查您的用户名！",0+64,"错误") endif endif 信息技术实验教学中心