zoukankan      html  css  js  c++  java
  • 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;

  • 相关阅读:
    k近邻算法
    密码技术小总结
    编码的简单总结
    icmp dos和arp dos 攻击模拟实验
    WPA简单抓包分析
    Iptables实验
    Rabin简单加解密
    response响应数据
    浮动——小米手机案例
    ServletRequest请求详解
  • 原文地址:https://www.cnblogs.com/lilongjiang/p/3183798.html
Copyright © 2011-2022 走看看