Apostila 6
Linguagem de Programação II
Professor: Luiz Claudio Ferreira de Souza
Assunto: Linguagem Pascal (Ambiente Lazarus) com Banco de Dados
Até aqui construímos parte da Interface da nossa aplicação, estando conforme abaixo, após
compilada (F9).
Feche a janela do programa e vamos voltar ao projeto agora.
Agora vamos adicionar Submenus!
Agora vamos adicionar os SubMenus em cada menuPrincipal. Para isso, no formulário, dê um
clique duplo sobre o MainMenu Aplicação.
observe imagem abaixo:
Prof. Luiz Claudio Ferreira de Souza
www.luizclaudiofs.blogspot.com
Página 1
Clique com o botão direito do Mouse sobre o Menu Aplicação e selecione Criar Submenu
Na propriedade Caption digite Sair, conforme abaixo
Agora que você já sabe criar Menu e SubMenus, termine que fazer a árvore de Menu como
detalha a tabela abaixo.
Observação: para adicionar mais elementos no SubMenu selecione a opção Insert New
Item(after), traduzindo para o portugues, Inserir Novo Item (após).
Prof. Luiz Claudio Ferreira de Souza
www.luizclaudiofs.blogspot.com
Página 2
Evento onClick do Item Sair
Selecione o SubItem Sair no Menu Aplicação e dê um clique sobre este, isso fará com que seja
exibido o código para o evento OnClick deste elemento.
Aparecerá o Código fonte:
Digite o comando close;
entre o begin e o end; da procedure, conforme abaixo:
Salve (CRTL+S) e Execute a sua aplicação (F9) e teste a opção Sair da aplicação construída.
A Janela da aplicação deve ser fechada!
TELA LISTAGEM DE CARGOS
Vamos construir agora a tela que lista os cargos cadastrados, e disponibilizar os botões para
Novo, Editar e Excluir. Adicione um novo Formulário (Arquivo > Novo Formulário) e define suas
propriedades como abaixo.
Prof. Luiz Claudio Ferreira de Souza
www.luizclaudiofs.blogspot.com
Página 3
Widt -> Largura
Height -> Altura
Salve o formulário criado (Ctrl + S) com o nome de uniCargoLista
Adicione dois TGroupBox, disponível na Paleta Standard.
Prof. Luiz Claudio Ferreira de Souza
www.luizclaudiofs.blogspot.com
Página 4
Nunca deixe de saber o que você está fazendo, está construindo o Formulário (Interface) da
Listagem de Cargos.
Modifique suas propriedades Caption para Opções e Listagem respectivamente, e
redimensione-os.
No primeiro GroupBox adicione quatro botões (TButton) e modifique suas propriedades como
abaixo.
Prof. Luiz Claudio Ferreira de Souza
www.luizclaudiofs.blogspot.com
Página 5
Ficando Assim, seu formulário até aqui:
Agora, da paleta Data Controls adicione um componente TDBGrid, é último elemento da
paleta.
Redimensione o DBGrid, conforme abaixo:
Prof. Luiz Claudio Ferreira de Souza
www.luizclaudiofs.blogspot.com
Página 6
defina a propriedade name do componente TDBGrid como gridCargos.
TELA DE ADICIONAR NOVO CARGO
Vamos agora construir a tela para cadastro de novo cargo. Adicione novo Formulário ,
adicione um TGroupBox e depois TButton, edite todas as propriedades necessário dos
elementos(Form, GroupBox e Botoes) até que fique como abaixo:
Dê nome aos respectivos botões (btnSalvar e btnCancelar) na propriedade Name.
Salve (Ctrl + S) a Unit com o nome uniCargoFormulario e de ao formulário o nome
frmCargoFormulario.
Adicione uma TLabel da Paleta Standard e um TDBEdit da Paleta Data Controls. Edite todas
propriedades necessárias para o formulário ficar como abaixo.
Prof. Luiz Claudio Ferreira de Souza
www.luizclaudiofs.blogspot.com
Página 7
Por enquanto, estão prontas nossas telas de Lista de Cargo e Formulário de Cargo.
Prof. Luiz Claudio Ferreira de Souza
www.luizclaudiofs.blogspot.com
Página 8
LINKANDO AS TELAS
Como já temos algumas telas já desenhas precisamos agora fazer com uma tela chame a
outras.
Para que a partir de uma tela você referencie outro Form é necessário adicionar a Unit daquele
neste. Vamos entender isso na prática.
Vá para Unit uniprincipal, use o atalho View Units (Exibir Unidades).
Na uniprincipal vá no início do código fonte, na seção uses, e no final da lista adicione a
referencia para unicargolista digitando uni depois pressione simultaneamente Ctrl + <Barra de
Espaço>, deverá exibido uma lista com opções, nesta selecione a unicargolista. Conforme
Imagem abaixo:
Prof. Luiz Claudio Ferreira de Souza
www.luizclaudiofs.blogspot.com
Página 9
Feito isso, agora volte para o formulário (frmPrincipal), use o atalho F12, este alterna entre
Form e Unit correspondente ao formulário selecionado. Vá no Menu Cadastro e dê um clique
sobre o submenu Cargos, isso fará abrir código fonte referente ao evento onClick deste
elemento.
Já no código fonte digite frm e pressione simultaneamente Ctrl + <barra de espaço>, na lista
que se abre selecione frmCargoLista.
Depois digite .show e selecione a procedure ShowModal (Não esqueça <Ctrl>+Barra de Espaço)
Prof. Luiz Claudio Ferreira de Souza
www.luizclaudiofs.blogspot.com
Página 10
Pronto. Agora salve) e Execute para Testar (F9). Se você tiver seguido corretamente os passos
assim que você selecionar Em Cadastro > Cargos será exibido a tela Como abaixo.
Clique no botão sair da tela que se abre. Verá que esta não irá fechar. Pois você ainda não
programou este evento. Aproveite e faço isso agora.
Lembre-se! Feche as duas janelas do seu Sistema e volte ao seu projeto e programe a tecla
Sair, já vimos tal procedimento em nossas aulas.
Adicione o evento onClick no botão Editar(btnEditar) para invocar o formulário de Cargo.
Lembre-se de adicionar em uniCargoLista, na seção uses, referencia para Unit
uniCargoFormulario.
Prof. Luiz Claudio Ferreira de Souza
www.luizclaudiofs.blogspot.com
Página 11