viewcarddemodata.pas

来自「胜天进销存源码,国产优秀的进销存」· PAS 代码 · 共 54 行

unit ViewCardDemoData;

interface

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

type
  TViewCardDemoDataDM = class(TDataModule)
    DataBase: TDataBase;
    tblPersons: TTable;
    dsPersons: TDataSource;
    tblPersonsID: TAutoIncField;
    tblPersonsFIRSTNAME: TStringField;
    tblPersonsSECONDNAME: TStringField;
    tblPersonsGENDER: TBooleanField;
    tblPersonsBIRTHNAME: TStringField;
    tblPersonsDATEOFBIRTH: TDateTimeField;
    tblPersonsBIRTHCOUNTRY: TIntegerField;
    tblPersonsLOCATIONOFBIRTH: TStringField;
    tblPersonsBIOGRAPHY: TMemoField;
    tblPersonsNICKNAME: TStringField;
    tblPersonsFullName: TStringField;
    ilPics: TImageList;
    tblPersonsHOMEPAGE: TStringField;
    tblCountries: TTable;
    dsCountries: TDataSource;
    procedure tblPersonsCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ViewCardDemoDataDM: TViewCardDemoDataDM;

implementation

{$R *.dfm}

procedure TViewCardDemoDataDM.tblPersonsCalcFields(
  DataSet: TDataSet);
begin
  with DataSet do
    tblPersonsFullName.AsString := Format('%s %s (%d)',[tblPersonsFirstName.AsString,
      tblPersonsSecondName.AsString, tblPersonsID.AsInteger]);
end;

end.