ADOQuery1.FieldByName AsString trim

if str_pwd_in=trim(MainF.ADOQuery1.FieldByName('pwd').AsString) then
        begin
          if trim(MainF.ADOQuery1.FieldByName('Type').AsString)='sysadmin' then

例如：if Edit1.Text=Adoquery1.FieldByName('密码').AsString
改成:if Trim(Edit2.text)=Trim(ADOquery1.fieldByName('密码').Asstring)
或者把数据类型改成varchar，因为char类型,如果字符不足10的话,它会以空格填充.里有很多空格的，需要用trim去掉。搞得我烦了半天才找出原因，以后得小心啦！