datamodule.pas

来自「企业客户关系管理系统」· PAS 代码 · 共 57 行

unit datamodule;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  TDM_datamodule = class(TDataModule)
    crmDB: TDatabase;
    ds_UsersInfo: TDataSource;
    qry_UsersInfo: TQuery;
    qry_CompetitorInfo: TQuery;
    qry_CompetitorProductorInfo: TQuery;
    qry_CustomersInfo: TQuery;
    qry_CustomersAccuse: TQuery;
    qry_CustomersRelationerInfo: TQuery;
    qry_CustomersRequest: TQuery;
    qry_CustomersResponse: TQuery;
    qry_CustomersService: TQuery;
    qry_ProductorInfo: TQuery;
    qry_ReviewPlanning: TQuery;
    qry_SalsMoney: TQuery;
    qry_SalsReturn: TQuery;
    qry_SalsContract: TQuery;
    qry_StoreChange: TQuery;
    ds_CompetitorInfo: TDataSource;
    ds_CompetitorProductorInfo: TDataSource;
    ds_CustomersInfo: TDataSource;
    ds_CustomersAccuse: TDataSource;
    ds_CustomersRelationerInfo: TDataSource;
    ds_CustomersRequest: TDataSource;
    ds_CustomersResponse: TDataSource;
    ds_CustomersService: TDataSource;
    ds_ProductorInfo: TDataSource;
    ds_ReviewPlanning: TDataSource;
    ds_SalsMoney: TDataSource;
    ds_SalsReturn: TDataSource;
    ds_SalsContract: TDataSource;
    ds_StoreChange: TDataSource;
    qry_SalsRecord: TQuery;
    ds_SalsRecord: TDataSource;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM_datamodule: TDM_datamodule;

implementation

{$R *.dfm}

end.