cxGrid表头动态赋值标题

疯流人物
于 2022-10-10 11:17:19 发布
阅读量220
点赞数
分类专栏： Delphi 文章标签： c++ 大数据数据挖掘
本文链接：https://blog.csdn.net/u013408061/article/details/127241257
版权
Delphi 专栏收录该内容
187 篇文章 10 订阅
订阅专栏
procedure TfrmXXForm.UpdateTimeIntervalGridColCaption;
var
  qryTimePriceEUse: TADOQuery;
    procedure DoUpdateGridCaption(cxCustomGridView: TcxGridDBBandedTableView);
    var
      i: Integer;
    begin
      for i := 0 to  cxCustomGridView.ColumnCount-1 do
      begin
        if (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('WeekName51'))
        or (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('PriceNum51')) then
        begin
          if qryTimePriceEUse.Locate('Weekname;TimeNum',VarArrayOf([1,1]),[]) then
            cxCustomGridView.Columns[i].Caption := Format('%s-%s',[FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('BeginTime').AsDateTime),
            FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('EndTime').AsDateTime)]);
        end
        else if (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('WeekName52'))
        or (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('PriceNum52')) then
        begin
          if qryTimePriceEUse.Locate('Weekname;TimeNum',VarArrayOf([1,2]),[]) then
            cxCustomGridView.Columns[i].Caption := Format('%s-%s',[FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('BeginTime').AsDateTime),
            FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('EndTime').AsDateTime)]);
        end
        else if (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('WeekName53'))
        or (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('PriceNum53')) then
        begin
          if qryTimePriceEUse.Locate('Weekname;TimeNum',VarArrayOf([1,3]),[]) then
            cxCustomGridView.Columns[i].Caption := Format('%s-%s',[FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('BeginTime').AsDateTime),
            FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('EndTime').AsDateTime)]);
        end
        else if (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('WeekName54'))
        or (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('PriceNum54')) then
        begin
          if qryTimePriceEUse.Locate('Weekname;TimeNum',VarArrayOf([1,4]),[]) then
            cxCustomGridView.Columns[i].Caption := Format('%s-%s',[FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('BeginTime').AsDateTime),
            FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('EndTime').AsDateTime)]);
        end
        else if (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('WeekName61'))
        or (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('PriceNum61')) then
        begin
          if qryTimePriceEUse.Locate('Weekname;TimeNum',VarArrayOf([6,1]),[]) then
            cxCustomGridView.Columns[i].Caption := Format('%s-%s',[FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('BeginTime').AsDateTime),
            FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('EndTime').AsDateTime)]);
        end
        else if (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('WeekName62'))
        or (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('PriceNum62')) then
        begin
          if qryTimePriceEUse.Locate('Weekname;TimeNum',VarArrayOf([6,2]),[]) then
            cxCustomGridView.Columns[i].Caption := Format('%s-%s',[FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('BeginTime').AsDateTime),
            FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('EndTime').AsDateTime)]);
        end
        else if (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('WeekName63'))
        or (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('PriceNum63')) then
        begin
          if qryTimePriceEUse.Locate('Weekname;TimeNum',VarArrayOf([6,3]),[]) then
            cxCustomGridView.Columns[i].Caption := Format('%s-%s',[FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('BeginTime').AsDateTime),
            FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('EndTime').AsDateTime)]);
        end
        else if (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('WeekName64'))
        or (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('PriceNum64')) then
        begin
          if qryTimePriceEUse.Locate('Weekname;TimeNum',VarArrayOf([6,4]),[]) then
            cxCustomGridView.Columns[i].Caption := Format('%s-%s',[FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('BeginTime').AsDateTime),
            FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('EndTime').AsDateTime)]);
        end
        else if (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('WeekName71'))
         or (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('PriceNum71')) then
        begin
          if qryTimePriceEUse.Locate('Weekname;TimeNum',VarArrayOf([7,1]),[]) then
            cxCustomGridView.Columns[i].Caption := Format('%s-%s',[FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('BeginTime').AsDateTime),
            FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('EndTime').AsDateTime)]);
        end
        else if (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('WeekName72'))
        or (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('PriceNum72')) then
        begin
          if qryTimePriceEUse.Locate('Weekname;TimeNum',VarArrayOf([7,2]),[]) then
            cxCustomGridView.Columns[i].Caption := Format('%s-%s',[FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('BeginTime').AsDateTime),
            FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('EndTime').AsDateTime)]);
        end
        else if (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('WeekName73'))
        or (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('PriceNum73'))then
        begin
          if qryTimePriceEUse.Locate('Weekname;TimeNum',VarArrayOf([7,3]),[]) then
            cxCustomGridView.Columns[i].Caption := Format('%s-%s',[FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('BeginTime').AsDateTime),
            FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('EndTime').AsDateTime)]);
        end
        else if (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('WeekName74'))
        or (UpperCase(cxCustomGridView.Columns[i].DataBinding.FieldName) = UpperCase('PriceNum74')) then
        begin
          if qryTimePriceEUse.Locate('Weekname;TimeNum',VarArrayOf([7,4]),[]) then
            cxCustomGridView.Columns[i].Caption := Format('%s-%s',[FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('BeginTime').AsDateTime),
            FormatDateTime('HH:mm', qryTimePriceEUse.FieldByName('EndTime').AsDateTime)]);
        end;
      end
    end;
begin
  qryTimePriceEUse := TADOQuery.Create(nil);
  try
    ExecADOQuery(qryTimePriceEUse, 'SELECT * FROM dbo.TimePrice order by TimeNum,BeginTime', true);
    DoUpdateGridCaption(Week1_TimeRecordGrid_BandedTView);
  finally
    qryTimePriceEUse.Free;
  end;
end;