MDI类型窗体的登陆窗体出错？请高手赐教！

Question

我的代码为：
  procedure TLoadfrm.FormShow(Sender: TObject);
var
  sSQL:string;
  i,intCount:integer;
begin
    Comboboxuser.Items.Clear;
  sSQL:='select * from Load';
  Datafrm.ADOQueryLoad.Close;
  Datafrm.ADOQueryLoad.SQL.Clear;
  Datafrm.ADOQueryLoad.SQL.Add(sSQL);
  Datafrm.ADOQueryLoad.Open;
  Datafrm.ADOQueryLoad.First;
  intCount:=Datafrm.ADOQueryLoad.RecordCount;
  if i>0 then
    begin
      for i:=0 to intCount-1 do
         begin
           Comboboxuser.Items.Add(Datafrm.ADOQueryLoad.FieldByName('username').AsString);
           Datafrm.ADOQueryLoad.Next;
         end;
    end;
end;在运行时显示第一行Load处错误，我检查数据库没有错误，为什么？

Answer 1

确认你的database所在窗口要在TLoadfrm上对立，你的 database在那个窗口中!是否已经建立！