david
cc4a514b7b
- UCBase.pas -> Modificado el formato de las fechas de 'dd/mm/yyyy' a 'mm/dd/yyyy' para que funcione con Firebird. - UCBase.pas -> Cuando se llama a DelCurrentUser comprobar que realmente hay un usuario registrado. git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.UserControl@22 970f2627-a9d2-4748-b3d4-b5283c4fe7db
247 lines
7.6 KiB
ObjectPascal
247 lines
7.6 KiB
ObjectPascal
unit pUCFrame_Profile;
|
||
|
||
interface
|
||
|
||
{$I 'UserControl.inc'}
|
||
|
||
uses
|
||
{$IFDEF DELPHI5_UP}
|
||
{$ELSE}
|
||
Variants,
|
||
{$ENDIF}
|
||
Buttons,
|
||
Classes,
|
||
Controls,
|
||
Db,
|
||
DBGrids,
|
||
Dialogs,
|
||
ExtCtrls,
|
||
Forms,
|
||
Graphics,
|
||
Grids,
|
||
IncPerfil_U,
|
||
Messages,
|
||
StdCtrls,
|
||
SysUtils,
|
||
UcBase,
|
||
UserPermis_U,
|
||
Windows;
|
||
|
||
type
|
||
TFrame_Profile = class(TFrame)
|
||
DbGridPerf: TDBGrid;
|
||
Panel2: TPanel;
|
||
BtnAddPer: TBitBtn;
|
||
BtnAltPer: TBitBtn;
|
||
BtnExcPer: TBitBtn;
|
||
BtnClose: TBitBtn;
|
||
BtnAcePer: TBitBtn;
|
||
DataPerfil: TDataSource;
|
||
procedure BtnAddPerClick(Sender: TObject);
|
||
procedure BtnAltPerClick(Sender: TObject);
|
||
procedure BtnExcPerClick(Sender: TObject);
|
||
procedure BtnAcePerClick(Sender: TObject);
|
||
protected
|
||
FIncluirPerfil: TfrmIncluirPerfil;
|
||
procedure ActionBtPermissProfileDefault;
|
||
procedure SetWindowPerfil(Adicionar: Boolean);
|
||
procedure SetWindowProfile;
|
||
private
|
||
{ Private declarations }
|
||
public
|
||
fUserControl: TUserControl;
|
||
FDataSetPerfilUsuario: TDataset;
|
||
destructor Destroy; override;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
|
||
implementation
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TFrame_Profile.SetWindowPerfil(Adicionar: Boolean);
|
||
begin
|
||
with fUserControl.UserSettings.AddChangeProfile do
|
||
begin
|
||
FIncluirPerfil.Caption := WindowCaption;
|
||
if Adicionar then
|
||
FIncluirPerfil.LbDescricao.Caption := LabelAdd
|
||
else
|
||
FIncluirPerfil.LbDescricao.Caption := LabelChange;
|
||
|
||
FIncluirPerfil.lbNome.Caption := LabelName;
|
||
FIncluirPerfil.btGravar.Caption := BtSave;
|
||
FIncluirPerfil.btCancela.Caption := BtCancel;
|
||
FIncluirPerfil.Position := FUserControl.UserSettings.WindowsPosition;
|
||
FIncluirPerfil.FDataSetPerfilUsuario := FDataSetPerfilUsuario;
|
||
end;
|
||
end;
|
||
|
||
procedure TFrame_Profile.ActionBtPermissProfileDefault;
|
||
var
|
||
TempCampos, TempCamposEX: String;
|
||
begin
|
||
UserPermis.FTempIdUser := FDataSetPerfilUsuario.FieldByName('IdUser').AsInteger;
|
||
with fUserControl do
|
||
begin
|
||
TempCampos := Format(' %s as IdUser, %s as Modulo, %s as ObjName, %s as UCKey ',
|
||
[TableRights.FieldUserID,
|
||
TableRights.FieldModule,
|
||
TableRights.FieldComponentName,
|
||
TableRights.FieldKey]);
|
||
TempCamposEX := Format('%s, %s as FormName ', [TempCampos, TableRights.FieldFormName]);
|
||
|
||
UserPermis.DSPermiss := DataConnector.UCGetSQLDataset(Format('Select %s from %s tab Where tab.%s = %s and tab.%s = %s',
|
||
[TempCampos,
|
||
TableRights.TableName,
|
||
TableRights.FieldUserID,
|
||
FDataSetPerfilUsuario.FieldByName('IdUser').AsString,
|
||
TableRights.FieldModule,
|
||
QuotedStr(ApplicationID)]));
|
||
|
||
UserPermis.DSPermiss.Open;
|
||
|
||
UserPermis.DSPermissEX := DataConnector.UCGetSQLDataset(Format('Select %s from %s tab1 Where tab1.%s = %s and tab1.%s = %s',
|
||
[TempCamposEX,
|
||
TableRights.TableName + 'EX',
|
||
TableRights.FieldUserID,
|
||
FDataSetPerfilUsuario.FieldByName('IdUser').AsString,
|
||
TableRights.FieldModule,
|
||
QuotedStr(ApplicationID)]));
|
||
|
||
UserPermis.DSPermissEX.Open;
|
||
|
||
UserPermis.DSPerfil := TDataset.Create(UserPermis);
|
||
|
||
UserPermis.ShowModal;
|
||
|
||
FDataSetPerfilUsuario.Close;
|
||
FDataSetPerfilUsuario.Open;
|
||
FDataSetPerfilUsuario.Locate('idUser', UserPermis.FTempIdUser, []);
|
||
|
||
FreeAndNil(UserPermis);
|
||
end;
|
||
end;
|
||
|
||
procedure TFrame_Profile.SetWindowProfile;
|
||
begin
|
||
with fUserControl.UserSettings.Rights do
|
||
begin
|
||
UserPermis.Caption := WindowCaption;
|
||
UserPermis.LbDescricao.Caption := LabelProfile;
|
||
UserPermis.lbUser.Left := UserPermis.LbDescricao.Left + UserPermis.LbDescricao.Width + 5;
|
||
UserPermis.PageMenu.Caption := PageMenu;
|
||
UserPermis.PageAction.Caption := PageActions;
|
||
UserPermis.PageControls.Caption := PageControls; // By Vicente Barros Leonel
|
||
UserPermis.BtLibera.Caption := BtUnlock;
|
||
UserPermis.BtBloqueia.Caption := BtLock;
|
||
UserPermis.BtGrava.Caption := BtSave;
|
||
UserPermis.BtCancel.Caption := BtCancel;
|
||
UserPermis.Position := fUsercontrol.UserSettings.WindowsPosition;
|
||
end;
|
||
end;
|
||
|
||
procedure TFrame_Profile.BtnAcePerClick(Sender: TObject);
|
||
begin
|
||
if FDataSetPerfilUsuario.IsEmpty then
|
||
Exit;
|
||
UserPermis := TUserPermis.Create(self);
|
||
UserPermis.FUserControl := fUsercontrol;
|
||
SetWindowProfile;
|
||
UserPermis.lbUser.Caption := FDataSetPerfilUsuario.FieldByName('Nome').AsString;
|
||
ActionBtPermissProfileDefault;
|
||
end;
|
||
|
||
procedure TFrame_Profile.BtnAddPerClick(Sender: TObject);
|
||
begin
|
||
try
|
||
FIncluirPerfil := TfrmIncluirPerfil.Create(Self);
|
||
FIncluirPerfil.FUserControl := Self.FUserControl;
|
||
SetWindowPerfil(True);
|
||
FIncluirPerfil.ShowModal;
|
||
finally
|
||
FreeAndNil(FIncluirPerfil);
|
||
end;
|
||
end;
|
||
|
||
procedure TFrame_Profile.BtnAltPerClick(Sender: TObject);
|
||
begin
|
||
if FDataSetPerfilUsuario.IsEmpty then
|
||
Exit;
|
||
try
|
||
FIncluirPerfil := TfrmIncluirPerfil.Create(self);
|
||
FIncluirPerfil.FUserControl := Self.FUserControl;
|
||
FIncluirPerfil.FNewIdUser := FDataSetPerfilUsuario.FieldByName('IdUser').AsInteger;
|
||
SetWindowPerfil(False);
|
||
with FIncluirPerfil do
|
||
begin
|
||
EditDescricao.Text := FDataSetPerfilUsuario.FieldByName('Nome').AsString;
|
||
FAltera := True;
|
||
ShowModal;
|
||
end;
|
||
finally
|
||
FreeAndNil(FIncluirPerfil);
|
||
end;
|
||
end;
|
||
|
||
procedure TFrame_Profile.BtnExcPerClick(Sender: TObject);
|
||
var
|
||
TempID: Integer;
|
||
CanDelete: Boolean;
|
||
ErrorMsg: String;
|
||
TempDS: TDataset;
|
||
begin
|
||
if FDataSetPerfilUsuario.IsEmpty then
|
||
Exit;
|
||
TempID := FDataSetPerfilUsuario.FieldByName('IDUser').AsInteger;
|
||
TempDS := FUserControl.DataConnector.UCGetSQLDataset('Select ' + FUserControl.TableUsers.FieldUserID + ' as IdUser from ' +
|
||
FUserControl.TableUsers.TableName +
|
||
' Where ' + FUserControl.TableUsers.FieldTypeRec + ' = ' + QuotedStr('U') +
|
||
' AND ' + FUserControl.TableUsers.FieldProfile + ' = ' + IntToStr(TempID));
|
||
|
||
if TempDS.FieldByName('IdUser').AsInteger > 0 then
|
||
begin
|
||
TempDS.Close;
|
||
FreeAndNil(TempDS);
|
||
//changed by fduenas: PromptDelete_WindowCaption
|
||
if MessageBox(handle, PChar(Format(FUserControl.UserSettings.UsersProfile.PromptDelete, [FDataSetPerfilUsuario.FieldByName('Nome').AsString])),
|
||
PChar(FUserControl.UserSettings.UsersProfile.PromptDelete_WindowCaption), MB_ICONQUESTION or MB_YESNO or MB_DEFBUTTON2) <> idYes then
|
||
Exit;
|
||
end
|
||
else
|
||
begin
|
||
TempDS.Close;
|
||
FreeAndNil(TempDS);
|
||
end;
|
||
|
||
CanDelete := True;
|
||
if Assigned(FUserControl.onDeleteProfile) then
|
||
FUserControl.onDeleteProfile(TObject(Owner), TempID, CanDelete, ErrorMsg);
|
||
if not CanDelete then
|
||
begin
|
||
MessageDlg(ErrorMSG, mtWarning, [mbOK], 0);
|
||
Exit;
|
||
end;
|
||
|
||
with FUserControl do
|
||
begin
|
||
DataConnector.UCExecSQL('Delete from ' + TableUsers.TableName + ' where ' + TableUsers.FieldUserID + ' = ' + IntToStr(TempID));
|
||
DataConnector.UCExecSQL('Delete from ' + TableRights.TableName + ' where ' + TableRights.FieldUserID + ' = ' + IntToStr(TempID));
|
||
DataConnector.UCExecSQL('Delete from ' + TableRights.TableName + 'EX where ' + TableRights.FieldUserID + ' = ' + IntToStr(TempID));
|
||
DataConnector.UCExecSQL('Update ' + TableUsers.TableName +
|
||
' Set ' + TableUsers.FieldProfile + ' = null where ' + TableUsers.FieldUserID + ' = ' + IntToStr(TempID));
|
||
end;
|
||
FDataSetPerfilUsuario.Close;
|
||
FDataSetPerfilUsuario.Open;
|
||
end;
|
||
|
||
destructor TFrame_Profile.Destroy;
|
||
begin
|
||
//nada a destruir
|
||
//n<>o destruir o FDataSetPerfilUsuario o USERCONTROL toma conta dele
|
||
inherited;
|
||
end;
|
||
|
||
end.
|