ClipaTec Informática

Receba novidades por e-mail. Digite seu e-mail abaixo e clique no botão "Cadastrar"

Delivered by FeedBurner

14 de outubro de 2016

Cadastro Delphi com dataware - modelo 2 - Interface de cadastro

delphi

Olá galera. Este é o primeiro artigo da nossa série de "Cadastro Delphi com dataware - modelo 2". Neste artigo vamos trabalhar na interface de cadastro. O que temos neste exemplo é um cadastro de cliente bem básico, muito básico, extremamento básico.
O primeiro passo é criar uma pasta para o projeto, pode chamar de "Cadastro exemplo".
Com o Delphi aberto, crie um novo projeto, e salve. Salve a unit com o nome "uFrmPrincipal" e o projeto com o nome "CadSample".
Na propriedade "Name" do formulário coloque "FrmPrincipal", e no "Caption" coloque "Exemplo cadastro usando DBControls".
Coloque no formulário um componente "TPageControl", renomeie a propriedade "Name" para "pgControle".
Clique com o botão direito do mouse sobre o "pgControle" e clique na opção "New page". Repita o processo para criar mais uma página.
Note que temos duas abas, selecione a primeira, clica no centro para selecioná-la e altere a propriedade "Name" para "tbPesq". Agora altere a propriedade "TabVisible" para "False".
Essa parte da interface é bem chatinho mesmo, mas vamos em frente, não criaremos algo tão belo, até mesmo porque não é a intenção da série, isso ficará a gosto de cada um.
Note que a primeira aba sumiu, ficou apenas a segunda, tranquilo, clique no centro para selecionar esta segunda aba, e altere a propriedade "Name" para "tbDados" e altere a propriedade "TabVisible" para "False".
Muito bem. A intenção é deixar as abas ocultas mesmo, a navegação entre uma aba e outra vai ocorrer através dos botões de maneira automática. Para navegar entre uma aba e outra, basta selecionar a aba desejada clicando sobre o nome dela que aparece ao lado esquerdo na janela "Structure". Legal, então faço isso clicando sobre a "tbPesq" para montarmos nossa aba de pesquisa.
Convencionalmente, aprendemos no ambiente acadêmico a criar uma tela para a manutenção de dados e outra para pesquisa, mas neste exemplo, utilizaremos a mesma tela e a separação se dará através do componente "PageControl - pgControle".
Com a aba de pesquisa ativa (tbPesq), adicione dois componentes "TPanel". Apague a propriedade "Caption" dos dois. Em um dos "Panel" você altera a propriedade "Align" para "alTop", para que o mesmo fique no topo da tela. E outro "Panel", altere esta mesma propriedade, porém, para "alBottom", para que o mesmo fique no rodapé da tela.
Legal, agora dentro do "Panel" que está no rodapé adicione três "TButton", altere as propriedades "Name" e "Caption" da seguinte forma:

  • 1 TButton: "Name" para "btnNovo" e "Caption" para "Novo";
  • 2 TButton: "Name" para "btnDetalhar" e "Caption" para "Detalhar";
  • 3 TButton: "Name" para "btnExcluir" e "Caption" para "Excluir";
Agora no "Panel" do topo, adicione um "TLabel", um "TComboBox", um "TLabeledEdit" e um "TButtom" e altere as propriedades da seguinte forma:

  • TComboBox: "Name" para "cbxFiltro";
  • TLabel: "Caption" para "Filtro";
  • TButtom: "Name" para "btnPesq" e "Caption" para "Pesquisar";
  • TLabeledEdit: "Name" para "edtPesq". Clique no sinal de "+" da propriedade "EditLabel" e altere a sub-propriedade "Caption" para "Digite para pesquisar";
Nesta tela de pesquisa, teremos três filtros para pesquisa: Código, Nome e Todos. Então, vamos adicioná-los ao nosso "cbxFiltro", para isso, selecione-o e clique no botão elíptico (três pontinhos) da propriedade "Items" e digite os filtros citados, um abaixo do outro na mesma ordem citada.
Agora altere a propriedade "ItemIndex" do "cbxFiltro" para 1, sendo assim, teremos o filtro "Nome" ativado por padrão.
Ufa! Estamos quase acabando. Agora, adicione na "tbPesq" um componente "TDBGrid" e altere a propriedade "Align" para "alCliente", desta forma, ela ocupará todo espaço entre os dois "Panel".
Ótimo, agora adicione dois "TDataSource" e um "TActionList". Altere a propriedade "Name" da seguinte forma:

  • 1TDataSource: dsCad;
  • 2 TDataSource: dsPesq;
  • TActionList: acLstAcoes;
Pra finalizar, agora clique sobre a "pgDados", para ativarmos a aba de dados. Esta é mais rápida.
Adicione um "TPanel" e altere a propriedade "Align" para "alBottom" para que o mesmo fique no rodapé da tela.
Adicione dentro do "panel" três "TButtom" e altere as propriedades "Name" e "Caption" da seguinte forma:

  • 1 TButton: "Name" para "btnListar" e "Caption" para "Listar";
  • 2 TButton: "Name" para "btnGravar" e "Caption" para "Gravar";
  • 3 TButton: "Name" para "btnCancelar" e "Caption" para "Cancelar";
Muito bem, chegamos ao final deste artigo, se você seguiu os passos corretamente, você terá uma tela parecida com a da imagem abaixo:


delphi cadastro dataware

Qualquer dúvida, posta ai que te ajudaremos. Um grande abraço e até o próximo.

(Por ClipaTec Informática)

0 comentários:

Postar um comentário

Visite nossa página de Política de comentarios antes de comentar para ter certeza de que seu comentário não será excluído! Lembre-se, assim que aprovarmos o teu comentário ele será publicado, por isso, não deixe de sempre visitar nosso blog e conferir nossa resposta ao seu comentário, abraço!