1. 在两个文本框中分别输入用户名和密码,点击“注册”按钮,出现三种情况: a) 若至少一个文本框为空,者提示“用户名或密不能为空! ” b) 若输入的用户名的已经在后台的“用户”表中存在,则提示“此用户名已被占用,请重 新输入! ” c) 排除上述两种情况,则出现“注册成功”信息,并把该新注册的用户名及密码写入后台 的“用户”表中 2. 输入用户名和密码,点击“登录”按钮,可能出现的三种情况: a) 该用户已在用户表中,而且密码也正确,则出现“您已成功登录本系统”的信息; b) 若用户名已存在于后台的“用户”表中,则显示“密码错误”的信息 c) 若用户名不在用“户表”中,则显示“您尚未
注册”的信息 3. 点击“退出”按钮,退出程序 注册(command1) click if allt(thisform.text1.value)=="" or allt(thisform.text2.value)=="" messagebox("用户名或密码不能为空!",17,"提示") else sele 用户 locate for 用户名=allt(thisform.text1.value) if found() messagebox("此用户名已被占用,请重新输入!",49,"提示") else append blank replace 用户名 with alltrim(thisform.text1.value) replace 密码 with alltrim(thisform.text2.value) messagebox("注册成功",65,"恭喜!") thisform.text1.value="" thisform.text2.value="" endif endif 登入(command2) click if allt(thisform.text1.value)=="" or allt(thisform.text2.value)=="" messagebox("用户名或密码不能为空!",17,"提示") else select 用户 locate for allt(用户名)==allt(thisform.text1.value) if found() if allt(密码)==allt(thisform.text2.value) messagebox("您已成功登录本
系统!",65,"恭喜") else messagebox("密码错误!",49,"提示") endif else messagebox("您尚未注册!",49,"提示") endif endif
选择左边组合框中的课程号,右侧
列表中显示该课程的全部成绩。 Combo1 interactivechange select
课程 locate for 课程号=this.value thisform.refresh 在左上角文本框中输入,点击“查找”按钮,右侧显示该学生的相关信息。 若输入为空,则出现“不能为空”的提示; 若所输入的不在学生表中,则显示“查无此人! ” 查找(command1) Click sele 学生 if allt(thisform.text1.value)=="" messagebox("不能为空") thisform.text1.setfocus else locate for =allt(thisform.text1.value) if not found() messagebox("查无此人!",17,"出错啦!") thisform.text1.value="" thisform.text1.setfocus endif endif thisform.refresh 点击“转换”按钮,完成摄氏到华氏、华氏到摄氏、摄氏到摄氏、华氏到华氏的转换。 转换(command1) Click if allt(thisform.text1.value)=="" return else if val(thisform.text1.value)=0 return else if thisformbo1.value=thisformbo2.value thisform.text2.value=thisform.text1.value else if thisformbo1.value="摄氏" thisform.text2.value=9/5*val
(thisform.text1.value)+32 else thisform.text2.value=((val(thisform.text1.value))-32)*5/9 endif endif endif endif thisform.refresh 1. 点击“出题”按钮,由程序随机产生两个两位数的正整数,分别填写在左侧的两个文本 框中;
2. 用户输入上述两个数相加的结果,点击“答题”按钮,出现以下两种可能的情况: a) 若用户计算正确,则给出“答对了,真棒! ”的提示 b) 若用户给出的答案错误,则给出“不对啊,再仔细想想! ”的提示。 3. 点击“退出”按钮,退出程序 出题(command1) click thisform.text1.value=int(rand()*90)+10 thisform.text2.value=int(rand()*90)+10 thisform.text3.value="" thisform.refresh 答题(command2) click a=val(thisform.text3.value) b=thisform.text