dxgrclms.pas

人事管理源码 Delphi+ADO+Acce

{*******************************************************************}
{                                                                   }
{       Developer Express Visual Component Library                  }
{       ExpressQuantumGrid extended columns                         }
{                                                                   }
{       Copyright (c) 1998-2001 Developer Express Inc.              }
{       ALL RIGHTS RESERVED                                         }
{                                                                   }
{   The entire contents of this file is protected by U.S. and       }
{   International Copyright Laws. Unauthorized reproduction,        }
{   reverse-engineering, and distribution of all or any portion of  }
{   the code contained in this file is strictly prohibited and may  }
{   result in severe civil and criminal penalties and will be       }
{   prosecuted to the maximum extent possible under the law.        }
{                                                                   }
{   RESTRICTIONS                                                    }
{                                                                   }
{   THIS SOURCE CODE AND ALL RESULTING INTERMEDIATE FILES           }
{   (DCU, OBJ, DLL, ETC.) ARE CONFIDENTIAL AND PROPRIETARY TRADE    }
{   SECRETS OF DEVELOPER EXPRESS INC. THE REGISTERED DEVELOPER IS   }
{   LICENSED TO DISTRIBUTE THE EXPRESSGRID AND ALL ACCOMPANYING VCL }
{   CONTROLS AS PART OF AN EXECUTABLE PROGRAM ONLY.                 }
{                                                                   }
{   THE SOURCE CODE CONTAINED WITHIN THIS FILE AND ALL RELATED      }
{   FILES OR ANY PORTION OF ITS CONTENTS SHALL AT NO TIME BE        }
{   COPIED, TRANSFERRED, SOLD, DISTRIBUTED, OR OTHERWISE MADE       }
{   AVAILABLE TO OTHER INDIVIDUALS WITHOUT EXPRESS WRITTEN CONSENT  }
{   AND PERMISSION FROM DEVELOPER EXPRESS INC.                      }
{                                                                   }
{   CONSULT THE END USER LICENSE AGREEMENT FOR INFORMATION ON       }
{   ADDITIONAL RESTRICTIONS.                                        }
{                                                                   }
{*******************************************************************}

unit dxGrClms;

interface

{$I dxTLVer.inc}

uses
  Windows, Messages, SysUtils, Classes, DB, dxExEdtr, dxDBCtrl, dxDBGrid,
  dxCntner, dxTL, dxDBTLCl;

type
  { TdxDBGridButtonColumn }
  TdxDBGridButtonColumn = class(TdxDBTreeListButtonColumn)
  public
    property SummaryGroup;
  published
    property DisableFilter;
    property GroupIndex;
    property SummaryType;
    property SummaryField;
    property SummaryFormat;
    property SortBySummary;
    property OnSummary;
    property SummaryGroupName;

    property SummaryFooterType;
    property SummaryFooterField;
    property SummaryFooterFormat;
    property OnSummaryFooter;
    property OnDrawSummaryFooter;
  end;

  { TdxDBGridDropDownColumn }
  TdxDBGridDropDownColumn = class(TdxDBTreeListDropDownColumn)
  public
    property SummaryGroup;
  published
    property GroupIndex;
    property SummaryType;
    property SummaryField;
    property SummaryFormat;
    property OnSummary;
    property SummaryGroupName;

    property SummaryFooterType;
    property SummaryFooterField;
    property SummaryFooterFormat;
    property OnSummaryFooter;
    property OnDrawSummaryFooter;
  end;

  { TdxDBGridDateColumn }
  TdxDBGridDateColumn = class (TdxDBTreeListDateColumn)
  public
    property SummaryGroup;
  published
    property DisableFilter;
    property GroupIndex;
    property SummaryType;
    property SummaryField;
    property SummaryFormat;
    property SortBySummary;
    property OnSummary;
    property SummaryGroupName;

    property SummaryFooterType;
    property SummaryFooterField;
    property SummaryFooterFormat;
    property OnSummaryFooter;
    property OnDrawSummaryFooter;
  end;

  { TdxDBGridCheckColumn }
  TdxDBGridCheckColumn = class(TdxDBTreeListCheckColumn)
  private
    FDisplayCheck: string;
    FDisplayUncheck: string;
    FDisplayNull: string;
    procedure SetDisplayCheck(const Value: string);
    procedure SetDisplayUnCheck(const Value: string);
    procedure SetDisplayNull(const Value: string);
  protected
    function GetGroupText(const Value: string): string; override;
    procedure PrepareFilterEdit(AEdit: TdxInplaceEdit); override;
  public
    procedure Assign(Source: TPersistent); override;
    procedure RestoreDefaults; override;
    property SummaryGroup;
  published
    property DisableFilter;
    property GroupIndex;
    property SummaryType;
    property SummaryField;
    property SummaryFormat;
    property SortBySummary;
    property OnSummary;
    property SummaryGroupName;
    property DisplayChecked: string read FDisplayCheck write SetDisplayCheck;
    property DisplayUnChecked: string read FDisplayUnCheck write SetDisplayUnCheck;
    property DisplayNull: string read FDisplayNull write SetDisplayNull;

    property SummaryFooterType;
    property SummaryFooterField;
    property SummaryFooterFormat;
    property OnSummaryFooter;
    property OnDrawSummaryFooter;
  end;

  { TdxDBGridImageColumn }
  TdxDBGridImageColumn = class(TdxDBTreeListImageColumn)
  protected
    function GetGroupText(const Value: string): string; override;
  public
    property SummaryGroup;
  published
    property DisableFilter;
    property GroupIndex;
    property SummaryType;
    property SummaryField;
    property SummaryFormat;
    property SortBySummary;
    property OnSummary;
    property SummaryGroupName;

    property SummaryFooterType;
    property SummaryFooterField;
    property SummaryFooterFormat;
    property OnSummaryFooter;
    property OnDrawSummaryFooter;
  end;

  { TdxDBGridSpinColumn }
  TdxDBGridSpinColumn = class(TdxDBTreeListSpinColumn)
  public
    property SummaryGroup;
  published
    property DisableFilter;
    property GroupIndex;
    property SummaryType;
    property SummaryField;
    property SummaryFormat;
    property SortBySummary;
    property OnSummary;
    property SummaryGroupName;

    property SummaryFooterType;
    property SummaryFooterField;
    property SummaryFooterFormat;
    property OnSummaryFooter;
    property OnDrawSummaryFooter;
  end;

  { TdxDBGridLookupColumn }
  TdxDBGridLookupColumn = class(TdxDBTreeListLookupColumn)
  public
    property SummaryGroup;
  published
    property DisableFilter;
    property GroupIndex;
    property SummaryType;
    property SummaryField;
    property SummaryFormat;
    property SortBySummary;
    property OnSummary;
    property SummaryGroupName;

    property SummaryFooterType;
    property SummaryFooterField;
    property SummaryFooterFormat;
    property OnSummaryFooter;
    property OnDrawSummaryFooter;
  end;

  { TdxDBGridLookupColumn }
  TdxDBGridPickColumn = class(TdxDBTreeListPickColumn)
  public
    property SummaryGroup;
  published
    property DisableFilter;
    property GroupIndex;
    property SummaryType;
    property SummaryField;
    property SummaryFormat;
    property SortBySummary;
    property OnSummary;
    property SummaryGroupName;

    property SummaryFooterType;
    property SummaryFooterField;
    property SummaryFooterFormat;
    property OnSummaryFooter;
    property OnDrawSummaryFooter;
  end;

  { TdxDBGridCalcColumn }
  TdxDBGridCalcColumn = class(TdxDBTreeListCalcColumn)
  public
    property SummaryGroup;
  published
    property DisableFilter;
    property GroupIndex;
    property SummaryType;
    property SummaryField;
    property SummaryFormat;
    property SortBySummary;
    property OnSummary;
    property SummaryGroupName;

    property SummaryFooterType;
    property SummaryFooterField;
    property SummaryFooterFormat;
    property OnSummaryFooter;
    property OnDrawSummaryFooter;
  end;

  { TdxDBGridBlobColumn }
  TdxDBGridBlobColumn = class(TdxDBTreeListBlobColumn)
  public
    property SummaryGroup;
  published
    property GroupIndex;
    property SummaryType;
    property SummaryField;
    property SummaryFormat;
    property SortBySummary;
    property OnSummary;
    property SummaryGroupName;

    property SummaryFooterType;
    property SummaryFooterField;
    property SummaryFooterFormat;
    property OnSummaryFooter;
    property OnDrawSummaryFooter;
  end;

  { TdxDBGridHyperLinkColumn }
  TdxDBGridHyperLinkColumn = class(TdxDBTreeListHyperLinkColumn)
  public
    property SummaryGroup;
  published
    property DisableFilter;
    property GroupIndex;
    property SummaryType;
    property SummaryField;
    property SummaryFormat;