大虾也麻烦帮我加个验证空白项的功能吧,我写不完全,头脑好乱,还要加什么数据库控件吗,如ADOQuery控件什么的。
procedure TForm11.Button1Click(Sender: TObject);
var
uname,oldpass,newpass,newp,sqlstr:string;
begin
uname:=trim(user_name);
oldpass:=trim(edit1.Text);
newpass:=trim(edit2.Text);
newp:=trim(edit3.Text);
if(newpass<>newp)then
begin
showmessage('确认密码与新密码不符合,请重新输入!');
edit2.Clear;
edit3.Clear;
exit;
end;
sqlstr:='select * from admin where (user_name="'+uname+
'") and (user_pass="'+Encrypt(oldpass)+'")';
with TADOQuery.Create(nil) do
try
Connection:=Form2.ADOConnection1;
Close;
sql.Clear;
sql.Add(sqlstr);
open;
if recordcount<0 then
begin
Messagebox(0,'原密码错误!修改失败!','错误', MB_OK or MB_ICONERROR);
password.Form11.Close ;
end
else
begin
sqlstr:='update admin set user_pass="'+Encrypt(newp)+
'" where (user_name="'+uname+'")';
sql.Clear;
sql.Add(sqlstr);
Execsql;
ShowMessage('密码修改成功!');
password.Form11.Close;
end;
finally
free;
end;
end;