55555555555555!求救！

Question

这段代码有错误吗？
function TDataModule1.CheckUserName(username:String):boolean;//用户名检查！
var
  Query:TADOQuery;
begin
    Query:=TADOQuery.Create(self);
    Query.Connection:=ADOConnection1;
    Query.SQL.Text:='select username from user_info where username=:name';
    Query.Parameters.ParamByName('name').Value:=username;
    Query.Open;
    if query.RecordCount=1 then
      result:=true
    else
      result:=false;
  Query.Close;
  Query.Free;
end;
调试说Query.Connection:=ADOConnection1;有错误！
错误的提示是：Access violation at address 00490fE4 in module'EZP.exe'.read of address 00000058

Answer 1

注意操作的顺序，对数据库要先连接到数据库中的表，才能让组件的active:=true;