求 PB9.0 一段代码

有关修改密码的：
假设有三个文本框，sle_1.text （原用户名）、sle_2.text（原密码） 、sle_3.text（修改后密码），修改按钮下的代码我写了一个，试了不行（数据库确定没问题，文本框空了也能检查出来，问题是输入了正确的用户名和密码后它还提示用户名，密码有错），能看出问题的告诉一下，或者有更好方法的给我一个：
//定义两个变量
char mima,username
//检索用户名和密码记录
SELECT 操作员表.用户名.
操作员表.密码
INTO :username,
:mima
FROM "操作员表"
WHERE 操作员表.用户名 = :sle_1.text;
//判断用户输入的用户名是否正确
if sle_1.text="" or sle_2.text="" or sle_3.text="" then
messagebox("错误！","用户名或密码不能为空！",exclamation!,ok!,2)
else
if sle_1.text="username" and sle_2.text="mima" then
//修改用户的密码
UPDATE "操作员表"
SET "密码" =:sle_3.text ;
//WHERE "用户名" =:sle_1.text;
//messagebox("密码修改成功！","请记住新密码，下次登录时请使用新密码！",exclamation!,ok!,2)
else
messagebox("错误！","用户名或密码错误，请重新输入！",exclamation!,ok!,2)

求VB6.0的一段代码 求一段代码 求网页一段代码 求一段网页代码~~~ 跪求一段代码 求一段JAVA代码!! 求一段网页代码 求一段JS代码 求一段VB代码 求一段HTML代码