function CheckPass(aLoingName: string): Boolean;<br>begin<br> with dm.ado_user do<br> begin<br> Close;<br> SQL.Clear;<br> SQL.Add('Select * from sysuser where id =: para1') ;<br> Parameters[0].Value := aLoingName;<br> Open;<br> if not IsEmpty then<br> begin<br> //UserName_D := FieldValues['姓名'];<br> PassWord_D := FieldValues['password'];<br> Result := True;<br> end;<br> end;<br>end;
