Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Módulo de usuarios: añadida la gestión de usuarios y perfiles.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@213 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-01-13 21:40:27 +00:00
parent 7742905e27
commit 5e6e159883
2 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
Source/Cliente/uPantallaPrincipal.dfm
View File

@ -2,7 +2,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
Left = 358
Top = 250
Caption = 'Pantalla principal'
ClientHeight = 601
ClientHeight = 453
ClientWidth = 751
Color = clWindow
Font.Charset = DEFAULT_CHARSET
@ -25,7 +25,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
Left = 0
Top = 0
Width = 751
Height = 579
Height = 431
Margins.Left = 5
Margins.Top = 5
Margins.Right = 5
@ -37,7 +37,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
Left = 215
Top = 5
Width = 5
Height = 569
Height = 421
ResizeStyle = rsPattern
ExplicitLeft = 210
ExplicitHeight = 570
@ -46,7 +46,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
Left = 5
Top = 5
Width = 210
Height = 569
Height = 421
ActivePage = pagInicio
Align = alLeft
AutoHeaders = True
@ -91,7 +91,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
Left = 0
Top = 0
Width = 208
Height = 496
Height = 348
Background.Stretch = False
Background.Proportional = False
Background.Center = False
@ -101,7 +101,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
ImageIndex = 0
object Panel1: TPanel
Left = 0
Top = 410
Top = 262
Width = 208
Height = 86
Align = alBottom
@ -155,7 +155,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
Left = 220
Top = 5
Width = 526
Height = 569
Height = 421
BoundColor = clActiveCaption
BoundLines = [blLeft, blTop, blRight, blBottom]
Caption = 'pnlBorde'
@ -164,7 +164,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
Left = 1
Top = 1
Width = 524
Height = 567
Height = 419
Align = alClient
Color = clWindow
TabOrder = 0
@ -204,7 +204,7 @@ object fPantallaPrincipal: TfPantallaPrincipal
end
object TBXStatusBar1: TTBXStatusBar
Left = 0
Top = 579
Top = 431
Width = 751
Images = StatusPanelImageList
Panels = <
@ -559,18 +559,20 @@ object fPantallaPrincipal: TfPantallaPrincipal
Action = actConexion
end
object N2: TMenuItem
Tag = 2
Tag = 102
Caption = '-'
end
object Administracin1: TMenuItem
Tag = 1
Tag = 200
Caption = 'Administraci'#243'n'
object Usuarios1: TMenuItem
Tag = 1
Caption = 'Usuarios'
OnClick = Usuarios1Click
end
object Perfiles1: TMenuItem
Caption = 'Perfiles'
Tag = 2
Caption = 'Perfiles de usuario'
OnClick = Perfiles1Click
end
end

6
Source/Cliente/uPantallaPrincipal.pas
View File

@ -427,7 +427,7 @@ end;
procedure TfPantallaPrincipal.Perfiles1Click(Sender: TObject);
begin
AppFactuGES.UsuariosController.ShowProfileManager;
AppFactuGES.UsuariosController.VerPerfiles;
end;
procedure TfPantallaPrincipal.ShowEmbedded(AEditor: ICustomEditor);
@ -464,7 +464,7 @@ end;
procedure TfPantallaPrincipal.Usuarios1Click(Sender: TObject);
begin
AppFactuGES.UsuariosController.ShowUserManager;
AppFactuGES.UsuariosController.VerUsuarios;
end;
procedure TfPantallaPrincipal.WMSysCommand(var Msg: TMessage);
@ -514,7 +514,7 @@ end;
procedure TfPantallaPrincipal.actCambiarPassExecute(Sender: TObject);
begin
AppFactuGES.UsuariosController.ShowChangePassword;
AppFactuGES.UsuariosController._ShowChangePassword;
RefrescarUI;
end;