修改用户口令的代码.txt

来自「数据库实习学生选课系统」· 文本 代码 · 共 20 行

string a_user,a_pass
if sle_1.text="" or sle_2.text=""  or sle_3.text="" or sle_4.text="" or sle_3.text<>sle_4.text then
	messagebox("提示","用户名或密码不能为空，并且两次输入必须相同！",exclamation!)
else	
	SELECT 管理员表.编号,管理员表.密码
	INTO :a_user,:a_pass
	FROM 管理员表	
	WHERE 管理员表.编号=:sle_1.text;


 if  a_user=sle_1.text and a_pass=sle_2.text then
	    UPDATE 管理员表
            SET 管理员表.密码=:sle_4.text
	         WHERE 管理员表.编号=:sle_1.text;
            messagebox("提示","密码修改成功！下次登陆请使用新密码",Information!)
	    close(parent)
        else
	    messagebox("错误","用户名或密码错误，请重新输入",exclamation!)
end if 
end if