samboo_LALA samboo_LALA
关注数: 0 粉丝数: 6 发帖数: 474 关注贴吧数: 2
sql if sle_user.text="" thenmessagebox("提醒","请输入用户名！")sle_user.setfocus()returnend ifif sle_pwd.text="" thenmessagebox("提醒","请输入密码！")sle_pwd.setfocus()returnend ifstring ls_user,ls_pwd,ls_confirm_user,ls_confirm_pwd,lt_user,lt_pwd,lt_confirm_user,lt_confirm_pwdls_user = upper(sle_user.text)ls_pwd = upper(sle_pwd.text)ls_confirm_pwd=""ls_confirm_user=""lt_user = upper(sle_user.text)lt_pwd = upper(sle_pwd.text)lt_confirm_pwd=""lt_confirm_user=""if (ls_user='SYSTEM' and ls_pwd='SYSTEM') thenopen(w_teacher_login)close(parent)elseselect t.login,t.password,t.tno into :lt_confirm_user,:lt_confirm_pwd,:t_infofrom t where t.login=:lt_user;t_info=trim(t_info)select "s"."login","s"."password","s"."sno" into :ls_confirm_user,:ls_confirm_pwd,:s_infofrom "s" where "s"."login"=:lt_user;s_info = trim(s_info)if ls_user<>trim(ls_confirm_user) and lt_user<>trim(lt_confirm_user) thenmessagebox("警告","用户名错！重新注册！",stopsign!)sle_user.text=""sle_pwd.text=""sle_user.setfocus()elseif ls_pwd<>trim(ls_confirm_pwd) and lt_pwd<>trim(lt_confirm_pwd) thenmessagebox("警告","口令错！重新注册！",stopsign!)sle_pwd.text=""sle_pwd.setfocus()elseif ls_user=trim(ls_confirm_user) and ls_pwd=trim(ls_confirm_pwd) thenopen(w_select_course)close(parent)else//test.text=ls_user + " " + ls_pwd + " " + ls_confirm_user + " " + ls_confirm_pwdopen(w_teacher_login)close(parent)end ifend if
【Code★Blue】请教下~哪位知道TVU上电视台的节目表? 刚刚装上TVU...貌似有点小晚..用着觉得还不错~也不是很卡!感谢紫紫酱!(貌似叫的有点小亲切..表介意哈~!)想看MS之类的节目~不知道时间表很麻烦~望哪位亲帮个忙!先3Q~!
1 下一页