Delphi Aplicado Módulo 4A

Delphi Aplicado Módulo 4A

(Parte 1 de 7)

Delphi Aplicado by Jurandir A. Pellin – Timbó – SC (E-mail: delphiewb@gmail.com) 473

Como somar horas ?

Clique na opção que está na barra de títulos – Project – Options e clique na aba Application, clique no botão Load Icon ( carrega ícone ), o arquivo ícone deve ter a terminação .ico

Ícone padrão

Ícone que foi definido.

Delphi Aplicado by Jurandir A. Pellin – Timbó – SC (E-mail: delphiewb@gmail.com) 474

Gauge Tela de abertura Neste exemplo mostrarei como fazer uma tela de abertura com um gráfico indicador.

Insira um formulário, insira um Panel ( aba Standard ), insira um componente Gauge ( aba Samples ), na propriedade Kind defina gkHorizontalBar, se preferir escolha o tipo de gráfico que lhe agradar. Na propriedade Name do formulário defina Abertura_Frm.

Clique no ícone View Unit ou pressione Ctrl F12 para abrir o projeto.

Tela de abertura onde mostrará o gráfico indicador carregamento a página.

Este é o segundo formulário que será aberto, poderia ser o

Menu do seu sistema etc.

Digite o conteúdo que esta dentro da área pontilhada.

Delphi Aplicado by Jurandir A. Pellin – Timbó – SC (E-mail: delphiewb@gmail.com) 475

Função dos meses - digite

Chamando a função do mês indicado.

Delphi Aplicado by Jurandir A. Pellin – Timbó – SC (E-mail: delphiewb@gmail.com) 476

Como visualizar índices primários e secundários ?

Mostrará todos os índices da tabela que está em uso.

Insira um formulário, os seguintes componentes: ListBox ( aba Standard ), Table, DataSource e um botão Bitbtn.

Como abrir um pasta / diretório ?

Será aberta a pasta / diretório +Web_Jura

Delphi Aplicado by Jurandir A. Pellin – Timbó – SC (E-mail: delphiewb@gmail.com) 477

Discos instalação Criando discos de instalação do seu projeto

Tornando instalação do seu projeto dinâmica. Seu projeto esta pronto, todos módulos, neste exemplo estou usando uma Data Module de nome DM_dat e dentro deste estão todos os componentes Table usados para abrir as tabelas. Todo componente Table possui uma propriedade chamada de DatabaseName e ao lado deve ser informado o caminho onde estão as tabelas de dados ou um Alias. No exemplo a seguir em todos os componentes Table não foi definido Alias, porque este foi criado via programação. O código para criar o Alias deve ser digitado no evento OnCreate do Dm_dat ( neste caso ).

Após criado Alias via programação, gere os discos de instalação ( página seguinte ).

Veja a criação do Alias via programação.

Abrindo as tabelas.

Delphi Aplicado by Jurandir A. Pellin – Timbó – SC (E-mail: delphiewb@gmail.com) 478

Para tornar a instalação do seu projeto mais dinâmico. Crie os discos de instalação e também crie um alias via programação. Usarei o utilitário InstallShield versão 4.0, já existem mais recentes ☺

Instale o utilitário InstallShield, através dele criaremos os discos de instalação para o sistema. Você poderá fazer download no site http://www.installshield.com/express

Selecione a opção Criar um novo Setup para o projeto.

Delphi Aplicado by Jurandir A. Pellin – Timbó – SC (E-mail: delphiewb@gmail.com) 479

Após ter clicado na terceira opção será aberta a tela abaixo, digite o nome do projeto ( Project Name ), e uma pasta onde o projeto ficará armazenado ( New Subdirectory )

Após clicar no botão Create ( criar ) será aberta a tela abaixo:

Delphi Aplicado by Jurandir A. Pellin – Timbó – SC (E-mail: delphiewb@gmail.com) 480

Set the Visual Design.

Select InstalShield Objects For Delphi.

Clique no botão Browse e clique no arquivo

Fluxo.exe, clique na aba Main

Window e clique na aba Features e finalmente clique no botão Ok.

Delphi Aplicado by Jurandir A. Pellin – Timbó – SC (E-mail: delphiewb@gmail.com) 481 Delphi Aplicado by Jurandir A. Pellin – Timbó – SC (E-mail: delphiewb@gmail.com) 481

Delphi Aplicado by Jurandir A. Pellin – Timbó – SC (E-mail: delphiewb@gmail.com) 482

Escolha o driver Paradox

Delphi Aplicado by Jurandir A. Pellin – Timbó – SC (E-mail: delphiewb@gmail.com) 483 Delphi Aplicado by Jurandir A. Pellin – Timbó – SC (E-mail: delphiewb@gmail.com) 483

Delphi Aplicado by Jurandir A. Pellin – Timbó – SC (E-mail: delphiewb@gmail.com) 484 Specify Components and Files.

Delphi Aplicado by Jurandir A. Pellin – Timbó – SC (E-mail: delphiewb@gmail.com) 485

Clique no botão New Group e crie a pasta dados onde ficarão armazenados todos as tabelas.

Digite: o nome pasta dados

Digite: barra invertida e o nome pasta \dados

(Parte 1 de 7)

Comentários