udmmyessays.~pas

来自「Delphi开发webservice的一套例子」· ~PAS 代码 · 共 40 行

unit udmMyEssays;

interface

uses
  SysUtils, Classes, DBXpress, FMTBcd, DB, SqlExpr;

type
  TdmMyEssays = class(TDataModule)
    sconnMyEssays: TSQLConnection;
    sdsMyEssays: TSQLDataSet;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmMyEssays: TdmMyEssays;

implementation

{$R *.dfm}

procedure TdmMyEssays.DataModuleCreate(Sender: TObject);
begin
  Self.sconnMyEssays.Connected := True;
  Self.sdsMyEssays.Active := True;
end;

procedure TdmMyEssays.DataModuleDestroy(Sender: TObject);
begin
  Self.sdsMyEssays.Active := False;
  Self.sconnMyEssays.Connected := False;;
end;

end.