Merge branch 'Athaua-master't push origin master

Author: juliomar

Projeto/Clientes.xls

@@ -1,26 +1,26 @@
-object dmConexao: TdmConexao
-  OldCreateOrder = False
-  OnCreate = DataModuleCreate
-  Height = 285
-  Width = 350
-  object FDConnection1: TFDConnection
-    Params.Strings = (
-      'LockingMode=Normal'
-      'Database=database.db3'
-      'DriverID=SQLite')
-    ConnectedStoredUsage = []
-    LoginPrompt = False
-    BeforeConnect = FDConnection1BeforeConnect
-    Left = 60
-    Top = 44
-  end
-  object FDGUIxWaitCursor1: TFDGUIxWaitCursor
-    Provider = 'Forms'
-    Left = 228
-    Top = 48
-  end
-  object FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink
-    Left = 60
-    Top = 152
-  end
-end
+object dmConexao: TdmConexao
+  OldCreateOrder = False
+  OnCreate = DataModuleCreate
+  Height = 285
+  Width = 350
+  object FDConnection1: TFDConnection
+    Params.Strings = (
+      'LockingMode=Normal'
+      'Database=database.db3'
+      'DriverID=SQLite')
+    ConnectedStoredUsage = []
+    LoginPrompt = False
+    BeforeConnect = FDConnection1BeforeConnect
+    Left = 60
+    Top = 44
+  end
+  object FDGUIxWaitCursor1: TFDGUIxWaitCursor
+    Provider = 'Forms'
+    Left = 228
+    Top = 48
+  end
+  object FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink
+    Left = 60
+    Top = 152
+  end
+end

Projeto/Model/Conexao/Model.Conexao.dfm

@@ -27,7 +27,7 @@ interface
 type
   [Enumeration(etChar,'M,F')]
   TSexo = (Masculino, Feminino);
-  [Enumeration(etString,'A,I,M')] {Ativo, Inativo, Matrículado}
+  [Enumeration(etChar,'A,I,M')] {Ativo, Inativo, Matrículado}
   TStatus = (Ativo, Inativo, Matriculado);
 
   [ Entity ]
@@ -44,6 +44,7 @@   TPessoa = class
     Ftelefone      : string;
     fsexo          : TSexo;
     fdatanascimento: TDate;
+    fsenha         : string;
     fStatus        : TStatus;
   public
     [ Restrictions([ NoUpdate, NotNull ]) ]
@@ -80,6 +81,10 @@   TPessoa = class
     [ Dictionary('Nascimento', 'Mensagem validação', '', '', '', tacenter) ]
     property datanascimento: TDate read fdatanascimento write fdatanascimento;
 
+    [ Column('senha', ftString) ]
+    [ Dictionary('Senha', 'Mensagem validação', '', '', '', tacenter) ]
+    property senha: string read fsenha write fsenha;
+
     [ Column('status', ftString,1) ]
     [ Dictionary('Status', 'Mensagem validação', '', '', '', tacenter) ]
     property status: TStatus read fStatus write fStatus;
@@ -94,19 +99,20 @@ implementation
 
 function TPessoa.Clonar: TPessoa;
 var
-  ClonePessoa: TPessoa;
+  Albieri: TPessoa;
 begin
-  ClonePessoa := TPessoa.Create;
-
-  ClonePessoa.Id        := Self.Id;
-  ClonePessoa.Nome      := Self.Nome;
-  ClonePessoa.Matricula := Self.Matricula;
-  ClonePessoa.sobrenome := Self.sobrenome;
-  ClonePessoa.email     := Self.email;
-  ClonePessoa.telefone  := Self.telefone;
-  ClonePessoa.sexo      := Self.sexo;
-  ClonePessoa.datanascimento  := Self.datanascimento;
-  result := ClonePessoa;
+  Albieri := TPessoa.Create;
+
+  Albieri.Id              := Self.Id;
+  Albieri.Nome            := Self.Nome;
+  Albieri.Matricula       := Self.Matricula;
+  Albieri.sobrenome       := Self.sobrenome;
+  Albieri.email           := Self.email;
+  Albieri.telefone        := Self.telefone;
+  Albieri.sexo            := Self.sexo;
+  Albieri.datanascimento  := Self.datanascimento;
+  Albieri.status          := Self.status;
+  result := Albieri;
 end;
 
 initialization

Projeto/Model/Entity/entity.pessoa.pas

@@ -110,8 +110,9 @@ begin
   Application.Initialize;
   Application.MainFormOnTaskbar := True;
   if TFLogin.SolicitarLogin then
-  begin
+  begin   
     Application.CreateForm(TPrincipal, Principal);
+
   Application.CreateForm(TdmConexao, dmConexao);
   Application.CreateForm(TfrmTelaDeInicio, frmTelaDeInicio);
   Application.CreateForm(Tfrm_ModelState, frm_ModelState);