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;

    酒肉穿肠过 佛祖心中留 世人若学我 如同入魔道
  • 相关阅读:
    微信公众号扫一扫接口
    JDBC-用户登录验证(sql注入)
    JDBC
    Shell脚本
    java-变量总结
    java-那些方法不能被重写
    java-数组工具类
    java-类初始化与实例初始化
    java-static
    java-native修饰符
  • 原文地址:https://www.cnblogs.com/jspdelphi/p/8430215.html
Copyright © 2011-2022 走看看