datamodule.pas

权限管理

unit DataModule;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    DSetUser: TADODataSet;
    DSUser: TDataSource;
    DSetUserIncPost: TADODataSet;
    DSUserIncPost: TDataSource;
    DSetUserExPost: TADODataSet;
    DSetUserIncPur: TADODataSet;
    DSUserExPost: TDataSource;
    DSUserIncPur: TDataSource;
    DSetPost: TADODataSet;
    DSetPostIncGroup: TADODataSet;
    DSetPostExGroup: TADODataSet;
    DSetPostIncPur: TADODataSet;
    DSPost: TDataSource;
    DSPostIncGroup: TDataSource;
    DSPostExGroup: TDataSource;
    DSPostIncPur: TDataSource;
    DSetGroup: TADODataSet;
    DSetGroupIncPur: TADODataSet;
    DSetGroupExPur: TADODataSet;
    DSGroup: TDataSource;
    DSGroupIncPur: TDataSource;
    DSGroupExPur: TDataSource;
    ADOQuery1: TADOQuery;
    procedure DSetGroupPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure DSGroupDataChange(Sender: TObject; Field: TField);
    procedure DSPostDataChange(Sender: TObject; Field: TField);
    procedure DSUserDataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

uses  PublicModel, Main;

{$R *.dfm}

procedure TDM.DSetGroupPostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
  showErrMsg('post error:' + E.Message );
end;

procedure TDM.DSGroupDataChange(Sender: TObject; Field: TField);
begin
  if not DM.DSetGroup.IsEmpty  then
  begin
    //显示权限组包含的权限
    FrmMain.ShowGroupIncPur;
    //显示权限组不包含的权限
    FrmMain.ShowGroupExPur ;
  end;
end;

procedure TDM.DSPostDataChange(Sender: TObject; Field: TField);
begin
  if not DM.DSetPost.IsEmpty then
  begin
    FrmMain.ShowPostIncGroup ;
    FrmMain.ShowPostExGroup ;
    FrmMain.ShowPostIncPur ;
  end;
end;

procedure TDM.DSUserDataChange(Sender: TObject; Field: TField);
begin
  if not DM.DSetUser.IsEmpty then
  begin
    FrmMain.ShowUserIncPost ;
    FrmMain.ShowUserExPost ;
    FrmMain.ShowUserIncPur ;
  end;
end;

end.