zoukankan      html  css  js  c++  java
  • CxView自动添加列

    http://city193.blog.163.com/blog/static/341365232009112205541985/

    function cxgrid_create_client_dbtable(cxGridDBTableView:tcxGridDBTableView;Fjeclientdata:TClientDataSet):Boolean;
    var
      i:Integer;
      cxgridcolumn:TcxGridDBColumn;
      strtm:string;
    begin
      Screen.Cursor :=  crHourGlass;
      cxGridDBTableView.BeginUpdate;
       cxGridDBTableView.ClearItems;
        for  i := 0 to Fjeclientdata.FieldCount - 1 do
        begin
          cxgridcolumn:=cxGridDBTableView.CreateColumn;
          strtm:=Fjeclientdata.Fields[i].FieldName;
          cxgridcolumn.DataBinding.FieldName :=strtm;

          if cxgridcolumn.DataBinding.Field is  TStringField
              then cxgridcolumn.Width := 150
              else cxgridcolumn.Width := 80;
        end;
        cxGridDBTableView.EndUpdate;
        Screen.Cursor := crDefault;

    end;

    function cxgrid_create_adotable_dbtable(cxGridDBTableView:tcxGridDBTableView;adotable:TADOTable):Boolean;
    var
      i:Integer;
      cxgridcolumn:TcxGridDBColumn;
      strtm:string;
    begin
      Screen.Cursor :=  crHourGlass;
      cxGridDBTableView.BeginUpdate;
       cxGridDBTableView.ClearItems;
        for  i := 0 to adotable.FieldCount - 1 do
        begin
          cxgridcolumn:=cxGridDBTableView.CreateColumn;
          strtm:=adotable.Fields[i].FieldName;
          cxgridcolumn.DataBinding.FieldName :=strtm;

          if cxgridcolumn.DataBinding.Field is  TStringField
              then cxgridcolumn.Width := 150
              else cxgridcolumn.Width := 80;
        end;
        cxGridDBTableView.EndUpdate;
        Screen.Cursor := crDefault;
    end;

    酒肉穿肠过 佛祖心中留 世人若学我 如同入魔道
  • 相关阅读:
    关于size_t
    图的搜索算法之迷宫问题和棋盘马走日问题
    螺旋矩阵与螺旋队列
    内存分配问题
    质数的判断
    全局变量、静态全局变量、静态局部变量和局部变量的区别
    程序员必知之代码规范标准
    字符串查找与类型转换(C/C++)
    sizeof与strlen()的用法与区别
    关于C++的输入输出流(cin、sstream和cout)
  • 原文地址:https://www.cnblogs.com/jspdelphi/p/8430215.html
Copyright © 2011-2022 走看看