API tools faq
paste
Advertisement
jpfassis

View.Pages.Cadastro.Usuario001 Delphi

jpfassis
Jan 28th, 2023 (edited)
1,606
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 10.70 KB | None | 0 0
raw download clone embed print report
  1. unit View.Pages.Cadastro.Usuario001;
  2.  
  3. interface
  4.  
  5. uses
  6.   Vcl.Controls,
  7.   Vcl.Forms,
  8.   Router4D.Interfaces,
  9.   View.Components.Helpers,
  10.   View.Services.Utils,
  11.   View.Styles.Colors;
  12.  
  13. type
  14.   TPageCadastroUsuario001 = class(TForm, iRouter4DComponent)
  15.     procedure FormCreate(Sender: TObject);
  16.   private
  17.     { Private declarations }
  18.   public
  19.     { Public declarations }
  20.     function Render : TForm;
  21.     procedure UnRender;
  22.   end;
  23.  
  24. var
  25.   PageCadastroUsuario001: TPageCadastroUsuario001;
  26.  
  27. implementation
  28.  
  29. {$R *.dfm}
  30.  
  31. { TPageCadastroUsuario001 }
  32.  
  33. procedure TPageCadastroUsuario001.FormCreate(Sender: TObject);
  34. begin
  35.  
  36.           Components.BackGrounds
  37.           .BackGround001(Self)
  38.           .Attributes
  39.             .Title('Cadastro de Usuários')
  40.             //.Controller()
  41.             //.ActionButton001(A)
  42.             //.ActionButton002(A)
  43.           .&End
  44.           .AddComponent(
  45.            //////////
  46.                Components
  47.               .GridPanels
  48.                 .GridPanel001(Self)
  49.                 .Attributes
  50.                   .BackGround(WHITE)
  51.                   .Height(60)
  52.                 .&End
  53.                 .ColumnPercent(8)
  54.                 .AddColumn(
  55.                      Components
  56.                        .Edits.Edit005(Self)
  57.                        .LoadAttributes('StyleEdit')
  58.                        .Attributes
  59.                           .Title('Código')
  60.                           .Format(tpNumero)
  61.                        .&End
  62.                        .Component
  63.                   )
  64.                 .ColumnPercent(20)
  65.                 .AddColumn(
  66.                      Components
  67.                        .Edits.Edit005(Self)
  68.                        .LoadAttributes('StyleEdit')
  69.                        .Attributes
  70.                           .Title('Data de Cadastro')
  71.                           .Format(tpData)
  72.                        .&End
  73.                        .Component
  74.                   )
  75.                 .ColumnPercent(35)
  76.                 .AddColumn(
  77.                      Components
  78.                        .Edits.Edit005(Self)
  79.                        .LoadAttributes('StyleEdit')
  80.                        .Attributes
  81.                           .Title('Data Alteração')
  82.                           .Format(tpData)
  83.                        .&End
  84.                        .Component
  85.                   )
  86.                 .ColumnPercent(15)
  87.                 .AddColumn(
  88.                      Components
  89.                        .ComboBoxs.ComboBox001(Self)
  90.                        .LoadAttributes('StyleEdit')
  91.                        .Attributes
  92.                           .Title('Ativo')
  93.                           .Format(tpTexto)
  94.                           .DropDrowWidth(150)
  95.                        .&End
  96.                        .AddItem('SIM')
  97.                        .AddItem('NÃO')
  98.                        .AddItem('SIM')
  99.                        .AddItem('NÃO')
  100.                        .Component
  101.                   )
  102.                 .ColumnPercent(15)
  103.                 .AddColumn(
  104.                      Components
  105.                        .ComboBoxs.ComboBox001(Self)
  106.                        .LoadAttributes('StyleEdit')
  107.                        .Attributes
  108.                           .Title('Vendedor')
  109.                           .Format(tpTexto)
  110.                           .DropDrowWidth(250)
  111.                        .&End
  112.                        .AddItem('SIM')
  113.                        .AddItem('NÃO')
  114.                        .AddItem('Palhaço Ç')
  115.                        .Component
  116.                   )
  117.                  .Component
  118.             )
  119.             .AddComponent(
  120.               Components
  121.               .GridPanels
  122.                 .GridPanel001(Self)
  123.                 .Attributes
  124.                   .BackGround(WHITE)
  125.                   .Height(60)
  126.                 .&End
  127.                  .ColumnPercent(70)
  128.                 .AddColumn(
  129.                      Components
  130.                        .Edits.Edit005(Self)
  131.                        .LoadAttributes('StyleEdit')
  132.                        .Attributes
  133.                           .Title('Nome')
  134.                           .Format(tpTexto)
  135.                        .&End
  136.                        .Component
  137.                   )
  138.                 .AddColumn(
  139.                      Components
  140.                        .Edits.Edit005(Self)
  141.                        .LoadAttributes('StyleEdit')
  142.                        .Attributes
  143.                           .Title('Apelido')
  144.                           .Format(tpTexto)
  145.                        .&End
  146.                        .Component
  147.                   )
  148.                 .Component
  149.              )
  150.              .AddComponent(
  151.               Components
  152.               .GridPanels
  153.                 .GridPanel001(Self)
  154.                 .Attributes
  155.                   .BackGround(WHITE)
  156.                   .Height(60)
  157.                 .&End
  158.                  .ColumnPercent(30)
  159.                 .AddColumn(
  160.                      Components
  161.                        .Edits.Edit005(Self)
  162.                        .LoadAttributes('StyleEdit')
  163.                        .Attributes
  164.                           .Title('Data de Nascimento')
  165.                           .Format(tpData)
  166.                        .&End
  167.                        .Component
  168.                   )
  169.                 .AddColumn(
  170.                      Components
  171.                        .Edits.Edit005(Self)
  172.                        .LoadAttributes('StyleEdit')
  173.                        .Attributes
  174.                           .Title('C.P.F.')
  175.                           .Format(tpCPF)
  176.                        .&End
  177.                        .Component
  178.                   )
  179.  
  180.                 .AddColumn(
  181.                      Components
  182.                        .Edits.Edit005(Self)
  183.                        .LoadAttributes('StyleEdit')
  184.                        .Attributes
  185.                           .Title('RG')
  186.                           .Format(tpTexto)
  187.                        .&End
  188.                        .Component
  189.                   )
  190.                 .AddColumn(
  191.                      Components
  192.                        .Edits.Edit005(Self)
  193.                        .LoadAttributes('StyleEdit')
  194.                        .Attributes
  195.                           .Title('Orgão Emissor')
  196.                           .Format(tpTexto)
  197.                        .&End
  198.                        .Component
  199.                   )
  200.                  .AddColumn(
  201.                      Components
  202.                        .Edits.Edit005(Self)
  203.                        .LoadAttributes('StyleEdit')
  204.                        .Attributes
  205.                           .Title('UF do Orgão Emissor')
  206.                           .Format(tpTexto)
  207.                        .&End
  208.                        .Component
  209.                   )
  210.                  .AddColumn(
  211.                      Components
  212.                        .Edits.Edit005(Self)
  213.                        .LoadAttributes('StyleEdit')
  214.                        .Attributes
  215.                           .Title('Data de Emissão')
  216.                           .Format(tpData)
  217.                        .&End
  218.                        .Component
  219.                   )
  220.                 .Component
  221.              )
  222.              .AddComponent(
  223.               Components
  224.               .GridPanels
  225.                 .GridPanel001(Self)
  226.                 .Attributes
  227.                   .BackGround(WHITE)
  228.                   .Height(60)
  229.                 .&End
  230.                  .ColumnPercent(40)
  231.                 .AddColumn(
  232.                      Components
  233.                        .Edits.Edit005(Self)
  234.                        .LoadAttributes('StyleEdit')
  235.                        .Attributes
  236.                           .Title('Endereço')
  237.                           .Format(tpTexto)
  238.                        .&End
  239.                        .Component
  240.                   )
  241.                 .ColumnPercent(30)
  242.                 .AddColumn(
  243.                      Components
  244.                        .Edits.Edit005(Self)
  245.                        .LoadAttributes('StyleEdit')
  246.                        .Attributes
  247.                           .Title('Bairro')
  248.                           .Format(tpTexto)
  249.                        .&End
  250.                        .Component
  251.                   )
  252.                 .AddColumn(
  253.                      Components
  254.                        .Edits.Edit005(Self)
  255.                        .LoadAttributes('StyleEdit')
  256.                        .Attributes
  257.                           .Title('Complemento')
  258.                           .Format(tpTexto)
  259.                        .&End
  260.                        .Component
  261.                   )
  262.                 .Component
  263.             )
  264.             .AddComponent(
  265.               Components
  266.               .GridPanels
  267.                 .GridPanel001(Self)
  268.                 .Attributes
  269.                   .BackGround(WHITE)
  270.                   .Height(60)
  271.                 .&End
  272.                  .ColumnPercent(40)
  273.                 .AddColumn(
  274.                      Components
  275.                        .ComboBoxs.ComboBox003(Self)
  276.                        .LoadAttributes('StyleEdit')
  277.                        .Attributes
  278.                           .Title('Cidade')
  279.                           .Format(tpTexto)
  280.                        .&End
  281.                        .Component
  282.                   )
  283.                 .ColumnPercent(20)
  284.                 .AddColumn(
  285.                      Components
  286.                        .Edits.Edit005(Self)
  287.                        .LoadAttributes('StyleEdit')
  288.                        .Attributes
  289.                           .Title('CEP')
  290.                           .Format(tpCEP)
  291.                        .&End
  292.                        .Component
  293.                   )
  294.                 .ColumnPercent(20)
  295.                 .AddColumn(
  296.                      Components
  297.                        .Edits.Edit005(Self)
  298.                        .LoadAttributes('StyleEdit')
  299.                        .Attributes
  300.                           .Title('UF')
  301.                           .Format(tpTexto)
  302.                        .&End
  303.                        .Component
  304.                   )
  305.                  .ColumnPercent(20)
  306.                 .AddColumn(
  307.                      Components
  308.                        .Edits.Edit005(Self)
  309.                        .LoadAttributes('StyleEdit')
  310.                        .Attributes
  311.                           .Title('Código IBGE da Cidade')
  312.                           .Format(tpTexto)
  313.                        .&End
  314.                        .Component
  315.                   )
  316.                 .Component
  317.  
  318.             ).Component;
  319.  
  320.  end;
  321.  
  322. function TPageCadastroUsuario001.Render: TForm;
  323. begin
  324.   Self.Align := AlClient;
  325.   Self.WindowState:=wsMaximized;
  326.   Self.BorderStyle := bsNone;
  327.   Result := Self;
  328. end;
  329.  
  330. procedure TPageCadastroUsuario001.UnRender;
  331. begin
  332. //
  333. end;
  334.  
  335. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!