unit_dm_contract_order.pas

来自「主要是介绍DELPHI三层应用以及分布式数据库的应用」· PAS 代码 · 共 32 行

unit Unit_dm_contract_order;

interface

uses
  SysUtils, Windows, Classes, Graphics, Controls,
  Forms, Dialogs, DB, DBTables;

type
  Tdm_contract_order = class(TDataModule)
    ds_contract_order: TDataSource;
    Query_contract_order: TQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  dm_contract_order: Tdm_contract_order;

implementation

{$R *.DFM}

procedure Tdm_contract_order.DataModuleCreate(Sender: TObject);
begin
  Query_contract_order.Open;
end;

end.