customerbrowsefrm.pas

来自「供水营销打印程序源码」· PAS 代码 · 共 42 行

unit CustomerBrowseFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SJCustomBrowseFrm, PropStorageEh, Grids, DBGridEh, Menus,
  ActnList, XPMenu, wwDialog, wwfltdlg, SJCustomProperty, ImgList;

type
  TfrmBrowseCustomer = class(TSJCustomBrowseForm)
  private
    { Private declarations }
  protected
    function  GetPropertyForm: TSJCustomPropertyForm; override;
  public
    { Public declarations }
  end;

var
  frmBrowseCustomer: TfrmBrowseCustomer;

implementation

uses InvPrintDM, CustomerPropertyFrm;

{$R *.dfm}

{ TfrmBrowseCustomer }

function TfrmBrowseCustomer.GetPropertyForm: TSJCustomPropertyForm;
begin
  if not Assigned(FPropertyForm) then
  begin
    FPropertyForm := TfrmPropertyCustomer.Create(Application);
    TfrmPropertyCustomer(FPropertyForm).dasProperty.DataSet := grdBrowse.DataSource.DataSet;
  end;
  Result := FPropertyForm;
end;

end.