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

6
Source/Cliente/uPantallaPrincipal.pas
View File

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