Apostila Delphi 7

ÍNDICE: Como construir um sistema utilizando Delphi?......................................................................... Como criar uma nova aplicação no Delphi?.............................................................................. Como salvar a aplicação no Delphi?.......................................................................................... Como alterar as propriedades da tela? ...................................................................................... Como executar a aplicação no Delphi? ..................................................................................... Como fechar a aplicação? ......................................................................................................... Como abrir a aplicação? ............................................................................................................ Como inserir uma imagem na tela? .......................................................................................... Como criar uma tela de splash? ................................................................................................ Como criar uma lista de ações? ................................................................................................ Como criar um menu de opções? .............................................................................................. Como inserir uma lista de imagens? ......................................................................................... Como criar uma barra de ferramentas? ..................................................................................... Como criar uma barra de status do sistema? ............................................................................. Como inserir data e hora na barra de status do sistema? .......................................................... Como pedir confirmação ao fechar tela na aplicação?.............................................................. Como criar uma nova tela na aplicação?................................................................................... Como remover uma tela da aplicação?...................................................................................... Como preparar o banco de dados para ser usado no sistema? .................................................. Como criar uma tela de login do sistema? ................................................................................ Como alterar a Main Form do sistema? .................................................................................... Como criar uma tela padrão? .................................................................................................... Como utilizar uma tela padrão do sistema? .............................................................................. Como utilizar um DBGrid? ....................................................................................................... Como utilizar um DBNavigator? .............................................................................................. Como inserir campos de uma tabela na tela? ............................................................................ Como chamar uma tela no Delphi? ........................................................................................... Como criar uma tela manualmente na aplicação? ..................................................................... Como criar relacionamento Master/Detail na aplicação? ......................................................... Como utilizar componentes do tipo LookUp? .......................................................................... Como criar consultas em tabelas do banco de dados? .............................................................. Como utilizar filtro em uma tabela? ......................................................................................... Como usar a linguagem SQL no Delphi? ................................................................................. Como criar um relatório com o QuickReport? ......................................................................... Como criar um relatório no Rave Reports? .............................................................................. Como criar um relatório com a linguagem Rave Reports? ....................................................... Como validar dados e tratar erros no Delphi? .......................................................................... Como criar campos calculados? ................................................................................................ Como criar campos Lookup? .................................................................................................... Como exportar / importar dados com Delphi/Excel? ............................................................... Como utilizar uma Unit não vinculada a forms? ...................................................................... Como utilizar uma DLL? .......................................................................................................... Como preparar um sistema para ser utilizado em rede? ........................................................... Como criar um sistema de ajuda? ............................................................................................. Como criar discos de instalação para a aplicação? ................................................................... Como compactar o banco de dados do Access no Delphi? .............................................. Como criar uma rotina de Backup/Restore do sistema? ................................................... Como criar um gráfico no Delphi? ...................................................................................... Como criar um relatório de produtos em falta.................................................................... Como realizar algumas melhorias no sistema? ......................................................................... Como criar um objeto em tempo de execução? ........................................................................ Como estruturar o banco de dados “Banco.MDB” ................................................................... .............................................................................

1

02 03 03 04 05 05 06 07 08 09 10 11 12 13 13 14 14 15 16 19 21 22 23 24 25 26 27 28 29 30 31 32 33 35 36 38 41 42 43 44 45 46 47 48 51 53 54 56 58 59 60 61

Formatado: Direita: 3 cm, Superior: 0,3 cm, Inferior: 1,4 cm, Distância do cabeçalho da margem: 0 cm, Distância do rodapé da margem: 0 cm Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

2

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

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, “
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.

Excluído: ÍNDICE¶ ¶ Como construir um sistema utilizando Delphi? 2¶ Como criar uma nova aplicação no Delphi? 3¶ Como salvar a aplicação no Delphi? 3¶ Como alterar as propriedades da tela? 4¶ Como executar a aplicação no Delphi? 5¶ Como fechar a aplicação? 5¶ Como inserir uma imagem na tela? 7¶ Como criar uma lista de ações? 9¶ Como criar um menu de opções? 10¶ Como inserir uma lista de imagens? 11¶ 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 alterar a Main Form do sistema? 21¶ Como criar uma tela padrão? 22¶ Como criar uma tela manualmente na aplicação? 28¶ ... [1] Excluído: Como construir um sistema utilizando Delphi? ¶ Como criar uma nova aplicação no Delphi? 3¶ ... [2] Formatado: Recuo: Primeira linha: 1,25 cm Excluído: , Excluído: , Excluído: quanto ao

] + [E]) e crie a pasta:


Abra o Windows Explorer (tecle [ C:\Sistema

Excluído: pesquisas Excluído: Logo em seguida Excluído: d


Crie, neste momento, no Microsoft Access, o banco de dados que

Formatados: Marcadores e numeração

será utilizado pelo sistema. Sua estrutura se encontra nas páginas

Formatado: Recuo: À esquerda: 3,75 cm, Primeira linha: 1,25 cm

61 e 62 desta apostila.

Excluído: ¶

Após executarmos os procedimentos anteriores, já podemos iniciar a construção do nosso sistema utilizando o Delphi.

Excluído: <#>Crie as pastas onde serão gravados os arquivos de sua aplicação e banco de dados.¶ ... [3] Formatado: Sublinhado Excluído: <#>¶

Bom trabalho!

3

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Ronaldo Lavestein – Casa Branca - SP

Excluído: Quebra de página Formatado: Fonte: 16 pt

Como criar uma nova aplicação no Delphi? Este tópico deverá ser realizado uma única vez para cada sistema a ser criado.

Excluído: A aplicação engloba todos os objetos do sistema, como, por exemplo, suas telas, botões, etc. Formatado: Recuo: Primeira linha: 1,25 cm

Procedimentos a serem executados:

Excluído: Caso, por exemplo, seja necessário criar um cadastro de clientes e outro de fornecedores, deve-se criar duas novas telas e não uma nova aplicação.


File -> New -> Application

Excluído: ¶

Como salvar a aplicação no Delphi? Este tópico deve ser executado para a aplicação ser gravada em disco. Dica: Nunca deixe para salvar somente quando terminar tudo. Atenção: Organize o seu trabalho, utilizando as

pastas criadas

anteriormente.

Procedimentos a serem executados:
File -> Save All ou clique no botão Escolha a pasta C:\Sistema\Programas na Combobox Salvar em para indicar o local onde a aplicação será gravada.

Excluído: ¶ ¶ ¶ ¶ ¶ ¶ Quebra de página

Excluído: Execute-o logo após a criação da aplicação, ou, sempre que for feita qualquer alteração, como por exemplo, a criação de uma nova tela, a inserção de um novo objeto, mudanças em propriedades ou no código da programação, enfim, após qualquer mudança significativa. Excluído: Faça isso por etapas, conforme explicado anteriormente.¶ Excluído: . Abra o Windows Explorer ([Windows] + E), acesse a pasta C:\ e crie as seguintes subpastas:¶ C:\Sistema ¶ C:\Sistema\Programas¶ C:\Sistema\Tabelas¶ C:\Sistema\Imagens (peça o conteúdo desta pasta ao professor) Excluído: onde ela será gravada em Excluído: Excluído: :

Figura 1 - Salvando a unit do menu principal


Digite o nome da Unit da tela principal, por exemplo, UMenuPrin.pas
Digite o nome do projeto, por exemplo, Sistema.dpr

4

Formatado: Fonte: (Padrão) Arial, 11 pt

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

5

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Como alterar as propriedades da tela? Este tópico deve ser realizado, preferencialmente, antes de se introduzir qualquer componente na tela.

Procedimentos a serem executados:

Excluído: Obs.: Na primeira vez serão pedidos os nomes das units (.pas) e o do projeto (.dpr). Depois disso serão solicitados apenas, se houver, os nomes das units (.pas). Se não houver nenhuma unit a ser gravada, os arquivos serão apenas atualizados no mesmo local de origem, sem que apareça a caixa de diálogo Salvar vista anteriormente.¶


Selecione a tela Form1 através da janela Object TreeView e altere suas propriedades na guia Properties da janela Object Inspector

Formatado: Fonte: Não Negrito

OBS: O ícone HandShak.ico encontra-se na pasta:

Formatado: Sublinhado Formatado: Centralizado

C:\Arquivos de Programas\Arquivos Comuns\Borland Shared\Images\Icons

Propriedades:

Conteúdo

Significado

+ BorderIcons biMaximize: False (clique no sinal +) BorderStyle:bsSingle

botão Maximizar desabilitado

Caption:Sistema Comercial versão 1.0

legenda da barra de títulos.

Color:clBtnFace

cor de fundo da tela

Height:480

altura em pixels

Icon...: Load (carregue o ícone HandShak.ico)

Ícone da barra de títulos da janela

Name:FrmMenuPrin

nome da tela

Position:poScreenCenter

posiciona a janela no centro da tela

Width:640

largura em pixels

WindowState:wsNormal

abre a tela no tamanho original

Formatado: Centralizado

Excluído: Propriedades da tela ... [4]

borda simples, tamanho fixo

Excluído: C:\Sistema\Imagens\Ícones\ HandShak.ico

Excluído: Excluído: ¶

6

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

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

Excluído: A aplicação em Delphi é composta, de Units (*.pas), Forms (*.dfm), Projeto (*.dpr), dentre outros arquivos. Os arquivos citados anteriormente compõem o chamado código fonte da aplicação. Para fazê-lo funcionar é necessário compilar as Units, que se tornarão arquivos de Units compiladas do Delphi (*.dcu). Logo em seguida deve-se linkar as dcu’s para transformá-las no arquivo executável do Delphi (*.exe), ou aplicativo.¶ Formatado: Fonte: (Padrão) Arial, 11 pt

Figura 2 - Tela principal após a execuçao do sistema

O arquivo executável (.exe), e outros, criados no momento da execução do

Excluído: s Excluído: s

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].

Excluído: anteriormente citados serão Excluído: Excluído: s Excluído: da Excluído: dão Excluído: opção Excluído: ¶

Como fechar a aplicação?

Excluído: Quebra de página

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

7

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Como abrir a aplicação?

Excluído: ¶

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. Formatado: Fonte: (Padrão) Arial, 11 pt

Figura 3 - Abrindo o projeto Sistema.dpr

8

Como inserir uma imagem na tela?

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

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

Excluído: caso

fundo na tela.

Procedimentos a serem executados: Excluído: Additional


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:

Formatado: Fonte: (Padrão) Arial, 11 pt, Negrito Formatado: Fonte: (Padrão) Arial, 11 pt Excluído:

OBS: Escolha para a propriedade Picture:HandShak.bmp, que se encontra na pasta:

Formatado: Sublinhado

C:\Arquivos de Programas\Arquivos Comuns\Borland Shared\Images\Splash\256Color

Formatado: Fonte: Não Negrito Formatado: Fonte: Não Negrito Excluído: ¶

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

Excluído: ¶

Excluído:

Excluído: <sp> Excluído: C:\Sistema\Imagens\ Splash\256Color

Name:

ImgFundo (nome do objeto Image)

Stretch:

True (estica a imagem, até ficar do tamanho do componente) Excluído: ¶

9

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Como criar uma tela de Splash? Tela de splash ou de abertura é a primeira tela exibida quando o programa é executado. Sua exibição dura apenas alguns instantes. Procedimentos a serem executados:
File -> New -> Form (cria uma nova tela)
File -> Save All (Salve a Unit como USplash na pasta Programas)
Altere as propriedades da tela Form1, conforme tabela a seguir: Name

FrmSplash

BorderStyle

Excluído: Align: AlClient (Alinha a imagem para exibila na tela inteira).¶ Autosize: True (redimensionamento automático)¶ Picture...:clique no botão Load e procure a figura desejada na pasta C:\Sistema\Imagens\Splash\2 56Color.¶ Name: ImgFundo (nome do objeto Image)¶ Stretch: True (estica a imagem, até ficar do tamanho do componente) Quebra de página

bsNone

Formatado: Fonte: 11 pt

Height

250

Position

poScreenCenter

Excluído: Quebra de página

Width

400

Color

clGray

Excluído: Salva


Acrescente um objeto Image à tela e altere suas propriedades: Excluído: Height

Height

210

Top

3

Width

385

Left

3

Excluído: 210

Stretch

True

HandShak.bmp

Excluído: Left

Excluído: 215

Picture...

Excluído: 3


Acrescente um objeto Label à tela e altere suas propriedades: Font.Color Transparent Caption

Excluído: Width Excluído: 385

Font.Size

26

Excluído: Top

True

Left

45

Excluído: 3

Sistema Comercial 1.0

Top

90

Excluído: Picture...

clWhite

Excluído: À sua escolha


Selecione, na barra de menus, a opção Project -> View Source para exibir o

Formatados: Marcadores e numeração Excluído: I

código fonte da aplicação.
Procure a linha de comando Application.CreateForm(TFrmSplash, FrmSplash) e insira os comandos abaixo após a mesma :

Excluído: as linhas Excluído: depois Excluído: do comando Excluído: da linha de comando do código fonte da aplicação,

FrmSplash.Show; //exibe a tela FrmSplash

Excluído:

FrmSplash.Refresh; // dá um refresh na tela

Excluído: Application.Create Form(TFrmSplash, FrmSplash);

Sleep(2000); // (aguarda 02 segundos) – inclua a unit SysUtils na cláusula Uses. FrmSplash.Release; // Elimina a tela da memória. FrmSplash := nil; // anula a referência ao ponteiro do objeto.

Excluído: Application.Initialize;, Excluído: Excluído: dentro do código fonte da aplicação.¶


Para testar a aplicação até este ponto, execute-a, teclando [F9].

10

Excluído: memória Excluído: ¶ FrmSplash := ... [5] TFrmSplash.Create(Applicati Excluído: ¶ ... [6]

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Como criar uma lista de ações? Uma lista de ações facilita a manutenção do sistema, pois cada comando é digitado uma única vez e pode ser utilizado em diversos pontos do sistema, por exemplo, uma opção de menu e um botão que permitem sair do sistema.

Excluído: ¶ ¶ ¶ ¶ ¶ ¶ ¶ Excluído: ¶ Excluído:

Procedimentos a serem executados:
Selecione na paleta de componentes do Delphi a guia Standard e insira o

Excluído: delphi

componente ActionList na tela FrmMenuPrin.
Selecione o objeto ActionList1 na tela e dê um duplo-clique nele.
Pressione a tecla [Insert] seis vezes para inserir seis ações que farão parte das opções dos menus Cadastro e Sair. Caso deseje apagar uma ação tecle [Delete] após selecioná-la.
Selecione cada ação criada e altere suas propriedades Caption (legenda da ação), Name (nome da ação), ShortCut (tecla de atalho que executa a

Excluído: que aparecerá em cada opção de menu Excluído: rá

ação) e Hint (dica), conforme a tabela abaixo: Excluído: ¶

Propriedades Caption

Name

ShortCut

Hint

Ações Action1

&Clientes

ActCliente

F2

Cadastro de Clientes

Action2

&Fornecedores ActFornec

F3

Cadastro de Fornecedores

Action3

F&uncionários

ActFuncio

F4

Cadastro de Funcionários

Action4

Ca&tegorias

ActCatego

F5

Cadastro de Categorias

Action5

&Itens

ActItens

F6

Cadastro de Itens

Action6

&Sair

ActSair

F7

Sair do Sistema

Excluído: & Excluído: &


Selecione todas as ações e altere a propriedade Category para Cadastro.

Formatados: Marcadores e numeração


Feche a janela de edição do ActionList1

Formatados: Marcadores e numeração


O comandos de cada ação do ActionList1 devem ser digitados no evento OnExecute das mesmas. Como exemplo, dê duplo-clique no objeto

Excluído: Excluído: ¶

ActionList1 e selecione a ação ActSair. Na janela Object Inspector, guia

Excluído: um

Events, selecione evento OnExecute e digite o comando a seguir em sua procedure: Excluído:

Close; {Fecha a tela atual}

11

Como criar um menu de opções?

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein Excluído: ¶

Este tópico ensina como criar menus de opções. Procedimentos a serem executados:
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 Formatado: Fonte: (Padrão) Arial, 11 pt

Formatado: Cor da fonte: Automática


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:

Excluído: pega Excluído: do Excluído: na Excluído: -as conforme figura a seguir: Excluído: Digite

Para criar os separadores, digite sinal de subtração (-) na

Excluído: um

propriedade Caption e tecle [Enter]

Excluído:

Para inserir uma opção em branco tecle [Insert]

Excluído: para criar a linha separadora de opções (propriedade Caption).

Para apagar uma opção Tecle [Delete] A opção Produtos deve ser digitada na propriedade Caption Para criar o submenu Produtos, tecle [Ctrl] + [ ] sobre a opção.

Excluído: T Excluído: para inserir uma opção em branco Excluído: para apagar uma opção Excluído: seta para direita Formatado: Fonte: (Padrão) Arial, 11 pt

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.

Excluído: <#>Dicas: Digite um sinal de subtração (-) e tecle [Enter] para criar a linha separadora de opções. ¶ Tecle [Insert] para inserir uma opção em branco¶ Tecle [Delete] para apagar uma opção ¶ A opção Produtos deve ser digitada na propriedade Caption¶ Para criar o submenu Produtos, selecione a opção e tecle [Ctrl] + [seta para direita] sobre a opção.¶ Excluído: ¶ Excluído: , Excluído: , Excluído: ¶

12

Excluído: Curso Extracurricular: ... [7] Excluído: inserir Excluído: a

Como inserir uma lista de imagens?

Excluído: lista Excluído: utilizada

Este tópico tem o propósito de ensinar como criar

um

“depósito” de

imagens para ser utilizado posteriormente na aplicação.

Excluído: por opções de ... [8] Excluído: da paleta de

Formatado

Procedimentos a serem executados:

... [9]

Excluído: ela ... [10]

Excluído: ¶ Excluído: no


Insira um componente ImageList da guia Win32 na tela principal.
Dê um duplo-clique sobre ImageList1 para acessar a tela a seguir

Excluído: botão Excluído: selecione a imag Excluído: e Excluído: Botões Excluído: m Excluído: no botão Formatado

... [11]


Clique em Add..., abra a pasta C:\Arquivos de Programas\Arquivos Comuns\Borland Shared\Images\Buttons , tecle [Ctrl] + [A], e clique em Abrir Excluído:


Clique sobre o botão Not to All

Excluído: Excluído: Repita o passo... [12] Excluído: OK Excluído: ao terminar. Formatado


Selecione a opção Crop e clique OK para terminar.

... [13]

Formatados: Marcadores e numeração ... [14] Excluído: ¶ Formatado

... [15]


Para as imagens aparecerem no menu, altere a propriedade Images dos objetos MainMenu1 e ActionList para ImageList1 e escolha, para cada

Excluído:

ação da ActionList1, o nº de sua respectiva imagem através da

Excluído: Para as imagens ... [16]

propriedade ImageIndex.

Formatados: Marcadores e numeração ... [17]

13

Como criar uma barra de ferramentas?

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

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)

Formatados: Marcadores e numeração


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

Formatado: Cor da fonte: Automática

opção do menu. Excluído: <#>A barra de ferramentas deverá ficar como na figura a seguir.¶ Formatado: Fonte: (Padrão) Arial, 11 pt

Excluído:

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.

14

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Como criar uma barra de status do sistema? Este tópico tem o propósito de ensinar como criar uma barra de status do

Excluído: do sistema

sistema para apresentar informações ao usuário como, data e hora, usuário, dentre

Excluído: 03

outras.

Excluído: 04 Formatados: Marcadores e numeração

Procedimentos a serem executados:

Excluído: Quebra de página Excluído: ¶


Insira um componente StatusBar da guia Win32 na tela principal.
Dê um duplo-clique sobre o mesmo na tela.
Tecle [Insert] 03 vezes para criar 03 painéis (divisões) na barra de status
Selecione o primeiro painel e altere a propriedade Width para 80 (largura).
Selecione o segundo painel e altere a propriedade Width para 300
Fecha a janela da barra de status.

Como inserir data e hora na barra de status do sistema?

Excluído: ¶ Selecione o evento OnShow da tela principal FrmMenuPrin e acrescente Excluído: , em sua procedure Excluído: nele Excluído: , Excluído: logo depois das linhas já existentes, Excluído: os comandos para exibir a hora e a data nos painéis da barra de status: Excluído: . Excluído: ¶

Este tópico tem o propósito de ensinar como inserir a data e a hora atual do sistema na barra de status do menu principal.

Procedimentos a serem executados:

Excluído: ¶

Excluído: StatusBar1.Pane ls[0].Text := ' ' + Excluído: formatdatetime Excluído: FormatDateTime ('hh:nn:ss',now); // ¶


Para que a hora e a data sejam atualizadas constantemente, insira um componente Timer da guia System na tela principal (FrmMenuPrin).
Altere a propriedade Interval do Timer para 1000 para que o seu único evento, o OnTimer, seja executado de 01 em 01 segundo.
Dê um duplo-clique sobre o componente Timer1 para acessar o evento OnTimer e digite os comandos para exibir a hora e a data atual do sistema: StatusBar1.Panels[0].Text := ' ' + FormatDateTime('hh:nn:ss',now); // StatusBar1.Panels[1].Text := ' ' + FormatDateTime ('dddd", "dd" de "mmmm"

Excluído: ¶

Excluído: StatusBar1.Pane ls[1].Text := ' ' + ... [18] FormatDateTime Excluído: formatdatetime Excluído: (' Excluído: Excluído: dddd", "dd"... de[19] "mmmm" de "yyyy',now); Excluído: ¶ Excluído: ¶

de "yyyy',now); //

Excluído: . Excluído: Excluído: seu único Excluído: , o Excluído: , Excluído: ¶ Formatado

15

... [20]

Como pedir confirmação ao fechar tela na aplicação?

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein Excluído: ¶ ¶

Este tópico deve ser utilizado sempre que se desejar perguntar ao usuário se ele deseja realmente fechar uma tela do sistema.

Excluído: StatusBar1.Panels[ 0].Text := ' ' + formatdatetime('hh:nn:ss',no w); ¶ Excluído: ¶

Procedimentos a serem executados:

Excluído: ¶ Excluído: ¶


Digite os seguintes comandos no evento OnClose da tela desejada (em nosso exemplo a tela FrmMenuPrin):

Excluído: ¶ Excluído: ¶ ¶ Quebra de página

// Sintaxe: MessageDlg(‘Mensagem’, tipo da tela, [botões], índice ajuda); if MessageDlg('Deseja fechar a aplicação?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then

Formatado: Português (Brasil)

begin // Dm.tab_Usuarios.Close; // remova o comentário após criar a tela DM Action := caFree; //ação do objeto TCloseAction para fechar a tela

Formatado: Recuo: À esquerda: 2,5 cm, Primeira linha: 1,25 cm Excluído: ¶

end

Formatado: Português (Brasil)

else

Excluído: {

Action := caNone ; //ação do objeto TCloseAction para não fechar a tela

Excluído: } Excluído: // Excluído:

Obs: Outras opções de Caixa de Diálogo MessageDlg para usar em outra ocasião: Tipos de tela: mtConfirmation, mtWarning, mtError, mtInformation, mtCustom

Excluído: {remova osos comentários só após criar a tela DM}¶ Application.Terminate;¶ Excluído: {

Botões: mbOk, mbCancel, mbYes, mbNo, mbAll, mbRetry, mbYesToAll, mbNoToAll, mbAbort Respostas aos botões: mrOk, mrCancel, mrYes, mrNo, etc.

Excluído: Excluído: } Formatado: Fonte: Negrito, Itálico Excluído: Quebra de página

Como criar uma nova tela na aplicação? Este tópico deve ser utilizado para cada nova tela a ser inserida no sistema.

Procedimentos a serem executados:
File -> New -> Form

16

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

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

Formatado: Fonte: (Padrão) Arial, 11 pt, Negrito


Responda Yes à pergunta da tela de confirmação para remover ou responda No para cancelar a operação. Formatado: Fonte: (Padrão) Arial, 14 pt

Excluído: Para

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.

17

Excluído: , Excluído: ,

Como preparar o banco de dados para ser usado no sistema?

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Este tópico tem o propósito de ensinar como preparar o banco de dados e Excluído: usados

suas tabelas para serem utilizados pelo sistema.

Excluído: no

Procedimentos a serem executados:




File -> New -> DataModule (tipo especial de tela para agrupar os objetos de

Excluído: 10

banco de dados). Salve a Unit da tela como UDM.pas

Excluído: 9 Excluído: 08




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

Excluído: 9

componente ADOConnection (conexão com o banco de dados mdb).

Excluído: 08




Excluído: 10

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). Excluído: Formatado: Fonte: (Padrão) Arial, 14 pt

Componentes da tela DataModule (DM) do sistema


Altere as propriedades de cada componente conforme as tabelas a seguir: ADOConnection1

Conteúdo

LoginPrompt

False

Name

Conexao

Excluído:

Significado Desabilita tela de login (não pede usuário e senha) ao fazer conexão com o banco de dados. Nome do componente AdoConnection

ConnectionString... Clique em ... e siga as

String para conexão ao banco de dados Excluído:

instruções a seguir

Excluído: Figura 4 Excluído: ConexaoBanco Excluído: nas telas

18

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo ... [21] Formatado: Fonte: (Padrão) Arial, 11 pt

Excluído:

Clique em Build...

Excluído: <sp> Formatado: Fonte: (Padrão) Arial, 11 pt

Excluído:

Escolha Microsoft Jet 40.0 OLE DB Provider e clique em Avançar>>.

Excluído: Excluído: em …Next…>> ... [22]

1 – Selecione o banco de dados (C:\Sistema\Programas\Banco.mdb) 2 – Remova o Nome do usuário e desmarque Senha em branco 3 – Clique no botão Testar Conexão para testar se a conexão foi bem sucedida. 4 – Clique Ok nesta e nas próximas, até retornar à tela DM.

19

Excluído: Formatado: Fonte: (Padrão) Arial, 11 pt

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

ADOTable1

Conteúdo

Connection

Conexao

Name TableName

Significado Excluído: ConexaoBanco

Tab_Clientes

Conexão ao Banco de dados onde se encontra a tabela desejada. Nome do componente ADOTable

Escolha Clientes

Nome da tabela no banco de dados

Excluído: ¶

Excluído: .

Formatados: Marcadores e numeração


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:

Excluído: , conforme figura a seguir Formatado: Fonte: (Padrão) Arial, 11 pt Excluído: ¶ Excluído: Altere, para cada campo, as propriedades que achar conveniente Formatados: Marcadores e numeração Excluído: de Excluído: em seu rótulo Excluído: interessante


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

Excluído: para Excluído: do tipo alfanumérico Excluído: ¶

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

Excluído:

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: Formatados: Marcadores e numeração Excluído: t Excluído: ¶ Excluído: <#>¶ Excluído: ¶ <#>¶ Excluído: ¶ Excluído: <sp> Excluído: ¶

20

Excluído: Curso Extracurricular: Programador de Sistemas de... [26]

Excluído:

Como criar uma tela de login do sistema? Este tópico tem o propósito de ensinar como criar uma tela de login

Excluído: Formatado: Fonte: 11 pt

Figura 4 – Layout da Tela de Login

Procedimentos a serem executados:
File -> New -> Form (cria uma nova tela)
File -> Save All (Salve a Unit como ULogin na pasta Programas)
Altere as propriedades da tela Form, conforme tabela a seguir: Name

FrmLogin

BorderStyle

bsDialog

Height

225

Position

poScreenCenter

Width

400

Caption

Login

Excluído: Excluído: ¶

... [27]

Excluído: Quebra de página Excluído: ¶


Acrescente um objeto Image e altere suas propriedades: Height

84

Left

4

Width

113

Top

4

Stretch

True

Picture...

Formatado: Fonte: (Padrão) Arial, 11 pt

HandShak.bmp


Acrescente 01 objeto GroupBox e altere suas propriedades: Caption

Logando no Sistema Name

GrpBxLogin

Excluído: Excluído: 4

Left

4

Top

96

Excluído: 4

Height

88

Width

382

Excluído: 55 Excluído: Salva

21

Excluído: 1 Formatado: Fonte: Itálico Excluído: 15 Excluído: ( Excluído: pasta

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein


Acrescente 03 Labels (01 à tela e 02 ao GrpBxLogin) e mude as propriedades:

Excluído: objetos Excluído: ver figura anterior

Label1

Label2

Label 3

Caption

SISTEMA COMERCIAL Versão 1.0

Usuário

Senha

Alignment

taCenter

taLeftJustify taLeftJustify

Tabela formatada

AutoSize

False

True

True

Excluído: Sistema Comercial

WordWrap

True

False

False

Font...

Comic Sans Ms, 14, Bordô

Excluído: altere suas

Left, Top, Width, Height 140, 4, 208, 50

-

Excluído: Excluído: Name

-

18, 20,-,-

Excluído: propriedades:

18, 54,-,-

Excluído: LblSistema Excluído: LblUsuario Excluído: LblSenha


Acrescente ao GroupBox 02 objetos Edit e altere suas propriedades:

Excluído: 0 Excluído: 19

Edit1

Edit2

Excluído: 3

Text

(em branco)

(em branco)

Excluído: 1

Name

EdtApelido

EdtSenha

PassWordChar

#0

CharCase

ecUpperCase

ecLowerCase

Left, Top, Heigth, Width

64, 19, 21, 177

64, 53, 21, 177

Excluído: ¶

*


Acrescente ao GroupBox 02 objetos BitBtn (Additional) e altere suas

Excluído: <#>¶ Formatados: Marcadores e numeração Tabela formatada

Excluído: Acrescente

propriedades: BitBtn1

BitBtn2

Kind

bkOk

bkCancel

Caption

&OK

&Cancelar

Name

BtnOk

BtnCancelar

Left, Top, Heigth, Width

272, 18, 25, 89

272, 49, 25, 89

Tabela formatada


No evento OnClick do botão BtnCancelar, digite Application.Terminate;
No evento OnClick do botão BtnOk, digite: Dm.tab_Usuarios.Open; // abre a tabela tab_Usuarios FrmMenuPrin.StatusBar1.Panels[2].Text := ' Usuário:' + FrmLogin.EdtApelido.Text + ' - '+ Dm.tab_UsuariosUsuDepto.AsSTring; If not (Dm.tab_Usuarios.Locate('UsuApelido', FrmLogin.EdtApelido.Text, [loPartialKey ])) or (Dm.tab_UsuariosUsuSenha.Value <> FrmLogin.EdtSenha.Text) then begin MessageDlg('Nome ou senha do usuário inválidos.'+#13+#13 + 'Se você esqueceu sua senha, consulte '+ #13 + 'o administrador do sistema', mtError, [mbOK], 0); EdtSenha.Clear; // limpa o objeto EdtSenha EdtSenha.SetFocus; //Ajusta o foco para o objeto EdtSenha

22

Formatado: Espanhol (Espanha-tradicional) Excluído: AssTring Excluído: if Excluído: Excluído: loCaseInsensitive, loPartialKey Excluído:

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

end else begin FrmLogin.Hide; //Esconde a tela FrmMenuPrin.ShowModal; //chama a tela FrmMenuPrin no modo modal FrmLogin.Release; //Remove a tela da memória FrmLogin := Nil; //Atribui conteúdo nulo para a variável de tela FrmLogin end;

Excluído: Formatado: Inglês (EUA) Excluído: Excluído: Excluído: Excluído: {

Obs.: Se, ao tentar compilar o programa, for exibido um erro dizendo que

Excluído: } Formatado: Inglês (EUA)

loPartialKey não foi declarado, tecle [F1] e peça ajuda sobre loPartialKey.

Excluído:

Quando o Delphi exibir a ajuda, anote o nome da Unit à qual pertence este

Excluído: {

parâmetro e inclua o nome da mesma (no caso, DB) na cláusula Uses do

Excluído: }

formulário em questão.

Excluído: Excluído: { Excluído: }

Como alterar a Main Form do sistema?

Excluído: Excluído: {

Este tópico tem o propósito de ensinar como alterar a Main Form

do

sistema, ou seja, fazer com que seja mudada a tela que é apresentada em primeiro lugar quando o sistema é executado.

Excluído: } Excluído: Obs.: Se, ao tentar compilar o programa, Excluído: dará

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:

Excluído: será Excluído: for exibido um erro dizendo que loCaseInsensitive, loPartialKey não foram declarados, Excluído: Nesse caso não é um erro.

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

Excluído: tecle [F1] e peça ajuda sobre loCaseInsensitive. Quando o Delphi exibir a ajuda, anote o nome da Unit à qual pertence este parâmetro e inclua o nome da mesma (no caso, DB) na cláusula Uses do formulário em questão. Vá para a próxima página.¶ Excluído: ¶ ¶ ¶ ¶ ¶ Excluído: ¶ Excluído: ¶ Excluído: Se você tentou executar o sistema até este ponto, deve ter percebido que a tela de login não apareceu. Uma das maneiras de fazer com que isto aconteça, é alterando a Main Form para a tela FrmLogin. Para isto ... siga [28]

23

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

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,

Excluído:

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.

Excluído: original Excluído: .

Procedimentos a serem executados:
Crie uma nova form (File -> New -> Form), altere sua propriedade Name

Formatados: Marcadores e numeração Excluído: ¶

para FrmCadPadrao. Altere as demais propriedades, conforme tabela vista

Formatado: Português (Brasil)

na página 04 desta apostila. Salve a unit como UCadPadrao.

Formatado: Justificado, Com marcadores + Nível: 1 + Alinhado em: 1,9 cm + Tabulação após: 2,54 cm + Recuar em: 2,54 cm


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

Formatados: Marcadores e numeração Formatado: Justificado, Com marcadores + Nível: 1 + Alinhado em: 1,9 cm + Tabulação após: 2,54 cm + Recuar em: 2,54 cm Formatado

... [29]

Formatado: Inglês (EUA)

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.

1º Excluído: Formatado: Inglês (EUA)

2º Close;

Formatado: Fonte: (Padrão) Arial, 11 pt, Negrito Excluído: ¶

3º

Excluído: Layout padrão das telas do Menu Cadastro¶ Excluído: ¶

4º

Excluído: <#>Acrescente os objetos que irão compor a...tela [30] Formatado: Português (Brasil) Formatado: Português (Brasil)

24

Como utilizar uma tela padrão do sistema? Utilize este procedimento sempre que for criar uma tela baseada na tela

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein Excluído: ¶

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)

Excluído: , em nosso exemplo


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. Formatado: Fonte: (Padrão) Arial, 14 pt

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

Excluído: Formatado: Justificado Excluído: bs Excluído: Execute

OBS: Repita a execução dos tópicos das páginas 23 – 28 para criar as demais telas do

Excluído:

menu Cadastros (Clientes, Fornecedores, Categoria, Itens (Produtos), Funcionários) e do

Excluído: comandos

menu Movimentos (Vendas e Itens da Venda), fazendo as devidas adaptações, de acordo

Excluído: cada uma das

com a tabela utilizada, pois nos exemplos estão sendo utilizadas apenas a tabela de

Excluído: de itens Excluído: v

Clientes. A tela Itens da Venda deverá ser chamada por um botão na tela de Vendas.

Excluído: através Excluído: de Excluído: v

25

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Como utilizar um DBGrid? Utilize este procedimento para apresentar os dados de um banco de dados em formato de grade, em linhas e colunas. Procedimentos a serem executados:
File->Use Unit e escolha a tela onde se encontram as tabelas. Selecione o componente DBGrid, e altere a propriedade DataSource (origem dos dados) de acordo com a tabela a ser apresentada na grade. Escolha para

Excluído: Ds_Clientes

este exemplo Ds_Tab_Clientes.
Dê um duplo-clique sobre o DBGrid e clique no botão Add all Fields

Formatado: Fonte: (Padrão) Arial, 11 pt


Selecione os campos que não farão parte da grade e clique no botão Delete Selected

para removê-los. Caso a grade faça parte de uma tela padrão,

Formatado: Fonte: (Padrão) Arial, 11 pt

só será possível remover o campo através da janela Object Treeview.

Para deixar o DBGrid Zebrado:

Excluído: if

No evento OnDrawColumnCell do DBGrid digite os seguintes comandos:

Formatado: Inglês (EUA)

If Odd(dm.tab_Clientes.RecNo) and (dm.tab_Clientes.State <> dsInsert) then

Excluído: b

begin //Lembre-se de colocar a unit DB na cláusula uses na unit da tela.

Formatado: Português (Brasil)

DBGrid1.Canvas.Brush.Color := clMoneyGreen; // muda a cor do pincel DBGrid1.Canvas.FillRect(Rect); // Preenche o fundo com a cor especificada DBGrid1.DefaultDrawDataCell(Rect,Column.Field,State);// desenha as células da grade end;

Excluído: ¶ Excluído: Clicou_no_Grid Excluído: . Excluído: Clicou_no_Grid Excluído: No Excluído: os seguintes comandos

Para ordenar os dados da grade ao clicar no título do campo: a ordenação

Excluído: Clicou_no_Grid

será feita através da propriedade de tabela IndexFieldNames, que define o nome do índice

Formatado: Inglês (EUA)

para a classificação, conforme o campo clicado na grade (Column.FieldName)

Excluído: Crescente


Crie na tela padrão uma variável global chamada Ascendente do tipo Boolean para que todas as telas de cadastro passem a utilizá-la.

Formatado: Inglês (EUA) Excluído: Crescente Formatado: Inglês (EUA)


No evento OnShow, da tela padrão, digite: Ascendente := False;

Excluído: Clicou_no_Grid


Em FrmCadCliente, no evento OnTitleClick do DBGrid digite:

Excluído: if Excluído: Clicou_no_Grid

Ascendente:= not Ascendente ;

Excluído: //ascendente

If Ascendente then

Excluído:

Dm.tab_Clientes.IndexFieldNames := Column.FieldName + ' ASC' else

Excluído: Formatado: Inglês (EUA)

Dm.tab_Clientes.IndexFieldNames := Column.FieldName + '

DESC';

OBS: Não digite os comandos na unit da tela padrão, somente na de cadastro.

26

Formatado: Sublinhado Excluído: Obs: Os comandos acima não devem ser digitados na tela padrão. No exemplo acima foi utilizada a tela de cadastro de clientes.

Excluído: Curso Extracurricular: ... [31]

Como utilizar um DBNavigator?

Excluído: de banco de dados, ... [32] Excluído: Ds_Clientes

Utilize este procedimento para navegar entre os registros da tabela. Procedimentos a serem executados:
Selecione os componentes DBNavigator e altere a propriedade DataSource (origem dos dados) de acordo com a tabela a ser utilizada na tela. No exemplo anterior foi usado o datasource Ds_Tab_Clientes.
Para exibir / ocultar qualquer botão utilize a propriedade VisibleButtons:

Formatados: Marcadores e numeração ... [33] Excluído: ões Excluído: do DBNavigator Excluído: , conforme figura ... [34] Formatado

... [35]

Excluído: ¶

... [36]

Formatados: Marcadores e numeração ... [37] Excluído: estiver Excluído: :¶ Excluído: : o botão será ... [38] Formatado: Português (Brasil) Excluído: ¶ Excluído: : Excluído: o botão será Excluído: do




VisibleButtons = True exibe o botão. VisibleButton = False oculta.

Significado dos botões do DBNavigator e seus comandos equivalentes:utilize os comandos indicados abaixo, caso queira utilizar botões comuns ao invés do DBNavigator.

= equivale ao comando .First, ou seja, vai para o primeiro registro. = equivale ao comando .Prior, ou seja, vai para o registro anterior. = equivale ao comando .Next, ou seja, vai para o próximo registro.

Formatado

... [39]

Formatado

... [40]

Formatado

... [41]

Formatado

... [42]

Formatado

... [43]

Formatado

... [44]

Formatado

... [45]

Formatado

... [46]

Excluído: ¶ Formatado

... [47]

Formatado

... [48]

Formatado

... [49]

Excluído: ¶

= equivale ao comando .Last, ou seja, vai para o último registro. = equivale ao comando .Insert, ou seja, insere um registro em branco. = equivale ao comando .Delete, ou seja, apaga um registro. = equivale ao comando .Edit, ou seja, edita um registro para alteração. = equivale ao comando .Post, ou seja, grava dados no registro. = equivale ao comando .Cancel, ou seja, cancela alteração no registro. = equivale ao comando .Refresh, ou seja, atualiza dados nos controles. Excluído:

deve ser o nome da tabela na qual deseja-se manipular os registros.

Excluído: ¶ Excluído: à

27

... [50]

Como inserir campos de uma tabela na tela?

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein Excluído: Quebra de página

Execute este tópico sempre que for apresentar campos da tabela na tela, utilizando controles Data Controls (DBEdit, DBComboBox, etc).

Excluído: ¶ Excluído: componentes Excluído: data

Procedimentos a serem executados: (Utilize apenas um dos procedimentos)
Automático: Selecione o datamodule onde estão os componentes de

Excluído: controls Formatado: Fonte: Não Negrito Formatados: Marcadores e numeração

banco de dados. Logo em seguida dê um duplo-clique sobre o objeto AdoTable correspondente à tabela que deseja pegar os campos. Selecione todos os campos que deseja incluir na tela e arraste-os para dentro da tela em que eles ficarão. Como exemplo, selecione a tela datamodule DM e o objeto AdoTable tab_Clientes, selecione os seus campos e arraste-os para a tela FrmCadCliente. Neste caso são utilizados controles DBEdit.
Manual: Selecione o objeto Data Control desejado, DBEdit, por exemplo, e altere as propriedades DataSource (origem dos dados) e DataField (campo) de acordo com a informação a ser exibida ou editada da tabela.

Excluído: Ou, se preferir, ¶ <#>Selecione o datamodule onde estão os componentes de banco de dados.¶ <#>Logo em seguida dê um duplo-clique sobre o objeto AdoTable correspondente à tabela que deseja pegar os campos. Selecione todos os campos que deseja incluir na tela e arraste-os para dentro da tela em que eles ficarão. Em nosso exemplo, selecione a tela datamodule DM e o objeto AdoTable tab_Clientes e arraste os campos para a tela FrmCadClientes.¶ ¶ Formatado: Fonte: (Padrão) Arial

Tela Cadastro de Clientes no modo Designer

Excluído: Excluído: Obs: Os campos a serem inseridos na tela FrmVendas são: VendCliente, VendDt_Venda, VendValorProdutos, VendDesconto, VendAcrescimo, VendFrete. Os campos a serem inseridos na tela FrmItemVenda são: ItVeVenda, ItVeProduto, ItVeValorUnitario, ItVeDescontoItem ItVeQtde¶

28

Como chamar uma tela no Delphi?

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein Excluído: delphi

Execute este tópico sempre que desejar chamar uma tela através de outra

Excluído: ¶

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:

o

Para criar uma tela Modal (não permite acessar as demais telas da

Excluído: executa Excluído: o resto d

aplicação enquanto a tela modal não for fechada): Nome_Form.ShowModal;

o

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

Excluído:


Dê um duplo-clique no evento OnExecute da mesma e digite FrmCadCliente.ShowModal; para chamar a tela e cadastro de clientes. Excluído: ¶ Formatado: Fonte: (Padrão) Arial, 11 pt

Tela Cadastro de Clientes após ser chamada

OBS:Prefira utilizar os comandos da maneira como serão mostrados no próximo

Excluído: bs Excluído: foram

tópico para chamar as demais telas do sistema. Isso liberará memória do sistema.

Excluído: to Excluído: fará com que a Excluído: seja liberada

29

Como criar uma tela manualmente na aplicação?

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein Excluído: ¶

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

Excluído: Quebra de página Excluído: ¶ Excluído: delphi

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.

Excluído: Obs.:


Selecione a opção de menu Project -> Options
Clique na guia Forms e selecione a tela a ser criada manualmente em

Excluído:

Auto-Create Forms (criação automática)
Clique no botão [>] para passá-la para Available Forms (criação manual)

Excluído:


Clique no botão [OK]. Formatado: Fonte: (Padrão) Arial, 11 pt


Selecione no ActionList1 o evento OnExecute da ação que será usada

Excluído:

para chamar a tela e digite os comandos conforme exemplo a seguir.

FrmCadCliente:= TFrmCadCliente.Create(Self); //criação manual

Excluído: { Excluído: }

FrmCadCliente.ShowModal; //exibe a tela no modo modal

Excluído: {

FrmCadCliente.Release; //libera a tela da memória

Excluído: }

FrmCadCliente:= nil; //atribui o conteúdo nulo para a variável FrmCadCliente

Excluído: { Excluído: } Excluído: { Excluído: tela}

30

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Como criar relacionamento Master/Detail na aplicação?

Excluído: um

Este tópico vai ensinar os procedimentos para criar um relacionamento Master/Detail na aplicação. Como exemplo utilizaremos as tabelas Tab_Venda e Tab_ItemVenda, onde, Tab_Venda será Master, e Tab_ItemVenda será Detail.

Excluído: de Notas Excluído: Detalhes da Nota Excluído: Notas

Em um relacionamento Master/Detail, para cada registro da tabela Master, são

Excluído: Master

relacionados apenas os registros da tabela Detail que tiverem os mesmos valores

Excluído: Detalhes da Nota

de chaves primária e estrangeira, respectivamente (VendID = ItVeVenda).

Excluído: master Excluído: detail Excluído: master

Procedimentos a serem executados:

Excluído: exibidos Excluído: respectivos


Selecione a tela Dm ([Shift] + [F12])

Excluído: detail


Selecione a propriedade MasterSource da tabela detail Tab_ItemVenda, e

Excluído: NotNum

escolha o nome do DataSource da tabela master, Ds_Tab_Venda.
Selecione a propriedade MasterFields (chave primária da tabela master).na tabela Tab_ItemVenda e digite VendID, que é o campo que fará a ligação entre as tabelas.

Excluído: DetNotNum Excluído: , por exemplo Excluído: O primeiro procedimento deve ser o de criar os relacionamentos entre as tabelas. Para isto, s Excluído:


Execute a aplicação e chame a tela de vendas. A partir de agora, quando a tela de itens da venda for chamada, só serão exibidos os registros dos itens correspondentes ao registro da venda selecionada.
Dê duplo-clique na propriedade MasterField para ver a janela de designer do relacionamento. O relacionamento também poderia ter sido feito

Excluído: , e Formatados: Marcadores e numeração Excluído: ( Excluído: ) Excluído: na propriedade MasterSource da

selecionando-se as chaves primária e estrangeira e clicando no botão Add.

Excluído: na

Faça isto apenas se você não se lembrar do nome da chave primária.

Excluído: tabela detail ( Excluído: detalhe da nota em Excluído: Tab_ItemVenda Excluído: , em nosso exemplo Excluído: ), Excluído: , Excluído: Excluído: selecione o nome do DataSource da tabela master (Ds_Tab_Venda, Ds_Notas ... [51] Excluído: Logo em seguida, ... [52] Excluído: digitando o nome ... [53]

Janela Designer do Relacionamento

Excluído: na propriedade ... [54] MasterFields ( Excluído: , NotNum na ... [55] MasterFields. Excluído: Crie uma tela ... de [56] notas Formatados: Marcadores e numeração ... [57] Formatado

31

... [58]

Como utilizar componentes do tipo LookUp? Este tópico vai ensinar os procedimentos para utilizar componentes do tipo LookUp que atribuem a um determinado DataSet, valores provenientes de outro DataSet, através de um relacionamento entre seus campos-chave. Procedimentos a serem executados:

Excluído: ¶ ¶ Obs.: Excluído: ¶

... [59] ... [60]

Excluído: criar um relacionamento… Excluído: ¶

... [61]

Excluído: criar …um

... [62]

Excluído: na aplicação, que ... [63]


Insira um objeto DBLookUpComboBox, ou DBLookUpListBox da guia DataControls e altere as seguintes propriedades: 

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

DataSource = DataSource da tabela onde há chave estrangeira no

Formatado: Fonte: Negrito Excluído: ¶ Excluído: tabela Excluído: será gravado o...valor [64]

relacionamento um-para-muitos. 

DataField = nome do campo que é chave estrangeira num

Excluído: no … e que será ... [65]

relacionamento um-para-muitos. 

ListSource = DataSource da tabela principal do relacionamento e

componente DBLookup. ListField = nome do campo cujo conteúdo será exibido para o usuário na lista do componente DBLookUp escolhido. 

... [66]

Formatado: Fonte: Negrito

que possui o valor do campo que será exibido na lista do 

Excluído: , onde está

Excluído: ropriedade ListField Excluído: que …na Text Excluído: n

... [67] ... [68]

Excluído: d Excluído: o

KeyField = nome do campo chave-primária da tabela principal do relacionamento.

Excluído: D…ComboBox ... [69] Excluído: comum às duas ... [70]


Considere a seguinte situação: a tabela Tab_ItemVenda possui o campo ItVeProduto que é chave estrangeira e relaciona-se com a tabela Tab_Produtos através da chave primária ProdID. Como o campo

Excluído: Como exemplo, c Excluído: Detalhes da ... [71] nota…DetCodPro Excluído: de

ItVeProduto armazena apenas o valor do código do produto, fica difícil para

Excluído: ProCodigo…DetCo ... [72] dPro Excluído: Então u

o usuário saber qual produto está sendo utilizado. Utilizaremos um dos

Excluído: dos …s

componentes DBLookUp para exibir o nome do produto para o usuário.
Insira um componente DBLookUpComboBox da guia DataControls na tela FrmItemVenda e altere as seguintes propriedades:

... [73]

Excluído: citados Excluído: s Excluído: acima …escolher. ... [74] Excluído: Para isto,



DataSource = Ds_Tab_ItemVenda

Formatados: Marcadores e numeração ... [75]



DataField = ItVeProduto

Excluído: i



ListSource = Ds_Tab_Produtos.

Excluído: dos …s



ListField = ProdNome

Excluído: LookUp



KeyField = ProdID

... [76]

Excluído: Ds_ Excluído: DetNotas


Siga o mesmo procedimento para o campo Cliente na tela FrmVenda. Lembre-se de abrir a tabela Tab_Produtos e Tab_Clientes (no evento OnShow das telas).

Excluído: DetCodPro Excluído: Ds_ Excluído: ProDescri Excluído: ProCodigo Formatados: Marcadores e numeração ... [77]

32

Como criar consultas em tabelas do banco de dados?

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein Excluído: ¶

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.

Excluído: ¶ Excluído: ¶ Quebra de página

Excluído: uma Excluído: pela chave parcial em numa

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:

Excluído: aproximada em uma tabela de banco de dados, ou seja, uma pesquisa que procura parte do campo desejado.


Selecione o evento OnChange do componente TEdit desejado (neste caso ValorCampo na tela de Clientes) e digite o comando Locate, como abaixo:

Excluído: desejado Excluído: , conforme

Dm.tab_Clientes.Locate( 'CliNome',ValorCampo.Text, [loCaseInsensitive, loPartialKey] ); Onde,

Excluído: a seguir

Formatado: Sublinhado

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 Excluído: ¶

Para realizar uma consulta pela chave completa, ou seja, o conteúdo só será

Excluído: pesquisa

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,

Excluído: só Excluído: ,

conforme o exemplo a seguir:

Excluído: :¶

If not Dm.tab_Clientes.Locate( 'CliNome',ValorCampo.Text, [loCaseInsensitive]) then MessageDlg(‘Cliente não cadastrado!’, mtError, [mbOk], 0);

Excluído: Excluído: ;

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]);

33

Formatado: Fonte: Negrito

Como utilizar filtro em uma tabela?

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein Excluído: ¶ ¶

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.

Excluído: ¶ Excluído: ¶ Excluído: ¶ Quebra de página

Procedimentos a serem executados:

Formatado: Fonte: Não Negrito, Não Itálico


Sintaxe para utilizar filtro:

Excluído: ¶

With do

Excluído: os seguintes comandos necessário o filtro

begin Filtered := false; // desliga o filtro

Formatados: Marcadores e numeração

Filter := ‘digite o filtro desejado entre apóstrofos’;

Excluído: os seguintes comandos

Filtered := true; // ativa o filtro de acordo com critério estabelecido em Filter

Excluído: ¶ Formatado: Português (Brasil)

End;
Para exibir seus clientes, filtrados por cidade, crie a procedure abaixo na

Excluído: nome da tabela

unit da tela FrmCadCliente:

Excluído: // critério para filtragem

procedure TFrmCadCliente.FiltraCliente;

Excluído: ¶ ¶

Var Cidade : String;

Formatados: Marcadores e numeração

Ok : Boolean;

Excluído: Vamos supor que você queira

begin Cidade := 'ALL';

Excluído: na tela de clientes, no

Ok := InputQuery('Filtra Clientes por Cidade', 'Digite o nome da cidade:

Excluído: :

With dm.Tab_Clientes do

Excluído: DBGrid, para cada cliente, suas respectivas vendas. Proceda da seguinte maneira:¶ ... [78] DBGrid Formatado: Inglês (EUA)

begin

Excluído: (Digite ALL para ... [79]

(ALL remove o filtro)',Cidade); If Ok then

Filtered := false; // Desativa o filtro

Excluído: if

if Cidade <> 'ALL' then begin

// A função QuotedStr coloca apóstrofos no string.

Formatado: Inglês (EUA)

Filter := 'CliCid = ' + QuotedStr(Cidade); // monta o filtro

Formatado: Inglês (EUA)

Filtered := true; // Ativa o filtro

Excluído: procedure

... [80]

Excluído: ¶

end;

Excluído: Nos eventos ... [81] OnShow Formatados: Marcadores e numeração ... [82]

end; end;

Excluído: Excluído: do DBNavigator1 ... [83]


Crie um botão que será usado para filtrar os clientes por cidade e, no evento OnClick do mesmo, chame a procedure FiltraCliente.

Excluído: digite o comando ... [84] Excluído: : Excluído: Venda Excluído: ;

34

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Como usar a linguagem SQL no Delphi? Excluído: ¶

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

Excluído: relacionadasa Excluído: a Excluído: ¶

pesquisas simples e complexas em tabelas de bancos de dados.

Excluído: ¶ Excluído: desejada Excluído: s

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

Excluído: Funcionarios Excluído: QueryFuncionarios Excluído: ConexaoBanco

na guia ADO da paleta de componentes, o componente ADOQuery,

Excluído: Funcionarios

inserindo-o na tela FrmCadCliente.

Excluído: FunSal >= 500 And


Altere a propriedade Name para QueryClientes
Defina a conexão do banco de dados que contém as tabelas desejadas.

Excluído: FunCid Excluído: FunNome Excluído: da

Para isto altere a propriedade Connection, escolhendo a conexão. Em

Excluído: Funcionarios

nosso exemplo, escolha Conexao

Excluído: onde o salário seja maior ou igual a R$ 500,00 e sejam d


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

Excluído: , como um Edit, por exemplo Excluído: <#>Clique na propriedade Parameters e altere o tipo do parâmetro Cidade para ftString através da propriedade DataType, pois os dados fornecidos como parâmetros de pesquisa serão do tipo texto (nome da cidade). Observe que para cada tipo de dado existe um respectivo DataType a ser escolhido.¶ Excluído: QueryFuncionarios

teclando [Ctrl] + [F].

Formatado: Recuo: À esquerda: 1,25 cm, Primeira linha: 0,63 cm

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 := ; Open; //

Formatado: Fonte: Negrito Excluído: ¶ <#>Se for associar os dados a algum componente de dados ao componente ADOQuery, como DBGrid, por exemplo, insira um componente DataSource (guia DataAccess) e altere sua propriedade Name para ... [85] DsQueryFuncionarios Formatado: Fonte: Negrito Excluído: : Formatado: Português (Brasil)

Close;

Formatado: Inglês (EUA)

End;

* Logo a seguir será mostrado um exemplo.

Excluído: delphi Formatado

35

... [86]


Crie a tela abaixo (name = FrmPesCliCid) para ser chamada no evento OnClick do botão Imprimir ( FrmPesCliCid.ShowModal;)

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein Excluído: <#>Nosso exemplo:¶ Formatados: Marcadores e numeração Formatado: Fonte: Itálico Excluído: ¶ Formatado: Fonte: (Padrão) Arial, 11 pt, Negrito


No evento OnClick do botão OK acima digite: With FrmCadCliente.QueryClientes do

Excluído: ¶ Formatados: Marcadores e numeração Excluído: With Excluído: QueryFuncionarios

Begin Close; // fecha a query Parameters[0].Value := EdtCidade.Text; //define parâmetro de pesquisa Open; //abre a query e executa os comandos SQL End; FrmPesCliCid.Close;


Utilize os comandos abaixo para permitir apenas digitação de letras e backspace. Acesse o evento OnKeyPress do objeto EdtCidade e digite:

Excluído: QueryClientes do Formatado: Português (Brasil) Excluído: Excluído: EditNome Excluído: If RecordCount = 0 then ¶ Begin¶ ShowMessage (‘Nenhum Registro Encontrado.’);¶ Abort;¶ End;¶ rmRelCliCid // será criado adiante¶ Close; ¶ Formatado: Português (Brasil)

// se última tecla for letra, espaço ou Backspace

Formatados: Marcadores e numeração

If not (Key in ['A'..'Z','a'..'z', #32, #8]) then

Formatado: Português (Brasil)

Key := #0; // ignora a última tecla digitada Obs: Caso você utilize os comandos Insert, Delete, Update, em sua query,

Excluído: Para Excluído: ,

execute o método ExecSql, ao invés de Open.

Excluído: utilize Excluído: no lugar

Dica:

Procure se aprofundar no estudo da linguagem SQL, principalmente

Excluído: ¶

seus principais comandos como Select, Update, Insert, Delete, Create Table, bem como técnicas de Join, agrupamentos, etc. Caso queira, você pode criar uma tela Datamodule para organizar seus objetos AdoQuery, evitando que os mesmos fiquem espalhados pelas telas da aplicação.

36

Formatado: Recuo: À esquerda: 2,5 cm, Primeira linha: 1,25 cm

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Como criar um relatório com o QuickReport? Este tópico vai ensinar os procedimentos para a criação de um relatório utilizando o QuickReport. Obs.: Para instalar o QuickReport no Delphi 7, escolha Components ->Install Packages..., clique no botão Add e selecione o arquivo C:\Arquivos de programas\Borland\Delphi7\Bin\dclqrt70.bpl Procedimentos a serem executados:
Clique em File->New->Form para criar a tela do relatório.
Mude o name para FrmRelCliCid e salve a unit como UQRRelCliCid.
Clique em File->Use Unit e selecione a unit UCadCliente
Selecione a guia QReport e insira um componente QuickRep
Escolha na propriedade DataSet a query FrmCadCliente.QueryClientes
Dê duplo-clique no componente e defina as propriedades do relatório. Marque todas as bandas, exceto Title e Summary.
Acrescente 04 componentes QRLabel (rótulo em relatório) e altere respectivamente suas propriedades Caption para : Relatório de Clientes por Cidade, Código, Nome, Cidade.
Acrescente 03 componentes QRDBText (conteúdo de campos de banco de

Excluído: Quebra de página Sintaxe e exemplos dos comandos básicos de SQL:¶ ¶ Selecionar (Select)¶ SELECT ] FROM [WHERE ] [ORDER BY ]¶ Ex.:¶ SELECT * FROM FUNC WHERE FUNSALARIO <= 500 ORDER BY FUNNOME¶ Seleciona todos os funcionários cujo salário seja menor ou igual a 500 por orde de nome.¶ Pesquise as funções agregadas (SUM, AVG, MAX, MIN, etc) e cláusulas GROUP BY ¶ Inserir (Insert)¶ INSERT INTO ... [87] Excluído: ¶ Excluído: Excluído: ¶ Formatados: Marcadores e numeração Excluído: UCliCidade Formatados: Marcadores e numeração Excluído: QueryClientes

dados a serem exibidos no relatório) e altere a propriedade DataSet (tabela) para FrmCadCliente.QueryClientes, e a propriedade DataField respectivamente para CliCodigo, CliNome e CliCid.
Acrescente 02 componentes QRSysData e altere suas propriedades Data

Excluído: dm. QueryClientes

Formatado: Fonte: (Padrão) Arial, 11 pt

para qrsDateTime, qrsPageNumber . Sua tela deverá ficar assim:

Excluído: Formatados: Marcadores e numeração Excluído: ade


Para testar o relatório clique com o botão direito do mouse sobre o QuickRep e escolha Preview. Salve o relatório como URelCliCid.
Para chamar o relatório digite os comandos abaixo no botão Imprimir da

Excluído: rmRelCliCid Formatado: Fonte: Não Negrito Formatado: Fonte: Negrito Formatado: Fonte: Negrito, Itálico

tela FrmCadCliente:

Formatado: Recuo: À esquerda: 1,25 cm

FrmPesCliCid.ShowModal;

Formatado

FrmRelCliCid.QuickRep1.Preview;

37

Formatado: Fonte: Não Negrito

... [88]

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Como criar um relatório no Rave Reports? Excluído: ¶

Este tópico vai ensinar os procedimentos para a criação de um relatório Excluído: Este tópico vai ensinar os procedimentos...para [89]

utilizando o Rave Reports.

Excluído: ¶ <#>Para preparar os objetos ... [90] guia Rave Formatados: Marcadores e numeração

Procedimentos a serem executados:


Selecione a tela FrmCadCliente.
Acesse a guia Rave e insira um componente RvDataSetConnection

,

Formatados: Marcadores e numeração

que é responsável pela conexão com o banco de dados. Mude a

Formatado: Fonte: (Padrão) Arial, 11 pt, Negrito

propriedade Name para RvDtCnCliente. Configure a propriedade DataSet

Formatado: Fonte: Não Negrito

selecionando o nome da tabela ou query. Neste exemplo, escolha a query QueryClientes.

Excluído: (tab_Clientes) do relatório Excluído: Query


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

Excluído: Mude Name para RvDtCnCliente. Formatados: Marcadores e numeração Formatado: Fonte: (Padrão) Arial, 11 pt, Negrito

gerenciamento do relatório. Mude Name para RvPrjCliente. Ajuste as

Formatado

propriedades Engine para RvSysCliente.

Excluído:


Dê um duplo clique no componente RvPrjCliente, ou, escolha Tools->Rave Designer, para abrir o Rave em sua área de Design.

... [91]

Formatado: Fonte: (Padrão) Arial, 11 pt, Negrito Excluído: Mude Name para RvPrjCliente. Formatados: Marcadores e numeração Formatado: Fonte: (Padrão) Arial, 11 pt

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

Excluído: Formatados: Marcadores e numeração Excluído: Quebra de página

botão Finish.

Excluído: RvQryClientes

38

Excluído: Curso Extracurricular: ... [92]

Excluído: 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

Formatado

... [93]

Excluído: RvQryClientes Formatados: Marcadores e numeração ... [94] Excluído: . Excluído: Todas bandas

á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

Excluído: dentro de um ... [95] Excluído: O Region deve... [96] Excluído: , Excluído: .¶ Excluído: três

04 Text Component (guia Standard) e altere a propriedade Text dos

Excluído: para

mesmos para Relatório de Clientes, Nome, Endereço, Cidade. Use a

Excluído: onde estão

propriedade Font e ajuste a seu critério, tamanho, estilo, dentre outros

Excluído: . Excluído: Para adicionar

atributos da fonte.

Excluído: tecle


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

Excluído: Repita esse ... [97] Formatados: Marcadores e numeração ... [98] Excluído: .

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.

Excluído: Formatado: Centralizado Formatado

... [99]

Formatados: Marcadores e numeração ... [100] Excluído: esse Excluído: e 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.

39

Excluído: para Excluído: Excluído: . Formatado

... [101]

Formatado

... [102]

Formatado: Fonte: Itálico Excluído: oject1 Excluído: na tela de cadastro ... [103] Formatado: Fonte: Itálico

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein Excluído: <#>No componente RvProject1, aponte a propriedade ProjectFile para o projeto Rave que acabamos de criar Clientes.RAV.¶

40

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

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 Excluído: ¶

a linguagem do Rave Reports.

Excluído: ¶

Procedimentos a serem executados:
Acesse a guia Rave e insira um componente RvSystem

, que será

Formatado: Fonte: (Padrão) Arial, 11 pt, Negrito

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

Excluído: Siga os mesmos procedimentos do tópico anterior sobre Rave Reports Excluído: Digite Formatados: Marcadores e numeração Excluído: no

begin

Formatado: Sem sublinhado

With RvSysCliente do

Formatado: Fonte: Negrito, Itálico

begin SystemPrinter.Units

Excluído: ¶

:= unCM; //unidades em centímetro

SystemPrinter.UnitsFactor := 2.54; // Fator para conversão polegada SystemPrinter.Orientation := poPortrait; // Modo Retrato SystemPreview.RulerType

Formatado: Inglês (EUA) Excluído: RvSysCadCliente Excluído:

:= rtBothCm; // medidas da régua em cm

//SystemSetups := SystemSetups - [ssAllowSetup]; remove tela de setup SystemPreview.FormState := wsMaximized; // tela relatório maximizada

Formatado: Português (Brasil) Excluído: Formatado: Português (Brasil)

Execute; // executa o relatório end;

Excluído: Formatado: Inglês (EUA)

end else

Excluído: end;

ShowMessage ('Nenhum Registro Encontrado.');

Formatados: Marcadores e numeração Formatado: Português (Brasil)


No evento OnBeforePrint do objeto RvSysCliente digite: With RvSysCliente .BaseReport do

Excluído: RvSysCadCliente Excluído: FONTE_NOME Excluído: FONTE_TAM

begin

Excluído: LETTER

FontName := ’Arial’; //define a fonte como Arial

Excluído:

FontSize := 11;//define o tamanho da fonte para 11

Formatado: Português (Brasil)

Bold := false; // desabilita o estilo de fonte negrito

Excluído: ¶ ¶ ¶ ¶ ¶

SetPaperSize(DMPAPER_A4, 0, 0); //ajusta tamanho do papel end;

Formatados: Marcadores e numeração

41


No evento OnPrint do objeto RvSysCliente digite: With RvSysCliente.BaseReport do

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein Excluído: ¶ Excluído: RvSysCadClient e

begin QueryClientes.First; // vai para o primeiro registro da query

Formatado: Português (Brasil)

While (not QueryClientes.Eof) do // enquanto não for fim de arquivo

Excluído: Dm.QryCadClient e

begin

Excluído: Dm.QryCadClien te

Lin := 1; // Declarar variável Lin com o tipo Real e escopo global Cab_RelCadCliente; // chama a procedure cabeçalho do relatório While (not QueryClientes.Eof) and (Lin <= 29) do begin

Excluído: Dm.QryCadClien te Formatado: Português (Brasil)

Det_RelCadCliente; // chama a procedure detalhe do relatório QueryClientes.Next; //vai para o próximo registro

Excluído: Dm.QryCadClient e

end; if not QueryClientes.Eof then

Excluído: Dm.QryCadClien te

NewPage; // insere uma nova página ao relatório Formatado: Português (Brasil)

end; Lin := Lin - 0.2; MoveTo(0.7,Lin); //move o cursor para a coluna e linha indicados LineTo(20.5,Lin);//traça uma linha até posição coluna x linha indicada.

Excluído: 6

Lin := Lin + 0.5; end;


Crie as procedures a seguir para imprimir cada banda do relatório: procedure TFrmCadCliente.Det_RelCadCliente; // Detalhe do relatório

Formatado: Com marcadores + Nível: 1 + Alinhado em: 1,88 cm + Tabulação após: 2,52 cm + Recuar em: 2,52 cm

begin with RvSysCliente .BaseReport do begin

Excluído: parte Excluído: ¶ Excluído: ¶

Gotoxy(0.7,Lin);//tabula coluna e linha no relatório

Excluído: RvSysCadCliente

Print (QueryClientesCliNome.AsString); // Imprime Nome do cliente

Formatado: Inglês (EUA) Excluído: Dm.QryCadCliente

Gotoxy(6.5,Lin);

Excluído: _

Print (QueryClientesCliNumFone.AsString);

Excluído: Dm.QryCadCliente

Gotoxy(10,Lin);

Excluído: _

Print(QueryClientesCliCid.AsString);

Excluído: Tel1

Lin := Lin + 0.5; Formatado: Tabulações: 9,11 cm, Centralizado

end; end;

Formatado: Inglês (EUA)

42

procedure TFrmCadCliente.Cab_RelCadCliente; // Cabeçalho

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

begin

Excluído: TFrmCadCli

with RvSysCliente .BaseReport do

Excluído: do relatório Formatado: Inglês (EUA)

begin

Excluído: RvSysCadCliente

Gotoxy(0.7,Lin); // Declarar variable Lin com o tipo Real e escopo global Print(‘Data:’ + FormatDateTime('dd/mm/yyyy " – Hora:" hh:mm:ss',now));

Excluído: Formatado: Português (Brasil)

Bold := False; Gotoxy(18,Lin); // tabula coluna e linha de impressão

Excluído: 24

Print('Pág.:'+Macro(midCurrentPage)+'/'+Macro(midTotalPages)); Bold := True; //define estilo da fonte para negrito

Formatado: Inglês (EUA) Formatado: Português (Brasil)

Gotoxy(08,Lin);

Excluído: 13

Print('Empresa XYZ’); // Escreve dados no relatório Lin := Lin + 0.5; Excluído: 13

Gotoxy(08,Lin); Print('Relatório de Clientes');

Formatado: Inglês (EUA)

Lin := Lin + 0.5; Gotoxy(0.7, Lin); Formatado: Inglês (EUA)

Lin := Lin + 0.5; Gotoxy(6,Lin); MoveTo(0.7,Lin);

Excluído: 6

LineTo(20.5,Lin); Lin := Lin + 0.5; Gotoxy(0.7,Lin); Print ('Nome'); Gotoxy(6.5,Lin); Print ('Fone'); Gotoxy(10,Lin); Print('Cidade'); Lin := Lin + 0.2; MoveTo(0.7,Lin); LineTo(20.5,Lin); Lin := Lin + 0.5; Bold := False;

Excluído: ¶

end; end;

43

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:

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein Excluído: ¶ ¶ ¶ ¶ ¶ ¶ ¶ ¶ ¶ Excluído: . Excluído: ¶


Digite o comando Try

Excluído: Quebra de página


Digite a seqüência de comandos desejada

Formatado: Fonte: 16 pt


Utilize a palavra Finally e logo a seguir os comandos que deverão ser

Excluído: Como criar discos de instalação para a aplicação?¶ ¶ Este tópico vai ensinar os procedimentos para criar discos de instalação da ... [104] aplicação utilizando o Formatado: Fonte: 16 pt

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

Formatado: Fonte: Não Itálico

deverão ser executados caso seja levantada alguma exceção, ou seja,

Formatado: Fonte: Não Itálico

tenha ocorrido um erro. Geralmente utilizamos este recurso para alertar o

Formatado: Fonte: Não Itálico

usuário a respeito do erro e fazer os ajustes necessários ao sistema.

Formatado: Fonte: Não Itálico Formatado: Fonte: Não Itálico


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;

Excluído: Para ter... [105] certeza de que tudo Excluído: validar dados e Excluído: Quebra de página Excluído: para validar dados e Excluído: Para validar dados Excluído: reservada Formatados: Marcadores e numeração ... [106] Excluído: ¶ Formatado: Português (Brasil) Formatado: Inglês (EUA) Excluído: ¶ Formatado: Português (Brasil) Formatado: Português (Brasil) Excluído: tab_Clientes Formatado: Português (Brasil) Excluído: tab_Clientes Formatado: Português (Brasil) Excluído: tab_Clientes Formatado: Português (Brasil)

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.

44

Formatado: Sublinhado Excluído: bs Excluído: a

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Como criar campos calculados?

Excluído: ¶

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.

... [107]

Excluído: ¶ Excluído: ¶ Excluído: ¶ Excluído: ¶ Excluído: ¶

Procedimentos a serem executados:
Visualize a tela de DataModule do Sistema, ou qualquer tela que possua o objeto ADOTable. [Shift] + [F12]

Excluído: ¶ Excluído: Quebra de página Excluído: ¶


Dê duplo-clique sobre o objeto TADOTable desejado. Para nosso exemplo,

Excluído: .¶ Excluído: DetalheNota

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

Excluído: em Excluído: ,

escolha o tipo do mesmo em Type.
Em Field Type marque o tipo do campo como Calculated.

Excluído: DetTotal


Para que seja criado um campo Total para calcular o total do produto

Excluído: ItVe_

vendido, deixe sua tela conforme o modelo a seguir:

Excluído: de DetQtde * Excluído: DetValor, Excluído: ¶ Formatado

... [108]


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

Excluído:

da tabela tab_ItemVenda, digite:

Excluído: ¶

dm.tab_ItemVendaTotal.Value := dm.tab_ItemVendaItVeQtde.Value *

Excluído: você deve incluir o

(dm.tab_ItemVendaItVeValorUnitario.Value – dm.tab_ItemVendaItVeDescontoItem.Value);
Na tela FrmCadItemVenda dê um duplo-clique sobre o DBGrid1. Insira um

Excluído: que irá gerar... o seu [109] Excluído: Digite a seguinte ... [110] Excluído: DetalheNota Excluído: : Excluído: DetTotal

novo campo, clicando sobre o botão

. Selecione a coluna TColumn e

mude a propriedade Fieldname da mesma para Total.

Excluído: DetQtde Excluído: DetValor Formatados: Marcadores e numeração ... [111] Formatado

45

... [112]

Como criar campos Lookup?

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein Excluído: ¶ Quebra de página

Este tópico vai ensinar os procedimentos para criar campos lookup, que

Excluído: ¶

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, Excluído: ItensProdutos

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.

Excluído: em Excluído: , Excluído:


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:

Excluído: ¶ Formatado: Fonte: (Padrão) Arial, 11 pt, Negrito


Clique sobre o botão [OK]

Excluído:


Acrescente o campo criado ao DBGrid da tela de Produtos, ou, arraste-o

Excluído: Como exemplo de uso do campo Lookup que acabamos de criar,

junto aos demais campos na tela, como já foi feito com os outros campos da

Excluído: a

mesma. Crie campos Lookup nas tabelas Tab_ItemVenda (Produto), Tab_Venda (Cliente) e adicione-os aos respectivos DBGrids e telas.

Excluído: Excluído: Itens de Excluído: para a Excluído: mesma Excluído: daquela tela.

46

Como exportar / importar dados com Delphi/Excel? Este tópico vai mostrar os comandos necessários para exportar / importar

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein Excluído: ¶

... [113]

dados do Delphi para o Excel e vice-versa. Excluído: Acrescente o...nome [114] Formatado

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:

... [115]

Excluído: em que for exportar ... [116] Excluído: <#>Declare uma ... [117] Excluído: Faça a adaptação ... [118]

procedure TFrmCadCliente.BtnPlanilhaClick(Sender: TObject);

Formatado: Fonte: Negrito

var Pasta : Variant; // este tipo aceita qualquer tipo de informação, inclusive Objeto OLE

Formatado

... [119]

Formatado

... [120]

Formatado

... [121]

dm.tab_clientes.Filtered := False;

Formatado

... [122]

Linha := 2;

Formatado

... [123]

Formatado

... [124]

Formatado

... [125]

Formatado

... [126]

Formatado

... [127]

Formatado

... [128]

Formatado

... [129]

Formatado

... [130]

Formatado

... [131]

Formatado

... [132]

Formatado

... [133]

Formatado

... [134]

Formatado

... [135]

Formatado

... [136]

Formatado

... [137]

Formatado

... [138]

Formatado

... [139]

Formatado

... [140]

Formatado

... [141]

Formatado

... [142]

Linha : Integer; begin

Pasta := CreateOleObject('Excel.Application'); // cria uma aplicação do Excel Pasta.WorkBooks.Add(1); // adiciona uma pasta do Excel Pasta.Caption := 'Cadastro de Clientes'; // Título da planilha Pasta.Visible := False; // Deixa a planilha invisível Pasta.Cells[1,1] := 'Cliente'; // insere o conteúdo ‘Cliente’ na célula A1 Pasta.Cells[1,2] := 'Cidade'; // insere o conteúdo ‘Cidade’ na célula A2 Pasta.Cells[1,3] := 'Fone'; // insere o conteúdo ‘Fone’na célula A3 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 Pasta.Cells[Linha,1] := dm.Tab_ClientesCliNome.Value; Pasta.Cells[Linha,2] := dm.Tab_ClientesCliCid.Value; Pasta.Cells[Linha,3] := dm.Tab_ClientesCliNumFone.Value; Linha := Linha + 1; // Incrementa a variável Linha em 01 dm.tab_Clientes.Next; //vai para o próximo registro da tabela de clientes end; Pasta.Columns.AutoFit; // Faz auto ajuste das colunas do Excel Pasta.WorkBooks[1].Sheets[1].Protect(DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:='1234'); // Coloca Senha de Proteção na Planilha 01 If SaveDialog1.Execute then // O componente SaveDialogs está na paleta Dialogs Pasta.WorkBooks[1].SaveAs(SaveDialog1.FileName); // Salva a Planilha (Salvar como) Pasta.Visible := True; //Deixa a planilha visível Finally

Excluído: ¶ Excluído: ¶ Comandos básicos: Excluído: ¶

... [143]

Excluído: Para criar uma ... [144] aplicação Pasta Excluído: Planilha

dm.tab_Clientes.EnableControls; // sempre será executada essa linha

Excluído: .WorkBooks.Add(1) ... [145] ;¶ Excluído: Linha

Pasta := Unassigned;

Excluído: ,

end;

Excluído: Coluna

end;

Excluído: Coluna] := ... [146] Excluído: ¶

47

Excluído: ¶ ... [147] eliminar a objeto OLE da

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Como utilizar uma Unit não vinculada a forms? Este tópico vai ensinar os procedimentos para utilizar units não vinculadas a

Excluído: ¶

forms para criar um arquivo de funções e procedimentos comuns à aplicação. Procedimentos a serem executados:


File -> New -> Unit para acrescentar uma unit nova não vinculada a tela na aplicação. Para acessá-la de outros locais, use [Ctrl] + [F12].


File -> Save para salvar a Unit1.pas como UFunProGeral.pas
Uma tela aparecerá, como a do modelo a seguir: Formatado: Fonte: 11 pt

A seção Unit possui o nome da unit gravada no disco (*.pas) Na seção interface declare as funções e procedimentos de uso comum. Na seção Implementation implemente tudo o que foi declarado na interface.

Excluído: devem ser declaradas Excluído: devem ser implementadas todas a funções e procedimentos declarados na seção interface. Excluído: declado Formatado: Fonte: (Padrão) Arial, 11 pt

Excluído: utilizadas

Para que as funções e procedimentos criados na nova Unit possam ser utilizados, informe o nome da mesma na cláusula uses de cada unit em que os mesmos forem solicitados. Aproveite este momento para pesquisar ou criar procedures e funções que possam ser utilizadas em vários pontos do sistema e acrescente-as à Unit UFunProGeral.pas

48

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Como utilizar uma DLL?

Excluído: ¶

Este tópico ensinará como criar uma DLL - biblioteca de ligação dinâmica.

Excluído: vai ensinar os procedimentos par Excluído: a utilizar Excluído: para criar uma

Procedimentos a serem executados:
File -> Close All

Excluído: com funções comuns a várias aplicações.


File->New->Other->DLL Wizard

Excluído: ¶


Apague o comentário após a linha Library Project2;

Formatados: Marcadores e numeração


Digite as funções que farão parte da DLL e deixe-a da seguinte maneira:

Formatados: Marcadores e numeração

Library DLLCurso;

Formatados: Marcadores e numeração

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

Formatados: Marcadores e numeração Excluído: '

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:

Formatados: Marcadores e numeração

Function Triplo(N: Integer): Integer; external ‘C:\Sistema\DLLCurso.dll';

Excluído: P_DLL

Function Dobro(N: Integer): Integer; external ‘C:\Sistema\DLLCurso.dll';

Excluído: P_DLL


Chame cada função no evento OnClick dos botões, passando como

Formatados: Marcadores e numeração

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 Excluído: ¶

49

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

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.

Excluído: um Excluído: por

Excluído: ¶

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.

Formatados: Marcadores e numeração

Dm.Conexao.Connected := False;

Excluído: 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.

Dm.Conexao.ConnectionString Dm.Conexao.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +

Excluído: A


Acrescente as próximas linhas de comando no programa principal (*.dpr), logo após a criação da tela DM do sistema:

ExtractFilePath(Application.ExeName)+

Excluído: <#>¶

'Banco 'Banco.mdb;Persist Banco.mdb;Persist Security Info=False;';

Excluído: seguir a Excluído: DataModule

Dm.Conexao.Connected := True;

Excluído: ¶ Excluído: Vendas

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

Excluído: Vendas

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.

50

Formatados: Marcadores e numeração

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Como criar um sistema de ajuda? Excluído: ¶

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).

Excluído: (quebra de página = [Ctrl] + [Enter], conforme exemplo a seguir.

Formatado: Fonte: (Padrão) Arial, 11 pt, Negrito

Excluído:


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-evirgula (;).

51

+ (ordem): valor numérico que define o número de ordem da apresentação

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

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 ( Introdução, por

Excluído: digitada Excluído: palavra Excluído: que será identificada

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

Excluído:

identificador, conforme a tela a seguir: Formatado: Fonte: (Padrão) Arial, 11 pt


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,

Excluído: . Excluído:

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

Formatado: Fonte: Negrito Excluído: a,

salve o seu documento como Ajuda.rtf.
Na pasta C:\Arquivos de programas\Borland\Delphi7\Help\Tools, execute o programa HCW.exe (Help WorkShop).
Crie o arquivo de conteúdo no Help WorkShop: File->New-> Help Contents e digite na caixa Default filename (and Windows) o nome do arquivo Ajuda.hlp. Para inserir um cabeçalho, clique sobre o botão Add Above,

52

Excluído: .

selecione Heading e digite na caixa Title: Sistema Comercial versão 1.0 e

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

clique em OK.

Excluído: ¶


Digite cada tópico do cabeçalho clicando sobre o botão Add Below, escolhendo a opção Topic. Como modelo, digite na caixa Title: Introdução ao Sistema Comercial, e na caixa Topic Id digite Intro, que corresponde à

Formatado: Fonte: Negrito

nota de rodapé usada para o marcador # no arquivo Ajuda.rtf. Faça o mesmo para os demais tópicos.
Salve o arquivo de contexto como Ajuda.cnt

Formatados: Marcadores e numeração


Crie o arquivo de projeto no Help WorkShop: File->New-> Help Project

Excluído: .


Digite o nome do arquivo Ajuda e clique sobre o botão salvar.
Na nova janela do Help WorkShop clique sobre o botão Options, escolha a guia General e digite na caixa Help Title: Ajuda do Sistema Comercial.

Excluído: File


Selecione Files, clique sobre o botão Change.
Clique sobre o botão Add, selecione o arquivo Ajuda.rtf e clique em Abrir.
Selecione Files, clique sobre o botão Browse em Contents File.
Selecione o arquivo Ajuda.cnt e clique em Abrir.
Para finalizar clique no botão OK e observe as mudanças realizadas, na área de trabalho do Help WorkShop.
Clique no botão Save and Compile para salvar e compilar o projeto.
Teste o arquivo: File -> Run WinHelp -> View Help.
Para vincular o Help à sua aplicação clique em File->Open e abra o

Excluído: com Formatado: Inglês (EUA)

arquivo Ajuda.hpj e clique sobre o botão Map e logo em seguida sobre o botão Add.
Na caixa Topic Id digite Intro. Na caixa Mapped numeric value digite 1 e clique sobre o botão OK. Siga o mesmo modelo para as demais opções e recompile o projeto. Feche o Help WorkShop.
No Delphi, em seu sistema, para cada objeto que deverá acionar o respectivo tópico de ajuda através da tecla [F1], selecione-o, e na propriedade HelpContext digite o número de identificação do tópico. Como modelo selecione a tela principal do sistema e altere a propriedade HelpContext para 1. Faça o mesmo para os demais tópicos.
Indique ao sistema o arquivo de ajuda a ser utilizado clicando sobre Project -> Options, e, na guia Application, selecione o arquivo Ajuda.hlp através

Formatado: Fonte: Negrito Excluído: e selecione

do botão Browse da caixa de texto Help File. Clique sobre o botão OK.
Execute a aplicação e sobre o objeto específico tecle [F1] para testar a

Excluído: , o arquivo Ajuda.hlp Excluído: e c

ajuda.

Excluído: no menu principal

53

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Como criar discos de instalação para a aplicação? Este tópico vai ensinar os procedimentos para criar discos de instalação da aplicação utilizando o programa InstallShield. Este programa acompanha as versões Professional e Enterprise do Delphi. Antes de executar os procedimentos deste tópico tenha certeza de que o InstallShield já tenha sido instalado em seu computador. Procedimentos a serem executados:
No Windows clique Iniciar -> Programas -> InstallShield -> Express para

Formatados: Marcadores e numeração

carregar o InstallShield
No InstallShield clique na opção “Create a new Project”.
Selecione a opção Blank Setup Project para criar uma instalação a partir do zero, manualmente.
Clique no botão “Browse...” da caixa de texto “Project Name and Location” e na janela “Select Filename” escolha a pasta onde será armazenado o arquivo de instalação, digite o nome do arquivo e clique no botão Salvar.
Ao retornar à tela do InstallShield, clique sobre o botão Create.
Na 1ª Etapa – “Organize your Setup”, clique sobre a opção “General Information” e defina as principais informações sobre o seu projeto, como: nome do produto, versão, código, nome do autor, etc.
Clique sobre a opção “Setup Types” para definir os tipos de instalação que estarão disponíveis ao usuário, como por exemplo, típica, mínima, personalizada. Desmarque as opções “&Minimal e Cu&stom”
Na 2ª etapa – “Specify Application Data”, clique sobre a opção “Files” e selecione os arquivos da aplicação (executáveis, banco de dados, ajuda, etc) em “Source Computer’s files” dentro de suas respectivas pastas selecionadas em “Source computer’s folders”. Logo em seguida arrasteos para o painel inferior “Destination computer’s files”
Clique sobre “Files and Features” para confirmar os arquivos selecionados para cada “Feature”.

54

Excluído: uma


Clique sobre a opção “Objects/Merge Modules” para selecionar o tipo da conexão usada em seu projeto, em nosso caso, marque a opção “ADO Data Control 6.0”
Na 3ª etapa – “Configure the Target System” clique sobre a opção “Shortcuts / Folders” para configurar o computador de destino, no que diz respeito a atalhos e pastas para a instalação dos arquivos.
Na 4ª etapa – “Customize the setup appearence”, clique sobre a opção “Dialogs” e selecione as seguintes opções: “Splash Bitmap, Install Welcome, 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.

55

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein Formatados: Marcadores e numeração

Como compactar o banco de dados do Access no Delphi?

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein Excluído: <sp>

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

Excluído: encontrar ajuda extra-cursoextracurso Excluído: na Web Excluído: algumas fontes de atualização extra-curso através da Web que auxiliarão o aluno a expandir seus conhecimentos sobre desenvolvimento de sistemas em delphiDelphi.

de banco de dados. Procedimentos a serem executados:

Excluído: Dicas de Sitessites e materiais


Acrescente um Panel invisível (Visible = False) na tela FrmMenuPrin.
Na Unit da tela FrmMenuPrin, acrescente a unit ComObj na sua cláusula

Formatados: Marcadores e numeração

Uses e crie a procedure abaixo: Procedure TFrmMenuPrin.Compactar; var dao: OLEVariant; begin Panel1.Visible := True; Dm.Conexao.Connected := False; Try Panel1.Caption:='Compactando Tabela'; Panel1.Repaint; dao := CreateOleObject('DAO.DBEngine.36'); dao.CompactDatabase(ExtractFileDir (Application.ExeName)+'\Banco.mdb', ExtractFileDir(Application.ExeName)+'\Banco2.mdb','',0,''); Panel1.Caption:='Apagando Arquivo Temporário'; Panel1.Repaint; If FileExists(ExtractFileDir (Application.ExeName)+'\Banco2.mdb') then DeleteFile(ExtractFileDir (Application.ExeName)+'\Banco.mdb'); Panel1.Caption:='Renomeando Arquivo'; Panel1.Repaint; if FileExists(ExtractFileDir (Application.ExeName)+'\Banco2.mdb') then RenameFile(ExtractFileDir(Application.ExeName)+'\Banco2.mdb', ExtractFileDir (Application.ExeName)+'\Banco.mdb'); Panel1.Caption:='Arquivo Banco.mdb Compactado'; Panel1.Repaint; Except panel1.caption:='Ocorreu um Erro durante a compactação'; end; Dm.Conexao.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ ExtractFilePath(Application.ExeName)+ 'Banco.mdb;Persist Security Info=False;'; Dm.Conexao.Connected := True; Panel1.Visible := False; end;


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;

Formatados: Marcadores e numeração Formatado: Português (Brasil) Excluído: ¶ :¶ Fóruns:¶ ¶ ¶ Sobre Delphi:¶ ¶ ¶ Materiais didáticos:¶ ¶ ¶ Sistemas de exemplo: ¶ ¶ ¶ Tutoriais:¶ ¶ ¶ Outras dicas:¶ ¶ ¶ Livros, revistas, etc.¶ <sp> ¶ Excluído: ¶ Excluído: ¶

56

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

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.

Formatados: Marcadores e numeração


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 Formatado: Fonte: (Padrão) Arial, 11 pt, Negrito

Selecione o DriveComboBox1 e altere sua propriedade DirList, para DirectoryListBox1 para que os dois fiquem associados.


Digite os comandos abaixo no evento OnClick do botão Confirma: If MessageDlg('Antes de confirmar esta operação, feche o banco de dados' + #13 + #13 + 'Deseja efetuar ' + RadioGroup1.Items[RadioGroup1.ItemIndex] + '?', mtConfirmation, [mbYes, mbNo],0) = mrNo then Abort; Try Animate1.Visible := True; Animate1.Active := True; //ativa a animação If RadioGroup1.ItemIndex = 0 then begin FrmMenuPrin.Compactar; Copia(ExtractFilePath(Application.ExeName)+'\Banco.mdb', DirectoryListBox1.Directory); end; If RadioGroup1.ItemIndex = 1 then // se a segunda opção do RadioButton for escolhida begin Dm.Conexao.Connected := False; // Desconecta o banco de dados Copia(DirectoryListBox1.Directory + '\Banco.mdb', ExtractFilePath(Application.ExeName)); Dm.Conexao.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'\Banco.mdb;Persist Security Info=False;Jet OLEDB:Database Password=senha'; // monta a string de conexão ao banco de dados Dm.Conexao.Connected := True; // Conecta o banco de dados end; Finally Animate1.Visible := False; Animate1.Active := False; MessageDlg('Operação concluída.', mtInformation, [mbOk], 0); End;

57

Formatado: Fonte: Negrito Formatado: Fonte: Negrito Formatado: Fonte: Negrito, Itálico Formatado: Fonte: 10 pt

Formatados: Marcadores e numeração

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein


Faça referência à unit UFunProGeral na cláusula Uses da unit da tela

Formatados: Marcadores e numeração

FrmBkpRst:
Crie uma procedure denominada Copia, na unit UFunProGeral, conforme

Formatados: Marcadores e numeração

mostrada a seguir:

Procedure Copia(Origem, Destino: String); var FileOpInfo: TSHFileOpStruct; begin With FileOpInfo Do Begin Wnd := Application.Handle; wFunc := FO_COPY; pFrom := Pchar (Origem+#0+#0); pTo := Pchar (Destino); fFlags := FOF_WANTMAPPINGHANDLE; end; SHFileOperation (FileOpInfo); ShFreeNameMappings (GlobalHandle(FileOpInfo.hNameMappings)); end;


Faça referência à unit ShellAPI na cláusula Uses da unit UFunProGeral.

Formatados: Marcadores e numeração


Chame e tela FrmBkpRst no Evento OnExecute da ação ActBkpRst.

Excluído: <sp>

58

Como criar um gráfico no Delphi?

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Este tópico vai mostrar como criar gráficos estatísticos no Delphi, como por exemplo, gráfico de barras, verticais, de pizza, etc. Procedimentos a serem executados:
Crie uma tela nova no sistema, altere as propriedades Name = FrmGrafico e

Formatados: Marcadores e numeração

Caption = Gráfico de Clientes por Cidade.
Insira um objeto Chart (Additional) à tela. Altere as propriedades Name = chtGrafico, Align = alClient e dê um duplo-clique sobre o mesmo.
Escolha o tipo de gráfico a ser utilizado: Bar (Barras). Para isto, clique nas guias Chart, Series e nos botões Add (Desmarque a opção 3D) e OK.
Clique no botão Titles e altere o título da série para Cidades.
Selecione a guia Titles e digite o título do gráfico: Clientes por Cidade, na caixa de texto e selecione o Alignment = Center .
Clique no botão Close.
Faça referência à unit da tela DM. File -> Use Unit (UDM)
Insira um objeto ADOQuery à tela e altere as propriedades: 

Name: QCliCid



Connection: Dm.Conexao



SQL: Select Count(*) as Qtde, CliCid From Clientes Group By CliCid


Dê duplo-clique na query QCliCid e tecle [Ctrl] + [F] para inserir os campos.
Copie o botão Btn_Imprimir da tela FrmCadCliente para a tela FrmGrafico.
Insira um componente PrintDialog da guia Dialogs na tela FrmGráfico. A tela deverá ficar com a seguinte aparência: Excluído: <sp> Formatado: Fonte: (Padrão) Arial, 11 pt

59


No Object Inspector, selecione o objeto Series1 do gráfico chtGrafico:

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein Formatados: Marcadores e numeração Formatado: Fonte: (Padrão) Arial, 11 pt


Altere a propriedade Name para CliCid

Formatados: Marcadores e numeração


No evento OnShow da tela FrmGrafico, digite os seguintes comandos: CliCid.Clear; chtGrafico.Title.Text.Clear; chtGrafico.Title.Text.Add('Gráfico Clientes por Cidade’); Formatado: Inglês (EUA)

QCliCid.Open; While (not QCliCid.Eof) do

Formatado: Inglês (EUA)

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

Formatados: Marcadores e numeração Formatado: Português (Brasil)

begin chtGrafico.BackColor := clWhite; chtGrafico.Print; end;


Acrescente um botão com Caption = Gráfico à tela FrmCadCliente e

Formatados: Marcadores e numeração

chame a tela FrmGráfico através dele. Formatado: Título 1;Título 1 Char Char, Controle de linhas órfãs/viúvas, Ajustar espaçamento entre texto latino e asiático, Ajustar espaçamento entre texto e números asiáticos, Tabulações: Não em 0,16 cm + 15,21 cm

60

Excluído: Curso Extracurricular: ... [148]

Excluído: da VCL –

Como criar um relatório de produtos em falta

... [149]

Excluído: Número Excluído: ¶ Excluído: ¶ ... [150] *AutoNumeraçãoNúmero Excluído: Número

Procedimentos a serem executados:


Acesse a guia ADO




Insira um componente ADOQuery




Altere as seguintes propriedades:

Excluído: Número Excluído: NúmeroNúmero Excluído: *AutoNumeraçãoN ... [151] úmeroNúmeroNúmero Formatado ... [152]

Name: QComprarProdutos Connection:ConexaoBanco SQL...: Select CatDesc, ProdNome, ProdQtdeEst From Categorias, Produtos Where CatCodigo = ProdCategoria And ProdQtdeEst <= :Qtde Active: True

Excluído: Número Excluído: ¶ ... [153] *AutoNumeraçãoFrmCadClie Formatado ... [154] Formatado

... [155]

Formatado

... [156] ... [157]




Dê um duplo-clique no objeto QComprarProdutos e tecle [Ctrl] +[F]

Excluído: Na tela FrmCadProdutos Formatado




Coloque um botao (Name = BtnProdFalta e Caption = "Relatório de Produtos em

Formatado

... [159]

Formatado

... [160]

Formatado

... [161]

Formatado

... [162]

Formatado

... [163]

Formatado

... [164]

Formatado

... [165]

Formatado

... [166]

Formatado

... [167]

Formatado

... [168]

Formatado

... [169]

Formatado

... [170]

Formatado

... [171]

Formatado

... [172]

Formatado

... [173]

Formatado

... [174]

Formatado

... [175]

Formatado

... [176]

Formatado

... [177]

Formatado


Crie um relatório no RAVE com o seguinte layout

... [178]

Formatado

... [179]

RELATÓRIO DE PRODUTOS PARA COMPRA

Formatado

... [180]

Categoria

Formatados: Marcadores e numeração ... [181]

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;

Nome do Produto

Qtde em Estoque

Formatado

XXXXXXXXX XXXXXXXXX XXXXXXXXX

XXXXXXXXXXXXXXX XXXXXXXXXXXXXXX XXXXXXXXXXXXXXX

99 99 99

Crie uma opção no menu Relatórios para executar e testar o relatório

Formatado

... [183]

Excluído: o programa ... [184]

Excluído: e Formatado

61

... [182]

Excluído: Execute

Formatado




... [158]

... [185]

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Como realizar algumas melhorias no sistema? Formatado: Normal

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;

Formatados: Marcadores e numeração

Formatado: Borda: Inferior: (Simples, Automática, 0,5 pt Largura da linha)

Formatados: Marcadores e numeração

Formatado: Inglês (EUA)


No evento OnBeforeAction do DbNavigator2 da tela FrmCadCliente, digite:

Formatados: Marcadores e numeração

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

Formatados: Marcadores e numeraçã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;

62

Formatados: Marcadores e numeração

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Como criar um objeto em tempo de execução?

Excluído: ¶ Formatado: Fonte: 11 pt

Este tópico vai mostrar como criar um objeto, a partir de uma classe existente, em tempo de execução. Procedimentos a serem executados:
Crie uma nova aplicação para teste

Formatados: Marcadores e numeração


Acrescente um botão à tela
Defina uma variável do tipo do objeto que deseja criar. Por exemplo, defina uma variável Edit1 do tipo TEdit. (Var Edit1 : TEdit) na área de definição global de variáveis, ou seja, antes da seção Implementation.
Crie uma instância do Edit1 e defina sua propriedade Parent como Self, digitando o seguinte código no evento OnClick de um botão: Edit1:= TEdit.Create(Self); // Diz que controle proprietário do Edit1 é ele mesmo Edit1.Parent := Self; // Diz que controle de origem do Edit1 é ele mesmo. Edit1.SetBounds(300,300,175,21); // Ajusta Left, Top, Width, Height do Edit1 Edit1.Font.Color := clNavy;

Edit1.Text := ‘Edit criado em tempo de execução.’;


Execute a aplicação para verificar o resultado.

Formatados: Marcadores e numeração


Insira um novo botão na tela e utilize os comandos seguintes para remover o objeto da tela e da memória, em tempo de execução:

Edit1.Free; // Método que elimina o objeto da memória. Edit1 := nil; // anula a referência ao ponteiro do objeto.


OBS: Pesquise mais sobre os conceitos de POO – Programação Orientada a Objetos do Delphi, tais como, classe, objeto, encapsulamento, polimorfismo, herança, etc. Conheça também a hierarquia de classes da VCL – Biblioteca de Componentes Visuais do Delphi, cuja classe principal é a TObject.

63

Formatados: Marcadores e numeração

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Como estruturar o banco de dados “Banco.MDB”

Formatado: Fonte: 16 pt

Obs: Todo campo precedido de um asterisco (*) deve ser configurado como chave primária na respectiva tabela. Tabela: Clientes Nome Campo

Tipo

*CliCodigo

AutoNumeração Texto Texto Texto Texto Texto Texto Texto Texto Texto Texto

CliNome CliEnd CliCep CliCid CliEst CliNumFone CliEmail CliDoc1 CliDoc2 CliContato

Tamanho 50 40 9 35 2 15 50 15 15 50

Tabela: Fornecedores Nome Campo

Tipo

*ForCodigo ForRazao ForEnd ForCid ForEst ForCep ForCont ForNumFone ForHomPag

AutoNumeração Texto Texto Texto Texto Texto Texto Texto Texto

Tamanho 40 40 35 2 8 35 15 50

Tabela: Funcionarios Nome Campo

Tipo

*FunCodigo

AutoNumeração Texto Texto Texto Texto Texto Texto Data/Hora Moeda

FunNome FunEnder FunCep FunCid FunEst FunNumFone FunDatAdm FunSalario

Tamanho 50 40 8 30 2 15

Tabela: Usuarios Nome Campo

Tipo

*UsuCodigo

AutoNumeração Texto Texto Texto Texto Número

UsuNome UsuApelido UsuSenha UsuDepto UsuNivel

Tamanho 50 15 7 15

Tabela: Categorias Nome Campo

Tipo

*CatCodigo CatDesc

AutoNumeração Texto

64

Tamanho 15

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

Tabela: Produtos Nome Campo

Tipo

*ProdID ProdCategoria ProdCodigo ProdNome ProdPrecoVenda ProdQtdeEst ProdUnidade ProdFornecedor

AutoNumeração Número Texto Texto Moeda Número Texto Número

Tamanho

7 50

5

Tabela: Venda Nome Campo

Tipo

*VendID VendCliente VendDt_venda VendValorProdutos VendDesconto VendAcrescimo VendFrete VendQtde

AutoNumeração Número Data/Hora Moeda Moeda Moeda Moeda Número

Tamanho

Tabela: ItemVenda Nome Campo

Tipo

*ItVeID

AutoNumeração Número Número Moeda Moeda Número

ItVeVenda ItVeProduto ItVeValorUnitario ItVeDescontoItem ItVeQtde

Tamanho

Formatado: Espaçamento entre linhas: simples, Sem controle de linhas órfãs/viúvas, Não ajustar espaço entre o texto latino e asiático, Não ajustar espaço entre o texto asiático e números, Tabulações: 0,16 cm, À esquerda + 15,21 cm, Direita

65

Excluído: Curso Extracurricular: Programador de Sistemas de Informação¶ Avançado paraCriada por Ronaldo Lavestein

DELPHI 7 PARA DESENVOLVIMENTO DE SISTEMAS

APOSTILA

CONTEÚDO: Delphi 7 para Desenvolvimento de Sistemas ELABORADA POR: Ronaldo Lavestein – Casa Branca - SP Formatado: Espaçamento entre linhas: simples, Sem controle de linhas órfãs/viúvas, Não ajustar espaço entre o texto latino e asiático, Não ajustar espaço entre o texto asiático e números, Tabulações: 0,16 cm, À esquerda + 15,21 cm, Direita

66

Página 3: [1] Excluído

Ronaldo

20/8/2005 18:23:00

ÍNDICE Como construir um sistema utilizando Delphi? .....................................................................2 Como criar uma nova aplicação no Delphi?...........................................................................3 Como salvar a aplicação no Delphi? ......................................................................................3 Como alterar as propriedades da tela?....................................................................................4 Como executar a aplicação no Delphi? ..................................................................................5 Como fechar a aplicação?.......................................................................................................5 Como inserir uma imagem na tela? ........................................................................................7 Como criar uma lista de ações? ..............................................................................................9 Como criar um menu de opções? .........................................................................................10 Como inserir uma lista de imagens?.....................................................................................11 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 alterar a Main Form do sistema?................................................................................21 Como criar uma tela padrão?................................................................................................22 Como criar uma tela manualmente na aplicação? ................................................................28 Como criar um relacionamento Master/Detail na aplicação?...............................................29 Como criar um relacionamento do tipo LookUp? ................................................................30 Como criar uma consulta chave parcial em uma tabela?.....................................................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? ......................................................................39 Como criar campos calculados? ...........................................................................................40 Como criar campos Lookup?................................................................................................41 Como exportar / importar dados com Delphi/Excel? ...........................................................42 Como utilizar uma Unit não vinculada a forms?..................................................................43 Como preparar um sistema para ser utilizado em rede?.......................................................45 Como criar um sistema de ajuda?.........................................................................................46 Como criar discos de instalação para a aplicação?...............................................................49 Como encontrar ajuda extracurso na Web?..........................................................................51 Quebra de página

Como construir um sistema utilizando Delphi? ....................................................................... Como criar uma nova aplicação no Delphi?...........................................................................3 Como salvar a aplicação no Delphi? ......................................................................................3 Como alterar as propriedades da tela?....................................................................................4 Como executar a aplicação no Delphi? ..................................................................................5 Como fechar a aplicação?.......................................................................................................5 Como inserir uma imagem na tela? ........................................................................................7 Como criar uma tela de Splash? .............................................................................................8 Como criar uma lista de ações? ..............................................................................................9 Como criar um menu de opções? .........................................................................................10

Como inserir uma lista de imagens?.....................................................................................11 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 alterar a Main Form do sistema?................................................................................21 Como criar uma tela padrão?................................................................................................22 Como criar uma tela manualmente na aplicação? ................................................................28 Como criar um relacionamento Master/Detail na aplicação?...............................................29 Como criar um relacionamento do tipo LookUp? ................................................................30 Como criar uma consulta chave parcial em uma tabela?.....................................................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 criar discos de instalação para a aplicação?...............................................................39 Como validar dados e tratar erros no Delphi? ......................................................................41 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 preparar um sistema para ser utilizado em rede?.......................................................47 Como criar um sistema de ajuda? 48 Como encontrar ajuda extracurso na Web?..........................................................................51

Página 3: [2] Excluído

Fernando

25/3/2005 23:48:00

Como construir um sistema utilizando Delphi? ....................................................................... Como criar uma nova aplicação no Delphi?...........................................................................3 Como salvar a aplicação no Delphi? ......................................................................................3 Como alterar as propriedades da tela?....................................................................................4 Como executar a aplicação no Delphi? ..................................................................................5 Como fechar a aplicação?.......................................................................................................5 Como inserir uma imagem na tela? ........................................................................................7 Como criar uma tela de Splash? .............................................................................................8 Como criar uma lista de ações? ..............................................................................................9 Como criar um menu de opções? .........................................................................................10 Como inserir uma lista de imagens?.....................................................................................11 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 alterar a Main Form do sistema?................................................................................21

Como criar uma tela padrão?................................................................................................22 Como criar uma tela manualmente na aplicação? ................................................................28 Como criar um relacionamento Master/Detail na aplicação?...............................................29 Como criar um relacionamento do tipo LookUp? ................................................................30 Como criar uma consulta chave parcial em uma tabela?.....................................................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 criar discos de instalação para a aplicação?...............................................................39 Como validar dados e tratar erros no Delphi? ......................................................................41 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 preparar um sistema para ser utilizado em rede?.......................................................47 Como criar um sistema de ajuda? 48 Como encontrar ajuda extracurso na Web?..........................................................................51 Quebra de página

Página 3: [3] Excluído

Ronaldo

15/7/2006 15:13:00

Crie as pastas onde serão gravados os arquivos de sua aplicação e banco de dados.

Após executarmos os procedimentos anteriores, já podemos iniciar a construção do nosso sistema utilizando o Delphi.

Observações: Para cada comando a ser executado será utilizada a barra de menu, ou quando existir, ou for mais conveniente, será utilizada 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, nem uma tecla de função ou combinação de teclas, o procedimento será solicitado através de uma linha de texto, como por exemplo, “Selecione a guia Additional na paleta de componentes do Delphi e insira um componente Image “. Página 6: [4] Excluído

RFL

Propriedades da tela

20/1/2005 20:34:00

Página 10: [5] Excluído

Ronaldo

3/9/2005 01:08:00

FrmSplash := TFrmSplash.Create(Application); {cria a tela} FrmSplash.Show; {exibe a tela FrmSplash} FrmSplash.Refresh; {dá um refresh na tela} Sleep(2000); // (aguarda 02 segundos) – inclua a unit SysUtils na cláusula Uses. FrmSplash.HideRelease;; {esconde Elimina a tela da memóriaa tela} FrmSplash := nil; Página 10: [6] Excluído

AdmFerRon

31/5/2005 16:26:00

Selecione a tela FrmMenuPrin, e em seu evento OnShow (executado quando a tela é mostrada pela primeira vez), digite o seguinte código:

.

FrmSplash Release; {elimina a tela da memória} FrmSplash:= nil; {atribui um valor nulo à tela} Ainda dentro do código fonte da aplicação, depois da seção Implementation, digite o comando Uses USplash; Página 1: [7] Excluído

Ronaldo

19/7/2006 23:43:00

Curso Extracurricular: Programador de Sistemas de Informação Avançado paraCriada por Ronaldo Lavestein Página 13: [8] Excluído

RFL

3/1/2005 13:43:00

por opções de menu, botões da barra de ferramentas do sistema, etc. Página 13: [9] Excluído

AdmFerRon

31/5/2005 16:51:00

da paleta de componentes Página 13: [10] Formatado

Ronaldo Lavestein

8/6/2006 02:12:00

Ronaldo Lavestein

8/6/2006 02:12:00

RFL

3/1/2005 13:34:00

Fonte: (Padrão) Arial, 11 pt Página 13: [11] Formatado

Fonte: (Padrão) Arial, 11 pt Página 13: [12] Excluído

Repita o passo anterior até inserir todas as imagens. Página 13: [13] Formatado

Ronaldo Lavestein

8/6/2006 02:13:00

RFL

3/1/2005 13:39:00

Ronaldo Lavestein

8/6/2006 02:13:00

RFL

3/1/2005 13:47:00

Fonte: (Padrão) Arial, 11 pt Página 13: [14] Alterar

Marcadores e numeração formatados Página 13: [15] Formatado

Fonte: (Padrão) Arial, 11 pt Página 13: [16] Excluído

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úmero

de

sua

respectiva

imagem

através

da

propriedade

ImageIndex.

Quebra de página

Página 13: [17] Alterar

RFL

3/1/2005 13:47:00

Marcadores e numeração formatados Página 15: [18] Excluído

Dejair Dorazio

26/9/2005 12:40:00

StatusBar1.Panels[1].Text := ' ' + FormatDateTime Página 15: [19] Excluído

Dejair Dorazio

26/9/2005 12:40:00

dddd", "dd" de "mmmm" de "yyyy',now); // Página 15: [20] Formatado

Ronaldo Lavestein

8/6/2006 02:13:00

Fonte: (Padrão) Arial, 8 pt, Inglês (EUA) Página 1: [21] Excluído

Ronaldo

19/7/2006 23:43:00

Curso Extracurricular: Programador de Sistemas de Informação Avançado paraCriada por Ronaldo Lavestein Página 19: [22] Excluído

AdmFerRon

31/5/2005 17:34:00

AdmFerRon

31/5/2005 17:33:00

AdmFerRon

31/5/2005 17:34:00

Página 19: [23] Excluído

Fernando

25/3/2005 23:29:00

Página 19: [23] Excluído

Fernando

25/3/2005 23:29:00

Ronaldo

4/9/2005 13:08:00

Ronaldo

4/9/2005 13:08:00

Ronaldo

4/9/2005 13:08:00

Ronaldo

4/9/2005 13:09:00

Ronaldo

19/7/2006 23:43:00

em Página 19: [22] Excluído

Next Página 19: [22] Excluído

>> \ Tabelas\ Página 19: [24] Excluído

User Name Página 19: [24] Excluído

Blank Password Página 19: [25] Excluído

telas Página 19: [25] Excluído

ao DataModule Página 1: [26] Excluído

Curso Extracurricular: Programador de Sistemas de Informação Avançado paraCriada por Ronaldo Lavestein Página 21: [27] Excluído

RFL

5/1/2005 15:14:00

Página 23: [28] Excluído

Dejair Dorazio

26/9/2005 12:53:00

Se você tentou executar o sistema até este ponto, deve ter percebido que a tela de login não apareceu. Uma das maneiras de fazer com que isto aconteça, é alterando a Main Form para a tela FrmLogin. Para isto siga os procedimentos abaixo: Página 24: [29] Formatado

Ronaldo

15/7/2006 14:07:00

Justificado, Espaçamento entre linhas: 1,5 linha, Com marcadores + Nível: 1 + Alinhado em: 1,9 cm + Tabulação após: 2,54 cm + Recuar em: 2,54 cm, Não manter com o próximo Página 24: [30] Excluído

Ronaldo

28/6/2005 10:31:00

Acrescente os objetos que irão compor a tela padrão conforme a lista a seguir. Lembre-se: Insira cada objeto e altere suas propriedades antes de inserir o próximo. (Deixe os tamanhos dos GroupBox proporcionais aos da figura)Acrescente 04 GroupBox (guia Standard) com Align = alTop 1º04 GroupBox, 01 Label (Standard), 01 Edit , 03 SpeedButton (Additional), 2º01 DBGrid, 3º02 DBNavigator (Data Controls).

Obs: O Name do Edit1 deverá ser

ValorCampo. O primeiro DBNavigator nao terá os botões nbPost, nbCancel e nbRefresh. Já o segundo deverá ter apenas os botões nbPost e nbCancel (propriedade +VisibleButtons)4 Página 1: [31] Excluído

Ronaldo

19/7/2006 23:43:00

Curso Extracurricular: Programador de Sistemas de Informação Avançado paraCriada por Ronaldo Lavestein Página 27: [32] Excluído

Dejair Dorazio

26/9/2005 14:09:00

de banco de dados, bem como apagar, editar, cancelar e salvar dados no registro atual da tabela Página 27: [33] Alterar

Ronaldo

5/9/2005 14:11:00

Marcadores e numeração formatados Página 27: [34] Excluído

Dejair Dorazio

26/9/2005 14:03:00

, conforme figura abaixo: Página 27: [35] Formatado

Ronaldo Lavestein

8/6/2006 02:14:00

Fonte: (Padrão) Arial, 11 pt Página 27: [36] Excluído

Dejair Dorazio

26/9/2005 14:00:00

Se o valor da propriedade Página 27: [37] Alterar

Ronaldo

5/9/2005 14:11:00

Marcadores e numeração formatados Página 27: [38] Excluído

Dejair Dorazio

26/9/2005 14:04:00

: o botão será exibido Página 27: [39] Formatado

Ronaldo Lavestein

8/6/2006 02:14:00

Ronaldo Lavestein

8/6/2006 02:14:00

Ronaldo Lavestein

8/6/2006 02:14:00

Ronaldo Lavestein

8/6/2006 02:14:00

Ronaldo Lavestein

8/6/2006 02:14:00

Ronaldo Lavestein

8/6/2006 02:14:00

Ronaldo Lavestein

8/6/2006 02:14:00

Ronaldo Lavestein

8/6/2006 02:14:00

Ronaldo Lavestein

8/6/2006 02:14:00

Fonte: (Padrão) Arial, 11 pt Página 27: [40] Formatado

Fonte: (Padrão) Arial, 11 pt Página 27: [41] Formatado

Fonte: (Padrão) Arial, 11 pt Página 27: [42] Formatado

Fonte: (Padrão) Arial, 11 pt Página 27: [43] Formatado

Fonte: (Padrão) Arial, 11 pt Página 27: [44] Formatado

Fonte: (Padrão) Arial, 11 pt Página 27: [45] Formatado

Fonte: (Padrão) Arial, 11 pt Página 27: [46] Formatado

Fonte: (Padrão) Arial, 11 pt Página 27: [47] Formatado

Fonte: (Padrão) Arial, 11 pt Página 27: [48] Formatado

Ronaldo

27/9/2005 12:43:00

À esquerda, Recuo: À esquerda: 0 cm Página 27: [49] Formatado

Ronaldo Lavestein

8/6/2006 02:14:00

Fonte: (Padrão) Arial, 11 pt Página 27: [50] Excluído

Ronaldo

27/9/2005 12:43:00

Ronaldo

4/9/2005 17:32:00

onde Página 31: [51] Excluído

selecione o nome do DataSource da tabela master (Ds_Tab_Venda, Ds_Notas em nosso exemplo), através da propriedade MasterSource. Página 31: [52] Excluído

Ronaldo

4/9/2005 17:34:00

Logo em seguida, crie o relacionamento entre os campos chave estrangeira (DetNotNum na tabela detalhes da nota) e chave primária (NotNum na tabela Notas), Página 31: [53] Excluído

Ronaldo

9/7/2005 16:51:00

digitando o nome da chave primária de vendas, Página 31: [54] Excluído

Dejair Dorazio

26/9/2005 15:02:00

na propriedade MasterFields (chave primária da tabela master). Página 31: [55] Excluído

Ronaldo

9/7/2005 16:51:00

, NotNum na propriedade MasterFields. Página 31: [56] Excluído

Ronaldo

9/7/2005 16:54:00

Crie uma tela de cadastro paras as notas e uma de cadastro para os detalhes da nota, conforme procedimentos já apresentados anteriormente. Crie um botão na tela de notas para chamar a tela de detalhes da nota. Página 31: [57] Alterar

Ronaldo

4/9/2005 18:44:00

Ronaldo Lavestein

8/6/2006 02:15:00

Marcadores e numeração formatados Página 31: [58] Formatado

Fonte: (Padrão) Arial, 11 pt Página 32: [59] Excluído

Ronaldo

15/7/2006 14:26:00

Obs.: Utilize este tipo de relacionamento apenas para os campos de nível mais alto na tabela, como os do exemplo acima. Para os demais relacionamentos de nível mais baixo na tabela, como por exemplo, DetCodPro, que relaciona o produto da tabela detalhes da nota com o respectivo produto na tabela Produtos, deve ser feito um relacionamento do tipo LookUp, como veremos no próximo tópico. Página 32: [60] Excluído

Dejair Dorazio

26/9/2005 15:10:00

Quebra de página

Página 32: [61] Excluído

Fernando

23/4/2005 12:51:00

Página 32: [61] Excluído

Fernando

23/4/2005 12:52:00

Página 32: [62] Excluído

Fernando

23/4/2005 12:52:00

Fernando

23/4/2005 12:52:00

Fernando

23/4/2005 12:52:00

criar um relacionamento

criar Página 32: [62] Excluído

um relacionamen Página 32: [62] Excluído

to

Página 32: [63] Excluído

Fernando

23/4/2005 12:56:00

na aplicação, que busca em uma tabela principal o registro cujo valor da chave primária seja igual ao da chave estrangeira na tabela secundária, fazendo o relacionamento entre elas. Página 32: [64] Excluído

Ronaldo

26/11/2005 22:27:00

será gravado o valor d Página 32: [64] Excluído

Ronaldo

26/11/2005 22:33:00

Ronaldo

26/11/2005 22:33:00

Ronaldo

26/11/2005 22:34:00

Ronaldo

26/11/2005 22:34:00

a Página 32: [64] Excluído

do Página 32: [65] Excluído

no Página 32: [65] Excluído

e que será armazenado na tabela secundária Página 32: [66] Excluído

Ronaldo

26/11/2005 22:34:00

Ronaldo

26/11/2005 22:35:00

Ronaldo

26/11/2005 22:26:00

, onde está Página 32: [66] Excluído

gravado Página 32: [66] Excluído

da chave primária do registro que será pelo campo selecionado na p Página 32: [67] Excluído

Ronaldo

26/11/2005 22:26:00

ropriedade ListField relacionamento Página 32: [68] Excluído

Fernando

19/3/2005 02:02:00

Fernando

19/3/2005 02:04:00

Fernando

19/3/2005 02:03:00

Fernando

19/3/2005 02:03:00

que Página 32: [68] Excluído

na propriedade Text Página 32: [69] Excluído

D Página 32: [69] Excluído

ComboBox para o usuário. Página 32: [70] Excluído

Ronaldo

26/11/2005 22:35:00

comum às duas tabelas envolvidas Página 32: [70] Excluído

Ronaldo

26/11/2005 22:36:00

Ronaldo

10/1/2005 09:06:00

n Página 32: [71] Excluído

Detalhes da nota

Página 32: [71] Excluído

Ronaldo

10/1/2005 09:11:00

Ronaldo

10/1/2005 09:12:00

Ronaldo

10/1/2005 09:12:00

Fernando

19/3/2005 02:01:00

Fernando

19/3/2005 02:01:00

Dejair Dorazio

26/9/2005 15:12:00

Dejair Dorazio

26/9/2005 15:13:00

Fernando

19/3/2005 02:07:00

Ronaldo

4/9/2005 18:29:00

Ronaldo

4/9/2005 18:29:00

Ronaldo

9/7/2005 18:00:00

Fernando

23/4/2005 13:08:00

DetCodPro Página 32: [72] Excluído

ProCodigo Página 32: [72] Excluído

DetCodPro Página 32: [73] Excluído

dos Página 32: [73] Excluído

s Página 32: [74] Excluído

acima Página 32: [74] Excluído

escolher. Página 32: [75] Alterar

Marcadores e numeração formatados Página 32: [76] Excluído

dos Página 32: [76] Excluído

s Página 32: [77] Alterar

Marcadores e numeração formatados Página 34: [78] Excluído

DBGrid, para cada cliente, suas respectivas vendas. Proceda da seguinte maneira: No DBGrid da tela de clientes altere a propriedade DataSource para Dm.DS_VENDA Crie a procedure abaixo: Página 34: [79] Excluído

Ronaldo

4/9/2005 19:03:00

(Digite ALL para remover filtro. Página 34: [80] Excluído

Fernando

23/4/2005 13:23:00

procedure TFrmCadCliente.FiltraVendaCliente; begin With dm.Tab_Venda do begin Filtered := false; Filter := 'VendCliente = ' + Dm.Tab_ClientesCliCodigo.AsString; Filtered := true;

end; end; Página 34: [81] Excluído

Fernando

23/4/2005 13:29:00

Nos eventos OnShow da tela FrmCadCliente e no Página 34: [82] Alterar

Ronaldo

10/1/2005 09:16:00

Fernando

23/4/2005 13:29:00

Marcadores e numeração formatados Página 34: [83] Excluído

do DBNavigator1 da mesma tela, Página 34: [84] Excluído

Fernando

23/4/2005 13:28:00

digite o comando para executar a Página 35: [85] Excluído

Ronaldo

21/8/2005 13:47:00

Se for associar os dados a algum componente de dados ao componente ADOQuery, como DBGrid, por exemplo, insira um componente DataSource (guia DataAccess) e altere sua propriedade Name para DsQueryFuncionarios e a propriedade DataSet, escolhendo o nome do componente ADOQuery (QueryFuncionarios). Logo em seguida, para cada componente de controle de dados, altere a propriedade DataSource com o nome do DataSource (DsQueryFuncionarios), e se houver, a propriedade DataField (selecione o nome do campo).

Para que o Delphi possa reconhecer os comandos da SQL, digite em algum evento de um objeto (como no OnClick de um botão), os seguintes comandos Página 35: [86] Formatado

Ronaldo

7/11/2006 13:50:00

Ronaldo

27/9/2005 12:46:00

Fonte: Não Negrito Página 37: [87] Excluído

Quebra de página

Sintaxe e exemplos dos comandos básicos de SQL: Selecionar (Select) SELECT ] FROM [WHERE ] [ORDER BY ] Ex.: SELECT * FROM FUNC WHERE FUNSALARIO <= 500 ORDER BY FUNNOME

Seleciona todos os funcionários cujo salário seja menor ou igual a 500 por orde de nome. Pesquise as funções agregadas (SUM, AVG, MAX, MIN, etc) e cláusulas GROUP BY Inserir (Insert) INSERT INTO [] [VALUES ] Ex: INSERT INTO DEPT (DEPNUME,DEPNOME,DEPLOCA) VALUES (70,"PRODUCAO","RIO DE JANEIRO") Atualizar (Update) UPDATE SET = <expressão> [WHERE ] Ex: UPDATE EMP SET EMPSALA = EMPSALA* 1.2 WHERE EMPSALA< 1000 Excluir (Delete) DELETE FROM [WHERE ] Ex: DELETE FROM emp WHERE EMPSALA > 5000 Treine a utilização dos comandos SQL seguindo os passos abaixo: Iniciar -> Programas -> Borland Delphi 7 -> SQL Explorer Object -> New (renomeie Standard1 para Banco)

Na guia Definition, ajuste PATH para C:\Arquivos de programas\Arquivos comuns\Borland Shared\Data Object -> Apply para aplicar as definições do novo ALIAS. Expanda o alias +Banco até +Tables, e na guia Enter SQL digite o comando SQL desejado, por exemplo, Select * from CountryClique sobre o botão Execute Query

para executar a

operação.

Obs.: Muito cuidado ao utilizar os comandos Update e Delete, pois os mesmos poderão causar perdas no conteúdo de campos e registros do banco de dados. Tenha sempre um backup do seu banco de dados. Quebra de página

Página 37: [88] Formatado

Ronaldo

17/11/2006 11:13:00

Recuo: À esquerda: 2,5 cm, Borda: Caixa: (Simples, Automática, 0,5 pt Largura da linha) Página 38: [89] Excluído

Ronaldo

11/1/2005 23:26:00

Este tópico vai ensinar os procedimentos para a criação de um relatório com os seus principais recursos como, cabeçalhos e rodapés, detalhe, grupos, totais, etc. Existem 03 passos básicos para se construir um relatório usando o Rave Reports: Preparar os objetos de relatório para acessar os dados Desenhar o layout do relatório no Rave Reports

Executar o relatório dentro do Delphi Página 38: [90] Excluído

RFL

31/1/2005 23:32:00

Para preparar os objetos acesse a guia Rave e insira os seguintes objetos: RvDataSetConnection = servirá como “data source”, ou seja, fornecerá ao Rave Reports os dados da tabela do banco de dados que será usada pelo relatório. Altere a propriedade DataSet, selecionado o objeto de banco de dados que fornecerá os dados ao relatório. RvSystem = é responsável pelo direcionamento da imagem criada pelo relatório a uma impressora-padrão do sistema. RvProject = usado para criação do layout do relatório, bem como conectá-lo à aplicação. Altere a propriedade Engine, selecionando o objeto RvSystem que será utilizado para criar o layout do relatório. Para executar o relatório digite RvSystem1.Execute em um evento dentro do sistema, como por exemplo, OnClick de um botão.

Prepare uma ADOQuery que fornecerá dados ao relatório desejado. Página 38: [91] Formatado

Ronaldo

7/11/2006 13:56:00

Com marcadores + Nível: 1 + Alinhado em: 1,88 cm + Tabulação após: 2,52 cm + Recuar em: 2,52 cm Página 1: [92] Excluído

Ronaldo

19/7/2006 23:43:00

Curso Extracurricular: Programador de Sistemas de Informação Avançado paraCriada por Ronaldo Lavestein Página 39: [93] Formatado

Ronaldo Lavestein

8/6/2006 02:15:00

Fonte: Verdana, 10 pt Página 39: [94] Alterar

Unknown

Marcadores e numeração formatados Página 39: [95] Excluído

RFL

1/2/2005 00:05:00

RFL

31/1/2005 23:59:00

dentro de um Region Página 39: [96] Excluído

O Region deve ocupar toda a área de impressão. Página 39: [97] Excluído

RFL

1/2/2005 00:07:00

Repita esse processo para cada que irá compor o relatório. Página 39: [98] Alterar

Ronaldo

4/9/2005 23:00:00

Ronaldo Lavestein

8/6/2006 02:15:00

Marcadores e numeração formatados Página 39: [99] Formatado

Fonte: (Padrão) Arial, 10 pt Página 39: [100] Alterar

Unknown

Marcadores e numeração formatados Página 39: [101] Formatado

Ronaldo

7/11/2006 14:17:00

Ronaldo

7/11/2006 14:05:00

Ronaldo

7/11/2006 14:02:00

Fonte: Negrito, Itálico Página 39: [102] Formatado

Fonte: Negrito, Itálico Página 39: [103] Excluído

na tela de cadastro de clientes. Página 44: [104] Excluído

Fernando

25/3/2005 23:37:00

Como criar discos de instalação para a aplicação?

Este tópico vai ensinar os procedimentos para criar discos de instalação da aplicação utilizando o programa InstallShield. Este programa acompanha as versões Professional e Enterprise do Delphi. Antes de executar os procedimentos deste tópico tenha certeza de que o InstallShield já tenha sido instalado em seu computador.

Procedimentos a serem executados:

No Windows clique Iniciar -> Programas -> InstallShield -> Express para carregar o InstallShield No InstallShield clique na opção Create a new Project. Selecione a opção Blank Setup Project para criar uma uma instalação a partir do zero, manualmente. Clique no botão Browse... da caixa de texto Project Name and Location e na janela Select Filename escolha a pasta onde será armazenado o arquivo de instalação, digite o nome do arquivo e clique no botão Salvar. Ao retornar à tela do InstallShield, clique sobre o botão Create. Na 1ª Etapa – Organize your Setup, clique sobre a opção General Information e defina as principais informações sobre o seu projeto, como: nome do produto, versão, código, nome do autor, etc. Clique sobre a opção Setup Types para definir os tipos de instalação que estarão disponíveis ao usuário, como

por exemplo, típica, mínima, personalizada. Desmarque as opções &Minimal e Cu&stom Na 2ª etapa – Specify Application Data, clique sobre a opção Files e selecione os arquivos da aplicação (executáveis, banco de dados, ajuda, etc) em Source Computer’s files dentro de suas respectivas pastas selecionadas em Source computer’s folders. Logo em seguida arraste-os para o painel inferior Destination computer’s files Clique sobre Files and Features para confirmar os arquivos selecionados para cada Feature. Clique sobre a opção Objects/Merge Modules para selecionar o tipo da conexão usada em seu projeto, em nosso caso, marque a opção ADO Data Control 6.0 Na 3ª etapa – Configure the Target System clique sobre a opção Shortcuts / Folders para configurar o computador de destino, no que diz respeito a atalhos e pastas para a instalação dos arquivos. Na 4ª etapa – Customize the setup appearence, clique sobre a opção Dialogs e selecione as seguintes opções: Splash Bitmap, Install Welcome, 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.

Página 44: [105] Excluído

RFL

31/1/2005 23:18:00

Para ter certeza de que tudo funcionou corretamente, instale o programa, a partir do CD, em uma máquina que não possua o Delphi instalado. Página 44: [106] Alterar

RFL

20/1/2005 22:44:00

Ronaldo

29/7/2005 17:15:00

Marcadores e numeração formatados Página 45: [107] Excluído

Página 45: [108] Formatado

Ronaldo Lavestein

8/6/2006 02:16:00

Fonte: (Padrão) Arial, 11 pt, Negrito Página 45: [109] Excluído

Ronaldo

28/8/2005 13:55:00

Ronaldo

28/8/2005 13:55:00

que irá gerar o seu valor Página 45: [110] Excluído

Digite a seguinte linha de comando n Página 45: [111] Alterar

Ronaldo

29/7/2005 17:19:00

Marcadores e numeração formatados Página 45: [112] Formatado

Ronaldo Lavestein

8/6/2006 02:16:00

Fonte: (Padrão) Arial, 11 pt Página 47: [113] Excluído

Ronaldo

21/8/2005 13:48:00

Página 47: [113] Excluído

Ronaldo

28/8/2005 22:58:00

ensinar os procedimentos Página 47: [113] Excluído

Ronaldo

28/8/2005 22:58:00

Ronaldo

28/8/2005 22:59:00

Ronaldo

28/8/2005 23:06:00

Ronaldo

28/8/2005 23:08:00

Ronaldo

10/12/2005 12:17:00

Ronaldo

10/12/2005 12:17:00

Ronaldo

28/8/2005 23:07:00

com Página 47: [113] Excluído

/ Excel Página 47: [114] Excluído

Acrescente o nome da Página 47: [114] Excluído

unit Página 47: [115] Formatado

Sublinhado Página 47: [115] Formatado

Sublinhado Página 47: [116] Excluído

em que for exportar dados para o Excel Página 47: [117] Excluído

Ronaldo

10/12/2005 12:17:00

Declare uma variável para armazenar a planilha. (var Pasta : variant;) Página 47: [118] Excluído

Ronaldo

10/12/2005 12:14:00

Faça a adaptação dos comandos abaixo de acordo com suas necessidades Página 47: [118] Excluído

Ronaldo

10/12/2005 12:17:00

Ronaldo

10/12/2005 12:21:00

Ronaldo

10/12/2005 12:18:00

. Página 47: [119] Formatado

Fonte: (Padrão) Arial, 9 pt Página 47: [120] Formatado

Recuo: À esquerda: 1,25 cm, Espaçamento entre linhas: 1,5 linha, Borda: Caixa: (Simples, Automática, 0,5 pt Largura da linha) Página 47: [121] Formatado

Ronaldo

10/12/2005 12:23:00

Fonte: (Padrão) Arial, 9 pt, Negrito, Sublinhado Página 47: [121] Formatado

Ronaldo

10/12/2005 12:21:00

Ronaldo

10/12/2005 12:21:00

Ronaldo

10/12/2005 12:23:00

Ronaldo

10/12/2005 12:21:00

Ronaldo

10/12/2005 12:21:00

Ronaldo

10/12/2005 12:21:00

Ronaldo

10/12/2005 12:21:00

Fonte: (Padrão) Arial, 9 pt Página 47: [122] Formatado

Fonte: (Padrão) Arial, 9 pt Página 47: [122] Formatado

Fonte: (Padrão) Arial, 9 pt, Negrito Página 47: [122] Formatado

Fonte: (Padrão) Arial, 9 pt Página 47: [122] Formatado

Fonte: (Padrão) Arial, 9 pt Página 47: [123] Formatado

Fonte: (Padrão) Arial, 9 pt Página 47: [124] Formatado

Fonte: (Padrão) Arial, 9 pt, Português (Brasil) Página 47: [125] Formatado

Ronaldo

10/12/2005 12:21:00

Fonte: (Padrão) Arial, 9 pt, Português (Brasil) Página 47: [126] Formatado

Ronaldo

10/12/2005 12:21:00

Ronaldo

10/12/2005 12:21:00

Ronaldo

10/12/2005 12:21:00

Fonte: (Padrão) Arial, 9 pt Página 47: [127] Formatado

Fonte: (Padrão) Arial, 9 pt Página 47: [128] Formatado

Fonte: (Padrão) Arial, 9 pt, Português (Brasil) Página 47: [128] Formatado

Ronaldo

10/12/2005 12:21:00

Ronaldo

10/12/2005 12:21:00

Fonte: 9 pt Página 47: [128] Formatado

Fonte: (Padrão) Arial, 9 pt, Português (Brasil) Página 47: [128] Formatado

Ronaldo

10/12/2005 12:21:00

Fonte: (Padrão) Arial, 9 pt, Português (Brasil) Página 47: [129] Formatado

Ronaldo

10/12/2005 12:21:00

Fonte: (Padrão) Arial, 9 pt, Português (Brasil) Página 47: [130] Formatado

Fonte: (Padrão) Arial, 9 pt

Ronaldo

10/12/2005 12:21:00

Página 47: [130] Formatado

Ronaldo

10/12/2005 12:21:00

Ronaldo

10/12/2005 12:21:00

Ronaldo

10/12/2005 12:27:00

Ronaldo

10/12/2005 12:21:00

Ronaldo

10/12/2005 12:21:00

Ronaldo

10/12/2005 12:21:00

Ronaldo

10/12/2005 12:21:00

Fonte: (Padrão) Arial, 9 pt Página 47: [131] Formatado

Fonte: (Padrão) Arial, 9 pt Página 47: [132] Formatado

Fonte: (Padrão) Arial, 9 pt, Negrito Página 47: [132] Formatado

Fonte: (Padrão) Arial, 9 pt Página 47: [133] Formatado

Fonte: (Padrão) Arial, 9 pt Página 47: [134] Formatado

Fonte: (Padrão) Arial, 9 pt Página 47: [135] Formatado

Fonte: (Padrão) Arial, 9 pt, Português (Brasil) Página 47: [136] Formatado

Ronaldo

10/12/2005 12:21:00

Fonte: (Padrão) Arial, 9 pt, Português (Brasil) Página 47: [137] Formatado

Ronaldo

15/7/2006 14:35:00

Ronaldo

15/7/2006 14:35:00

Português (Brasil) Página 47: [137] Formatado

Fonte: (Padrão) Arial, 9 pt, Português (Brasil) Página 47: [138] Formatado

Ronaldo

15/7/2006 14:35:00

Ronaldo

10/12/2005 12:21:00

Fonte: (Padrão) Arial, 9 pt Página 47: [139] Formatado

Fonte: (Padrão) Arial, 9 pt, Português (Brasil) Página 47: [139] Formatado

Ronaldo

10/12/2005 12:21:00

Ronaldo

10/12/2005 12:21:00

Ronaldo

10/12/2005 12:21:00

Fonte: 9 pt Página 47: [140] Formatado

Fonte: 9 pt Página 47: [140] Formatado

Fonte: (Padrão) Arial, 9 pt, Português (Brasil) Página 47: [141] Formatado

Ronaldo

10/12/2005 12:21:00

Ronaldo

10/12/2005 12:29:00

Ronaldo

10/12/2005 12:29:00

Ronaldo

28/8/2005 23:10:00

Ronaldo

10/12/2005 12:13:00

Fonte: (Padrão) Arial, 9 pt Página 47: [142] Formatado

Fonte: Negrito Página 47: [142] Formatado

Fonte: (Padrão) Arial, 9 pt Página 47: [143] Excluído

Comandos básicos: Página 47: [144] Excluído

Para criar uma aplicação Excel digite: Pasta := CreateOleObject('Excel.Application');

Para criar uma pasta digite: Pasta Página 47: [145] Excluído

Ronaldo

10/12/2005 12:13:00

.WorkBooks.Add(1);

Para mudar o título da janela da pasta digite: Pasta.Caption := ‘Título da janela;

Para visualizar a planilha digite Pasta.Visible := true;

Para adicionar conteúdo em uma célula digite: Pasta.Cells[Linha Página 47: [146] Excluído

Ronaldo

10/12/2005 12:13:00

Coluna] := ;

Para ajustar automaticamente o tamanho das colunas digite: Pasta.Columns.AutoFit;

Para fechar a pasta do Excel digite : Pasta.WorkBooks.Close;

Para abrir uma pasta digite: Pasta.WorkBooks.Open(‘Endereço e nome da pasta *.xls’);

Para salvar a pasta digite: Pasta.WorkBooks[nº da pasta].Save(‘Pasta.xls’);

Para salvar como digite: Pasta.WorkBooks[nº da pasta].SaveAs(‘Pasta.xls’); Para proteger uma planilha digite:Pasta.WorkBooks[nº da pasta].Sheets[nº da planilha].Protect(DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:='senha'); Página 47: [147] Excluído

Ronaldo

28/8/2005 23:08:00

Para eliminar a objeto OLE da memória digite: Pasta := Unassigned; Página 1: [148] Excluído

Ronaldo

19/7/2006 23:43:00

Curso Extracurricular: Programador de Sistemas de Informação Avançado paraCriada por Ronaldo Lavestein Página 61: [149] Excluído

Ronaldo

15/7/2006 14:39:00

da VCL – Biblioteca de Componentes Visuais Obs: Todo campo precedido de um asterisco (*) deve ser configurado como chave primária na respectiva tabela.

*AutoNumeração*AutoNumeração*CodigoAutoNumera ção*AutoNumeraçãoNúmero*CodigoAutoNumeração

*AutoNumeraçãoNúmeroNúmeroNúmero Página 61: [150] Excluído

Ronaldo

15/7/2006 14:35:00

Ronaldo

15/7/2006 14:35:00

*AutoNumeraçãoNúmero Página 61: [151] Excluído

*AutoNumeraçãoNúmeroNúmeroNúmero Página 61: [152] Formatado

Ronaldo

15/7/2006 14:40:00

Fonte: (Padrão) Arial, 16 pt, Cor da fonte: Automática Página 61: [153] Excluído

Ronaldo

15/7/2006 14:35:00

*AutoNumeraçãoFrmCadCliente Quebra de página

Página 61: [154] Formatado

Ronaldo

15/7/2006 14:40:00

Fonte: (Padrão) Arial, 16 pt, Cor da fonte: Automática Página 61: [154] Formatado

Ronaldo

15/7/2006 14:40:00

Fonte: (Padrão) Arial, 16 pt, Cor da fonte: Automática Página 61: [154] Formatado

Ronaldo

15/7/2006 14:40:00

Fonte: (Padrão) Arial, 16 pt, Cor da fonte: Automática Página 61: [154] Formatado

Ronaldo

15/7/2006 14:40:00

Fonte: (Padrão) Arial, 16 pt, Cor da fonte: Automática Página 61: [154] Formatado

Ronaldo

15/7/2006 14:40:00

Fonte: (Padrão) Arial, 16 pt, Cor da fonte: Automática Página 61: [154] Formatado

Ronaldo

15/7/2006 14:40:00

Fonte: (Padrão) Arial, 16 pt, Cor da fonte: Automática Página 61: [154] Formatado

Ronaldo

15/7/2006 14:40:00

Fonte: (Padrão) Arial, 16 pt, Cor da fonte: Automática Página 61: [154] Formatado

Ronaldo

15/7/2006 14:40:00

Fonte: (Padrão) Arial, 16 pt, Cor da fonte: Automática Página 61: [155] Formatado

Ronaldo

15/7/2006 14:40:00

Fonte: (Padrão) Arial, 16 pt, Cor da fonte: Automática Página 61: [156] Formatado

Ronaldo

15/7/2006 14:40:00

Fonte: (Padrão) Arial, 16 pt, Cor da fonte: Automática Página 61: [157] Excluído

Ronaldo

15/7/2006 15:04:00

Na tela FrmCadProdutos execute os seguintes procedimentos: Página 61: [158] Formatado

Ronaldo

15/7/2006 15:03:00

Fonte: (Padrão) Arial, 11 pt Página 61: [159] Formatado

Ronaldo Lavestein

8/6/2006 02:23:00

Ronaldo Lavestein

8/6/2006 02:23:00

Fonte: (Padrão) Arial, 11 pt Página 61: [160] Formatado

Recuo: À esquerda: 0 cm, Espaçamento entre linhas: 1,5 linha, Com marcadores + Nível: 1 + Alinhado em: 1,88 cm + Tabulação após: 2,52 cm + Recuar em: 2,52 cm, Controle de linhas órfãs/viúvas, Ajustar espaçamento entre texto latino e asiático, Ajustar Página 61: [161] Formatado

Ronaldo Lavestein

8/6/2006 02:32:00

Ronaldo Lavestein

8/6/2006 02:23:00

Ronaldo Lavestein

8/6/2006 02:32:00

Ronaldo Lavestein

8/6/2006 02:23:00

Fonte: (Padrão) Arial, 11 pt, Negrito Página 61: [161] Formatado

Fonte: (Padrão) Arial, 11 pt Página 61: [162] Formatado

Fonte: (Padrão) Arial, 11 pt, Negrito Página 61: [162] Formatado

Fonte: (Padrão) Arial, 11 pt

Página 61: [163] Formatado

Ronaldo Lavestein

8/6/2006 02:23:00

Ronaldo Lavestein

8/6/2006 02:23:00

Fonte: (Padrão) Arial, 11 pt Página 61: [164] Formatado

Recuo: À esquerda: 0 cm, Espaçamento entre linhas: 1,5 linha, Com marcadores + Nível: 1 + Alinhado em: 1,88 cm + Tabulação após: 2,52 cm + Recuar em: 2,52 cm, Controle de linhas órfãs/viúvas, Ajustar espaçamento entre texto latino e asiático, Ajustar Página 61: [165] Formatado

Ronaldo Lavestein

8/6/2006 02:32:00

Ronaldo Lavestein

8/6/2006 02:23:00

Ronaldo Lavestein

8/6/2006 02:31:00

Ronaldo Lavestein

8/6/2006 02:31:00

Ronaldo Lavestein

8/6/2006 02:31:00

Ronaldo Lavestein

8/6/2006 02:23:00

Ronaldo Lavestein

8/6/2006 02:34:00

Ronaldo Lavestein

8/6/2006 02:32:00

Ronaldo Lavestein

8/6/2006 02:23:00

Ronaldo Lavestein

8/6/2006 02:23:00

Ronaldo Lavestein

8/6/2006 02:32:00

Ronaldo Lavestein

8/6/2006 02:23:00

Ronaldo Lavestein

8/6/2006 02:25:00

Ronaldo Lavestein

8/6/2006 02:23:00

Fonte: (Padrão) Arial, 11 pt, Negrito Página 61: [165] Formatado

Fonte: (Padrão) Arial, 11 pt Página 61: [165] Formatado

Fonte: (Padrão) Arial, 11 pt Página 61: [165] Formatado

Fonte: (Padrão) Arial, 11 pt Página 61: [165] Formatado

Fonte: (Padrão) Arial, 11 pt Página 61: [165] Formatado

Fonte: (Padrão) Arial, 11 pt Página 61: [166] Formatado

Fonte: Não Negrito Página 61: [166] Formatado

Fonte: (Padrão) Arial, 11 pt, Itálico Página 61: [166] Formatado

Fonte: (Padrão) Arial, 11 pt Página 61: [166] Formatado

Fonte: (Padrão) Arial, 11 pt Página 61: [166] Formatado

Fonte: (Padrão) Arial, 11 pt, Negrito Página 61: [166] Formatado

Fonte: (Padrão) Arial, 11 pt Página 61: [167] Formatado

Fonte: Negrito Página 61: [168] Formatado

Borda: Caixa: (Simples, Automática, 0,5 pt Largura da linha) Página 61: [169] Formatado

Ronaldo Lavestein

8/6/2006 02:25:00

Ronaldo Lavestein

8/6/2006 02:25:00

Fonte: Negrito Página 61: [170] Formatado

Fonte: Negrito Página 61: [171] Formatado

Ronaldo

15/7/2006 14:35:00

Ronaldo

15/7/2006 14:35:00

Ronaldo

15/7/2006 14:35:00

Inglês (EUA) Página 61: [171] Formatado

Fonte: Não Negrito, Inglês (EUA) Página 61: [171] Formatado

Inglês (EUA) Página 61: [172] Formatado

Ronaldo Lavestein

8/6/2006 02:26:00

Fonte: Não Negrito Página 61: [173] Formatado

Ronaldo Lavestein

8/6/2006 02:19:00

Ronaldo Lavestein

8/6/2006 02:25:00

Ronaldo Lavestein

8/6/2006 02:24:00

Ronaldo Lavestein

8/6/2006 02:27:00

Português (Brasil) Página 61: [174] Formatado

Fonte: Negrito Página 61: [175] Formatado

Fonte: (Padrão) Arial, 11 pt Página 61: [176] Formatado

Recuo: À esquerda: 0 cm, Espaçamento entre linhas: 1,5 linha, Com marcadores + Nível: 1 + Alinhado em: 1,88 cm + Tabulação após: 2,52 cm + Recuar em: 2,52 cm, Controle de linhas órfãs/viúvas, Ajustar espaçamento entre texto latino e asiático, Ajustar Página 61: [177] Formatado

Ronaldo Lavestein

8/6/2006 02:25:00

Ronaldo Lavestein

8/6/2006 02:24:00

Ronaldo Lavestein

8/6/2006 02:24:00

Ronaldo Lavestein

8/6/2006 02:24:00

Ronaldo Lavestein

8/6/2006 02:24:00

Ronaldo Lavestein

8/6/2006 02:24:00

Ronaldo Lavestein

8/6/2006 02:27:00

Ronaldo Lavestein

8/6/2006 02:19:00

Fonte: Negrito Página 61: [177] Formatado

Fonte: (Padrão) Arial, 11 pt Página 61: [178] Formatado

Fonte: Negrito Página 61: [179] Formatado

Fonte: Negrito Página 61: [179] Formatado

Fonte: Negrito Página 61: [179] Formatado

Fonte: Negrito Página 61: [180] Formatado

Fonte: (Padrão) Arial, 11 pt Página 61: [181] Alterar

Marcadores e numeração formatados Página 61: [182] Formatado

Ronaldo

30/7/2006 11:06:00

Fonte: Itálico Página 61: [183] Formatado

Ronaldo Lavestein

8/6/2006 02:27:00

Ronaldo Lavestein

8/6/2006 02:27:00

Ronaldo Lavestein

8/6/2006 02:27:00

Ronaldo Lavestein

8/6/2006 02:27:00

Fonte: (Padrão) Arial, 11 pt Página 61: [184] Formatado

Fonte: (Padrão) Arial, 11 pt Página 61: [184] Formatado

Fonte: (Padrão) Arial, 11 pt Página 61: [185] Formatado

Fonte: (Padrão) Arial, 11 pt