dmain.pas

来自「delphi的一个歌词管理程序」· PAS 代码 · 共 40 行

unit dMain;

interface

uses
  SysUtils, Classes, ADODB, Provider, DB, DBClient,Forms,MidasLib;

type
  TdModule = class(TDataModule)
    cdsMain: TClientDataSet;
    DataSetProvider: TDataSetProvider;
    Qcds: TADOQuery;
    cdsDataSource: TDataSource;
    procedure cdsMainMustBeSaved(DataSet: TDataSet);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dModule: TdModule;

implementation

{$R *.dfm}

procedure TdModule.cdsMainMustBeSaved(DataSet: TDataSet);
begin
//  dModule.cdsMain.SaveToFile(ExtractFileDir(Application.ExeName)+'\Database\Lyrics.dbLyrics');
end;

procedure TdModule.DataModuleDestroy(Sender: TObject);
begin
  dModule.cdsMain.SaveToFile(ExtractFileDir(Application.ExeName)+'\Database\Lyrics.dbLyrics');
end;

end.