大家能帮我调一下程序吗?

Question

下面这个是要实现登陆筐的制作
edit1,edit2必须用到
表为用户信息表
有用户名,密码两个字段
当点击确认按钮时会show form2 出来
我下面这个该怎么改呢?先谢谢大家了,就在我这个上面该就行了不用其它的方法了procedure TForm1.Button1Click(Sender: TObject);
begin
 with ADOQuery1 do
 begin
 close;
 open;
 sql.Clear;
 sql.Add('select * from 用户信息表');
 if (Parameters.ParamByName('用户名').Value=edit1.Text) and (Parameters.ParamByName('密码').Value=edit2.Text) then
 form2.Show
 else
 showmessage('密码错误，请重新输入');
 end;
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
 with ADOQuery1 do
 begin
 sql.Clear;
 sql.Add('select * from 用户信息表 where 用户名= :a');
 Parameters.ParamByName('a').Value=edit1.Text;
 open;
 if FieldByName('密码').asstring = edit2.text then
 form2.Show
 else
 showmessage('密码错误，请重新输入');
 end;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.text<>'' then
  begin
    with ADOQuery1 do
    begin
     sql.Clear;
     sql.Add('select * from 用户信息表 where 用户名='''+edit1.text+'''');
     open;
    end；
    if adoquery1.recordcount=1 then
    begin
      if adoquery1.FieldByName('密码').asstring = edit2.text then
      form2.Show
      else
      showmessage('密码错误，请重新输入');
    end
    else showmessage('用户名错误');
  end
 else showmessage('请输入用户名');
end;
应该没有写错吧，楼主试一试了，虽然方法有点笨，但是应该可以用吧。