TStDbMaxiCodeBarcode

type TStDbMaxiCodeBarcode = class(TStMaxiCodeBarcode)

protected

  FCaptionDataLink: TFieldDataLink;

  FCodeDataLink: TFieldDataLink;

  FCountryCodeDataLink: TFieldDataLink;

  FPostalCodeDataLink: TFieldDataLink;

  FServiceClassDataLink: TFieldDataLink;

  procedure CaptionDataChange();

  procedure CodeDataChange();

  procedure CountryCodeChange();

  function GetCaptionDataField;

  function GetCodeDataField;

  function GetCountryCodeDataField;

  function GetDataSource;

  function GetPostalCodeDataField;

  function GetServiceClassDataField;

  procedure PostalCodeChange();

  procedure ServiceClassChange();

  procedure SetCaptionDataField();

  procedure SetCodeDataField();

  procedure SetCountryCodeDataField();

  procedure SetDataSource();

  procedure SetPostalCodeDataField();

  procedure SetServiceClassDataField();

public

  constructor Create(); override;

  destructor Destroy; override;

published

  property Code: string; [s]

  property Caption: string; [s]

  property CaptionDataField: string; [rw]

  property CarrierCountryCodeDataField: string; [rw]

  property CarrierPostalCodeDataField: string; [rw]

  property CarrierServiceClassDataField: string; [rw]

  property CodeDataField: string; [rw]

  property DataSource: TDataSource; [rw]

end;

TStDbMaxiCodeBarcode

TStMaxiCodeBarcode

TStCustom2DBarcode

TObject