求救

Question

procedure Tmainfrm.Button1Click(Sender: TObject);
begin
 adoQuery1.Close;
 adoquery1.SQL.Clear;
 adoQuery1.SQL.Text:='select PPassword from dl where PAdministrator='''+edit1.text+'''';
 adoQuery1.Open;if edit2.Text=adoquery1.FieldByName('PPassword').AsString
 then manage.Show;end;
哪位高手幫我改一下.我這個在是輸入密碼的時候總是說密碼不正確,可
我明明是輸入的正確的密碼.

Answer 1

如果密碼輸入正確就會顯示manage窗口,可是每次輸入的密嗎是正確的,按下按鈕還沒有任和響應.

Answer 2

adoQuery1.SQL.Text:='select PPassword from dl where PAdministrator='+edit1.text;

Answer 3

procedure Tmainfrm.Button1Click(Sender: TObject);
begin
 adoQuery1.Close;
 adoquery1.SQL.Clear;
 adoQuery1.SQL.Text:='select PPassword from dl where PAdministrator='"'+edit1.text+'"';//改了这里, 试试吧
 adoQuery1.Open;if edit2.Text=adoquery1.FieldByName('PPassword').AsString
 then manage.Show;end;

Answer 4

procedure Tmainfrm.Button1Click(Sender: TObject);
begin
 adoQuery1.Close;
 adoquery1.SQL.Clear;
 adoQuery1.SQL.Text:='select PPassword from dl where PAdministrator=' + '"'+ edit1.text + '"';//改了这里, 试试吧
 adoQuery1.Open;if edit2.Text=adoquery1.FieldByName('PPassword').AsString
 then manage.Show;end;

Answer 5

procedure Tmainfrm.Button1Click(Sender: TObject);
begin
 adoQuery1.Close;
 adoquery1.SQL.Clear;
 adoQuery1.SQL.Text:='select PPassword from dl where PAdministrator=''''+trim(edit1.text)+'''';
 adoQuery1.Open;if edit2.Text=adoquery1.FieldByName('PPassword').AsString
 then manage.Show;end;

Answer 6

adoQuery1.SQL.Text:='select PPassword from dl where PAdministrator='+' '''+edit1.text+''' ';  //这样写应该对了

Answer 7

if edit2.Text=trim(adoquery1.FieldByName('PPassword').AsString)
 then manage.Show;是没去掉空格吧！ 试试看！

Answer 8

procedure Tmainfrm.Button1Click(Sender: TObject);
begin
 adoQuery1.Close;
 adoquery1.SQL.Clear;
 adoQuery1.SQL.Text:='select PPassword from dl where PAdministrator='''+edit1.text+'''';
 adoQuery1.Open;
if adoquery1.recordcount>0 then
  showmessage('该用户存在');
if edit2.Text=adoquery1.FieldByName('PPassword').AsString
 then manage.Show;
end;
//或者有同名用户

Answer 9

謝謝你了,hmzgz81(哩翱) 
教我怎麼給你分