⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 basevoucherrpt.pas

📁 企业ERP管理系统
💻 PAS
字号:
unit BaseVoucherRpt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WSVoucherRpt, QuickRpt, QRCtrls, ExtCtrls, DB;

type
  TBaseVoucherReport = class(TVoucherReport)
    QRLabel3: TQRLabel;
    ClientNameDBText: TQRDBText;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetMasterDataSet(ADataSet: TDataSet); override;
  end;

var
  BaseVoucherReport: TBaseVoucherReport;

implementation

{$R *.dfm}

{ TBaseVoucherReport }

procedure TBaseVoucherReport.SetMasterDataSet(ADataSet: TDataSet);
begin
  inherited SetMasterDataSet(ADataSet);
  ClientNameDBText.DataSet := ADataSet;
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -