我做了一个身份登陆模块,可是不是密码是对是错,它总是跳出输错时才能产生的信息。这是怎么回事,是不是我在逻辑上错了什么?procedure …… var str:string; var_password:string; var_password2:string; begin str:='select * from 管理员表 where 用户名='+''+self.edit_user.text+''; self.adodataset1.active:=false; self.adodataset1.commandtext:=false; self.adodataset1.active:=true;
var_password:=vartostr(self.adodataset1.recordset.fields['密码'].value); var_password2:=self.edit_password.text; if var_password=var_password2 then begin self.N5.enable:=true; end else begin showmessage('错了'); end; end;
----------------------------------------------
-