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;

    酒肉穿肠过 佛祖心中留 世人若学我 如同入魔道
  • 相关阅读:
    【codeforces 510D】Fox And Jumping
    【codeforces 755E】PolandBall and White-Red graph
    实用SQL语句大全
    经典SQL语句大全
    mysql安装及使用语句
    ubuntu安装mysql数据库
    android数据库sqlite增加删改查
    ubuntu 15.04怎么安装QQ
    Tagging Physical Resources in a Cloud Computing Environment
    程序员的10大编程技巧
  • 原文地址:https://www.cnblogs.com/jspdelphi/p/8430215.html
Copyright © 2011-2022 走看看