unit_dm_contract_order.pas

大型分布式销售管理系统,DELPHI编写,商业源代码,现在已经商用,下载者严禁出售该代码,只可以自己学习,包含数据库文件

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.