仅仅把数据从数据库中显示到AdvStringGrid中

procedure TForm1.btnQueryClick(Sender: TObject);var    i, j: Integer;begin    qry1.Close;    qry1.SQL.Clear;    qry1.SQL.Add('select xtm08.xtyhdm,xtm08.xtyhxm,xtm081.xtyhmm from xtm08,xtm081');    qry1.SQL.Add(' where xtm081.xtyhdm=xtm08.xtyhdm');    qry1.Open;    AdvStringGrid1.ColCount := qry1.FieldCount + 1;    //AdvStringGrid总行数    AdvStringGrid1.RowCount := qry1.RecordCount + 1;   //AdvStringGrid总列数    AdvStringGrid1.Cells[1,0]:='员工编号';             //第一列标题    AdvStringGrid1.Cells[2,0]:='员工姓名';             //第二列标题    AdvStringGrid1.Cells[3,0]:='员工密码';             //第三列标题    AdvStringGrid1.FixedColWidth:=25;                  //固定列宽度    AdvStringGrid1.ColWidths[1]:=100;                  //第一列宽度    AdvStringGrid1.ColWidths[2]:=100;                  //第二列宽度    AdvStringGrid1.ColWidths[3]:=150;                  //第三列宽度 //循环把数据集中的数据插入advstringgrid的单元格中    for i := 1 to qry1.RecordCount do    begin        for j := 0 to qry1.FieldCount - 1 do        begin            AdvStringGrid1.Cells[j+1,i]:=qry1.Fields.Fields[j].AsString;        end;        qry1.Next;    end;end;