AdvStringGrid入门使用

仅仅把数据从数据库中显示到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 + ;    //AdvStringGrid总行数
    AdvStringGrid1.RowCount := qry1.RecordCount + ;   //AdvStringGrid总列数

    AdvStringGrid1.Cells[,]:='员工编号';             //第一列标题
    AdvStringGrid1.Cells[,]:='员工姓名';             //第二列标题
    AdvStringGrid1.Cells[,]:='员工密码';             //第三列标题

    AdvStringGrid1.FixedColWidth:=;                  //固定列宽度
    AdvStringGrid1.ColWidths[]:=;                  //第一列宽度
    AdvStringGrid1.ColWidths[]:=;                  //第二列宽度
    AdvStringGrid1.ColWidths[]:=;                  //第三列宽度

 //循环把数据集中的数据插入advstringgrid的单元格中
    for i :=  to qry1.RecordCount do
    begin
        for j :=  to qry1.FieldCount -  do
        begin
            AdvStringGrid1.Cells[j+,i]:=qry1.Fields.Fields[j].AsString;
        end;
        qry1.Next;
    end;
end;