dmvendorquery.pas

来自「非常地全面完整的物流供应链管理系统 包含全部的需求文档」· PAS 代码 · 共 40 行

unit dmVendorQuery;

interface

uses
  SysUtils, Classes, DB, DBClient, MConnect, WebComp, MidItems, HTTPApp,
  HTTPProd, CompProd, PagItems, MidProd, DSProd, DBWeb;

type
  TVendorQueryDM = class(TDataModule)
    DCOMConnGoodsMaster: TDCOMConnection;
    cdsGoodsMaster: TClientDataSet;
    DSTPGoodsMaster: TDataSetTableProducer;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  VendorQueryDM: TVendorQueryDM;

implementation
uses untConfig;
{$R *.dfm}

procedure TVendorQueryDM.DataModuleCreate(Sender: TObject);
begin
  SetDComConnectionConnect(DCOMConnGoodsMaster);
end;

procedure TVendorQueryDM.DataModuleDestroy(Sender: TObject);
begin
  DCOMConnGoodsMaster.Close;
end;

end.