菜鸟问题，求教！老手新手都来看看呀

zhh780913

procedure Tlogin.OKButtonClick(Sender: TObject);
var
  str1,str2: String;
begin
  if (nameComboBox.Text = '') then
    Showmessage('请输入用户ID！')
  else
  begin
    str2 := 'select psw from login where uid = ' + nameComboBox.Text + '';
    ADODataSet1.Close;
    ADODataSet1.CommandText := str2;
    ADODataSet1.Open;
    str1 :=  VarToStrDef(ADODataSet1['psw'],'*');//这样赋值又错吗？？？
    if (pswEdit.Text <> str1) then            //这样比较不对吗？？？
      begin
        Showmessage('密码错误！ '+ str1) ;//这里STR1明明显示的是正确密码
                                          //为什么上面比较老是说不正确
      end
    else
      begin
        Showmessage('输入正确！');
        loged := true;
        login.Close;
        main.Show;
      end;
  end;
  PswEdit.Text := '';
end;

lazying

有空格比较时就会执行Showmessage
加个trim()

zhh780913

问题是不管输入是否正确都是执行 Showmessage('密码错误！ '+ str1) 的啊
比如pswEdit中输入的是aa而VarToStrDef(ADODataSet1['psw'],'*')中得到的也是aa，为什么比较会不等呢，麻烦能具体说下吗，新手啊＝。＝

air058

trim(pswEdit.Text) <> trim(str1) 试一试

jk66255

把两个字符串的长度都显示出来看看，是否有隐藏的字符。

supperman

这样试试看

......
  if UpperCase(pswEdit.Text) <> UpperCase(str1) then

......

zhh780913

哇，好心人真多不管怎么样，谢谢先～～～

zhh780913

supperman 你的是对的，谢谢啦
不过

function UpperCase(const S: string): string;
var
  Ch: Char;
  L: Integer;
  Source, Dest: PChar;
begin
  L := Length(S);
  SetLength(Result, L);
  Source := Pointer(S);
  Dest := Pointer(Result);
  while L <> 0 do
  begin
    Ch := Source^;
    if (Ch >= 'a') and (Ch <= 'z') then Dec(Ch, 32);
    Dest^ := Ch;
    Inc(Source);
    Inc(Dest);
    Dec(L);
  end;
end;

看不太懂。。。。麻烦再指点指点，比较菜吧＝。＝

xujie065

提示你哪错误了~~