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;

    酒肉穿肠过 佛祖心中留 世人若学我 如同入魔道
  • 相关阅读:
    命令
    碎片知识
    驱动问题
    网络基础知识普及
    面向设计大作业——公司餐厅
    面向对象--购物车
    OO之接口-DAO模式代码阅读及应用
    有理数类的定义
    图知识点总结
    Java课程设计总结
  • 原文地址:https://www.cnblogs.com/jspdelphi/p/8430215.html
Copyright © 2011-2022 走看看