菜鸟问题，求教！老手新手都来看看呀
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;

[解决办法]
这样试试看

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

......