unit2.pas

来自「这是我给一单位开以的支票打印系统,开发环境为delphi,控件为fastrepo」· PAS 代码 · 共 64 行

unit Unit2;

interface

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

type
  TData = class(TDataModule)
    ADO1: TADOConnection;
    ZPJE: TADOQuery;
    ZPYT: TADOQuery;
    SYDW: TADOQuery;
    BANCK: TADOQuery;
    zphm: TADOQuery;
    addy: TADOQuery;
    users: TADOQuery;
    yh: TADOQuery;
    addw: TADOQuery;
    dwh: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Data: TData;

implementation

{$R *.dfm}

procedure TData.DataModuleCreate(Sender: TObject);
begin
     ZPJE.Open ;
     ZPYT.Open ;
     SYDW.Open ;
     BANCK.Open ;
     zphm.Open ;
     users.Open ;
     yh.Open;
     addw.Open ;
     dwh.Open ;
end;

procedure TData.DataModuleDestroy(Sender: TObject);
begin
    ZPJE.Close ;
    ZPYT.Close ;
    SYDW.Close ;
    BANCK.Close;
    zphm.Close ;
    users.Close;
    yh.Close ;
    addw.Close ;
    dwh.Close ;
end;

end.