datamodule.pas

来自「BOM表」· PAS 代码 · 共 60 行

// ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
// ┃ Copyright(c) 2001, Narada I.E., nCRM                                   ┃
// ┃ 文件名   ：DataModule.dpr                                              ┃
// ┃ 版本     ：1.0                                                         ┃
// ┃ 创建日期 ：2000.09.28                                                  ┃
// ┃ 作者     ：朱怀阳                                                      ┃
// ┃ 说明     ：数据模版文件。                                              ┃
// ┃ 修改历史 ：2001.10.12    将固定的业务数据表变成动态数据集。            ┃
// ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
unit DataModule;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB, ImgList;

type
  TDM = class(TDataModule)
    ADOConnection: TADOConnection;
    ImageList: TImageList;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.DFM}

uses Global;


procedure TDM.DataModuleCreate(Sender: TObject);
begin

  Env := TEnv.Create;
  Env.ADOConnection := ADOConnection;

  (ReadComponentResFile(ExtractFilePath(Application.ExeName) + RS_MAIN, ImageList) as TImageList).Name := 'ImageList';

end;

procedure TDM.DataModuleDestroy(Sender: TObject);
begin

  ADOConnection.Connected := False;
  Env.Free;
  ImageList.Free;

end;

end.