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 + 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;

转载于:https://www.cnblogs.com/lilongjiang/p/3183798.html