dlright.~pas

来自「此代码是关于mapgis的在」· ~PAS 代码 · 共 53 行

unit DLRight;

interface

uses
  mis_Instance, mis_Right, mis_RightDBStore, VirtualDBEngine, Dialogs;

type
  TQCUserInfo=class(TStdDBUserInfo)
  private
    FUnitType: Integer;
    FUnitID: Integer;
    FUnitName: string;
  protected
    procedure LoadInfoEh(UserQy:TBaseVirtualDBDataSet); override;
  public
    property UnitType:Integer read FUnitType;
    property UnitID:Integer read FUnitID;
    property UnitName:string read FUnitName;
  end;

implementation

{ TQCUserInfo }

procedure TQCUserInfo.LoadInfoEh(UserQy:TBaseVirtualDBDataSet);
begin
  FUnitID:=UserQy.FieldByName('UnitID').AsInteger;
  if FUnitID=0 then
  begin
    FUnitType:=1;  //调度室//
    FUnitName:='调度室';
  end
  else
  begin
    FUnitType:=2;  //变电所//
    with DBFactory.CreateDataSet do
    begin
      try
        SQL.Add('select * from t_Units');
        SQL.Add('where UnitID=:UnitID');
        SetParamValue('UnitID', FUnitID);
        Open;
        FUnitName:=FieldByName('UnitName').AsString;
      finally
        Free;
      end;
    end;
  end;
end;

end.