Baixe Apostila Delphi Iniciante e outras Notas de estudo em PDF para Informática, somente na Docsity! ÍNDICE: Como construir um sistema utilizando Delphi?......................................................................... 02 Como criar uma nova aplicação no Delphi?.............................................................................. 03 Como salvar a aplicação no Delphi?.......................................................................................... 03 Como alterar as propriedades da tela? ...................................................................................... 04 Como executar a aplicação no Delphi? ..................................................................................... 05 Como fechar a aplicação? ......................................................................................................... 05 Como abrir a aplicação? ............................................................................................................ 06 Como inserir uma imagem na tela? .......................................................................................... 07 Como criar uma tela de splash? ................................................................................................ 08 Como criar uma lista de ações? ................................................................................................ 09 Como criar um menu de opções? .............................................................................................. 10 Como inserir uma lista de imagens? ......................................................................................... 11 Como criar uma barra de ferramentas? ..................................................................................... 12 Como criar uma barra de status do sistema? ............................................................................. 13 Como inserir data e hora na barra de status do sistema? .......................................................... 13 Como pedir confirmação ao fechar tela na aplicação?.............................................................. 14 Como criar uma nova tela na aplicação?................................................................................... 14 Como remover uma tela da aplicação?...................................................................................... 15 Como preparar o banco de dados para ser usado no sistema? .................................................. 16 Como criar uma tela de login do sistema? ................................................................................ 19 Como alterar a Main Form do sistema? .................................................................................... 21 Como criar uma tela padrão? .................................................................................................... 22 Como utilizar uma tela padrão do sistema? .............................................................................. 23 Como utilizar um DBGrid? ....................................................................................................... 24 Como utilizar um DBNavigator? .............................................................................................. 25 Como inserir campos de uma tabela na tela? ............................................................................ 26 Como chamar uma tela no Delphi? ........................................................................................... 27 Como criar uma tela manualmente na aplicação? ..................................................................... 28 Como criar relacionamento Master/Detail na aplicação? ......................................................... 29 Como utilizar componentes do tipo LookUp? .......................................................................... 30 Como criar consultas em tabelas do banco de dados? .............................................................. 31 Como utilizar filtro em uma tabela? ......................................................................................... 32 Como usar a linguagem SQL no Delphi? ................................................................................. 33 Como criar um relatório com o QuickReport? ......................................................................... 35 Como criar um relatório no Rave Reports? .............................................................................. 36 Como criar um relatório com a linguagem Rave Reports? ....................................................... 38 Como validar dados e tratar erros no Delphi? .......................................................................... 41 Como criar campos calculados? ................................................................................................ 42 Como criar campos Lookup? .................................................................................................... 43 Como exportar / importar dados com Delphi/Excel? ............................................................... 44 Como utilizar uma Unit não vinculada a forms? ...................................................................... 45 Como utilizar uma DLL? .......................................................................................................... 46 Como preparar um sistema para ser utilizado em rede? ........................................................... 47 Como criar um sistema de ajuda? ............................................................................................. 48 Como criar discos de instalação para a aplicação? ................................................................... 51 Como compactar o banco de dados do Access no Delphi? .............................................. 53 Como criar uma rotina de Backup/Restore do sistema? ................................................... 54 Como criar um gráfico no Delphi? ...................................................................................... 56 Como criar um relatório de produtos em falta.................................................................... 58 Como realizar algumas melhorias no sistema? ......................................................................... 59 Como criar um objeto em tempo de execução? ........................................................................ 60 Como estruturar o banco de dados “Banco.MDB” ................................................................... ............................................................................. 61 Como construir um sistema utilizando Delphi? Para cada comando a ser executado nesta apostila será utilizada a barra de menu do Delphi, ou, quando existir, ou for mais conveniente, uma combinação de teclas, ou ainda, uma tecla de função. Por exemplo: para visualizar a tela Object Inspector, podemos utilizar a barra de menus, View -> Object Inspector, ou simplesmente teclar [F11]. Em alguns casos, quando não for utilizada nem a barra de menus, ou uma tecla de função, ou combinação de teclas, o procedimento será solicitado através de uma linha de texto, como por exemplo, “F 0 F C Selecione a guia Additional na paleta de componentes do Delphi e insira um componente Image“. Procedimentos a serem executados: • O primeiro passo a ser dado para se construir um sistema, em qualquer linguagem de programação, é fazer a análise do mesmo junto às pessoas envolvidas, para obter informações a respeito dos documentos, formulários, procedimentos, enfim, tudo o que faz parte do sistema atual, seja ele informatizado ou manual, e que deverá fazer parte do novo sistema. Anote tudo o que for coletado e faça um esboço num editor de textos, dos menus do sistema, suas telas, consultas e relatórios a serem desenvolvidos. • Defina o banco de dados do sistema, com suas tabelas e relacionamentos. Procure eliminar todas as redundâncias de dados. • Abra o Windows Explorer (tecle [ F0 FF] + [E]) e crie a pasta: C:\Sistema • Crie, neste momento, no Microsoft Access, o banco de dados que será utilizado pelo sistema. Sua estrutura se encontra nas páginas 61 e 62 desta apostila. Após executarmos os procedimentos anteriores, já podemos iniciar a construção do nosso sistema utilizando o Delphi. Bom trabalho! Como executar a aplicação no Delphi? Este tópico deve ser realizado para fazer o programa funcionar. Procedimentos a serem executados: • Escolha a opção Run -> Run, na barra de menus, ou simplesmente, tecle [F9] para executar a aplicação Figura - Tela principal após a execuçao do sistema O arquivo executável (.exe), e outros, criados no momento da execução do sistema, serão gravados dentro da pasta onde se encontra o código fonte (*.pas e *.dpr), a não ser que sejam especificadas outras pastas através do comando Project -> Option -> Directories / Conditionals da barra de menus do Delphi. Os arquivos de extensão *.dcu, *.~*, *.exe podem ser apagados, pois os mesmos são reconstruídos após executarmos o comando [F9]. Como fechar a aplicação? Este tópico deverá ser executado para fechar a aplicação. Lembre-se de salvá-la antes disso. Procedimentos a serem executados: • File -> Close All Como abrir a aplicação? Execute este tópico antes de iniciar seu trabalho. Procedimentos a serem executados: • File -> Open Project • Escolha, como exemplo, na caixa de diálogo a aplicação Sistema.dpr, que encontra-se na pasta C:\Sistema\Programas. Figura - Abrindo o projeto Sistema.dpr Como inserir uma imagem na tela? Este tópico serve para qualquer situação em que se queira inserir uma ou mais imagens na tela, mas neste exemplo, mostrarei como inserir uma imagem de fundo na tela. Procedimentos a serem executados: • Selecione a guia na paleta de componentes do Delphi e insira um componente Image • Selecione o objeto Image1 que foi inserido na tela e altere as propriedades abaixo, na janela Object Inspector: OBS: Escolha para a propriedade Picture:HandShak.bmp, que se encontra na pasta: C:\Arquivos de Programas\Arquivos Comuns\Borland Shared\Images\Splash\256Color Propriedades: Conteúdo Align: AlClient (Alinha a imagem para exibi-la na tela inteira). Autosize: True (redimensionamento automático) Picture... clique no botão Load e procure a figura desejada na pasta Name: ImgFundo (nome do objeto Image) Stretch: True (estica a imagem, até ficar do tamanho do componente) • Insira um componente MainMenu (guia Standard) na tela principal • Selecione o objeto MainMenu1 e dê um duplo-clique no mesmo • Digite as opções abaixo em sua propriedade Caption • Acrescente as demais opções do menu através da propriedade Action (propriedade que exibe as ações do ActionList ) e deixe seu menu conforme mostra a próxima figura. Dicas: Para criar os separadores, digite sinal de subtração (-) na propriedade Caption e tecle [Enter] Para inserir uma opção em branco tecle [Insert] Para apagar uma opção Tecle [Delete] A opção Produtos deve ser digitada na propriedade Caption Para criar o submenu Produtos, tecle [Ctrl] + [F 0 E 8] sobre a opção. Obs.: Somente após digitarmos os comandos das opções do menu no evento OnExecute de cada ação da ActionList1, é que as mesmas serão habilitadas. Observe que só a opção Sair é que está habilitada até agora. Como inserir uma lista de imagens? Este tópico tem o propósito de ensinar como criar um “depósito” de imagens para ser utilizado posteriormente na aplicação. Procedimentos a serem executados: • Insira um componente ImageList da guia Win32 na tela principal. • Dê um duplo-clique sobre ImageList1 para acessar a tela a seguir • Clique em Add..., abra a pasta C:\Arquivos de Programas\Arquivos Comuns\Borland Shared\Images\Buttons , tecle [Ctrl] + [A], e clique em Abrir • Clique sobre o botão Not to All • Selecione a opção Crop e clique OK para terminar. • Para as imagens aparecerem no menu, altere a propriedade Images dos objetos MainMenu1 e ActionList para ImageList1 e escolha, para cada ação da ActionList1, o nº de sua respectiva imagem através da propriedade ImageIndex. Como criar uma barra de ferramentas? Este tópico tem o propósito de ensinar como criar uma barra de ferramentas com botões representando cada opção do menu principal. Procedimentos a serem executados: • Insira um componente ToolBar da guia Win32 da paleta de componentes • Altere a propriedade ShowHint para True (permite exibir as dicas de Hint) • Altere a propriedade Images do objeto ToolBar1 para ImageList1. • Clique com o botão direito do mouse sobre a barra de ferramentas e escolha New Button para inserir um novo botão ou New Separator para inserir um separador. Em nosso exemplo insira respectivamente 05 botões, 01 separador, e 01 botão. • Para cada botão altere a propriedade Action, de acordo com a respectiva opção do menu. Obs.: Somente após digitarmos os comandos no evento OnExecute de cada ação da ActionList1, é que os botões serão habilitados. Até o presente momento, somente o botão Sair está habilitado. Execute a aplicação e confira o resultado. Como remover uma tela da aplicação? Este tópico deve ser utilizado para cada nova tela a ser inserida no sistema. Procedimentos a serem executados: • Project -> Remove From Project • Escolha a Unit da Form que será removida e clique em OK • Responda Yes à pergunta da tela de confirmação para remover ou responda No para cancelar a operação. Obs: Caso precise inserir uma Form/Unit, já existentes, ao projeto, utilize o comando da opção de menu Project-> Add to Project e escolha a unit da form a ser inserida. Como preparar o banco de dados para ser usado no sistema? Este tópico tem o propósito de ensinar como preparar o banco de dados e suas tabelas para serem utilizados pelo sistema. Procedimentos a serem executados: • File -> New -> DataModule (tipo especial de tela para agrupar os objetos de banco de dados). Salve a Unit da tela como UDM.pas • Altere a propriedade Name para DM e salve a unit da tela como UDM. • Selecione a guia ADO na paleta de componentes do Delphi e insira um componente ADOConnection (conexão com o banco de dados mdb). • Insira um componente ADOTable (tabela) para cada tabela do banco de dados (para o nosso exemplo devem ser inseridos 08 ADOTable). • Selecione a guia DataAccess na paleta de componentes do Delphi e insira um componente DataSource (origem dos dados) para cada tabela do banco de dados (para o nosso exemplo devem ser inseridos 08 DataSource). Componentes da tela DataModule (DM) do sistema • Altere as propriedades de cada componente conforme as tabelas a seguir: ADOConnection1 Conteúdo Significado LoginPrompt False Desabilita tela de login (não pede usuário e senha) ao fazer conexão com o banco de dados. Name Conexao Nome do componente AdoConnection ConnectionString... Clique em ... e siga as instruções a seguir String para conexão ao banco de dados ADOTable1 Conteúdo Significado Connection Conexao Conexão ao Banco de dados onde se encontra a tabela desejada. Name Tab_Clientes Nome do componente ADOTable TableName Escolha Clientes Nome da tabela no banco de dados • Dê duplo-clique no componente tab_Clientes. Tecle [Ctrl] + [F] para inserir os campos da tabela. O resultado deverá ficar como o da tela a seguir: • Selecione cada campo e altere suas propriedades, quando necessário. Por exemplo, altere a propriedade DisplayLabel do campo CliCodigo para Código do Cliente. Isto fará com que todas as telas que usarem este campo apareça como Código do Cliente em seu rótulo, e não mais CliCódigo. Outra propriedade é a EditMask, usada com campos do tipo Texto e Data/ Hora, que define a máscara do campo (Ex.: CliCep = 99.999-999). Para campos do tipo Moeda, altere a propriedade Currency para True, para que lhe seja aplicado o formato monetário. Quando precisar acessar informações de um campo em uma tabela, use a sintaxe: DataModule.TabelaCampo.Propriedade. Por exemplo, para atribuir o conteúdo do campo CliNome à variável Nome, use Nome:=Dm.Tab_ClientesCliNome.Value; (não precisa fazer isso agora). • Selecione o componente DataSource1 e escolha tab_Clientes na propriedade DataSet. Altere a propriedade AutoEdit (edição automática nos dados) para False. Altere a propriedade Name para Ds_Tab_Clientes. Faça o mesmo para as demais tabelas. O resultado final deverá ser como o mostrado na tela a seguir: Se você tentou executar o sistema até este ponto, percebeu que a tela de login não apareceu. Uma das maneiras de fazer com que isto aconteça, é alterar a Main Form para a tela FrmLogin. Para isto siga os procedimentos abaixo: Procedimentos a serem executados: • Selecione a opção de menu Project -> Options • Selecione a guia Forms e altere a opção Main Form para a tela desejada, em nosso exemplo escolha FrmLogin e clique no botão OK. • Tecle [F9] para executar a aplicação Como criar uma tela padrão? O uso de uma tela padrão além de deixar as telas do sistema com um layout padronizado, agiliza o processo de criação das mesmas, pois, todos os objetos, propriedades e eventos, comuns a todas as telas, não são criados novamente, e sim, herdados da tela padrão, através do conceito de herança de formulários. Procedimentos a serem executados: • Crie uma nova form (File -> New -> Form), altere sua propriedade Name para FrmCadPadrao. Altere as demais propriedades, conforme tabela vista na página 04 desta apostila. Salve a unit como UCadPadrao. • Observe o layout da tela na figura a seguir e acrescente os objetos, na ordem em que são citados na lista de objetos abaixo: Lista de objetos: (Deixe os tamanhos dos GroupBox proporcionais aos da figura) • Acrescente 04 GroupBox (guia Standard) com Align = alTop • 1º GroupBox com 01 Label, 01 Edit (Name=ValorCampo), 03 SpeedButton. • 2º GroupBox com 01 DBGrid (Data Controls) com Align = alClient. • 3º GroupBox com 03 DBNavigator (Data Controls) com Align = alLeft, um ao lado do outro. Use a propriedade +VisibleButtons para exibir/ocultar os botões do DBNavigator, pois o primeiro DBNavigator deverá conter apenas os botões nbFirst, nbPrior, nbNext, nbLast, o segundo deverá conter apenas os botões nbInsert, nbDelete e nbEdit e o terceiro deverá conter apenas os botões nbPost e nbCancel. • 4º GroupBox vazio. • 01 StatusBar (Win32) com 03 painéis com Width = 150. Como utilizar uma tela padrão do sistema? Utilize este procedimento sempre que for criar uma tela baseada na tela padrão do sistema. Em nosso exemplo será utilizada uma tela padrão para criação das telas do menu de Cadastros. Procedimentos a serem executados: • File -> New -> Other • Selecione a guia que tenha o nome do sistema atual (Sistema) • Selecione o nome da tela padrão (FrmCadPadrao, em nosso exemplo) • Altere a propriedade Caption para Cadastro de Clientes • Altere a propriedade Name para FrmCadCliente • Salve a tela como UCadCliente • Ajuste as propriedades e eventos dos objetos que compõe a tela. Obs: Os componentes DBGrid e DBNavigator serão explanados no próximo tópico. No evento OnShow da tela digite: Dm.Tab_Clientes.Open; // abre a tabela de clientes No evento OnClose da tela digite: Dm.Tab_Clientes.Close; // fecha a tabela de clientes OBS: Repita a execução dos tópicos das páginas 23 – 28 para criar as demais telas do menu Cadastros (Clientes, Fornecedores, Categoria, Itens (Produtos), Funcionários) e do menu Movimentos (Vendas e Itens da Venda), fazendo as devidas adaptações, de acordo com a tabela utilizada, pois nos exemplos estão sendo utilizadas apenas a tabela de Clientes. A tela Itens da Venda deverá ser chamada por um botão na tela de Vendas. Como chamar uma tela no Delphi? Execute este tópico sempre que desejar chamar uma tela através de outra tela do sistema. Procedimentos a serem executados: • Selecione o evento do objeto que será usado para chamar a tela (OnClick de um botão, ou OnExecute de um ActionList, por exemplo) e digite um dos dois comandos conforme sintaxe a seguir: • Para criar uma tela Modal (não permite acessar as demais telas da aplicação enquanto a tela modal não for fechada): Nome_Form.ShowModal; Ex.: FrmCadCliente.ShowModal; • Para criar uma tela não Modal: (permite acessar as demais telas da aplicação mesmo se a tela não-modal estiver aberta): Nome_Form.Show; Ex.: FrmCadCliente.Show; • Para o nosso primeiro exemplo dê um duplo-clique na ActionList1 da tela FrmMenuPrin e escolha a ação ActCliente • Dê um duplo-clique no evento OnExecute da mesma e digite FrmCadCliente.ShowModal; para chamar a tela e cadastro de clientes. Tela Cadastro de Clientes após ser chamada OBS:Prefira utilizar os comandos da maneira como serão mostrados no próximo tópico para chamar as demais telas do sistema. Isso liberará memória do sistema. Como criar uma tela manualmente na aplicação? Este tópico vai ensinar os procedimentos para criar uma tela manualmente. Por padrão, o Delphi cria automaticamente seus formulários, mas, dependendo da quantidade deles, a memória pode ficar sobrecarregada, comprometendo o desempenho do sistema. Esse problema é solucionado criando-se manualmente cada tela somente quando a mesma for utilizada, e liberando-a da memória logo em seguida, após o seu uso. Procedimentos a serem executados: Obs. Neste exemplo utilize a tela FrmCadCliente e a ação ActCliente. • Selecione a opção de menu Project -> Options • Clique na guia Forms e selecione a tela a ser criada manualmente em Auto-Create Forms (criação automática) • Clique no botão [>] para passá-la para Available Forms (criação manual) • Clique no botão [OK]. • Selecione no ActionList1 o evento OnExecute da ação que será usada para chamar a tela e digite os comandos conforme exemplo a seguir. FrmCadCliente:= TFrmCadCliente.Create(Self); //criação manual FrmCadCliente.ShowModal; //exibe a tela no modo modal FrmCadCliente.Release; //libera a tela da memória FrmCadCliente:= nil; //atribui o conteúdo nulo para a variável FrmCadCliente Como criar consultas em tabelas do banco de dados? Este tópico vai ensinar os procedimentos para criar uma consulta parcial a uma tabela e uma de chave completa. A Unit do Delphi utilizada deve ser a DB. Procedimentos a serem executados: Para criar uma consulta aproximada a uma tabela de banco de dados, ou seja, uma pesquisa que procura parte do campo desejado, siga os passos: • Selecione o evento OnChange do componente TEdit desejado (neste caso ValorCampo na tela de Clientes) e digite o comando Locate, como abaixo: Dm.tab_Clientes.Locate( 'CliNome',ValorCampo.Text, [loCaseInsensitive, loPartialKey] ); Onde, Dm é o nome da tela de DataModule, tab_Clientes é o nome da componente AdoTable da tabela, CliNome é o nome do campo na tabela a ser pesquisado, ValorCampo.Text é o objeto TEdit onde será digitado o conteúdo a ser pesquisado. loCaseInsensitive não faz distinção entre letra maiúscula ou minúscula loPartialKey pesquisa por parte do campo Para realizar uma consulta pela chave completa, ou seja, o conteúdo só será encontrado depois de digitado todo o conteúdo do campo, utilize o mesmo comando, remova a palavra loPartialKey e coloque o comando dentro de uma estrutura de decisão If, conforme o exemplo a seguir: If not Dm.tab_Clientes.Locate( 'CliNome',ValorCampo.Text, [loCaseInsensitive]) then MessageDlg(‘Cliente não cadastrado!’, mtError, [mbOk], 0); Digite o comando acima no evento OnClick do botão Pesquisar, por exemplo. Neste caso, lembre-se de colocar comentário (//) no comando do evento OnChange do TEdit ValorCampo, utilizado anteriormente. Para fazer uma consulta com dois campos utilize a sintaxe: Tabela.Locate('Campo1;Campo2', VarArrayOf([Conteúdo1, Conteúdo2]), [loPartialKey]); Como utilizar filtro em uma tabela? Este tópico vai ensinar os procedimentos para utilizar filtros em tabelas de banco de dados para selecionar apenas os registros que o usuário deseja. Procedimentos a serem executados: • Sintaxe para utilizar filtro: With <DataSet> do begin Filtered := false; // desliga o filtro Filter := ‘digite o filtro desejado entre apóstrofos’; Filtered := true; // ativa o filtro de acordo com critério estabelecido em Filter End; • Para exibir seus clientes, filtrados por cidade, crie a procedure abaixo na unit da tela FrmCadCliente: procedure TFrmCadCliente.FiltraCliente; Var Cidade : String; Ok : Boolean; begin Cidade := 'ALL'; Ok := InputQuery('Filtra Clientes por Cidade', 'Digite o nome da cidade: (ALL remove o filtro)',Cidade); If Ok then With dm.Tab_Clientes do begin Filtered := false; // Desativa o filtro if Cidade <> 'ALL' then begin // A função QuotedStr coloca apóstrofos no string. Filter := 'CliCid = ' + QuotedStr(Cidade); // monta o filtro Filtered := true; // Ativa o filtro end; end; end; • Crie um botão que será usado para filtrar os clientes por cidade e, no evento OnClick do mesmo, chame a procedure FiltraCliente. Como usar a linguagem SQL no Delphi? Este tópico vai ensinar os procedimentos para a utilização dos comandos da linguagem SQL (Structure Query Language) no Delphi. Através desta linguagem você pode criar e alterar tabelas, inserir, alterar, apagar registros, bem como fazer pesquisas simples e complexas em tabelas de bancos de dados. Procedimentos a serem executados: • Utilize algum componente para banco de dados que aceite instruções SQL. Em nosso exemplo, como estamos utilizando componentes ADO, selecione na guia ADO da paleta de componentes, o componente ADOQuery, inserindo-o na tela FrmCadCliente. • Altere a propriedade Name para QueryClientes • Defina a conexão do banco de dados que contém as tabelas desejadas. Para isto altere a propriedade Connection, escolhendo a conexão. Em nosso exemplo, escolha Conexao • Clique na propriedade SQL... e digite o comando: Select * From Clientes Where CliCid = :Cidade Order By CliNome para selecionar todos os registros da tabela de Clientes da cidade fornecida como parâmetro de pesquisa pelo usuário através da aplicação, em ordem pelo nome do cliente. Em nosso exemplo serão selecionados todos os campos de cada registro (*), mas, se preferir selecionar apenas alguns campos, basta apenas digitar no lugar do asterisco o nome de cada campo separado por vírgula. • Dê um duplo-clique no objeto QueryClientes e selecione todos os campos teclando [Ctrl] + [F]. Obs:A sintaxe para utilização de um objeto AdoQuery com os comandos SQL é a seguinte: With <nome do ADOQuery> do Begin Close; Parameters[nº de ordem do parâmetro].Value := <valor>; Open; // <outros comandos do Delphi, se houver> Close; End; * Logo a seguir será mostrado um exemplo. • Crie a tela abaixo (name = FrmPesCliCid) para ser chamada no evento OnClick do botão Imprimir ( FrmPesCliCid.ShowModal;) Como criar um relatório no Rave Reports? Este tópico vai ensinar os procedimentos para a criação de um relatório utilizando o Rave Reports. Procedimentos a serem executados: • Selecione a tela FrmCadCliente. • Acesse a guia Rave e insira um componente RvDataSetConnection , que é responsável pela conexão com o banco de dados. Mude a propriedade Name para RvDtCnCliente. Configure a propriedade DataSet selecionando o nome da tabela ou query. Neste exemplo, escolha a query QueryClientes. • Insira um componente RvSystem , que será responsável pela exibição do relatório, na tela ou na impressora. Mude Name para RvSysCliente. • Insira um componente RvProject , que será responsável pelo gerenciamento do relatório. Mude Name para RvPrjCliente. Ajuste as propriedades Engine para RvSysCliente. • Dê um duplo clique no componente RvPrjCliente, ou, escolha Tools->Rave Designer, para abrir o Rave em sua área de Design. Ambiente de Design do Rave Report • Acesse File-> New para criar um novo relatório no Rave • Acesse File -> New Data Object e escolha Direct Data View. Selecione a conexão RvDtCnCliente na área Active Data Connection e clique no botão Finish. Tree Panel após selecionarmos RvDtCnCliente • Vá até a guia Report e adicione um componente Region Component, onde devem ficar obrigatoriamente todas bandas do relatório. Use a guia zoom para ajudá-lo a visualizar melhor e faça com que o Region ocupe toda a área de impressão (área serrilhada de cor vermelha). • Adicione um componente Band (guia Report) ao Region, clique na propriedade BandStyle e marque as opções Body Header, First (1) e New Page (P). Esta será a banda de cabeçalho do relatório Adicione dentro dela 04 Text Component (guia Standard) e altere a propriedade Text dos mesmos para Relatório de Clientes, Nome, Endereço, Cidade. Use a propriedade Font e ajuste a seu critério, tamanho, estilo, dentre outros atributos da fonte. • Adicione um componente DataBand (guia Report), e ligue a propriedade DataView ao DataView1 onde o Rave buscará os dados do relatório. • Adicione os campos do relatório, teclando [CTRL] enquanto arrasta cada campo do Tree Panel para dentro de DataBand1. Faça isto para os campos Cli_Nome, Cli_End e Cli_Cid. • Selecione o Band1 e ligue a propriedade ControllerBand ao DataBand1 que será a banda de controle do cabeçalho do relatório. Visão final de como deve ficar os objetos no Rave • Teste o relatório com [F9]. Feche a tela de visualização após o teste. • Salve o projeto como RelClientes.rav, volte ao Delphi e ajuste a propriedade Project File para RelClientes.rav. • No evento OnClick do botão Imprimir, da tela FrmCadCliente, substitua o comando FrmRelCliCid.QuickRep1.preview do QuickReport pelo comando RvPrjCliente.Execute; do Rave Reports. Como criar um relatório com a linguagem Rave Reports? Este tópico vai ensinar os procedimentos para a criação de um relatório com a linguagem do Rave Reports. Procedimentos a serem executados: • Acesse a guia Rave e insira um componente RvSystem , que será responsável pela exibição do relatório, na tela ou na impressora. Mude o Name para RvSysCliente. • Substitua o comando RvPrjCliente.Execute; no evento OnClick do botão Imprimir da tela FrmCadCliente pelos comandos a seguir: If QueryClientes.RecordCount > 0 then // se qtde de registros = 0 begin With RvSysCliente do begin SystemPrinter.Units := unCM; //unidades em centímetro SystemPrinter.UnitsFactor := 2.54; // Fator para conversão polegada SystemPrinter.Orientation := poPortrait; // Modo Retrato SystemPreview.RulerType := rtBothCm; // medidas da régua em cm //SystemSetups := SystemSetups - [ssAllowSetup]; remove tela de setup SystemPreview.FormState := wsMaximized; // tela relatório maximizada Execute; // executa o relatório end; end else ShowMessage ('Nenhum Registro Encontrado.'); • No evento OnBeforePrint do objeto RvSysCliente digite: With RvSysCliente .BaseReport do begin FontName := ’Arial’; //define a fonte como Arial FontSize := 11;//define o tamanho da fonte para 11 Bold := false; // desabilita o estilo de fonte negrito SetPaperSize(DMPAPER_A4, 0, 0); //ajusta tamanho do papel end; • Como tratar erros no Delphi? Este tópico vai ensinar os procedimentos tratar erros em uma aplicação feita em Delphi. Procedimentos a serem executados: • Digite o comando Try • Digite a seqüência de comandos desejada • Utilize a palavra Finally e logo a seguir os comandos que deverão ser executados independente do que ocorreu anteriormente, ou seja, que serão sempre executados. Geralmente usamos este recurso para fechar tabelas, habilitar controles de dados, etc. • Ou então, utilize a palavra Except e logo a seguir os comandos que deverão ser executados caso seja levantada alguma exceção, ou seja, tenha ocorrido um erro. Geralmente utilizamos este recurso para alertar o usuário a respeito do erro e fazer os ajustes necessários ao sistema. • Exemplos: Function divide(A, B : Integer); begin try divide := A div B; except On EdivByZero do begin Divide := 0 ; // este bloco só será executado se ocorrer um erro de divisao por 0 MessageDlg(‘Divisão por zero corrigida’, mtError, [mbOk],0); end; end; end; procedure VarreClientes; begin dm.tab_Clientes.DisableControls; // desabilita os controles de dados try while not dm.tab_Clientes.Eof do //executa enquanto não for fim de arquivo de clientes begin {bloco de comandos qualquer} dm.tab_Clientes.Next end; finally dm.tab_Clientes.EnableControls; // sempre será executada essa linha end; end; OBS: Os comandos acima são apenas ilustrativos de exemplos. Para utilizá-los no sistema, faça as devidas adaptações, de acordo com o local onde julgar necessário. Em vários tópicos a seguir utilizaremos exemplos de uso dos mesmos. Não digite nada ainda. Como criar campos calculados? Este tópico vai ensinar os procedimentos para criar campos do tipo calculado, cujos cálculos são feitos toda vez que um registro da tabela é alterado. Procedimentos a serem executados: • Visualize a tela de DataModule do Sistema, ou qualquer tela que possua o objeto ADOTable. [Shift] + [F12] • Dê duplo-clique sobre o objeto TADOTable desejado. Para nosso exemplo, escolha tab_ItemVenda • Tecle [Ctrl] + [N] para inserir um novo campo. • Em Fields Properties digite o nome do campo na caixa de texto Name e escolha o tipo do mesmo em Type. • Em Field Type marque o tipo do campo como Calculated. • Para que seja criado um campo Total para calcular o total do produto vendido, deixe sua tela conforme o modelo a seguir: • Clique sobre o botão [OK] • Para que o campo calculado funcione inclua o cálculo no evento OnCalcFields da tabela para a qual ele foi criado. No evento OnCalcFields da tabela tab_ItemVenda, digite: dm.tab_ItemVendaTotal.Value := dm.tab_ItemVendaItVeQtde.Value * (dm.tab_ItemVendaItVeValorUnitario.Value – dm.tab_ItemVendaItVeDescontoItem.Value); • Na tela FrmCadItemVenda dê um duplo-clique sobre o DBGrid1. Insira um novo campo, clicando sobre o botão . Selecione a coluna TColumn e mude a propriedade Fieldname da mesma para Total. Como criar campos Lookup? Este tópico vai ensinar os procedimentos para criar campos lookup, que exibem valores de campos de registros de tabelas primárias de um relacionamento. Procedimentos a serem executados: • Visualize a tela de DataModule do Sistema, ou qualquer tela que possua o objeto ADOTable. Para isto tecle [Shift] + [F12] • Dê duplo-clique sobre o objeto ADOTable desejado. Para nosso exemplo, escolha tab_Produtos • Tecle [Ctrl] + [N] para inserir um novo campo. • Em Fields Properties digite o nome do campo na caixa de texto Name, escolha o tipo do mesmo em Type e digite o tamanho em Size. • Em Field Type marque o tipo do campo como Lookup. • Em Lookup Definition escolha em Key Fields a chave estrangeira. Em Dataset escolha o nome da tabela primária. Escolha o nome da chave primária da tabela escolhida anteriormente em Lookup Keys. E finalmente escolha o campo que aparecerá como resultado em Result Field. Para que seja exibido o nome da categoria do produto na tabela de produtos deixe sua tela conforme o modelo a seguir: • Clique sobre o botão [OK] • Acrescente o campo criado ao DBGrid da tela de Produtos, ou, arraste-o junto aos demais campos na tela, como já foi feito com os outros campos da mesma. Crie campos Lookup nas tabelas Tab_ItemVenda (Produto), Tab_Venda (Cliente) e adicione-os aos respectivos DBGrids e telas. Como exportar / importar dados com Delphi/Excel? Este tópico vai mostrar os comandos necessários para exportar / importar dados do Delphi para o Excel e vice-versa. Procedimentos a serem executados: • Acrescente ComObj na cláusula uses da unit da tela FrmCadCliente. • Em um botão na tela FrmCadCliente e digite os comandos abaixo: procedure TFrmCadCliente.BtnPlanilhaClick(Sender: TObject); var Pasta : Variant; // este tipo aceita qualquer tipo de informação, inclusive Objeto OLE Linha : Integer; begin dm.tab_clientes.Filtered := False; Como utilizar uma DLL? Este tópico ensinará como criar uma DLL - biblioteca de ligação dinâmica. Procedimentos a serem executados: • File -> Close All • File->New->Other->DLL Wizard • Apague o comentário após a linha Library Project2; • Digite as funções que farão parte da DLL e deixe-a da seguinte maneira: Library DLLCurso; Uses SysUtils, Classes; {$R *.res} Function Triplo(N: Integer): Integer; stdcall; // permite exportar para C, C++, etc. begin Result := N * 3; end; Function Dobro (N: Integer): Integer; stdcall; begin Result := N * 2; end; Exports Triplo Index 1, Dobro Index 2; // Permite acesso às funções declaradas end. • Salve o projeto como “C:\Sistema\DLLCurso“ e compile-o ([Ctrl] + [F9]). Após isso será criado um arquivo com o nome do projeto, só que com a extensão DLL. • Para usar as DLL, crie uma aplicação nova com 02 botões e 01 Edit, e declare suas funções antes da seção Implementation, no seguinte formato: Function Triplo(N: Integer): Integer; stdcall; Function Dobro(N: Integer): Integer; stdcall; • Dentro da seção Implementation, após a diretiva {$R *.DFM}, digite: Function Triplo(N: Integer): Integer; external ‘C:\Sistema\DLLCurso.dll'; Function Dobro(N: Integer): Integer; external ‘C:\Sistema\DLLCurso.dll'; • Chame cada função no evento OnClick dos botões, passando como parâmetro o número de que se deseja calcular o triplo ou o dobro. Ex.:Edit1.Text := IntToStr(Dobro(100)); // retorna 200 Edit1.Text := IntToStr(Triplo(100)); // retorna 300 Como preparar um sistema para ser utilizado em rede? Este tópico vai ensinar os procedimentos para preparar o sistema para ser utilizado pelos usuários em uma rede. Procedimentos a serem executados: • Abra a aplicação, acione a tela DM da mesma, teclando [Shift] + [F12], e apague o conteúdo da propriedade ConnectionString do objeto Conexao. • Acrescente as próximas linhas de comando no programa principal (*.dpr), logo após a criação da tela DM do sistema: Dm.Conexao.Connected := False; Dm.Conexao.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + ExtractFilePath(Application.ExeName)+ 'Banco.mdb;Persist Security Info=False;'; Dm.Conexao.Connected := True; A primeira linha de comando fecha a conexão com banco de dados. A segunda linha de comando cria uma “string” para a conexão com o banco de dados, sendo que, “Provider=Microsoft.Jet.OLEDB.4.0”, indica que o provedor de banco de dados utilizado é o Microsoft Jet OLEDB 4.0, o que permite a utilização de um arquivo *.mdb do Microsoft Access como banco de dados da aplicação juntamente com ADO. A outra parte do “string” Data Source=' + ExtractFilePath(Application.ExeName) diz que o endereço do banco de dados será o mesmo da pasta em que estiver o executável da aplicação (*.exe). O restante do “string” “Banco.mdb;Persist Security Info=False” indica o nome do banco de dados (*.mdb) da aplicação e que não será utilizada nenhuma informação de segurança, como usuário e senha para o banco de dados. A terceira linha de comando abre a conexão do objeto ADOConnetion com o banco de dados para ser utilizada no sistema. • Compile o sistema e grave o executável da aplicação (*.exe) juntamente com o arquivo de banco de dados do Access (*.mdb) em uma mesma pasta no computador considerado como “servidor” da aplicação. • Para encerrar, crie um atalho apontando para o executável (*.exe) da aplicação, em cada máquina considerada como “cliente” do “servidor” da aplicação na rede. Como criar um sistema de ajuda? Este tópico vai ensinar os procedimentos para criar um sistema de ajuda que será acionado pela tecla [F1]. Procedimentos a serem executados: • Carregue algum editor de textos que aceite trabalhar com o tipo Rich Text Format (*.RTF), como o Microsoft Word, por exemplo. • Digite o texto de ajuda agrupado por tópicos, deixando cada tópico ocupando uma página separada (quebra de página = [Ctrl] + [Enter], conforme exemplo a seguir). • Identifique cada um dos tópicos de acordo com os atributos abaixo: # (contexto): Este atributo serve para identificar o tópico de ajuda. Ele não será visível no arquivo de ajuda. $ (título): define o título do tópico que será exibido na janela de índice do sistema de ajuda. K (chave): palavra-chave associada ao texto exibida na janela de índice do sistema de ajuda. Se houver mais de uma palavra, separe-as por ponto-e-virgula (;). + (ordem): valor numérico que define o número de ordem da apresentação no sistema de ajuda. • Cada identificação deve ser feita como uma nota de rodapé, portanto coloque o cursor antes de cada título principal (F 05 5 Introdução, por exemplo) e acione o comando Inserir -> Referência -> Notas... e escolha notas de rodapé. Na caixa de texto Personalizada digite o símbolo identificador e clique no botão Inserir. Na nota de rodapé digite o texto do identificador, conforme a tela a seguir: • Observe que no exemplo anterior foi identificado apenas o tópico de Introdução, portanto, faça o mesmo para os outros dois tópicos restantes, utilizando os mesmos procedimentos. • Defina os links do seu sistema de ajuda. Por exemplo, no tópico Menu Principal, na opção Cadastros, selecione a palavra clientes, aplique Formatar - > Fonte, e escolha o estilo de sublinha traço duplo. • Exatamente após a palavra clientes, digite a palavra-chave cadcli (nome do contexto #), selecione-a, e aplique Formatar->Fonte com efeito oculto e salve o seu documento como Ajuda.rtf. Customer Information, Ready to Install, Setup Progress, Setup Complete Success”. • Na 7ª etapa – “Prepare for release”, clique sobre a opção “Build your release” para dar início à construção da instalação. Para criar uma instalação em um CD, escolha a opção “CD_ROM” e pressione [F7] para iniciar o processo de criação do disco e ser exibido o log de criação na parte inferior da tela. • Teste o arquivo de instalação clicando sobre “Test your Release”, em seguida [Ctrl] + [T]. • Caso tudo esteja correto, faça a cópia para o CD. Obs: Para instalações mais simples, utilize o modo Project Wizard (assistente de projetos), que auxilia, passo a passo, a construção do programa de instalação. Como compactar o banco de dados do Access no Delphi? Este tópico vai mostrar como compactar o banco de dados criado no Access para eliminar todo seu espaço excedente, reduzindo assim, o tamanho do arquivo de banco de dados. Procedimentos a serem executados: • Acrescente um Panel invisível (Visible = False) na tela FrmMenuPrin. • Na Unit da tela FrmMenuPrin, acrescente a unit ComObj na sua cláusula Uses e crie a procedure abaixo: • Crie uma opção no menu principal: Ferramentas -> Compactar para chamar a procedure Compactar: Lembre-se usar a ActionList1 (ActComp) e digite os seguintes comandos no Evento OnExecute da ação ActComp: If MessageDlg('Antes de confirmar esta operação, feche o banco de dados.' + #13 + #13 + 'Deseja efetuar a compatação do Banco de Dados?', mtConfirmation, [mbYes, mbNo],0) = mrNo then Abort; Compactar; Como criar uma rotina de Backup/Restore do sistema? Este tópico vai mostrar como criar uma rotina para cópia de segurança e restauração do banco de dados do sistema. Procedimentos a serem executados: • Crie uma opção no menu principal: Ferramentas -> Backup/Restore. • Crie a tela a seguir com o Name = FrmBkpRst, contendo os objetos: • RadioGroup (Standard) – use as propriedades Caption e Items • DriveComboBox e DirectoryListBox (Win 3.1), 02 SpeedButton • Animate (Win 32) – Visible = False, CommonAvi = aviCopyFile • Digite os comandos abaixo no evento OnClick do botão Confirma: While (not QCliCid.Eof) do begin // Insere dados do Eixo Y do gráfico de barras CliCid.AddY(QCliCidQtde.Value, QCliCidCliCid.AsString, clSkyBlue); QCliCid.Next; end; • Digite os comandos a seguir no evento OnClick do botão Imprimir: if PrintDialog1.Execute then begin chtGrafico.BackColor := clWhite; chtGrafico.Print; end; • Acrescente um botão com Caption = Gráfico à tela FrmCadCliente e chame a tela FrmGráfico através dele. Como criar um relatório de produtos em falta Procedimentos a serem executados: • Acesse a guia ADO • Insira um componente ADOQuery • Altere as seguintes propriedades: Name: QComprarProdutos Connection:ConexaoBanco SQL...: Select CatDesc, ProdNome, ProdQtdeEst From Categorias, Produtos Where CatCodigo = ProdCategoria And ProdQtdeEst <= :Qtde Active: True • Dê um duplo-clique no objeto QComprarProdutos e tecle [Ctrl] +[F] • Coloque um botao (Name = BtnProdFalta e Caption = "Relatório de Produtos em Falta" ), e digite no evento OnClick do mesmo os seguintes comandos: procedure TFrmCadProduto.SpeedButton4Click(Sender: TObject); var Qtde : String; OK : Boolean; begin OK := InputQuery('Digite a Qtde Mínima', 'Qtde Minima', Qtde); if OK then begin With QComprarProdutos do begin Close; Parameters[0].value := Qtde; Open; RvPrjProdFalta.Execute; Close; end; end; end; • Crie um relatório no RAVE com o seguinte layout RELATÓRIO DE PRODUTOS PARA COMPRA Categoria Nome do Produto Qtde em Estoque XXXXXXXXX XXXXXXXXXXXXXXX 99 XXXXXXXXX XXXXXXXXXXXXXXX 99 XXXXXXXXX XXXXXXXXXXXXXXX 99 • Crie uma opção no menu Relatórios para executar e testar o relatório Como realizar algumas melhorias no sistema? Procedimentos a serem executados: • No evento OnBeforeAction do DbNavigator2 da tela padrão do sistema, digite: if Button in [nbInsert, nbEdit] then begin GroupBox1.Enabled := False; //desabilita o GroupBox1 e todos seus componentes. GroupBox2.Enabled := False; DbNavigator1.Enabled := False; DbNavigator2.Enabled := False; DbNavigator3.Enabled := True; end; • No evento OnClick do DbNavigator3 da tela padrão do sistema, digite: GroupBox1.Enabled := True; GroupBox2.Enabled := True; DbNavigator1.Enabled := True; DbNavigator2.Enabled := True; DbNavigator3.Enabled := False; • No evento OnBeforeAction do DbNavigator2 da tela FrmCadCliente, digite: if (Button = nbInsert) then begin Dm.Tab_Clientes.Cancel; Dm.Tab_Clientes.Append; EdtNome.SetFocus; end; • Faça o mesmo procedimento para as demais telas do sistema. Lembre-se de alterar o nome das tabelas e do componente que receberá o foco na tela. • Para utilizar a tecla [Enter] como [Tab] nas telas do sistema, selecione a tela padrão do sistema e altere a propriedade KeyPreview para True. Logo em seguida, digite os seguintes comandos no evento OnKeyPress da tela padrão: if Key = #13 then begin keybd_event(9,0,0,0); Key := #0; end; Nome Campo Tipo Tamanho *CatCodigo AutoNumeração CatDesc Texto 15 Tabela: Produtos Nome Campo Tipo Tamanho *ProdID AutoNumeração ProdCategoria Número ProdCodigo Texto 7 ProdNome Texto 50 ProdPrecoVenda Moeda ProdQtdeEst Número ProdUnidade Texto 5 ProdFornecedor Número Tabela: Venda Nome Campo Tipo Tamanho *VendID AutoNumeração VendCliente Número VendDt_venda Data/Hora VendValorProdutos Moeda VendDesconto Moeda VendAcrescimo Moeda VendFrete Moeda VendQtde Número Tabela: ItemVenda Nome Campo Tipo Tamanho *ItVeID AutoNumeração ItVeVenda Número ItVeProduto Número ItVeValorUnitario Moeda ItVeDescontoItem Moeda ItVeQtde Número DELPHI 7 PARA DESENVOLVIMENTO DE SISTEMAS APOSTILA CONTEÚDO: Delphi 7 para Desenvolvimento de Sistemas ELABORADA POR: Ronaldo Lavestein – Casa Branca - SP