ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 根据表格中的数据长度自动调整表格宽度DBGrid

根据表格中的数据长度自动调整表格宽度DBGrid

原创 Linux操作系统 作者:luoyanqing119 时间:2009-04-11 11:47:25 0 删除 编辑
procedure TFrmOrderBy.BtnOrderClick(Sender: TObject);
     var
      i: integer;
      fieldname: string;
     begin
      with AQuery do
       begin
         Close;
         SQL.Clear;
         SQL.Add('SELECT max(datalength(id)) AS id ,');
         SQL.Add('max(datalength(number))AS number,');
         SQL.Add('max(datalength(name))AS name,');
         SQL.Add('max(datalength(old))AS old,');
         SQL.Add('max(datalength(sex))AS sex,');
         SQL.Add('max(datalength(telephone))AS telephone,');
         SQL.Add('max(datalength(department))AS department,');
         SQL.Add('max(len(joindate))AS joindate');
         SQL.Add('FROM TB_Worker');
         Open;
       end;
      for i := 0 to DBGList.Columns.Count - 1 do
       begin
         fieldname := DBGList.Columns[i].Field.FieldName;
         DBGList.Columns[i].Field.DisplayWidth := AQuery.FieldByName(fieldname).AsInteger;
       end;
     end;

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/15678730/viewspace-588673/,如需转载,请注明出处,否则将追究法律责任。

下一篇: 一些博客链接
请登录后发表评论 登录
全部评论

注册时间:2009-04-09

  • 博文量
    23
  • 访问量
    32750