Cadastro Delphi com dataware - modelo 2 - Interface de cadastro

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:

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

(Por ClipaTec Informática)