office11grouprowstyledemodata.pas

来自「DevExpress ExpressQuantumGrid Suite v5.9」· PAS 代码 · 共 43 行

unit Office11GroupRowStyleDemoData;

interface

uses
  Forms, SysUtils, Classes, DB, cxStyles, ImgList,
  Controls, cxEdit, cxEditRepositoryItems, cxDBEditRepository, cxClasses,
  cxGridCardView, DBTables, DemoUtils;

type
  TOffice11GroupRowStyleDemoDataDM = class(TDataModule)
    DataBase: TDataBase;
    tblPersons: TTable;
    dsPersons: TDataSource;
    tblPersonsFullName: TStringField;
    StyleRepository: TcxStyleRepository;
    UnreadStyle: TcxStyle;
    tblPersonsFNAME: TStringField;
    tblPersonsLNAME: TStringField;
    procedure tblPersonsCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Office11GroupRowStyleDemoDataDM: TOffice11GroupRowStyleDemoDataDM;

implementation

{$R *.dfm}

procedure TOffice11GroupRowStyleDemoDataDM.tblPersonsCalcFields(
  DataSet: TDataSet);
begin
  SetStringFieldValue(tblPersonsFullName, Format('%s %s',[tblPersonsFNAME.Value,
    tblPersonsLNAME.Value]));
end;

end.