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;

    酒肉穿肠过 佛祖心中留 世人若学我 如同入魔道
  • 相关阅读:
    web在线智能四则运算挑战赛
    超简单的实现wordcount
    构建之法现代软件工程自我介绍
    通过WMI获取机器信息
    ManagementObjectSearcher Path
    开启FIPS协议
    Windows Server 2012开启多人远程
    开发企业应用系统需要掌握的知识技能
    Win7系统下彻底删除无用服务的方法
    C#基础(二)之数据类型
  • 原文地址:https://www.cnblogs.com/jspdelphi/p/8430215.html
Copyright © 2011-2022 走看看