u_gzda_dm.pas

来自「人事管理程序源码」· PAS 代码 · 共 58 行

unit U_gzda_dm;

interface

uses
  SysUtils, Classes, DB, ADODB, Word2000, OleServer;

type
  Tgzda_dm = class(TDataModule)
    ADOCommand1: TADOCommand;
    ADODataSet1: TADODataSet;
    ADODataSet2: TADODataSet;
    ADODataSet3: TADODataSet;
    ADODataSet4: TADODataSet;
    ADODataSet5: TADODataSet;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    DataSource5: TDataSource;
    ADOConnection1: TADOConnection;
    ADODataSet6: TADODataSet;
    ADODataSet7: TADODataSet;
    ADODataSet8: TADODataSet;
    ADODataSet9: TADODataSet;
    ADODataSet10: TADODataSet;
    DataSource6: TDataSource;
    DataSource7: TDataSource;
    DataSource8: TDataSource;
    DataSource9: TDataSource;
    DataSource10: TDataSource;
    ADODataSet_cx: TADODataSet;
    DataSource_cx: TDataSource;
    WordDocument1: TWordDocument;
    WordApplication1: TWordApplication;
    ADODataSet_zhcx: TADODataSet;
    DataSource_zhcx: TDataSource;
    procedure DataModuleDestroy(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  gzda_dm: Tgzda_dm;

implementation

{$R *.dfm}

procedure Tgzda_dm.DataModuleDestroy(Sender: TObject);
begin
  if adoconnection1.Connected then adoconnection1.Connected:=false;
end;
end.