delphi管理系统更改用户登陆密码

请高手帮我找一下代码的登录密码和用户名，急用万分感谢！谢谢大家！
代码如下：
procedure TLogin_Form.Button2Click(Sender: TObject);
begin
Close;
end;

procedure TLogin_Form.Button1Click(Sender: TObject);
var
name,password,sqlstr:string;
begin
if (length(trim(name_edit.Text)) > 0) or (length(trim(password_edit.Text)) > 0) then
begin
name:=trim(name_edit.Text);
password:=trim(password_edit.Text);
sqlstr:='select * from t_user where (name='''+name+''') and(passwd='''+password+''')';
with TadoQuery.Create(nil) do
try
Close;
SQL.Clear;
SQL.Add(sqlstr);
Open;
if RecordCount > 0 then
begin
login_form.Close;
end
else
begin
showmessage('请确认登录的用户名和密码是否正确！');
n

delphi图书管理系统 课程设计delphi《图书馆管理系统》 图书管理系统 delphi代码 系统用户管理问题 用delphi能不能做酒店管理系统 windows 系统更改用户名字 2000系统 更改登陆用户 系统用户登陆管理.3 家庭版如何管理系统用户 如何更改用户帐号登陆系统