s2.model.ts2adoserverdatamodel.pas

轉載的程序應用框架

unit S2.Model.TS2ADOServerDataModel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  S2.Model.TS2ServerDataModel, DB, ADODB, S2.Model.IS2DatabaseConnection,
  S2.Model.TS2ADODatabaseManager, Provider, S2.Tools.TS2Object, DBClient,
  S2.Model.TS2DatabaseManager;

type
  TS2ADOServerDataModel = class(TS2ServerDataModel)
    _DataSet: TADODataSet;
  private
    DatabaseManager: TS2ADODatabaseManager;
  protected
    procedure InitModel; override;
  public
    function GetDataSet: TDataSet; override;  
    procedure Save; override;
  end;

implementation

uses
  S2.Model.IS2ADODatabaseConnection;

{$R *.dfm}

{ TS2ADOServerDataModel }

function TS2ADOServerDataModel.GetDataSet: TDataSet;
begin
  Result := _DataSet;
end;

procedure TS2ADOServerDataModel.InitModel;
begin
  inherited;
  DatabaseManager := GetSystemObject.GetDatabaseManager as TS2ADODatabaseManager;
  _DataSet.Connection := IS2ADODatabaseConnection(DatabaseManager).GetADOConnection;
end;

procedure TS2ADOServerDataModel.Save;
begin
  try
    _DataSet.UpdateBatch;
    _ClientDataSet.DisableControls;
    _ClientDataSet.Close;
    _ClientDataSet.Open;
  finally
    _ClientDataSet.EnableControls;
  end;
end;

end.