Clube Delphi 164

Fale com o Editor!
É muito importante para a equipe saber o que você está achando da

revista: que tipo de artigo você gostaria de ler, que artigo você mais
gostou e qual artigo você menos gostou. Fique a vontade para entrar
em contato com os editores e dar a sua sugestão!
164ª Edição 2015 ISSN 1517990-7 Impresso no Brasil
Se você estiver interessado em publicar um artigo na revista ou no site
ClubeDelphi, entre em contato com os editores, informando o título e
Editor Geral Atendimento ao Leitor mini-resumo do tema que você gostaria de publicar:
Paulo Quicoli (pauloquicoli@gmail.com) A DevMedia conta com um departamento exclusivo para o atendimento Paulo Quicoli - Editor da Revista
ao leitor. Se você tiver algum problema no recebimento do seu exemplar pauloquicoli@gmail.com
Equipe Editorial ou precisar de algum esclarecimento sobre assinaturas, exemplares ante-
Guinther Pauli (guintherpauli@gmail.com) riores, endereço de bancas de jornal, entre outros, entre em contato com:
Fabrício Hissao Kawata (fabricio.kawata@bol.com.br) www.devmedia.com.br/central Paulo Quicoli - Editor Geral

(21) 3382-5038
Giuliano Scombatti Pinto (giuliano@sygnux.com.br)
Publicidade pauloquicoli@gmail.com
Daniel Sobrinho Laporte (daniel.laporte@gmail.com) quicoli.wordpress.com
Para informações sobre veiculação de anúncio na revista ou no site twitter.com/pauloquicoli
Jornalista Responsável
e para fechar parcerias ou ações específicas de marketing com a
Kaline Dolabella - JP24185 DevMedia, entre em contato com:
Consultor Técnico publicidade@devmedia.com.br Assine agora e tenha acesso a

Daniella Costa (daniella.devmedia@gmail.com) todo o conteúdo da DevMedia:
Distribuição
Capa e Diagramação www.devmedia.com.br/mvp
FC Comercial e Distribuidora S.A
Romulo Araujo
Rua Teodoro da Silva, 907
Grajaú - RJ - 206563-900
Sumário
Conteúdo sobre Novidade
04 – Conheça as novidades no Delphi XE 8

[ Fabricio Hissao Kawata ]
Feedback
eu
s
Dê
Artigo no estilo Curso sobre e
13 – Desenvolvendo um Sistema Financeiro em Delphi – Parte 3

[ Filipe Dalepiane ]
s
ta
edição
Artigo no estilo Curso

Dê seu feedback sobre esta edição!
22 – Explorando APIs do Windows em Delphi – Parte 1
[ Vanderson Cavalcante de Freitas ] A ClubeDelphi tem que ser feita ao seu gosto.
Para isso, precisamos saber o que você, leitor,
acha da revista!
Artigo no estilo Solução Completa

Dê seu voto sobre esta edição, artigo por artigo,
através do link:
34 – Cadastros e relatórios dinâmicos em Delphi www.devmedia.com.br/clubedelphi/feedback
[ Vanderson Cavalcante de Freitas ]
Conheça as novidades
no Delphi XE 8
Fique por dentro das principais novidades desta
versão
D Fique por Dentro

ois anos de aperfeiçoamentos trouxeram o
Dephi XE8, que logo de início, apresenta como
primeiro ponto de grande impacto e mudança O novo Delphi traz para a sua comunidade uma série de novidades,
a própria aparência do IDE, como podemos conferir refletidas em incorporações de novos elementos, integrações nativas
na Figura 1. Com um visual rantes, sem perder seu as- com novas ferramentas, como o AppAnalytics, suporte a novas tec-
pecto singular. Com um visual renovado a ferramenta nologias, como IoT, bem como melhorias pontuais nos mais diversos
ganha um look and feel inédito, com fontes de texto aspectos do produto.
nativamente maiores, cores mais vibrantes, sem perder
seu aspecto singular. Para muitos críticos esta pode
ser interpretada como sendo uma pontualidade sem
expressão, mas o fato é que essa simples mudança vem
a afirmar a constante evolução do Delphi como produto,
o que garante a manutenção de seus adeptos, bem como
a conquista de novos
Novidades na VCL
Como não poderia deixar de ser, a VCL (Visual Compo-
nent Library), tida como a parte clássica do Delphi, conta
com algumas novidades exclusivas nesta nova versão
do IDE. Tendo em vista sua estabilidade, aliada a enor-
me expansão do FireMonkey no cenário mais recente,
poucas são suas novas pontualidades nesta versão, mas
podemos destacar a facilidade com conexões de Internet
ou Bluetooth com componentes de AppTethering.
Figura 1. IDE do Delphi XE8
Novos VCL Styles
Surgido como uma das grandes novidades do Delphi O ganho aqui fica por conta da notória evolução de um recurso
XE2, o VCL Styles pode ser brevemente definido como interno que, anteriormente ao XE2, só era conseguido por meio
sendo um recurso para incrementar a aparência de uma do uso de componentes de terceiros, o que acabava por gerar
aplicação VCL. Para isso, são utilizados estilos, cada qual uma dependência natural para com estes, além de eventualmente
definindo um conjunto elaborado de detalhes gráficos dispender custos para aquisição e uso.
personalizados que incidirão sobre o look and feel da
aplicação. Logo, sua atuação ocorre de forma semelhante AppAnalytics
ao tradicional recurso de temas do Windows. O AppAnalytics pode ser considerado um novo recurso disponí-
Visando manter o valor das aplicações construídas e vel para projetos VCL e FireMonkey, que prevê a coleta de dados
constante melhora para novos desenvolvimentos VCL, (de forma anônima) resultantes da interação do usuário com a
o Delphi XE8 apresenta agora mais três novos estilos aplicação, possibilitando então uma auditoria de processos por
para VCL Styles, intitulados Glow, Sky e Tablet Light. meio da interpretação e análise dessas informações.
4 ClubeDelphi • Edição 164 Copyright - Proibido copiar ou distribuir. Todos os direitos reservados para DevMedia
4
No Delphi, o AppAnalytics se reflete em um componente homô-
nimo (Figura 2), oriundo da classe TAppAnalytics.
Na prática, os dados capturados pelo componente são então
enviados a um aplicativo Web AppAnalytics para imediato
processamento e eventual análise. Por indiretamente lidar com
informações de uso e envolvimento do usuário, a própria Embar-
cadero faz questão de ressaltar em caixa alta a forma anônima que
o componente atua, se restringindo a transmitir as informações
somente ao contexto da aplicação em questão.
Figura 3. Propriedade ControlType
TMapView
Agora no XE8 os aplicativos para Android e iOS com FireMonkey
oferecem suporte ao componente TMapView, cuja função es-
sencial é prover interatividade com os mapas dessas aplicações
por meio de ações como: controle por gestos (gestures), adição
de marcadores (markers), controle de coordenadas e orientação.
Figura 2. Componente TAppAnalytics Adicionalmente, ainda por meio do uso de um objeto MapView
é possível determinar o estereótipo do mapa por entre quatro
Novidades para FireMonkey segmentações: normal, satélite, híbrido e terreno.
O Delphi XE8 traz consigo também uma série de melhorias Aqui um ponto de observação: em aplicativos para Android, o
para o FireMonkey. Grande parte delas trata de pequenos uso do TMapView requer a obtenção de um certificado adicional
aspectos sutis, mas que não deixam de impactar de forma da própria Google, denominado Google Maps API Key para a
direta em diversos pontos relacionados a um projeto Mobile efetiva utilização das funcionalidades envolvidas. Caso isso não
Application. seja feito, tal pontualidade acaba por se tornar um fator determi-
nante, uma vez que em tempo de execução uma exceção é gerada,
TWebBrowser inviabilizando o uso ideal da aplicação. Esse certificado é gerado
O TWebBrower é um componente visual do FireMonkey que, usando o login no Google.
uma vez adicionada à aplicação, toma a forma de um Web Browser
interno permitindo que este carregue e mostre conteúdos Web Photo Library
em sua área. Inicialmente introduzido na ferramenta como sendo De olho na melhor usabilidade e experiência do usuário em
de uso exclusivo às construções Mobile (Android e iOS), agora suas aplicações móveis, o FireMonkey conta agora com um
no XE8 seu uso é expandido às construções Desktop (Windows recurso que possibilita salvar fotos capturadas pela câmera do
e Mac OS X). dispositivo diretamente na biblioteca de fotos do sistema do
próprio aparelho.
Apresentação nativa de diversos controles no iOS Na prática, a utilização desta nova opção se dá pelo envolvimento
Nesta nova versão do IDE, especificamente para projetos de e manuseio de alguns elementos distintos. O primeiro a ser citado
Target Platform iOS, os tradicionais controles TCalendar, TEdit, é o IFMXPhotoLibrary, que caracteriza uma interface para salvar
TListView, TMemo, TMultiView e TSwitch ganham agora uma as imagens no álbum de fotos do sistema. Para isso, sua estrutura
forma de apresentação nativa (native), em complemento a sua já conta com um método exclusivo denominado intuitivamente de
existente apresentação estilizada (styled). O impacto direto pela AddImageToSavedPhotosAlbums, que acaba por dispensar co-
escolha de uma ou outra forma de apresentação se dá então sobre mentários. Relacionado a isso surge então outros dois elementos,
o aspecto visual do controle, fazendo com que o mesmo assuma TParamsPhotoQuery e IFMXCameraService, ambos relacionados
uma representação nativa da própria plataforma de destino, à obtenção de fotos a partir da câmera. Por fim, a propriedade
quando marcado como native, ou siga uma estilização do próprio NeedSaveToAlbum é que determina se a aplicação poderá ou não
FireMonkey, no caso de styled. Na prática, essa escolha se dá pela salvar as fotos obtidas pela câmera na biblioteca de fotos.
configuração da propriedade ControlType dos controles, conforme
mostrado na Figura 3. Standard Actions para TMediaPlayer
Sem deixar de citar, apesar da novidade, styled ainda se mantém Na FMX, TMediaPlayer é o componente responsável pela mani-
como o valor padrão para a propriedade. pulação de arquivos multimídia, garantindo a devida interação
Copyright - Proibido copiar ou distribuir. Todos os direitos reservados para DevMedia Edição 164 • ClubeDelphi5
5
Conheça as novidades no Delphi XE 8
da aplicação com formatos de áudio e vídeo. Logo, neste novo

release, o componente Action List (TFMXActionList) acaba por
ganhar novos acréscimos de Standard Actions, agora relacio-
nadas a TMediaPlayer, aumentando ainda mais a lista de ações
pré-definidas disponibilizadas ao desenvolvedor. Num total de
cinco ações, três descendem de TCustomMediaPlayerAction e
cada uma acaba por determinar um comportamento singular
do player:
• TMediaPlayerStart: inicia (start) ou continua (resume) a repro-
dução da mídia;
• TMediaPlayerStop: interrompe a reprodução da mídia;
• TMediaPlayerPlayPause: inicia ou determina uma pausa na
reprodução da mídia.
Na mesma medida, as outras duas são originárias de TMedia-

PlayerValue e lidam com valores de propriedades do player:
• TMediaPlayerCurrentTime: provê controle sobre o tempo atual
(propriedade CurrentTime do player) da mídia;
• TMediaPlayerVolume: provê controle sobre o volume (proprie-
dade Volume do player) da mídia.
Figura 4. Propriedade ControlType
Form Positioner
O Form Positioner é um recurso presente no Delphi que, con-
forme seu próprio nome sugere, está voltado à definição do posi- CaptureSettings
cionamento dos formulários da aplicação. Já presente há bastante Como já é sabido, TCameraComponent é o componente de
tempo no IDE para projetos do tipo VCL Forms, sua representação câmera da FMX. Em sua utilização, a propriedade Quality é que
visual incide em um ícone localizado na parte inferior direita do define a qualidade da captura. Até a versão XE7 essa definição
Form Designer do IDE (Figura 4), denominado Form Positioner se dava pela escolha entre quatro opções, cada qual referente a
Preview. Por meio de seu acionamento é possível então determinar um nível de resolução distinta: PhotoQuality, HighQuality, Me-
a posição que será adotada pelo Form quando a aplicação estiver diumQuality e LowQuality.
em execução (run-time). Olhando pelo lado técnico, a declaração da propriedade citada
Dito isto, agora no XE8, a novidade neste quesito fica por conta da ocorre como a seguir:
disponibilidade deste recurso também para projetos FireMonkey,
isto porque, conforme já mencionado, o mesmo era restrito a property Quality: TVideoCaptureQuality read GetQuality write SetQuality;
construções VCL.
Logo, seu tipo TVideoCaptureQuality nada mais é que um
ImageList enumerado, cuja a estrutura até a versão anterior da ferramenta
Já bastante tradicional na VCL, o ImageList é um componente pode ser vista a seguir:
centralizador de pequenas imagens, formando assim uma coleção
que servirá de aporte aos diversos elementos de interface visual TVideoCaptureQuality = (PhotoQuality, HighQuality, MediumQuality, LowQuality);
(GUI) de uma aplicação, tais como menu, botões, etc. Seguindo
por esta mesma linha, nesta versão do IDE, enfim o FireMonkey Agora no Delphi XE8 essa mesma estrutura conta com uma pe-
ganha o seu TImageList, cuja proposta de uso se assemelha ao quena alteração, com a adição de um novo elemento denominado
ImageList habitual da VCL. CaptureSettings:
Embora parecido, o componente da FMX acaba por apresentar
recursos adicionais se comparado ao seu coirmão. O principal de- TVideoCaptureQuality = (PhotoQuality, HighQuality, MediumQuality, LowQuality,
les diz respeito ao seu trabalho automático com bitmaps de várias CaptureSettings);
resoluções (multi-resolution bitmaps), o que garante a apropriada
visualização da imagem nas mais distintas resoluções em que a Como pode se presumir, CaptureSettings abre então mais
aplicação poderá ser executada. Tal comportamento acaba por se uma opção ao desenvolvedor com relação à definição da
tornar essencial, tendo em vista a característica multi-plataforma qualidade de captura do componente de câmera para projetos
do FireMonkey, que implica sua atuação em muito mais cenários FireMonkey. Por definição, ela provê uma forma customizada
que a VCL. de resolução.
6
Novidades na RTL TBluetooth
Como não poderia deixar de ser, o core do Delphi também ganha Ainda relacionado a Bluetooth, o XE8 conta com a adição de
melhorias neste novo release da ferramenta. Sendo assim, agora no um novo componente em sua Tool Palette (Figura 6) denominado
XE8 a RTL (Run-Time Library) ganha o acréscimo de novas units, TBluetooth. Sua função principal é agir como um wrapper das
o que resulta em novos recursos e componentes abrangentes aos classes do Bluetooth “clássico” do framework do Delphi, tais como
dois contextos de desenvolvimento do IDE: VCL e FMX. TBluetoothManager e TBluetoothDevice, encapsulando assim os
principais recursos das mesmas. Com essa simples mudança a
TNetHTTPClient e TNetHTTPRequest Embarcadero novamente foca no aspecto RAD que consagrou a
Conforme mostra a Figura 5, TNetHTTPClient e TNetHTTPRe- ferramenta, tornando possível uma abordagem totalmente base-
quest são dois novos componentes que surgem na RunTime Library ada em componentes por parte do desenvolvedor.
do Delphi. De forma básica a usabilidade de ambos está totalmente
inter-relacionada, uma vez que lidam diretamente com questões
cliente-servidor do contexto HTTP. Mais especificamente, por meio
de seus recursos (métodos, propriedades e eventos) torna-se facili-
tada as eventuais tratativas de pedidos de request cliente, tal qual
a ação de resposta (response) oriunda do servidor HTTP.
Figura 6. Componente TBluetooth
Hash API
A RTL traz ainda uma nova API Hash, centrada na também
nova unit System.Hash, que inclui toda uma estrutura de clas-
Figura 5. Componentes TNetHTTPClient e TNetHTTPRequest ses e métodos que habilitam o uso direto de três funções Hash
na construção de aplicações Delphi: MD5 (THashMD5), SHA-1
Suporte a Beacon (THashSHA1) e Bob Jenkins (THashBobJenkins). A fim de facilitar
No cenário tecnológico mais recente, a palavra beacon é um sua utilização, todas acabam por apresentar diversos métodos
termo empregado para designar um dispositivo Bluetooth Low em comum, tal qual GetHashString, que retorna o valor Hash da
Energy. Esta tecnologia nada mais é do que um tipo de Bluetooth string fornecida, e Update, que atualiza o valor Hash.
específico, que pode incluir informações em seus dados de pu-
blicidade (advertising) as quais possibilitarão sua identificação e FixedInt e FixedUInt
cálculo de sua distância por qualquer outro dispositivo, dentro de A partir desta versão o Delphi passa a contar com dois novos
uma margem de área, sem que ele esteja efetivamente conectado tipos Integer, denominados FixedInt e FixedUInt. Por definição
ou emparelhado ao dispositivo Beacon (Beacon device). ambos são do tipo inteiro com um tamanho fixado em 32 bits
Visando atender a mais este cenário de possibilidades, o Delphi invariável, o que garante uma melhor interoperabilidade no seu
XE8 inclui na RTL uma API Beacon exclusiva, restrita a projetos uso tanto em projetos para 32-bit quanto 64-bit.
para Mac OS X, iOS e Android. Por questões de acessibilidade, a Como diferencial, FixedInt se apresenta como um tipo assinado
plataforma Windows não é suportada. Além disso, até o presente (signed), abrangendo valores que vão de -2147483648 a 2147483647.
momento, dois são os tipos Beacon suportados: Em seu uso prático, para projetos de Target Platform Windows
• iBeacon: formato proprietário definido pela Apple, tido como (32 e 64-bit), FixedInt é equivalente ao tipo LongInt, enquanto que
o modo “padrão”; para as outras plataformas de destino (que inclui Mac OS X, iOS
• AltBeacon: formato aberto. Também conhecido como Alter- e Android) sua equivalência se faz ao tipo Integer tradicional. Já
native Beacon e, portanto, tido como modo “alternativo” pela FixedUInt é considerado um tipo não-assinado (unsigned), cujo
ferramenta. intervalo compreende os valores de 0 a 4294967295. Em comple-
O ponto de vista prático deste suporte a Beacon no Delphi acaba mento, o tipo LongWord é seu equivalente para projetos para a
por envolver diversas nuances, o que dá margens à elaboração de plataforma Windows, na mesma medida que o tipo Cardinal é
um artigo exclusivo deste contexto. Todavia, apenas para citar, o iní- seu equivalente para as plataformas Mac OS X, iOS e Android.
cio da efetiva utilização do recurso ocorre por meio da obtenção de
uma instância de TBeaconManager, tal como mostrado a seguir: LongInt e LongWord
Ainda com relação a tipos inteiro, o XE8 apresenta um dife-
BeaconManager := TBeaconManager.GetBeaconManager(TBeaconScanMode.Standard); rencial para os tipos LongInt e LongWord, especificamente ao
Copyright - Proibido copiar ou distribuir. Todos os direitos reservados para DevMedia 77

Edição 164 • ClubeDelphi
desenvolvimento para a plataforma iOS 64-bit. Tal mudança se DCCIOSARM64 é o nome do compilador nativo que, a partir
refere à duplicação do tamanho de bytes suportado pelo tipo, de deste release, fica responsável pela produção de aplicações iOS
4 para 8 bytes, exclusivo em sua atuação nesta plataforma. Para tidas como universais – Universal iOS Apps – que refletem então
todas as outras, incluindo iOS 32-bit e Windows 64-bit, o tamanho aplicativos Delphi para a plataforma, prontas a rodar tanto em
de 4 bytes é mantido. dispositivos 32 quanto 64-bit. No aspecto prático, este recurso é
habilitado por meio da opção “Generate iOS universal binary file
IDE e Compilador (armv7 + arm64)”, disponível nas opções de projeto cuja Target Pla-
As novidades nessa versão do Delphi incluem também novos as- tform esteja marcada exclusivamente como iOS Device 64-bit.
pectos singulares que abrangem o próprio IDE, que é o ponto base
de interação com o usuário desenvolvedor. Isso inclui também Multi-Device Preview
toda sua parte de compilador que desde as versões mais recentes Multi-Device Preview é o nome de um novo recurso que dá ao de-
do produto, apresenta uma gama de elemento que transcende a senvolvedor uma prévia do visual de uma mesma aplicação, ainda
engine tradicional para Win32. em tempo de Design, em diversos aparelhos distintos, facilitando
eventuais ajustes necessários. Em termos de localização, o recurso
Nova Target Platform: iOS Device – 64-bit fica disponível no menu View (View > Multi-Device Preview) da
Em seu cenário recente o Delphi acabou por incorporar a seu con- ferramenta e é habilitado para projetos do tipo Multi-Device. Para
texto uma gama de plataformas distintas, em complemento ao seu exemplificar melhor o que foi dito, a Figura 8 mostra então o Multi-
tradicional suporte ao Win32. Assim, a partir de uma mesma base Device Preview em ação, a partir de um projeto FireMonkey.
de código, o desenvolvedor consegue agora produzir aplicativos
tanto para Desktop quanto Mobile, em quatro opções diferentes
de sistemas operacionais: Windows, Mac OS X, iOS e Android.
Como já é sabido, na prática, o direcionamento de um projeto a
uma plataforma alvo se dá pela configuração de sua Target Plat-
form, disponível no Project Manager do IDE. Como novidade, a
versão XE8 conta agora com o acréscimo de mais uma nova opção
de plataforma de destino, denominada iOS Device – 64-bit, tal
como mostra a (Figura 7). Sua nomeação autoexplicativa acaba
por determinar seu fundamento, que é a produção de aplicativos
para dispositivos iOS 64-bit.
Figura 8. Multi-Device Preview
Em razão do próprio rumo que a ferramenta tomou em seus úl-

timos tempos, este recurso acabou por se tornar uma necessidade
natural e essencial ao desenvolvedor que a partir de uma base de
código única, irá produzir aplicativos para diferentes plataformas
e dispositivos. Até a versão anterior da ferramenta, este preview
da aplicação em tempo de design para devices diferentes se dava
por meio de uma opção única, referente a cada dispositivo, o
que acabava por gerar uma ação repetitiva ao desenvolvedor.
Agora com a chegada do Multi-Device Preview ganha-se em
Figura 7. Nova Target Platform iOS Device – 64 bit produtividade.
Novo compilador para iOS 64-bit Device Manager

Em vista das recentes mudanças no cenário Apple relacionadas O Device Manager surge como um recurso essencial ao as-
ao desenvolvimento de aplicativos para os seus dispositivos, em pecto multi-device que a ferramenta tem tomado em tempos
que agora a App Store exige que aplicativos para iOS 32-bit ofere- recentes. Por definição, ele se caracteriza como uma grade de
çam suporte a dispositivos iOS 64-bit, nesta versão XE8 do Delphi device presets, que nada mais são do que predefinições visuais
são apresentadas melhorias a fim de atender a este quesito. de dispositivos, conforme pode ser visto na Figura 9.
8
Listagem 1. Predefinições para iPhone 4
...
<MobileDevice>
<Displayname>iPhone 4”</Displayname>
<Name>iPhone4in</Name>
<DevicePlatform Default = “True”>2</DevicePlatform>
<FormFactor>2</FormFactor>
<Portrait Enabled=”True” Width=”320” Height=”568” Top=”127” Left=”39”
StatusbarHeight=”20” Artwork=”$(BDS)\ObjRepos\en\Devices\images\
iphone5.cpng” StatusBarPos=”0”/>
<UpsideDown Enabled=”True” Width=”320” Height=”568” Top=”124” Left=”34”
<LandscapeLeft Enabled=”True” Width=”568” Height=”320” Top=”39” Left=”124”
<LandscapeRight Enabled=”True” Width=”568” Height=”320” Top=”34”
Left=”127” StatusbarHeight=”20” Artwork=”$(BDS)\ObjRepos\en\Devices\
images\iphone5270.cpng” StatusBarPos=”0”/>
</MobileDevice>
...
Figura 9. Device Manager

Citando a edição manual do arquivo DevicePresets.xml, tal
atividade acabar por exigir o conhecimento adequado das tags
Logo, cada preset desse pode ser usado em tempo de design, de marcação envolvidas. Em vista disso, a seguir são expostas as
como apoio à parte visual dos formulários de projetos construtivos tags tidas como essenciais:
de aplicações FireMonkey Multi-Device. Sem deixar de citar, por • <MobileDevice>: tag principal que essencialmente define um
padrão, a própria instalação do Delphi XE8 já traz consigo uma dispositivo;
série de device presets elaborados, prontos para uso no IDE. • <Name>: nome único do Device;
Essas predefinições refletem o aspecto de alguns dispositivos • <DisplayName>: nome “amigável” de exibição para o Device;
genéricos disponíveis no mercado, tais como iPhone, Microsoft • <DevicePlatform>: plataforma relacionada ao Device, sendo 0
Surface e OS X, além de outros mais específicos, como Samsung para Windows, 1 para Mac OS X, 2 para iOS e 3 para Android;
Galaxy S4 e Samsung Galaxy Tab 7.0. Essas definições ficam então • <FormFactor>: definição da forma do dispositivo entre nove
centralizadas em um arquivo especial denominado DevicePresets. opções enumeradas, onde as principais são Desktop (0), Phone
xml (até o XE7 tratado como MobileDevices.xml), localizado em: (2) e Tablet (3).
• <UserData>: determina se esta definição poderá ser editada a
C:\Users\<nome_do_usuario>\AppData\Roaming\Embarcadero\BDS\16.0 partir do Device Manager;
• <Portrait>, <UpsideDown>, <LandscapeLeft> e <Landscape-
Analisando seu conteúdo é possível notar a menção a algumas Right>: cada uma se refere à definição de uma orientação espe-
das predefinições citadas anteriormente, tal como o trecho a seguir cífica a ser usada pelo Device.
da Listagem 1, referente ao device iPhone 4.
Em decorrência disso, fica fácil pressupor que o Device Manager Add Featured Files
provê também recursos suficientes para a manipulação de novos Este recurso toma a forma de uma janela de diálogo que é
device presets, o que inclui a inclusão, alteração e exclusão destes. acionada toda vez que um novo arquivo com dependência é adi-
Essas ações ocorrem pelo acionamento dos botões indicativos – cionado ao projeto através do Project Manager. Aqui, o Delphi
Add, Edit e Delete – presentes na própria estrutura do Device estabelece “arquivos com dependência” como sendo aqueles com
Manager, cujos resultados incidem diretamente sobre o conteúdo as seguintes extensões: .gdb, .ib, .fb, .fdb, .dbf, .db, .s2db, .s3db e
do arquivo especial citado, refletindo posteriormente também .sdb. Conforme pode ser notado, em sua essência, tais extensões
sobre o IDE. Em complemento, uma alternativa a este cenário se dá se referem a arquivos de dados, tal como .gdb, representativo de
ainda pela manipulação direta do arquivo em questão. Em suma, arquivos de banco de dados InterBase e .fdb, de arquivos de banco
a definição de um device preset envolve as seguintes informações de dados Firebird. Em comum, todos eles implicam a inclusão
relacionadas ao dispositivo: de algum recurso complementar ao deployment configuration
• Apelido, um nome amigável de exibição no IDE; do projeto.
• Orientações do dispositivo; A fim de antecipar e facilitar todo este processo, o Delphi agora
• Tamanho de exposição (display size) relacionada a cada orientação; acaba por exibir a janela de Add Featured Files no exato momento
• Tamanho e posição da barra de status; após a inclusão de qualquer um desses arquivos ao projeto. De
• Imagem para o frame do dispositivo. forma ilustrativa, a Figura 10 esboça uma situação em que um
Copyright - Proibido copiar ou distribuir. Todos os direitos reservados para DevMedia Edição 164 • ClubeDelphi
99
arquivo .gdb foi adicionado ao projeto, fazendo com que a janela Add • Suporte a envios de atualizações a repositórios remotos – Push;
Featured Files fosse acionada, já contemplando os arquivos comple- Além disso, agora temos a atualização da cópia de trabalho
mentares necessários para o ideal deploy futuro da aplicação. (working copy) com as últimas alterações provindas do repositório
remoto – Pull.
BOX 1. Git
Git é um sistema de controle de versão distribuído, de caráter livre, voltado ao gerenciamento de

código-fonte. Sua concepção foi iniciada por Linus Torvalds, o “criador do Linux”, sendo adotada
posteriormente por diversos projetos. Em sua estrutura prática, cada diretório de trabalho do Git
é considerado um repositório, o que implica o envolvimento de um histórico completo de log. Em
tempos recentes, o suporte a Git foi adicionado ao Delphi, fazendo sua popularidade crescer ainda
mais em meio à comunidade.
Suporte a Mercurial
Ainda relacionado a gerenciamento de código-fonte, o IDE do
Delphi XE8 traz ainda como novidade o suporte a mais um sistema
de controle de versão, agora o Mercurial, que se junta aos coirmãos
anteriores, Subversion e Git. Em uma breve definição, salvo suas pecu-
Figura 10. Janela Add Featured Files liaridades, o Mercurial tem sua essência aproximada ao Git, uma vez
que se caracteriza como sendo um distributed version control system
Desabilitando Built-in RAD Studio Java Libraries ou, em português, sistema de controle de versão distribuído. Neste
Outra novidade trazida especificamente para projetos Android, início de parceria (Delphi-Mercurial), três são as ações principais
diz respeito ao descarte de bibliotecas Java built-in em um projeto. quanto ao uso da ferramenta sob o contexto do XE8: Clone, Commit
Neste contexto, o termo built-in é empregado para designar as e Show Log. A primeira efetua uma cópia íntegra de um repositório
Java Libraries “embutidas” nativamente pelo Delphi para seus remoto para o início dos trabalhos locais. Já a segunda, Commit, envia
projetos deste segmento. Por questões óbvias, de acordo com a as alterações para o repositório local, enquanto a última simplesmente
essência do projeto, uma ou outra biblioteca acaba por se tornar mostra as informações de log do projeto.
desnecessária e sua remoção é quase que obrigatória para tor- A partir disso, sem sombra de dúvidas, este recurso é digno de
nar a aplicação mais enxuta e otimizada. Todavia, até o XE7 o um artigo completo sobre o mesmo, uma vez que envolve nuances
processo de remoção de uma Built-in Java Library de um projeto que o fomentam como um produto bastante singular.
era algo não tão trivial, e fundamentalmente envolvia a mani-
pulação de um arquivo complementar denominado classes.dex. Settings Migration Tool
A fim de simplificar esta abordagem, o Delphi XE8 possibilita Settings Migration Tool é o nome de uma ferramenta externa que
que qualquer built-in Java library seja desabilitada por meio do acompanha a instalação do Delphi XE8, cuja função é realizar a im-
próprio Project Manager, tal como mostra a Figura 11. portação e exportação de definições de configuração (configuration
settings) entre versões distintas do IDE. De forma fundamental, seu
principal uso se dá pela eventual migração/transporte de definições
de configuração do IDE a diferentes instâncias instaladas em am-
bientes distintos. Ainda dada sua utilização, dois aspectos restritivos
são impostos pela ferramenta. A primeira se reflete em seu suporte,
previsto a todas as versões do produto a partir do Delphi 7, logo,
outros releases clássicos, tal como o Delphi 5, estão fora do contexto
proposto. Outra restrição existente se dá pelo próprio processo de
migração, que ocorre sempre em linha linear crescente, o que esta-
Figura 11. Opção Disable para Built-in Java Libraries belece uma atividade entre versões de mesma numeração ou maior
(Ex: de XE2 para XE8, nunca de XE2 para XE8).
Melhorias para Git Por padrão, o Settings Migration Tool é disponibilizado em:
A integração do IDE com o sistema de gerenciamento de código-
fonte Git (BOX 1) é melhorado nesta versão por meio do acréscimo C:\Program Files (x86)\Embarcadero\Studio\16.0\bin
de duas novas funcionalidades:
• Suporte a autenticação para conexões a repositórios privados A seguir, a Figura 12 mostra sua janela de execução, a qual
remotos – Authenticate; apresenta suas principais operações:
10
• Export settings to a migration file: exporta as definições de Customer Experience Program
configuração para um arquivo XML tradicional, porém com uma Customer Experience Program é a denominação dada a um
extensão própria (.idesettings); programa colaborativo proposto pela Embarcadero, cujo intuito
• Migrate settings to a newer product version: migra as definições é coletar dados anônimos dos usuários da ferramenta durante
de configuração para uma nova instância do IDE instalada na sua interação com o IDE. Já existente há algum tempo em grande
máquina corrente; parte de seus concorrentes, esse tipo de programa visa a tomada
• Restore settings from backup: restaura as configurações a partir de decisões mais assertivas, por parte da empresa fabricante, no
de uma cópia de segurança provida; que diz respeito a eventuais melhorias ou mudanças na experi-
• Import settings from a migration file: importa um arquivo ência do usuário com o ambiente de desenvolvimento. Sob a ótica
.idesettings. da empresa, tal usuário representa desde o profissional da área,
passando por programadores casuais, até simples aventureiros.
Por envolver a transmissão de dados pessoais, a Embarcadero
apenas disponibiliza o acesso ao programa no próprio IDE do
Delphi XE8, cabendo ao usuário seu ingresso voluntário ao Cus-
tomer Experience Program. Logo, tal opção é acessível por meio
menu Tools > Options > Environment Options, conforme mostra
a Figura 13.
Figura 12. Setting Migration Tool
Castalia
O IDE do XE8 conta agora com a integração nativa a uma ferra-
menta já bastante conhecida em meio à comunidade de desenvol-
vedores Delphi, o Castalia. De forma breve, este plug-in pode ser
Figura 13. Opção Customer Experience Program
definido como um facilitador de tarefas ao desenvolvedor, rela-
cionadas ao desenvolvimento de software dentro do IDE. A partir
de um ponto de vista mais conceitual, todas essas tarefas podem Novo sistema de Help off-line
então ser subdivididas em quatro segmentos independentes: O arquivo de Ajuda (Help) off-line que acompanha a instalação
• Recursos Visuais: compreende o conjunto de elementos visuais do Delphi XE8 apresenta um novo formato, se comparado com o
de apoio que se incorporam ao editor de código (Code Editor) do formato apresentado até o XE7. Anteriormente o formato utilizado
Delphi; era denominado H2, e sua visualização ficava atrelada a um de-
• Recursos Não-Visuais: compreende o conjunto de atalhos, os quais terminado visualizador. Agora o Microsoft Compiled HTML Help
irão prover facilidades e funcionalidades durante a codificação; (.chm) é o novo formato adotado, cuja popularidade e simplicidade
• Controles de edição de código: faz referência aos controles in- se mostram superiores à opção anteriormente existente.
corporados ao IDE que colaboram na navegação de código;
• Menu: envolve as funcionalidades e estatísticas de código. Novidades para FireDAC
No cenário Delphi recente, o FireDAC se consolidou defini-
Tais quais outros recursos apresentados nesta versão do IDE, tivamente como a principal opção nativa para acesso a dados,
o Castalia mostra-se complexo o suficiente para o natural sur- numa substituição quase que completa do dbExpress. Em vista
gimento de artigos exclusivos sobre o tema, fundamentalmente disso, a cada nova versão da ferramenta a expectativa (e neces-
direcionados ao seu uso prático. sidade) por novidades e melhorias torna-se bastante grande.
Copyright - Proibido copiar ou distribuir. Todos os direitos reservados para DevMedia Edição 164 • ClubeDelphi 11
11
No XE8 o principal atrativo do FireDAC é o seu novo driver nativo, Box2D

baseado em ODBC, para Teradata Database (BOX 2). Seguindo por Box2D é o nome de uma engine de código aberto relacionada
esta linha, outra melhoria a ser citada se dá pela atualização de à física 2D direcionada à criação de jogos. Sua utilização em
seu driver para SQLite, elemento este fundamental para cenários projetos Delphi se dá pela simples configuração do Search Path
Mobile nos dias atuais. do mesmo, disponível nas opções de compilador. Neste ponto, o
direcionamento deve ser feito para “${BDS)\source\FlatBox2D”.
BOX 2. Teradata Database Isso é o suficiente para que as units sejam encontradas pelo IDE e
referenciadas no código, habilitando o uso das classes e recursos
Teradata Database é a denominação dada a um software de banco de dados que se responsabiliza
do Box2D.
por armazenar as informações direcionadas a ele em um ambiente de arquitetura paralela aberta.
Funcionalmente, o Teradata Database é executado sob uma plataforma exclusiva nomeada Teradata
DUnitX
Active Enterprise Data Warehouse. Ambas as tecnologias são parte integrante do conjunto de
O novo Delphi conta agora também com suporte a um novo
soluções desenvolvido pela empresa Teradata Corporation.
framework de testes, o DUnitX que, conforme sua nomeação su-
gere, pode ser interpretado como uma evolução do já tradicional
Novidades para EMS DUnit. Com uma gama de métodos a asserções próprias, a utiliza-
O Enterprise Mobility Services, ou simplesmente EMS, é a solução ção do DUnitX é prevista para projetos Desktop, o que atualmente
pronta para aplicações distribuídas que a Embarcadero incorporou inclui Windows (32 e 64 bits) e Mac OS X.
ao Delphi em sua versão anterior (XE7). Dadas as suas pretensões
era natural de se prever uma evolução bastante consistente do EMS GetIt
em seus releases posteriores ao seu lançamento. Em vista disso, Por meio de seu menu Tools, o novo IDE do Delphi provê acesso
agora no XE8 o framework apresenta novos acréscimos e melhorias a um novo utilitário denominado GetIt que, fundamentalmente,
pontuais, a começar pela adição de um novo resource, nomeado permite o download e instalação de pacotes exclusivos, tratados
EMS Installations, que fica responsável, entre outras coisas, por aqui como “GetIt Packages”. Cada package pode conter então
mostrar os dados do EMS Console Server. Ainda relacionado aos diversos recursos de apoio ao contexto do desenvolvimento,
dados do Server, toda sua parte analítica pode ser agora exportada tais como bibliotecas, novos componentes e extensões da fer-
para arquivos de extensões .csv. ramenta.
Além de EMS Installations, outro novo resource incorporado ao Dentre as novidades do XE8 os destaques ficam por conta de
contexto é o EMS Push Resource, que fundamentalmente arma- quatro pilares: o suporte a Mercurial, a integração nativa com o
zena os dados de mensagens de push enviadas do EMS Server Castalia, as melhorias no Enterprise Mobility Services e a adição
aos dispositivos registrados. Outra novidade apresenta-se sob o do DUnitX.
nome de EMS Management Console Application (EMSManage-
mentConsole.exe), que nada mais é do que uma aplicação pronta Autor
de amostra, distribuída junto da instalação do Delphi XE8, que
Fabrício Hissao Kawata
pode ser usada para aspectos básicos do contexto EMS, tais como
fabricio.kawata@bol.com.br
manipulação de dados do servidor e envio de mensagens a dis-
Formado em Processamento de Dados pela FATEC-TQ e pós-
positivos cliente. graduado em Engenharia de Componentes. Atua como Analista
O aplicativo é fisicamente disponibilizado em duas versões, Programador Delphi há 9 anos.
sendo uma 32 e outra 64 bits, localizadas nativamente em:
C:\Program Files (x86)\Embarcadero\Studio\16.0\bin Links:

C:\Program Files (x86)\Embarcadero\Studio\16.0\bin64
RAD Studio XE8 - Página oficial do produto
http://www.embarcadero.com/products/rad-studio
Além disso, dentre as novidades podemos destacar os aperfei-
çoamentos na integração com FireDAC, o novo componente EMS- RAD Studio XE8 – Download Trial
ClientAPI para simplificar o desenvolvimento do lado do cliente https://downloads.embarcadero.com/free/rad_studio
e as análises aperfeiçoadas para usuários e grupos.
Novidades de Third-Party Você gostou deste artigo?

Além de novos recursos próprios, o Delphi XE8 conta ainda com
novidades de terceiros, os chamados elementos third-party, que Dê seu voto em www.devmedia.com.br/clubedelphi/feedback
se agregam ao produto em meio a sua instalação padrão. Ajude-nos a manter a qualidade da revista!
12
Desenvolvendo um
Sistema Financeiro em
Delphi– Parte 3
Implementação da camada de acesso a dados
Este artigo faz parte de um curso Fique por Dentro

Neste artigo iremos tratar de um tópico muito importante em um
projeto orientado a objetos, que é a camada de acesso a dados. É
mostrado como implementar classes DAO, onde temos o mapea-
O
Delphi, no que diz respeito a linguagem, imple- mento das classes de negócio para tabelas no banco de dados e o
menta todos os requisitos de uma linguagem mapeamento das propriedades para as colunas das tabelas criadas, e
orientada a objetos, pois nos permite fazer vice-versa. Veremos objetos sendo transformados em linhas na tabela
abstração, encapsulamento, herança e polimorfismo. e propriedades transformadas em colunas.
Porém, o que mais vemos nos desenvolvedores Delphi é
o desenvolvimento de aplicações de forma estruturada,
onde são explorados apenas os recursos RAD que o IDE ra bastante semelhante ao mundo real, o que torna-se um desafio
proporciona. a mais quando precisamos fazer a persistência destes nos bancos
Um dos grandes pontos negativos de trabalhar com de dados relacionais.
Delphi é a falta de um framework de mapeamento
BOX 1. Inversão de Controle e Injeção de Dependência
objeto-relacional robusto e que seja apoiado pela Em-
barcadero. Existem iniciativas como o DORM (open- Este princípio é a base para qualquer bom design de software orientado a objetos. O princípio da
source) e o Aurelius (comercial), mas são soluções que Inversão de Dependência nos diz que módulos de alto nível não devem ser dependentes de módulos
ainda não se tornaram populares. Neste artigo veremos de baixo nível, ambos devem depender de abstrações, que por sua vez, não devem depender de
uma solução manual para resolver esse problema de detalhes.
mapeamento objeto-relacional. Existem boas práticas, Inverter a dependência faz com que o cliente não fique frágil a mudanças relacionadas a detalhes
como a Inversão de Controle (BOX 1), que no Delphi de implementação, isto é, mudar um detalhe da implementação não faz com que sejam necessárias
não possui um framework apoiado e incentivado pela alterações no cliente. Este princípio é bastante presente em muitos padrões de projeto, pois a
Embarcadero. maioria deles definem uma interface para que não haja dependências de implementações.
Apesar da ferramenta não oferecer um framework Outro padrão que geralmente anda junto com o princípio de inversão de dependência é a
nativo para trabalharmos com orientado a objetos, a Injeção de Dependências, que é uma forma de conseguir a inversão de controle. Nesta solução, as
Delphi Language possui todos os recursos necessários dependências entre os módulos não são definidas programaticamente, mas sim pela configuração
para desenvolvermos orientado a objetos, como Generics de uma infraestrutura de software (container) que é responsável por injetar em cada classe suas
e Métodos Anônimos. dependências declaradas.
O padrão de Injeção de dependências sugere que uma conexão com banco de dados seja injetada
Impedância Objeto Relacional na classe. Com isso, além de inverter a dependência, a classe não precisa se preocupar com o ciclo de
A Orientação a Objetos traz como principal vantagem vida das suas dependências (no exemplo da conexão, a classe não precisa abrir ou fechar conexão,
sobre a estruturada a representação de objetos de manei- apenas receber uma referência desta conexão e a utiliza).
13
Desenvolvendo um Sistema Financeiro em Delphi– Parte 3
Existem soluções de bancos de dados orientados a objetos, mas evitando erros em tempo de execução do tipo Invalid Type Cas-
estes ainda não se tornaram populares, sendo os bancos de dados ting, muito comum para quem trabalhava com listas de objetos em
relacionais ainda muito mais utilizado que estes. versões anteriores a 2009 em Delphi. Para fazer uso de Generics
Não existe uma conversão direta entre os objetos que cons- temos que declarar o namespace System.Generics.Collections na
truímos nas linguagens de programação e o banco de dados seção uses do código.
relacionais, por isso é necessário criarmos o que é chamado de As duas principais classes deste namespace são a TList<T> e
Mapeamento Objeto-Relacional, onde objetos são transformados TobjectList<T>. A Classe TList<T> possibilita guardar coleções
geralmente em registros em uma tabela e vice-versa. de qualquer tipo de dados, tanto primitivos quanto objetos. Já
a classe TObjectList<T>, que é uma especialização de TList,
Mapeamento Objeto Relacional pode armazenar somente objetos. Ela tem a vantagem de que
Isso surgiu porque precisamos salvar o estado de um objeto (atri- no momento que liberarmos sua instância da memória, todos
butos, herança, polimorfismo) em tabelas do banco de dados. O os objetos contidos nela também são liberados, diferentemente
mapeamento básico pode ser feito através de conversões manuais das instâncias de TList, onde no caso de as usarmos para arma-
ou através de frameworks de persistência, onde ambas possuem zenar objetos, precisamos liberar cada objeto individualmente
vantagens e desvantagens, mas a conversão manual nos dá uma da memória.
melhor performance, enquanto que com frameworks de persis-
tência não precisamos nos preocupar com escrita de SQL. FireDAC
Em Delphi os frameworks de mapeamento objeto relacional FireDAC é a versão da Embarcadero para o AnyDAC, que foi
geralmente nos possibilitam a configuração de persistência adquirida e integrada ao Delphi e o C++ Builder. No Delphi o
através de arquivos XML ou o recurso de annotations ou custom FireDAC está disponível na versão XE3 e XE4 com um conjunto
atributes. de componentes extras, e a partir da versão XE5 vem na instala-
No mapeamento objeto relacional básico o que temos é o ma- ção padrão.
peamento de classes para uma tabela do banco de dados, temos É um conjunto de componentes de alta performance, de fácil
também o mapeamento de objetos da classe para registros da utilização e provê conexão com vários bancos de dados, tanto
tabela e as propriedades da classe para colunas da tabela. locais quanto coorporativos. Cada banco de dados possui um
driver e trabalhado de forma diferente. Os drivers do FireDAC
Padrão DAO (Data Access Object) são nativos para cada banco de dados e ainda possui pontes para
O padrão de projeto DAO surgiu com a necessidade de separar- ODBC e dbExpress. Vários bancos de dados são suportados, entre
mos a lógica de negócios da lógica de persistência de dados. eles temos: MySQL, SQL Server, Oracle e SQLite.
Este padrão permite que possamos mudar a forma de persistên- Para quem tem projetos multicamadas com Delphi e DataSnap
cia sem que isso influencie em nada na lógica de negócio, além (BOX 2), ou também servidores REST, basta migrar a parte Server
de tornar nossas classes mais legíveis. de DBExpress para FireDAC, pois o TFDQuery é um TDataSet,
Classes DAO são responsáveis por trocar informações com o portanto compatível com o TDataSetProvider e TClientDataSet.
SGBD e fornecer operações CRUD e de pesquisas, além de ser Na parte Client, continua o TClientDataSet sem necessidade de
capaz de buscar dados no banco e transformar em objetos ou qualquer alteração. Tem suporte a Firemonkey e VCL e possui
lista desses através de listas genéricas. Também deverá receber os um conjunto de componentes visíveis e não-visíveis, DataSets,
objetos, converter em instruções SQL e mandar para o bando de Adapters.
dados. Toda interação com a base se dará através destas classes,
nunca das classes de negócio, muito menos de formulários. BOX 2. DataSnap
Se aplicarmos este padrão corretamente será abstraído comple-
O Datasnap é o mecanismo desenvolvimento multicamadas do Delphi. Servidores de aplicação
tamente o modo de busca e gravação dos dados, tornando isso
Datasnap podem ser desenvolvidos tanto em Delphi quanto C++ Builder, porém a grande
transparente para aplicação, facilitando muito na hora de fazermos
vantagem está no cliente, que pode ser desenvolvido em qualquer linguagem de programação que
manutenção na aplicação ou migração de banco de dados.
tenha suporte a JSON. Em 2009 foi criado um novo driver para o DBExpress, mas ao invés deste driver
Também conseguimos centralizar a troca de dados com o SGBD,
conectar-se a um banco de dados qualquer, ele se conectaria a um servidor de aplicação. Assim, a
assim teremos um ponto único de acesso a dados e nossa aplicação
partir do Delphi 2009 a conexão do cliente com o servidor de aplicação passou a ser feita utilizando
um ótimo design orientado a objeto.
DBExpress trafegando os dados utilizando o protocolo TCP/IP.
Generics
Generics é um recurso que foi incorporado na versão 2009 do Classe Base DAO
Delphi, que permite criar estruturas genéricas. Na orientação a Abra o projeto no Delphi para continuarmos. Para facilitar o
objetos podemos definir o tipo de retorno de uma lista de objetos trabalho com as classes DAO, criamos uma classe base a qual será
e somente serão permitidas inserções de objetos daquele tipo, do herdada por todas as classes DAO que irão interagir com o banco
contrário ocorrerá um erro ainda em tempo de compilação, assim, de dados, conforme pode ser visto na Listagem 1.
14
Listagem 1. Classe base TDAO iremos recorrer a ela, que nos dará uma conexão configurada e
pronta para executarmos comandos de consulta e atualização no
01 unit DAO.Base;
02 interface
banco de dados Firebird.
03 uses Neste exemplo, fixamos os parâmetros de conexão no atributo
04 DAO.ConnectionFactory, FireDAC.Comp.Client; ConnectionString, mas o ideal é que estes venham num arquivo
05 type
06 TDAO = class
separado como, por exemplo, um arquivo INI ou XML, para que
07 protected possamos mudar as informações do banco de dados sem que seja
08 Connection: TFDConnection; necessário compilar o aplicativo.
09 function GetKeyValue(ATable: string): Integer;
10 public
11 constructor Create; Listagem 2. Relembrando a classe TConnectionFactory
12 destructor Destroy; override;
13 end; 01 unit DAO.ConnectionFactory;
14 implementation 02 interface
15 { TDAO } 03 uses
16 constructor TDAO.Create; 04 FireDAC.Comp.Client, FireDAC.Stan.Def, FireDAC.Stan.Error,
17 begin FireDAC.Stan.Async,
18 Connection := TConnectionFactory.GetConnection; 05 FireDAC.VCLUI.Wait, FireDAC.DApt, FireDAC.Phys.FB;
19 end; 06 type
20 destructor TDAO.Destroy; 07 TConnectionFactory = class
21 begin 08 private
22 Connection.Free; 09 class var FDConnection: TFDConnection;
23 inherited; 10 public
24 end; 11 class function GetConnection: TFDConnection;
25 function TDAO.GetKeyValue(ATable, AColumn: string): Integer; 12 end;
26 var 13 implementation
27 SQL: string; 14 { TConnectionFactory }
28 Id: Integer; 15 class function TConnectionFactory.GetConnection: TFDConnection;
29 begin 16 begin
30 SQL := ‘select coalesce(max(‘ + AColumn + ‘),0) + 1 from ‘ + ATable; 17 FDConnection := TFDConnection.Create(nil);
31 Id := Integer(Connection.ExecSQLScalar(SQL)); 18 FDConnection.ConnectionString := ‘DriverID=FB;Server=127.0.0.1;
32 result := Id; Database=D:Database\DBFINANCEIRO.FDB;User_name=SYSDBA;
33 end; Password=masterkey’;
34 end. 19 FDConnection.Connected := True;
20 Result := FDConnection;
21 end;
22 end.
Nesta classe temos a declaração de uma referência para TFDCon-
nection com escopo protegido, de maneira que possamos acessar
este atributo em todas as classes derivadas desta. Usaremos este Classe TOrigemDAO
objeto em todas as classes descendentes, tanto para executar co- Para a classe de modelo TOrigem criaremos sua correspondente
mandos de consulta quanto comandos de atualização no banco DAO, chamada TOrigemDAO, apresentada na Listagem 3. Ela
de dados. deve ser capaz de receber um objeto do tipo TOrigem e persisti-
Temos também o método GetKeyValue, que deverá ser chamado lo na tabela ORIGENS do banco de dados. Da mesma forma, a
toda vez que precisarmos gerar uma nova chave para alguma classe TOrigemDAO deve ser capaz de buscar na base de dados
tabela, bastando passar por parâmetro o nome e a coluna que um registro da tabela ORIGENS e convertê-lo em um objeto da
desejamos receber a chave. classe TOrigem, como mostra a Listagem 4.
Utilizamos o método ExecSQLScalar do FireDAC para bus- Para facilitar a criação de objetos da classe TOrigem, criamos
carmos o valor desejado. Este deve ser usado sempre que nossa um construtor que recebe todos atributos da classe, de maneira
consulta retornar apenas uma informação. O seu retorno é do que, ao criarmos uma instância de TOrigem, já populamos todas
tipo variant, por isso fizemos um typecast antes de fazermos as suas propriedades, nos poupando diversas linhas de código,
atribuição à variável Id. como podemos ver nas linhas 25 a 30 da Listagem 4.
O mecanismo de geração da chave que escolhemos foi o de Na Listagem 5 temos todos os métodos para fazer as operações
pegar o máximo valor existente na coluna da tabela mais um, básicas da classe TOrigemDAO. No método insert não recebemos
porém poderíamos usar qualquer outro mecanismo, como o uso todos os campos da tabela por parâmetro e sim um objeto da classe
de Generators do Firebird, por exemplo. TOrigem, que virá com todas as propriedades populadas, ou de
Toda comunicação com o banco de dados será feita através de uma aplicação de teste ou da interface com o usuário.
um objeto da classe TFDConnection que será disponibilizado pela Nos métodos Insert, Update e Delete temos a declaração de uma
classe TConnectionFactory, como mostra a Listagem 2. variável SQL do tipo String, onde atribuiremos o comando SQL.
A classe TConnectionFactory é uma fábrica de conexões, ou Especificamente nos métodos Insert e Update faz-se necessária a
seja, cada vez que precisarmos de uma conexão com o FireDAC criação de uma variável que representa o TipoOrigem, do tipo Char.
15
Listagem 3. Interface da Classe TOrigemDAO Connection. Este método possui três parâmetros: o primeiro é o
01 TOrigemDAO = class(TDAO) SQL que desejamos que executar, o segundo é um vetor com os
02 public parâmetros do SQL, e por último um vetor com os tipos de dados
03 function Insert(AOrigem: TOrigem): Integer; dos parâmetros passados. Este último parâmetro é opcional, e caso
04 procedure Update(AOrigem: TOrigem);
05 procedure Delete(AId: Integer); não seja informado, o próprio FireDAC se encarrega de identificar
06 function FindById(AId: Integer): TOrigem; de qual tipo é. Nesse caso, achamos interessante já passar esta in-
07 function FindAll: TObjectList<TOrigem>;
formação para que seja executado o mais performático possível.
08 end;
Listagem 4. Classe TOrigem

Listagem 5. Métodos de Atualização (Insert, Update, Delete)
01 unit Model.Origem;
01 function TOrigemDAO.Insert(AOrigem: TOrigem): Integer;
02
02 var
03 interface
03 SQL: string;
04
04 IdOrigem: Integer;
05 type
05 TipoOrigem: Char;
06 TTipoOrigem = (toPagamento, toRecebimento);
06 begin
07
07 case AOrigem.TipoOrigem of
08 TOrigem = class(TObject)
08 toPagamento: TipoOrigem := ‘P’;
09 private
09 toRecebimento: TipoOrigem := ‘R’;
10 FId: Integer;
10 end;
11 FDescricao: string;
11 IdOrigem := GetKeyValue(‘ORIGENS’, ‘ID_ORIGEM’);
12 FTipoOrigem: TTipoOrigem;
12 SQL := ‘insert into ORIGENS values (:PAR1, :PAR2, :PAR3)’;
13 public
13 Connection.ExecSQL(SQL, [AOrigem.Id, AOrigem.Descricao, TipoOrigem],
14 property Id: Integer read FId write FId;
14 [ftInteger, ftString, ftString]);
15 property Descricao: string read FDescricao write FDescricao;
15 end;
16 property TipoOrigem: TTipoOrigem read FTipoOrigem write FTipoOrigem;
16
17 constructor Create(AId: Integer; ADescricao: string;
17 procedure TOrigemDAO.Update(AOrigem: TOrigem);
ATipoOrigem: TTipoOrigem); overload;
18 var
18 constructor Create; overload;
19 SQL: string;
19 end;
20 TipoOrigem: Char;
20
21 begin
21 implementation
22 case AOrigem.TipoOrigem of
22
23 toPagamento: TipoOrigem := ‘P’;
23 { TOrigem }
24 toRecebimento: TipoOrigem := ‘R’;
24
25 end;
25 constructor TOrigem.Create(AId: Integer; ADescricao: string;
26 SQL := ‘update ORIGENS set DESCRICAO = :PAR1, TIPO_ORIGEM = :PAR2 where
ATipoOrigem: TTipoOrigem);
ID_ORIGEM = :PAR3’;
26 begin
27 Connection.ExecSQL(SQL, [AOrigem.Descricao, TipoOrigem, AOrigem.Id],
27 FId := AId;
28 [ftString, ftString, ftInteger]);
28 FDescricao := ADescricao;
29 end;
29 FTipoOrigem := ATipoOrigem;
30
30 end;
31 procedure TOrigemDAO.Delete(AId: Integer);
31
32 var
32 constructor TOrigem.Create;
33 SQL: string;
33 begin
34 begin
34 end;
35 SQL := ‘delete from ORIGENS where ID_ORIGEM = ‘ + IntToStr(AId);
35
36 Connection.ExecSQL(SQL);
36 end.
37 end;
Isso é necessário, pois quando recebemos o objeto Aorigem por

parâmetro, este possui internamente uma propriedade do tipo O método Update é bastante semelhante ao método Insert, só
enumeração, onde é armazenado o tipo de origem, se é toPaga- não precisamos fazer a geração de chave e mudamos a ordem
mento ou toRecebimento. Naturalmente essas não são as esperadas de passagem dos parâmetros, já que o identificador desta vez é
pela coluna TIPO_ORIGEM da tabela ORIGENS da base de dados, utilizado na cláusula where do SQL.
portanto necessita-se criar uma variável local que faz a conversão O método Delete é o mais simples de todos, pois somente rece-
entre os dois tipos de dados antes de fazer a atualização no banco bemos por parâmetro o identificador do registro que deseja-se
de dados. excluir do banco de dados e montamos o SQL com um único pa-
No método Insert temos ainda a chamada do método GetKeyVa- râmetro, que é passado e executado a seguir. Desta vez, optamos,
lue da classe base TDAO, onde passamos a tabela ORIGENS e o por uma questão de simplicidade, apenas concatenar o valor do
campo chave ID_ORIGEM, que será utilizada na hora de montar- AId após ele ser convertido para string.
mos o SQL de inserção. Os métodos de busca de informações no banco de dados, pre-
A string do Insert possuirá três parâmetros, um para cada coluna sentes na Listagem 6, e criação de objetos são mais trabalhosos
da tabela. Por último, chamamos o método ExecSQL do objeto porque precisamos recuperar as linhas e convertê-las em objetos.
16
Para isso, usaremos outro objeto da arquitetura do FireDAC que TFDQuery dentro de um bloco try/except, para garantirmos
é o FDQuery. Com ele podemos executar consultas na base de que o objeto será liberado da memória no final de seu uso.
dados que retornam um DataSet que pode ser percorrido, e assim O objeto FDQuery precisa de uma conexão para executar o
criarmos nossos objetos da classe TOrigem. comando, por esse motivo atribuímos a conexão na propriedade
Connection o SQL e damos um Open na query.
Listagem 6. Métodos de Consulta Na sequência verificamos se a query retornou algum registro:
caso não tenha retornado, lançamos uma exceção informando
01 function TOrigemDAO.FindAll: TObjectList<TOrigem>;
02 var
que nenhum registro foi encontrado na base de dados. Caso seja
03 FDQuery: TFDQuery; encontrado o registro, criamos um objeto da classe TOrigem e
04 TipoOrigem: TTipoOrigem; populamos suas propriedades com as colunas retornadas no
05 Origens: TObjectList<TOrigem>;
06 begin
DataSet do FDQuery.
07 FDQuery := TFDQuery.Create(nil); No método FindAll é onde teremos a recuperação de todas
08 try as linhas da tabela ORIGENS em uma lista genérica de TOri-
09 FDQuery.Connection := Connection;
gem. De início, dá para notar que o retorno deste método é um
10 FDQuery.SQL.Text := ‘select * from ORIGENS’;
11 FDQuery.Open(); TObjectList do tipo TOrigem.
12 if FDQuery.FieldByName(‘TIPO_ORIGEM’).AsString = ‘P’ then Para construirmos nossa lista criamos uma lista genérica de
13 TipoOrigem := toPagamento
TOrigem e executamos uma query que retorna todas as linhas
14 else if FDQuery.FieldByName(‘TIPO_ORIGEM’).AsString = ‘R’ then
15 TipoOrigem := toRecebimento; da tabela. Em seguida, percorremos todas as linhas do DataSet
16 Origens := TObjectList<TOrigem>.Create(); gerado e, para cada linha, criamos um objeto de TOrigem e
17 while not FDQuery.Eof do adicionamos na lista. No final, apenas atribuímos a variável
18 begin
19 Origens.Add(TOrigem.Create(FDQuery.FieldByName(‘ID_ORIGEM’).AsInteger, local Origens no retorno do método.
20 FDQuery.FieldByName(‘DESCRICAO’).AsString, TipoOrigem));
21 end; Classes TClienteDAO e TFornecedorDAO
22 finally
23 FDQuery.Free;
Para facilitar o trabalho com os objetos TCliente e TFornecedor
24 end; da Listagem 7, criamos construtores que recebem as proprie-
25 result := Origens; dades por parâmetro e já as populam, facilitando bastante a
26 end;
criação dos objetos e adição nas listas.
27
28 function TOrigemDAO.FindById(AId: Integer): TOrigem; A interface da classe TClienteDAO é bastante semelhante
29 var à classe TOrigemDAO, conforme podemos visualizar na
30 Origem: TOrigem;
Listagem 8. A diferença se dá pela adição de um novo método
31 FDQuery: TFDQuery;
32 TipoOrigem: string; de busca chamado FindByName (linha 06), que servirá para
33 begin realizarmos consultas no cadastro de clientes pelo nome.
34 FDQuery := TFDQuery.Create(nil); Nesta classe não temos o método FindAll, utilizado para retor-
35 try
36 FDQuery.Connection := Connection; nar todos os registros da tabela. Nesse caso, não devemos fazer
37 FDQuery.SQL.Text := ‘select * from ORIGENS este tipo de busca no banco de dados, pois com o aumento do
where ID_ORIGEM = ‘ + IntToStr(AId); tamanho da base de dados, pode-se retornar muitos registros
38 FDQuery.Open();
39 if FDQuery.RecordCount = 0 then
e deixar lento o aplicativo.
40 raise Exception.Create(‘Objeto não encontrado na base de dados!’); Os métodos Insert, Update e Delete da classe TClienteDAO
41 Origem := TOrigem.Create(); seguem a mesma linha do que já havíamos codificado na
42 Origem.Id := FDQuery.FieldByName(‘ID_ORIGEM’).AsInteger;
43 Origem.Descricao := FDQuery.FieldByName(‘DESCRICAO’).AsString;
classe TOrigemDAO, conforme a Listagem 9. Veja que não
44 TipoOrigem := FDQuery.FieldByName(‘TIPO_ORIGEM’).AsString; temos nenhum atributo do tipo enumeração e não precisamos
45 if TipoOrigem = ‘P’ then fazer nenhuma conversão, tornando ainda mais simples a
46 Origem.TipoOrigem := toPagamento
codificação.
47 else if TipoOrigem = ‘R’ then
48 Origem.TipoOrigem := toRecebimento; O método FindByName irá receber uma String com um nome
49 finally do cliente ou parte do nome, e que será usada em conjunto com
50 FDQuery.Free;
o operador Like, que permite fazermos pesquisa na base de da-
51 end;
52 Result := Origem; dos. Utilizamos também a função QuotedStr, que irá adicionar
53 end; aspas antes e depois da string afim de não recebermos erros do
banco de dados, conforme mostra a Listagem 10.
O restante do método se comporta de maneira bastante seme-
No método FindById buscamos um registro na base de dados lhante ao FindAll, criando uma lista genérica de objetos que é
a partir de um Id passado por parâmetro. Para executarmos populada a cada registro do DataSet que foi preenchido com
um comando SQL no FDQuery criamos um objeto da classe os dados vindos da tabela CLIENTES.
17
Listagem 7. Classes TCliente e Tfornecedor
01 type 26 end;
02 TCliente = class 27
03 private 28 implementation
04 FId: Integer; 29
05 FNome: string; 30 constructor TCliente.Create;
06 FCPF: string; 31 begin
07 public 32 end;
08 property Id: Integer read FId write FId; 33
09 property Nome: string read FNome write FNome; 34 constructor TCliente.Create(AId: integer; ANome, ACPF: string);
10 property CPF: string read FCPF write FCPF; 35 begin
11 constructor Create; overload; 36 FId := AId;
12 constructor Create(AId: integer; ANome, ACPF: string); overload; 37 FNome := ANome;
13 end; 38 FCPF := ACPF;
14 39 end;
15 TFornecedor = class 40
16 private 41 constructor TFornecedor.Create(AId: integer; ANome, ACNPJ: string);
17 FId: Integer; 42 begin
18 FNome: string; 43 FId := AId;
19 FCNPJ: string; 44 FNome := ANome;
20 public 45 FCNPJ := ACNPJ;
21 property Id: Integer read FId write FId; 46 end;
22 property Nome: string read FNome write FNome; 47
23 property CNPJ: string read FCNPJ write FCNPJ; 48 constructor TFornecedor.Create;
24 constructor Create(AId: integer; ANome: string; ACNPJ: string); overload; 49 begin
25 constructor Create; overload; 50 end;
Listagem 8. Interface da Classe TClienteDAO A interface da classe TFornecedorDAO não será exibida no cor-
po deste artigo, mas pode ser consultada no arquivo fonte que
01 TClienteDAO = class(TDAO)
02 function Insert(ACliente: TCliente): Integer; acompanha a revista no site. Sua definição é muito semelhante a
03 procedure Update(ACliente: TCliente); TClienteDAO, mudando-se apenas o tipo de objeto, de TCliente
04 procedure Delete(AId: Integer);
para TFornecedor.
05 function FindById(AId: Integer): TCliente;
06 function FindByName(AName: string): TObjectList<TCliente>; Na Listagem 11 temos a implementação de toda a classe TForne-
07 end; cedorDAO, que ficou com o código mais enxuto que o da TClien-
Listagem 9. Métodos Insert, Update e Delete da classe TClienteDAO
teDAO. Na linha 3, por exemplo, temos a execução do comando
Delete de forma direta, sem uma variável auxiliar para armazenar
01 function TClienteDAO.Insert(ACliente: TCliente): Integer; o SQL. Já no método Insert não temos a criação da variável auxiliar
02 var
03 SQL: string;
para armazenar o identificador da tabela, pois estamos atribuindo
04 IdCliente: Integer; diretamente na propriedade Id do objeto AFornecedor o retorno
05 begin do método herdado GetKeyValue.
06 IdCliente := GetKeyValue(‘CLIENTES’, ‘ID_CLIENTE’);
07 SQL := ‘insert into CLIENTES values (:PAR1, :PAR2, :PAR3)’; Na Listagem 12 temos a classe TItemConta com sua interface
08 Connection.ExecSQL(SQL, [ACliente.Id, ACliente.Nome, ACliente.CPF], e implementação. No SetNumParcela (linha 39) temos uma vali-
09 [ftInteger, ftString, ftString]); dação da informação que está sendo passada ao atributo Fnum-
10 end;
11 Parcela, que somente aceita valores positivos.
12 procedure TClienteDAO.Update(ACliente: TCliente);
13 var
14 SQL: string;
Classe TContaDAO
15 begin A Listagem 13 mostra as operações da classe DAO principal
16 SQL := ‘update CLIENTES set NOME_CLIENTE = :PAR1, CPF = :PAR2 where do sistema, pois engloba as duas principais classes de negócio, a
ID_CLIENTE = :PAR3’;
TContaPagar e TContaReceber.
17 Connection.ExecSQL(SQL, [ACliente.Nome, ACliente.CPF, ACliente.Id],
18 [ftString, ftString, ftInteger]); O método Delete é relativamente simples, pois somente chama
19 end; uma exclusão da linha da tabela CONTAS, isso porque confi-
20
21 procedure TClienteDAO.Delete(AId: Integer);
guramos o banco de dados para fazer delete cascade entre as
22 var tabelas CONTAS e ITENS_CONTA, ou seja, quando excluirmos
23 SQL: string; uma conta, automaticamente o banco de dados irá excluir todos
24 begin
25 SQL := ‘delete from CLIENTES where ID_CLIENTE = ‘ + IntToStr(AId);
os itens de conta vinculados a ela. Desta forma, reduzimos a
26 Connection.ExecSQL(SQL); codificação do nosso método, além de deixar a aplicação mais
27 end; performática, pois o próprio banco se encarrega de fazer a ex-
clusão em cascata.
18
Listagem 10. Métodos FindById e FindByName da classe TClienteDAO
01 function TClienteDAO.FindById(AId: Integer): TCliente; 24 var

02 var 25 FDQuery: TFDQuery;
03 Cliente: TCliente; 26 Clientes: TObjectList<TCliente>;
04 FDQuery: TFDQuery; 27 begin
05 begin 28 FDQuery := TFDQuery.Create(nil);
06 FDQuery := TFDQuery.Create(nil); 29 try
07 try 30 FDQuery.Connection := Connection;
08 FDQuery.Connection := Connection; 31 FDQuery.SQL.Text := ‘select * from CLIENTES where NOME_CLIENTE like
09 FDQuery.SQL.Text := ‘select * from CLIENTES where ID_CLIENTE = ‘ + IntToStr(AId); ‘ + QuotedStr(‘%’+AName+’%’);
10 FDQuery.Open(); 32 FDQuery.Open();
11 if FDQuery.RecordCount = 0 then 33 Clientes := TObjectList<TCliente>.Create();
12 raise Exception.Create(‘Objeto não encontrado na base de dados!’); 34 while not FDQuery.Eof do
13 Cliente := TCliente.Create(); 35 begin
14 Cliente.Id := FDQuery.FieldByName(‘ID_CLIENTE’).AsInteger; 36 Clientes.Add(TCliente.Create(FDQuery.FieldByName(‘ID_CLIENTE’).AsInteger,
15 Cliente.Nome := FDQuery.FieldByName(‘NOME_CLIENTE’).AsString; 37 FDQuery.FieldByName(‘NOME_CLIENTE’).AsString, FDQuery.
16 Cliente.CPF := FDQuery.FieldByName(‘CPF’).AsString; FieldByName(‘CPF’).AsString));
17 finally 38 end;
18 FDQuery.Free; 39 finally
19 end; 40 FDQuery.Free;
20 Result := Cliente; 41 end;
21 end; 42 result := Clientes;
22 43 end;
23 function TClienteDAO.FindByName(AName: string): TObjectList<TCliente>;
Listagem 11. Implementação da classe TFornecedorDAO
01 procedure TFornecedorDAO.Delete(AId: Integer); 33 FDQuery.Connection := Connection;

02 begin 34 FDQuery.SQL.Text := ‘select * from FORNECEDORES
03 Connection.ExecSQL(‘delete from FORNECEDORES where NOME_FORNECEDOR like ‘ +
where ID_FORNECEDOR = ‘ + IntToStr(AId)); 35 QuotedStr(‘%’ + AName + ‘%’);
04 end; 36 FDQuery.Open();
05 37 Fornecedores := TObjectList<TFornecedor>.Create();
06 function TFornecedorDAO.FindById(AId: Integer): TFornecedor; 38 while not FDQuery.Eof do
07 var 39 begin
08 Fornecedor: TFornecedor; 40 Fornecedores.Add(TFornecedor.Create(FDQuery.FieldByName
09 FDQuery: TFDQuery; (‘ID_FORNECEDOR’).AsInteger,
10 begin 41 FDQuery.FieldByName(‘NOME_FORNECEDOR’).AsString,
11 FDQuery := TFDQuery.Create(nil); FDQuery.FieldByName(‘CNPJ’).AsString));
12 try 42 end;
13 FDQuery.Connection := Connection; 43 finally
14 FDQuery.SQL.Text := ‘select * from FORNECEDOR 44 FDQuery.Free;
where ID_FORNECEDOR = ‘ + IntToStr(AId); 45 end;
15 FDQuery.Open(); 46 Result := Fornecedores;
16 if FDQuery.RecordCount = 0 then 47 end;
17 raise Exception.Create(‘Objeto não encontrado na base de dados!’); 48
18 Fornecedor := TFornecedor.Create(FDQuery.FieldByName(‘ID_FORNECEDOR’). 49 function TFornecedorDAO.Insert(AFornecedor: TFornecedor): Integer;
AsInteger, 50 var SQL: string;
19 FDQuery.FieldByName(‘NOME_FORNECEDOR’).AsString, FDQuery. 51 begin
FieldByName(‘CNPJ’).AsString); 52 AFornecedor.Id := GetKeyValue(‘FORNECEDORES’, ‘ID_FORNECEDOR’);
20 finally 53 SQL := ‘insert into FORNECEDORES values (:PAR1, :PAR2, :PAR3)’;
21 FDQuery.Free; 54 Connection.ExecSQL(SQL, [AFornecedor.Id, AFornecedor.Nome,
22 end; AFornecedor.CNPJ],
23 Result := Fornecedor; 55 [ftInteger, ftString, ftString]);
24 end; 56 end;
25 57
26 function TFornecedorDAO.FindByName(AName: string): 58 procedure TFornecedorDAO.Update(AForncedor: TFornecedor);
TObjectList<TFornecedor>; 59 var SQL: string;
27 var 60 begin
28 FDQuery: TFDQuery; 61 SQL := ‘update FORNECEDORES set NOME_FORNECEDOR = :PAR1,
29 Fornecedores: TObjectList<TFornecedor>; CPF = :PAR2 where ID_FORNECEDOR = :PAR3’;
30 begin 62 Connection.ExecSQL(SQL, [AForncedor.Nome, AForncedor.CNPJ, AForncedor.Id],
31 FDQuery := TFDQuery.Create(nil); 63 [ftString, ftString, ftInteger]);
32 try 64 end;
19
Listagem 12. Classe TItemConta completa
01 TItemConta = class(TObject) 24 procedure TItemConta.SetDataVencimento(const Value: TDate);

02 private 25 begin
03 FId: Integer; 26 FDataVencimento := Value;
04 FNumParcela: Integer; 27 end;
05 FNumDocumento: string; 28
06 FValor: Double; 29 procedure TItemConta.SetId(const Value: Integer);
07 FDataVencimento: TDate; 30 begin
08 protected 31 FId := Value;
09 procedure SetId(const Value: Integer); 32 end;
10 procedure SetNumParcela(const Value: Integer); 33
11 procedure SetNumDocumento(const Value: string); 34 procedure TItemConta.SetNumDocumento(const Value: string);
12 procedure SetValor(const Value: Double); 35 begin
13 procedure SetDataVencimento(const Value: TDate); 36 FNumDocumento := Value;
14 public 37 end;
15 property Id: Integer read FId write SetId; 38
16 property NumParcela: Integer read FNumParcela write SetNumParcela; 39 procedure TItemConta.SetNumParcela(const Value: Integer);
17 property NumDocumento: string read FNumDocumento write 40 begin
SetNumDocumento; 41 if FNumParcela > 0 then
18 property Valor: Double read FValor write SetValor; 42 FNumParcela := Value;
19 property DataVencimento: TDate read FDataVencimento write 43 end;
SetDataVencimento; 44
20 end; 45 procedure TItemConta.SetValor(const Value: Double);
21 46 begin
22 { TItemConta } 47 FValor := Value;
23 48 end;
Listagem 13. Métodos Insert, Update e Delete
01 procedure TContaDAO.Delete(AId: Integer); 37 Connection.Rollback;

02 var 38 end;
03 SQL: string; 39 end;
04 begin 40
05 SQL := ‘delete from CONTAS where ID_CONTA = ‘ + IntToStr(AId); 41 procedure TContaDAO.Update(AConta: TConta);
06 Connection.ExecSQL(SQL); 42 var
07 end; 43 SQLConta, SQLItem: string;
08 44 ItemConta: TItemConta;
09 function TContaDAO.Insert(AConta: TConta): Integer; 45 IdReferencia: integer;
10 var 46 begin
11 SQLConta, SQLItem: string; 47 Connection.StartTransaction;
12 IdContaGerado: Integer; 48 try
13 IdReferencia: Integer; 49 SQLConta := ‘update CONTAS set VALOR_TOTAL = :PAR1,
14 ItemConta: TItemConta; SITUACAO_CONTA = :PAR2, ‘ +
15 begin 50 ‘ DATA_LANCAMENTO = :PAR3, ID_REFERENCIA = :PAR4
16 Connection.StartTransaction; where ID_CONTA = :PAR5’;
17 try 51 if AConta is TContaPagar then
18 IdContaGerado := GetKeyValue(‘CONTAS’, ‘ID_CONTA’); 52 IdReferencia := (AConta as TContaPagar).Fornecedor.Id
19 SQLConta := ‘insert into CONTAS values (:PAR1, :PAR2, :PAR3, :PAR4, :PAR5)’; 53 else if AConta is TContaReceber then
20 AConta.ID := IdContaGerado; 54 IdReferencia := (AConta as TContaReceber).Cliente.Id;
21 if AConta is TContaPagar then 55 Connection.ExecSQL(SQLConta, [AConta.ValorTotal, AConta.Situacao,
22 IdReferencia := (AConta as TContaPagar).Fornecedor.Id 56 AConta.DataLancamento, IdReferencia, AConta.ID]);
23 else if AConta is TContaReceber then 57 for ItemConta in AConta.ItensConta do
24 IdReferencia := (AConta as TContaReceber).Cliente.Id; 58 begin
25 Connection.ExecSQL(SQLConta, [AConta.ID, AConta.ValorTotal, 59 SQLItem := ‘update ITENS_CONTA set NUM_PARCELA = :PAR1,
AConta.DataLancamento, NUM_DOCUMENTO = :PAR2, ‘ +
26 AConta.Situacao, IdReferencia], [ftInteger, ftFloat, ftString, ftDate, ftInteger]); 60 ‘ VALOR_PARCELA = :PAR3, DATA_VENCIMENTO = :PAR4, ID_CONTA = :PAR5 ‘ +
27 for ItemConta in AConta.ItensConta do 61 ‘where ID_ITEM_CONTA = :PAR6’;
28 begin 62 Connection.ExecSQL(SQLItem, [ItemConta.NumParcela,
29 ItemConta.Id := GetKeyValue(‘ITENS_CONTA’, ‘ID_ITEM_CONTA’); ItemConta.NumDocumento,
30 SQLItem := ‘insert into ITENS_CONTA values (:PAR1, :PAR2, :PAR3, :PAR4, 63 ItemConta.Valor, ItemConta.DataVencimento, AConta.ID, ItemConta.Id],
:PAR5, :PAR6)’; 64 [ftInteger, ftString, ftFloat, ftDate, ftInteger, ftInteger]);
31 Connection.ExecSQL(SQLItem, [ItemConta.Id, ItemConta.NumParcela, 65 end;
32 ItemConta.NumDocumento, ItemConta.Valor, ItemConta. 66 Connection.Commit;
DataVencimento, AConta.ID], 67 except
33 [ftInteger, ftInteger, ftString, ftFloat, ftDate, ftInteger]); 68 Connection.Rollback;
34 end; 69 end;
35 Connection.Commit; 70 end;
36 except
20
No método Insert temos a utilização de um importante recurso Desta vez o método Insert fará operações de inserção em duas
chamado transação (BOX 3), isso porque precisamos garantir que tabelas, por isso temos duas vezes a chamada do GetKeyValue:
nossos dados fiquem de forma íntegra na base de dados. Abrimos um para a tabela CONTAS e vários quantos forem os itens para
uma transação chamando o método StartTransaction da classe a tabela ITENS_CONTA, dentro de um foreach que irá percorrer
TFDConnection e, em seguida contornamos o restante dos pro- todos os itens de conta.
cedimentos de atualização com um bloco try/except, de maneira O método Update funciona de maneira semelhante ao método
que, caso ocorra algum erro durante este processo é chamado o Insert e também precisamos executá-lo dentro de uma transação,
método Rollback, caso contrário, é chamado o método Commit, afim de garantir a total integridade dos dados.
que confirma todas as alterações feitas no banco. Neste artigo pudemos observar o quanto é árduo o trabalho de
Pelo fato de termos uma única tabela para contas a pagar e a rece- codificarmos as classes DAO, de maneira a trabalhar totalmente
ber, se faz necessário o uso de uma variável chamada IdReferencia, orientado a objetos. Lembre-se que ainda temos as classes de
isto porque a tabela CONTAS deverá armazenar uma referência Modelo na interface com o usuário que correspondem a camada
para CLIENTES quando for uma conta a receber e uma referência de visão ou View.
para FORNECEDORES quando for uma conta a receber. Até a próxima.
BOX 3. Transações
Autor
Transações são um conjunto de operações atômicas que devem ser executadas pelo banco de dados FILIPE DALEPIANE
e existe para garantirmos a integridade dos dados após uma série atualizações, garantindo que
filipe.dalepiane@gmail.com
Bacharel em Ciência da Computação, certificado Delphi De-
todas ocorreram com sucesso. No caso de uma falha, todo o processo é cancelado, trazendo grande
veloper, colunista da revista Clube Delphi e .NET Magazine.
segurança ao sistema. Controle de transações é algo obrigatório em sistemas de informações.
Desenvolve em Delphi para Desktop e Mobile e C# para Web.
-ReadCommited: nível de isolamento padrão, onde as transações têm acesso a apenas dados Trabalha atualmente como Analista de Sistemas na AVMB Consultoria e
efetivados, que foram feitos commit, nunca acessa dados que ainda não foram confirmados em Assessoria em Informática em Santa Maria-RS (www.avmb.com.br).
outras transações.
-RepeatableRead: este nível enxerga os dados apenas no início da transação e não tem acesso a
dados não confirmados por outras transações. Você gostou deste artigo?
-DirtyRead: nível de isolamento mais baixo, permitindo que a transação corrente leia dados ainda
não confirmados por outras transações, mesmo sem o commit. Dê seu voto em www.devmedia.com.br/clubedelphi/feedback
-Serializable: maior nível de isolamento, onde todas as operações devem ser feitas de forma Ajude-nos a manter a qualidade da revista!
totalmente isolada, uma após a outra.
21
Explorando a API do
Windows no Delphi –
Parte 1
Conheça e utilize recursos do Windows
Este artigo faz parte de um curso Fique por Dentro

Recursos como o de criar pastas, achar determinado arquivo, apagar
temporários após sua utilização, entre outros, estão disponíveis pela
A
s APIs do Windows são expostas através de DLLs API do Windows, que é um conjunto de DLLs que fazem parte do
que podem ser utilizadas no Delphi e quando as sistema, expondo as funções do mesmo. Nesse artigo vamos explorar
utilizamos estamos lidamos diretamente com o as APIs da categoria Arquivos, Cursores, Registros e Informações sobre
sistema operacional. Dentre as categorias existentes nas o sistema e Windows.
APIs, pode-se dizer que as principais são:
• Windows;
• Arquivos; Uma DLL (Dynamic-link library ou biblioteca de vínculo di-
• Informações sobre o sistema; nâmico), é um arquivo com extensão que consiste numa coleção
• Cursores; de funções e procedures que podem ser chamadas por outras
• Mensagens; aplicações e outras DLLs, que por sua vez, é ligada em tempo de
• Mouse; execução ao programa que as usa.
• Teclado;
• Impressoras; Informações sobre o Sistema
• Ícones; É possível obter informações sobre o Sistema através de algumas
• Arquivos INI; funções expostas:
• Registro; • GetComputerName: está declarada em kernel32.dll e irá ler o
• Dispositivos; nome do computador, que será devolvido em uma variável do
• Acessibilidade. tipo string. Esta deve ser passada como parâmetro na função. Sua
declaração é feita da seguinte forma:
A Embarcadero disponibiliza no Delphi o acesso a
essas APIs através da unit Windows, que realiza uma GetComputerNameA (ByVal lpBuffer As String, nSize As Long) As Long
ponte entre o código Delphi e as várias DLLs disponibi-
lizadas pelo sistema. As principais DLLs são: O parâmetro lpBuffer é uma sequência de caracteres que deve
• User32.dll; ser grande o suficiente para manter o nome do computador. Já
• kernel32.dll; nSize é o comprimento em caracteres de lpBuffer, geralmente
• Comdlg32.dll; usado com o valor 255.
• gdi32.dll; • GetUserName: está declarada em advapi32.dll e recupera o
• shell32.dll; nome do usuário que está logado no Windows. Este também é
• Advapi32.dll; retornado em uma string que devemos passar como parâmetro.
• winmm.dll. Sua declaração é a seguinte:
22
GetUserNameA (ByVal lpBuffer As String, nSize As Long) As Long InfoSys. Já a propriedade Caption dos Tlabels deve ficar como
visto na Figura 1.
O lpBuffer é uma sequência de caracteres que deve ser grande
o suficiente para manter o nome do usuário. O nSize é o compri-
mento em caracteres de lpBuffer, geralmente com o valor 144.
• GetSystemDirectory: retorna o caminho do diretório de sistema

do Windows. É importante observar é que nunca devemos assumir
que o diretório é “C:\Windows\System”, porque o diretório não
necessariamente precisa ser chamado Windows. Sua declaração
é parecida com as outras duas que vimos anteriormente e até
mesmo os mesmos parâmetros são parecidos. Ela está declarada
em kernel32.dll e sua declaração é:
GetSystemDirectoryA (ByVal lpBuffer As String, ByVal nSize As Long) As Long
• GetWindowsDirectory: está declarada em kernel32.dll e Figura 1. Tela do aplicativo

retorna o caminho do diretório do Windows. É onde o próprio
Windows está instalado, contudo, isso não significa que seja Procedimentos e Funções da Seção Private
sempre “C:\Windows”. Sua declaração é: Na seção private são declaradas seis funções, como mostra a
Listagem 1. Elas são responsáveis por acessar as APIs. Uma vez
GetWindowsDirectoryA (ByVal lpBuffer As String, ByVal nSize As Long) As Long declaradas pressionamos a combinação Shift + Ctrl + C e com isso
o Delphi inicia a implementação dessas funções, que podemos ver
• GetTempPath: retorna o diretório Temp do Windows, onde no código da Listagem 2.
ficam os arquivos temporários. A função está declarada em ker-
nel32.dll e, ao contrário das quatro funções vistas anteriormente, Listagem 1. Seção Private do Frm_Principal
aqui os parâmetros se invertem. Primeiro é passado o tamanho a
private
ser usado para receber a string, e depois o parâmetro da mesma,
function fGetComputerName: String;
como na declaração a seguir:
function fGetUserName: String;
function fGetSystemDirectory: String;
GetTempPathA (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
function fWindowsDirectory: String;
function fGetTempPath: String;
• GetVersionEx: declarada em kernel32.dll, esta função retorna function fGetVersionEx: string;
as informações sobre a versão do Windows em execução. Essas
informações incluem o número da versão, o build e a versão do
sistema instalado. Essas informações são transferidas para uma As funções a seguir foram criadas para obter informações e
variável do tipo OSVersionInfo, que é do tipo record, conforme repassá-las aos controles TEdit:
a sua declaração: • StrPas – É a função declarada na Unit SysUtils que converte
uma cadeia de strings, terminado em nulo, para uma cadeia de
GetVersionExA (lpVersionInformation As OSVERSIONINFO) As Long string longa (AnsiString).
• SizeOf – É a função declarada na Unit System, que retorna o
Aplicação sobre Informações do Sistema tamanho em bytes de uma variável ou tipo.
Para mostrar como utilizar essas APIs vamos desenvolver uma • TOSVersionInfo – É um record declarado em SysUtils, que con-
aplicação. Nela teremos apenas uma tela com seis TEdits, seis tém informações do sistema operacional, plataforma (Windows,
TLabels e um TButton, como vemos na Figura 1. Mac Os X), versão, tipo de arquitetura (Intel x86 ou Intel x64) e
A propriedade Name do Form1 é modificada para Frm_ Service Pack. Esse record contém dois tipos públicos:
Principal, e os seis TEdits para Edt_CompNome, Edt_Usur- - TArchitecture (arIntelX86, arIntelX64, arARM32);
Nome, Edt_PastaSys, Edt_WinDiretorio, Edt_PastaTemp e - TPlatform (pfWindows, pfMacOS, pfiOS, pfAndroid,
Edt_WinVersao. O botão recebe o nome de Btn_Informacoes pfWinRT, pfLinux).
e os seis TLabels têm sua propriedade name modificada para
Lbl_CompNome, Lbl_UsurNome, Lbl_PastaSys, Lbl_WinDire- Arquivos
torio, Lbl_PastaTemp, e Lbl_WinVersao. Ao salvar a aplicação O Windows oferece uma grande variedade de funções para
ajustamos a unit para o nome de Unt_Principal e o projeto para tratamento de arquivos como vemos a seguir:
23
Explorando a API do Windows no Delphi – Parte 1
• CopyFile: está declarada em kernel32.dll e copia um arquivo - LpNewFileName - O arquivo de destino, ou seja, o novo
de um local para outro, assim como a cópia de um arquivo no arquivo para criar;
Windows Explorer. Em sua declaração temos três parâmetros: - BFailIfExists - Se 0, a função irá substituir LpNewFileName
- LpExistingFileName - O arquivo de origem, ou seja, o arquivo caso ele já existe, caso contrário, a função irá falhar.
a ser copiado;
Listagem 2. Implementação
procedure TFrm_Principal.Btn_InformacoesClick(Sender: TObject); begin

begin case dwPlatformid of
Edt_CompNome.Text := fGetComputerName; 0: begin
Edt_UsurNome.Text := fGetUserName; Result := ‘Windows 3.11’;
Edt_PastaSys.Text := fGetSystemDirectory; end;
Edt_WinDiretorio.Text := fWindowsDirectory;
Edt_PastaTemp.Text := fGetTempPath; 1: begin
Edt_WinVersao.Text := fGetVersionEx; case dwMinorVersion of
end; 0: Result := ‘Windows 95’;
function TFrm_Principal.fGetComputerName: String; 10: begin

var if (szCSDVersion[ 1 ] = ‘A’ ) then
Buffer: Array[0..255] of Char; Result :=’Windows 98 SE’
I: DWord; else
begin Result := ‘Windows 98’;
I := SizeOf(Buffer); end;
GetComputerName(Buffer, I);
Result := StrPas(Buffer); 90: Result := ‘Windows Millenium’;
end; else
Result := ‘Não achei a Versão’;
function TFrm_Principal.fGetSystemDirectory: String; end;
var end;
Buffer: Array[0..255] of Char;
begin 2: begin
GetSystemDirectory(Buffer, 255); case dwMajorVersion of
Result := StrPas(Buffer); 3: Result := ‘Windows NT ‘ + IntToStr(dwMajorVersion) + ‘.’ +
end; IntToStr(dwMinorVersion);
function TFrm_Principal.fGetTempPath: String; 4: Result := ‘Windows NT ‘ + IntToStr(dwMajorVersion) + ‘.’ +

var IntToStr(dwMinorVersion);
Buffer: Array[0..255] of Char;
begin 5: begin
GetTempPath(255, Buffer); case dwMinorVersion of
Result := StrPas(Buffer); 0: Result := ‘Windows 2000’;
end; 1: Result := ‘Windows XP’;
end;
function TFrm_Principal.fGetUserName: String; end;
var
Buffer: Array[0..255] of Char; 6: Result := ‘Windows 7 ‘ + IntToStr(dwMajorVersion) + ‘.’ +
I: DWord; IntToStr(dwMinorVersion);
begin
I := SizeOf(Buffer); 7: Result := ‘Windows 8 ‘ + IntToStr(dwMajorVersion) + ‘.’ +
GetUserName(Buffer, I); IntToStr(dwMinorVersion);
Result := StrPas(Buffer);
end; 8: Result := ‘Windows Vista ‘ + IntToStr(dwMajorVersion) + ‘.’ +
IntToStr(dwMinorVersion);
function TFrm_Principal.fWindowsDirectory: String; else
var Result := ‘Não achei a Versão’;
Buffer: Array[0..255] of Char; end;
begin
GetWindowsDirectory(Buffer, 255); if szCSDVersion <> ‘’ then
Result := StrPas(Buffer); Result := Result + ‘ ‘ + szCSDVersion;
end; end;
else
function TFrm_Principal.fGetVersionEx: string; Result := ‘Não achei a Platforma’;
var end;
VersionInfo: TOSVersionInfo;
begin Result := Result + ‘, Build: ‘ + IntToStr(Loword(dwBuildNumber)) ;
VersionInfo.dwOSVersionInfoSize := SizeOf(VersionInfo); end;
end;
GetVersionEx(VersionInfo);
end.
with VersionInfo do
24
• MoveFile: move ou renomeia um arquivo ou pasta. Se - FILE_ATTRIBUTE_HIDDEN - Um arquivo oculto, que
um diretório é movido/renomeado, todos os subdiretórios e normalmente não é visível para o usuário, dependendo da
arquivos contidos nele serão afetados. A função retorna 1 se configuração;
for bem-sucedida ou zero se ocorrer um erro. Espera-se dois - FILE_ATTRIBUTE_NORMAL - Um arquivo sem atributos
parâmetros: (esse não pode ser usado com atributos);
- LpExistingFileName - O arquivo de origem ou diretório, ou - FILE_ATTRIBUTE_READONLY - Um arquivo de somente
seja, o arquivo ou diretório para renomear (mover); leitura;
- LpNewFileName - O arquivo de destino ou diretório, ou seja, - FILE_ATTRIBUTE_SYSTEM - Um arquivo de sistema,
o novo nome do arquivo ou diretório, que se dá ao arquivo de utilizado exclusivamente pelo sistema operacional;
origem para que seja movido. - FILE_FLAG_DELETE_ON_CLOSE - Exclui o arquivo, uma
• CreateFile: cria ou abre um arquivo em disco para acesso vez que o mesmo está fechado;
posterior. É necessário ter os direitos de acesso permitidos para - FILE_FLAG_OVERLAPPED - Permiti que o arquivo seja
o arquivo a ser utilizado. Essa função tem inúmeros parâmetros lido e gravado ao mesmo tempo. Se for utilizado, as fun-
para especificar os níveis e tipos de acesso, e irá retornar o iden- ções que leem e escrevem no arquivo devem especificar
tificador para o arquivo criado/aberto se for bem-sucedido, ou -1 essa estrutura (OVERLAPPED) para identificar o ponteiro
se um algum erro ocorreu. Seus parâmetros são: do arquivo;
- LpFileName - O nome do arquivo a ser criado ou aberto; - FILE_FLAG_POSIX_SEMANTICS - Permiti que o nome
- DwDesiredAccess - Zero ou um dos seguintes parâmetros, do arquivo seja maiúsculo ou minúsculo;
especificando as quantidades de acesso, de leitura e gravação - FILE_FLAG_RANDOM_ACCESS - Otimiza o cache de
para o arquivo: arquivos para acesso aleatório (poder pular por várias
- GENERIC_READ - Permitir que o programa leia os dados partes do arquivo);
do arquivo; - FILE_FLAG_SEQUENTIAL_SCAN - Otimiza o cache de
- GENERIC_WRITE - Permitir que o programa grave dados arquivos para acesso sequencial crescente);
no arquivo. - FILE_FLAG_WRITE_THROUGH – Lê e escreve diretamen-
- DwShareMode - Zero ou um dos seguintes parâmetros, te no arquivo, ignorando qualquer cache de disco;
especificando as quantidades de acesso, de leitura e gravação - HTemplateFile – Identifica 1 arquivo aberto e copia os atri-
concedidas a outros programas enquanto o programa ainda butos, ou zero para não copiar os mesmos.
está com ele aberto: • DeleteFile: exclui um arquivo completamente, sem enviá-lo
- FILE_SHARE_READ - Permitir que outros programas para a lixeira. Ele também não solicita a confirmação da exclusão,
possam ler os dados do arquivo; então deve ser utilizado com toda atenção. A função retorna 1 se
- FILE_SHARE_WRITE - Permitir que outros programas for bem-sucedida, ou zero caso tenha ocorrido algum erro como,
possam gravar dados no arquivo. por exemplo, quando o arquivo a ser excluído não existe. A função
- LpSecurityAppributes - Os atributos de segurança dados ao espera por um único parâmetro LpFileName, que representa o
arquivo criado ou aberto; nome do arquivo a ser excluído;
- DwCreationDisposition - Exatamente um dos seguintes parâ- • FindClose: termina a pesquisa de um arquivo iniciado por
metros, especificando como e quando criar ou abrir o arquivo, FindFirstFile. Esta função fecha o identificador da pesquisa de
dependendo se ele já existe ou não: arquivos;
- CREATE_ALWAYS - Cria um novo arquivo, substituindo • FindFirstFile: começa uma pesquisa de arquivo e fornece infor-
o mesmo caso esse já exista; mações sobre o primeiro arquivo correspondente. As pesquisas
- CREATE_NEW - Cria um novo arquivo, mas falha se ele de arquivos têm base em apenas um nome de arquivo com sua
já existe; extensão ou não. A pesquisa só olha em um único diretório, mas
- OPEN_ALWAYS - Abre um arquivo existente e, se o arquivo identifica quaisquer nomes no mesmo que corresponde à sequência
não existir, ele será criado; da pesquisa A função retorna um identificador de pesquisa que
- OPEN_EXISTING - Abre um arquivo existente, mas falha pode ser usado para procurar por arquivos correspondentes adicio-
se o arquivo não existe. nais, usando FindNextFile. Pode ser retornado -1 também caso não
- TRUNCATE_EXISTING - Abre um arquivo existente e haja arquivos coincidentes com a pesquisa. Seus parâmetros são:
apaga o seu conteúdo. A função falhará se o arquivo não - LpFileName – É a sequência de pesquisa de arquivos para
existe. procurar, incluindo o caminho completo. Pode conter os
- DwFlagsAndAttributes - Uma combinação dos seguintes curingas como * ou ?;
parâmetros, especificando os atributos do arquivo para um - LpFindFileData - Recebe informações de identificação sobre
recém-criado, para cria-lo ou abri-lo. Deve ser incluso um o primeiro arquivo encontrado.
handle para o arquivo, para especificar os seus atributos: • FindNextFile: continua uma pesquisa de arquivo que começou
- FILE_ATTRIBUTE_ARCHIVE - Um arquivo normal; com FindFirstFile. Encontra e fornece informações de identificação
25
sobre o próximo arquivo que corresponde à sequência da pesquisa. A propriedade Name do Form1 é modificada para Frm_Prin-
A função retorna 1 se foi encontrado um outro arquivo, ou zero cipal e os seis TButons para Btn_Copiar, Btn_Mover, Btn_Criar,
se não existem mais arquivos correspondentes (ou se ocorreu um Btn_Apagar, Btn_CriaDir e Btn_BuscArqui. O TListBox é chamado
erro). Seus parâmetros são: de Lst_BuscArqui, e os seis TLabel devem ter a propriedade Name
- HFindFile - identificador do arquivo para a pesquisa come- modificada para Lbl_Copiar, Lbl_Mover, Lbl_Apagar, Lbl_Criar,
çado com FindFirstFile; Lbl_CriaDir e Lst_BuscArqui. Salvamos a unit com o nome de
- LpFindFileData - recebe informações de identificação sobre o Unt_Principal e o projeto como Arquivos. Mude também a pro-
próximo arquivo correspondente que foi encontrado. priedade Caption dos TLabels e TButtons conforme a Figura 2.
• CreateDirectory: cria um novo diretório em disco e define os Incluímos na seção uses a unit ShellApi, pois precisaremos dela
atributos de segurança do mesmo. A função retorna 1 se for bem- para criar, copiar, mover, apagar os arquivos. Usaremos arquivos
sucedida, ou zero se ocorrer algum erro. Seus parâmetros são: de textos normais (*.txt).
- LpPathName - nome do novo diretório a ser criado; A Listagem 3 mostra a implementação do botão Buscar Arquivos.
- LpSecurityAttributes - atributos de segurança para dar ao TSearchRec é um record que está declarado em SysUtils e define
novo diretório. uma estrutura de dados, que veremos na Listagem 4. Ela será
• FileExists: retorna um valor boolean se o arquivo especificado utilizada para armazenar informações de pesquisa de arquivos
como parâmetro existe ou não. pelas rotinas FindFirst e FindNext.
• DirectoryExists: retorna um valor boolean se o diretório espe-
cificado existir ou não. Seu único parâmetro é o Directory, que Listagem 3. Usando as funções e implementando o código dos botões
representa o nome do diretório para verificar sua existência. A
procedure TFrm_Principal.Btn_BuscArquiClick(Sender: TObject);
função poderá falhar se o usuário não tiver permissão para o
var
caminho informado do diretório. SR: TSearchRec;
• CloseHandle: fecha um identificador e o objeto associado a ele. Pasta: String;
begin
Depois de ter sido fechado, o identificador não será mais válido. Pasta := ‘C:\Apagar Arquivos Txt’;
A função retorna 1 se for bem-sucedida, ou zero se ocorreu al-
if not(DirectoryExists(Pasta)) then
gum erro. Seu parâmetro HObject representa o identificador do begin
objeto a fechar. Application.MessageBox(‘Não Existe a Pasta “C:\Apagar Arquivos Txt” ‘,
‘ Atenção’,MB_ICONINFORMATION + MB_OK);
Exit;
Aplicação sobre Arquivos end;
Ao criar um novo aplicativo do tipo Win32, adicionamos ao
If FindFirst(Pasta +’\*.txt’, faAnyFile, SR) =0 then
formulário principal seis componentes TLabel, seis TButton e um begin
TListBox, como mostra a Figura 2. Repeat
if (SR.Attr and faDirectory) <> faDirectory then
Lst_BuscArqui.Items.Add(Sr.Name);
Until FindNext(SR) <> 0;
FindClose(SR);
end;
end;
Listagem 4. Estrutura TSearchRec
TSearchRec = record
Time: Integer;
Size: Integer;
Attr: Integer;
Name: TFileName;
ExcludeAttr: Integer;
FindHandle: THandle;
FindData: TWin32FindData;
end;
Na estrutura record temos:

• Time: Data do arquivo modificado e o tempo;
• Size: Tamanho do arquivo em bytes;
• Attr: Atributos do arquivo:
- faAnyFile: Qualquer arquivo;
Figura 2. Tela do Aplicativo - faReadOnly: Arquivos somente leitura;
26
- faHidden: Arquivos ocultos; GetForegroundWindow
- faSysFile: Os arquivos de sistema; Esta função acha a janela que está atualmente em primeiro pla-
- faVolumeID: Volume: arquivos ID; no. A janela em primeiro plano é a janela geralmente na qual o
- faDirectory: Arquivos Diretório; usuário está atualmente trabalhando, ou seja, a janela com o foco.
- faArchive: Arquivos; A função retorna zero se um erro ocorrer, ou o identificador da
• Name: Nome do arquivo. janela se bem-sucedido.
Windows GetWindowText
A categoria Windows permite interação com suas janelas, habi- Retorna o texto da barra de título de uma janela. Esta função
litar e desabilitar diversas configurações e muito mais. Essa API funciona com qualquer janela, não apenas aquelas em sua aplica-
conta com 31 funções, mas para esse artigo apresentaremos apenas ção. O texto é devolvido em uma variável do tipo String, passada
as principais que serão utilizadas na aplicação de exemplo para como parâmetro. A função também retorna o comprimento do
entendermos mais sobre. texto, se bem-sucedida, ou zero se ocorreu algum erro. Seus
parâmetros são:
ShowWindow • Hwnd - A janela para ler o título;
A função pode minimizar, maximizar ou restaurar uma deter- • LpString - Variável que recebe o texto da barra de título da
minada janela. Retorna zero se a janela estiver invisível antes janela;
da chamada, ou um valor diferente se estiver visível. Recebe os • CCH - O comprimento em caracteres de LpString, ou seja, a
seguintes parâmetros de entrada: quantidade de caracteres do título da janela.
• Hwnd - O identificador da janela, para alterar o status de como
é mostrado; GetWindowTextLength
• NcmdShow - Exatamente um dos seguintes parâmetros, espe- Retorna o comprimento em caracteres do texto da barra de
cificando como mostrar a janela: título de uma janela, ou retorna zero se ocorrer erro. Seu único
- SW_HIDE - Esconde a janela; parâmetro é Hwnd, que deve receber o identificador da janela a
- SW_MAXIMIZE - Maximiza a janela; ser lida.
- SW_MINIMIZE - Minimiza a janela;
- SW_RESTORE - Restaura a janela (não maximizada e nem EnableWindow
minimizada); Essa função ativa ou desativa uma janela. Se estiver desativada,
- SW_SHOW - Mostra a janela; ela não pode receber o foco e irá ignorar qualquer tentativa de
- SW_SHOWMAXIMIZED - Mostra a janela maximizada; entrada. Alguns tipos de controles, como botões, aparecerão desa-
- SW_SHOWMINIMIZED - Mostra a janela minimizada; tivados, embora qualquer janela possa ser ativada ou desativada.
- SW_SHOWMINNOACTIVE - Mostra a janela minimizada, A função retorna zero se a janela está ativada, ou um valor diferen-
mas não a ativa; te de zero se a janela está desativada. Recebe dois parâmetros:
- SW_SHOWNA - Mostra a janela em seu estado atual, mas • Hwnd -Um identificador para a janela a ser ativada ou desa-
não a ativa; tivada;
- SW_SHOWNOACTIVATE -Mostra a janela em seu tamanho • FEnable - Se zero, a janela será desativada, caso contrário, a
e a posição mais recente, mas não ativa; janela será ativada.
- SW_SHOWNORMAL - Mostra a janela e a ativa (geralmente
o normal). SetWindowPos
A função move uma janela para um novo local na tela. Suas
FindWindow coordenadas físicas, dimensões e posição, bem como o Z-order,
Esta função procura por todas as janelas abertas que corres- que determina se a janela está em cima das outras, podem ser
pondam ao nome da classe da janela informado e/ou nome da definidos. A função retorna zero caso ocorra um erro. A relação
janela. Essa busca não é sensível a maiúsculas e seus parâmetros de seus parâmetros pode ser vista a seguir.
são relacionados a seguir: • Hwnd – Move a janela;
• LpClassName - O nome da classe da janela para se encontrar. • HwndInsertAfter – É o identificador da janela para posicionar
Passe zero para permitir que a janela seja de qualquer classe; esta janela para trás. Um dos seguintes parâmetros pode ser pas-
• LpWindowName - O texto da barra de título da janela para se encon- sado, indicando onde Z-ordem deve colocar a janela:
trar. Passe zero para permitir que a janela tenha qualquer nome. - HWND_BOTTOM - Coloca a janela na parte inferior;
- HWND_NOTOPMOST - Coloca a janela abaixo de todas
Se ocorrer algum erro, ou uma janela correspondente não puder as janelas de nível superior, e acima de todas as janelas não-
ser encontrada, a função retorna zero. Caso contrário, a função superiores;
retornará um identificador para a janela encontrada. - HWND_TOP - Coloca a janela na parte superior;
27
- HWND_TOPMOST - Coloca a janela no topo, ou seja, acima

de todas as outras janelas, de forma permanente;
• X - A coordenada x do canto superior esquerdo da janela;
• Y - A coordenada y do canto superior esquerdo da janela;
• CX - A coordenada x do canto inferior direito da janela;
• CY - A coordenada y do canto inferior direito da janela
• Wflags - Zero ou um dos seguintes parâmetros, afirmando
como mover a janela:
- SWP_DRAWFRAME - O mesmo que SWP_FRAMECHAN-
GED;
- SWP_FRAMECHANGED - Redesenha totalmente a janela
em sua nova posição;
- SWP_HIDEWINDOW - Ocultar a janela da tela;
- SWP_NOACTIVATE – Não ativa a janela após movê-la, a
menos que a mesma já esteja ativa;
- SWP_NOCOPYBITS - Não redesenha nada na janela depois
que for movida;
- SWP_NOMOVE - Não move a janela; Figura 3. Tela do Aplicativo
- SWP_NOSIZE - Não redimensiona a janela;
- SWP_NOREDRAW - Não remove a imagem da janela em sua
antiga posição, efetivamente deixando uma imagem fantasma utilizar cada uma das APIs da categoria Windows detalhadas
da tela; no artigo.
- SWP_NOZORDER - Não muda a posição da janela no Para testar o código é preciso antes abrir o bloco de notas e a
Z-ordem; calculadora do Windows. O botão Btn_ShowWinClick faz uso da
- SWP_SHOWWINDOW - Mostra a janela, caso esteja oculta. API FindWindow. Observe que passamos o nome da janela para
a função. Se seu Windows estiver com o idioma inglês definido,
IsIconic por exemplo, e seus aplicativos também estiverem nessa língua,
Esta função verifica se uma determinada janela está minimizada você deve passar o que aparece na barra de título. Ao ser encon-
ou não. A função retorna zero se a janela estiver minimizada ou trada, é retornado então seu identificador (handle), que é então
um valor diferente se a janela não estiver minimizada. Seu único passado para a função ShowWindow, que irá enviar o comando
parâmetro de entrada é Hwnd, onde deve ser passado o identificar de exibição.
da janela a ser verificada. Na procedure Btn_JanelaClick utilizamos várias funções para
obter informações da janela ativa. A primeira delas é a GetFore-
IsZoomed groundWindow, que retorna o identificador da janela em foco.
Verifica se uma determinada janela está maximizada ou não. Esse é o ponto de partida, porque uma vez com este em mãos,
A função retorna zero se a janela estiver maximizada ou retornará podemos acessar a janela. Na sequência usamos GetWindwText-
um valor diferente se a janela não estiver maximizada. Também Length para contar a quantidade de caracteres do título da janela
tem como único parâmetro de entrada o Hwnd. ativa e depois, através de GetWindowText, obtemos qual é o título.
É importante notar que o retorno de GetWindowText é armaze-
Aplicação usando a categoria Windows nado e verificado. Se esse for maior que zero é porque o título foi
Nesse exemplo criamos uma nova aplicação do tipo Win32 e recuperado com sucesso.
em seu formulário principal adicionamos cinco controles TLabel Na próxima procedure utilizamos IsIconic e IsZoomed para
e cinco TButton, como mostra a Figura 3. Para demonstrar as identificar se a janela está respectivamente minimizada ou
funções, vamos interagir com a janela dos aplicativos calculadora maximizada. Já na procedure Btn_MovJanelaClick consegui-
e bloco de notas do próprio Windows. mos mover a janela da calculadora de lugar utilizando a função
Modificamos a propriedade Name do Form1 para Frm_FWin- SetWindowPos, passando o novo posicionamento. E para finali-
dows e os cinco controles TButton para Btn_ShowWin, Btn_Jane- zar, na procedure HabDesabClick desativamos a janela do bloco
la, Btn_EstJanela, Btn_MovJanela, e Btn_HabDesab. Cada botão de notas. O importante nesse pequeno exemplo é que estamos
possui um componente TLabel associado, que deve mudar a manipulando uma janela que não pertence ao nosso sistema,
propriedade name desses controles para bl_ShowWin, Lbl_Ja- ou seja, teoricamente estaria fora de nosso controle. Contudo,
nela, Lbl_EstJanela, Lbl_MovJanela e Lbl_HabDesab. Podemos através das APIs da categoria Windows podemos acessá-la.
então salvar a aplicação e, a unit com o nome de Unt_Principal e Imagine a situação onde um usuário está utilizando seu sistema
o projeto como PWindows. A Listagem 5 mostra como podemos e ao mesmo tempo está com várias outras janelas abertas: para
28
Listagem 5. Implementando os Códigos dos Botões
procedure TFrm_FWindows.Btn_ShowWinClick(Sender: TObject); Minimizado := IsIconic(WindowNotp);

var Maximizado := IsZoomed(WindowNotp);
Janela: HWND;
begin If Minimizado Then
janela := FindWindow(Nil, Pchar(‘Calculadora’)); ShowMessage(‘Bloco de Notas Minimizado’)
ShowWindow(Janela, SW_SHOWNormal); Else
end; if Maximizado Then
ShowMessage(‘Bloco de Notas Maximizado’)
procedure TFrm_FWindows.Btn_JanelaClick(Sender: TObject); Else
var ShowMessage(‘Bloco de Notas esta Restaurado’);
Tela: Integer; end;
Tamanho: Integer;
TextoWindows: Array [0..255] of Char; procedure TFrm_FWindows.Btn_MovJanelaClick(Sender: TObject);
Retorno: Integer; var
begin Calculadora: Hwnd;
TextoWindows := ‘’; begin
Tela := GetForegroundWindow(); Calculadora := FindWindow(Nil, ‘Calculadora’);
Tamanho := GetWindowTextLength(Tela) + 1;
Retorno := GetWindowText(Tela, TextoWindows, Tamanho); if SetWindowPos(Calculadora, HWND_TOPMOST, 0, 0, 300, 0, 0) then
If Retorno > 0 then Exit;
ShowMessage(TextoWindows); end;
end;
procedure TFrm_FWindows.Btn_HabDesabClick(Sender: TObject);
procedure TFrm_FWindows.Btn_EstJanelaClick(Sender: TObject); var
var WindowEn: hWnd;
Minimizado: Boolean; begin
Maximizado: Boolean; WindowEn := FindWindow(Nil, ‘Sem título - Bloco de notas’); //Bloco de notas
WindowNotp: hWnd;
begin EnableWindow(WindowEn, False); // True Deixa a Janela Ativa(Normal)
WindowNotp := FindWindow(Nil, ‘Sem título - Bloco de notas’); //Bloco de notas end;
chamar sua atenção é possível minimizar essas outras e deixar pelo seu número de ID. Se tudo estiver certo, a função retorna um
apenas seu sistema em foco. identificador para o cursor carregado, caso contrário, a função
retorna zero. Seus parâmetros são:
Cursores - HInstance – Carrega o cursor a partir de um arquivo de re-
Os Cursores fazem parte de uma categoria que pode facilmente curso do programa. Pode definir zero caso queira carregar de
ser confundida com Mouse, que é outra categoria. Por exemplo, um arquivo de recurso do Windows.
quando o cursor exibir uma ampulheta, não é o mouse que a de- - LpCursorName - Informe o nome ou o número do cursor,
tém, e sim o cursor. Nessa categoria temos as seguintes funções para que seja carregado através, de um arquivo de recurso do
relacionadas a seguir: Windows. Para cursores do Windows, use uma das opções
• ShowCursor: mostra ou esconde o cursor do mouse. Na verdade, para carregar o cursor desejado:
é um contador e, se for 1 então o cursor é visível, se esse contador - IDC_APPSTARTING - O cursor inicial (seta e ampu-
for negativo, então o cursor não será visível. A função retorna o lheta).
valor deste contador e possui o parâmetro Bshow, que se for zero, - IDC_ARROW - O cursor ponteiro de seta regular.
diminui o contador em 1, caso contrário, incrementa em 1. - IDC_CROSS - O cursor transversal.
• GetCursor: encontra o identificador para o cursor do mouse - IDC_IBEAM - O cursor em forma de I (cursor de edição
em uso atualmente. Esse é o cursor que está sendo usado para de texto).
representar o ponteiro do mouse na tela. A função retorna um - IDC_NO - O cursor com círculo com uma barra.
identificador para a imagem se bem-sucedido, ou retornará zero - IDC_SIZEALL - O cursor de quatro pontas.
se algum erro ocorrer. - IDC_SIZENESW - O cursor de duas pontas, apontando
• GetCursorPos: lê a posição atual do cursor do mouse, ou seja, as para o canto superior direito, e inferior esquerdo.
coordenadas X e Y do cursor em relação à tela. Essas informações - IDC_SIZENS - O cursor de duas pontas, apontando para
são transferidas para o parâmetro LpPoint. A função retorna zero cima e para baixo.
se ocorreu um erro ou 1 se for bem-sucedida. - IDC_SIZENWSE - O cursor de duas pontas, apontando
• LoadCursor: Carrega um cursor a partir de um arquivo de para o canto inferior direito, e superior esquerdo.
recurso do programa ou de um arquivo de recurso de cursor do - IDC_SIZEWE - O cursor de duas pontas, apontando para
próprio Windows, que pode ser referenciado pelo seu nome ou a esquerda e para a direita.
29
- IDC_UPARROW - O cursor de seta para cima. como cursor em uso, depois esperamos cinco segundos e desfa-
- IDC_WAIT - O cursor de espera (ampulheta). zemos a operação. Por fim, em Btn_PosCursorClick modificamos
• SetCursor: define a imagem usada para representar o cursor do a posição do cursor para 30, 30 pixels.
mouse. O novo cursor pode ser qualquer um válido que tiver sido
criado ou carregado. Se for bem-sucedida, a função retorna um Listagem 6. Implementando os Códigos dos Botões
identificador para a imagem do cursor, caso contrário, a função
procedure TFrm_Cursor.Btn_ShowCursorClick(Sender: TObject);
retorna zero. Seu único parâmetro é o HCursor, que representa begin
um identificador válido de cursor. ShowCursor(False);
Sleep(7000);
• SetCursorPos: define a posição do cursor do mouse. Se você ShowCursor(True);
tentar definir as coordenadas fora da área da tela, por exemplo, end;
se você definir a posição para 700,40 em uma tela de 640x480, o
procedure TFrm_Cursor.Btn_TrocaCurClick(Sender: TObject);
cursor irá até a borda da tela ou retângulo. Os parâmetros dessa var
função são justamente essas coordenadas X e Y. CursorAnt: Integer;
CursorNov: Integer;
begin
CursorAnt := GetCursor();
Aplicação de Cursores CursorNov := LoadCursor(0, IDC_SIZEALL);
SetCursor(CursorNov);
Em uma nova aplicação do tipo Win32 adicionamos cinco con- Sleep (5000);
troles TLabel e cinco TButton, como mostra a Figura 4. Com a tela SetCursor(CursorAnt);
end;
já montada, modificamos as propriedades Name do Form1 para
Frm_Cursor e os cinco TButon para Btn_ShowCursor, Btn_Troca- procedure TFrm_Cursor.Btn_PosMouseClick(Sender: TObject);
Cur, Btn_PosMouse, Btn_BuscCursor, e Btn_PosCursor. Ao salvar var
Cord: TPoint;
a aplicação definimos a unit com o nome de Unt_Principal e o pro- begin
jeto como Cursores. A Listagem 6 mostra a utilização da API. GetCursorPos(Cord);
Showmessage(‘O Mouse esta na Posição X ‘ + IntTostr(Cord.X) +’ Posição Y ‘ +
IntTostr(Cord.Y));
end;
procedure TFrm_Cursor.Btn_BuscCursorClick(Sender: TObject);

var
BusCursor: Integer;
NovCursor: Integer;
begin
BusCursor := LoadCursor(0, IDC_NO);
NovCursor := SetCursor(BusCursor);
Sleep (5000);
SetCursor(NovCursor);
end;
procedure TFrm_Cursor.Btn_PosCursorClick(Sender: TObject);

begin
SetCursorPos(30, 30);
end;
Registro
Podemos dizer que várias configurações do Sistema Operacional
Windows se encontram gravadas no “Registro do Windows”.
Figura 4. Tela do Aplicativo O registro do Windows mantém essas configurações em uma
espécie de dicionário, onde temo o par chave e valor. A confi-
]O procedimento Btn_ShowCursorClick simplesmente esconde e guração em si é a chave, e seu conteúdo é o valor. Qualquer mu-
exibe o cursor do mouse. Entre uma operação e outra foi utilizado dança realizada em registros existentes deve ser feita com todo o
o procedimento sleep, que pausa o processamento do aplicativo cuidado, porque chave com valor incorreto pode desestabilizar
em execução por uma quantidade de segundos, expressos em o sistema operacional.
milissegundos. Já o procedimento Btn_TrocaCurClick realiza a Um exemplo de configuração do Windows armazenada no
troca do cursor. Observe que o cursor em uso é armazenado em registro são os dados retornados pela função GetVersionEx, nos
uma variável para que possa posteriormente ser recuperado. traz a versão do Windows instalado no computador. O mesmo
Com o procedimento Btn_PosMouseClick recuperamos a posição poderia ser feito lendo a seguinte chave do registro:
atual do cursor e a exibimos em tela. No procedimento Btn_Busc-
CursorClick recuperamos um cursor específico e o definimos HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\ProductName
30
Então podemos imaginar que, caso modifiquemos essa chave um código de erro diferente de zero. Seus parâmetros são:
por código, a função GetVersionEx poderia retornar um valor • HKey - Um identificador para uma chave do registro, que é a
incorreto. A seguir temos funções da categoria Registro. chave a ser excluída. Ou um dos seguintes valores, especificando
a chave do registro:
RegOpenKeyEx • HKEY_CLASSES_ROOT - A chave base de HKEY_CLAS-
Abre uma chave no registro do Windows. Esta função não irá criar SES_ROOT.
a chave, se ela não existir. A função retorna zero se consegui abrir a • HKEY_CURRENT_CONFIG - A chave base de HKEY_CUR-
chave, ou um código de erro diferente de zero caso não consiga abrir, RENT_CONFIG.
seus parâmetros são: • HKEY_CURRENT_USER - A chave base de HKEY_CUR-
• HKey - A chave do registro aberto, ou um dos seguintes valores, RENT_USER.
sobre o qual a chave está sob: • HKEY_DYN_DATA - A chave base de HKEY_DYN_DATA.
• HKEY_CURRENT_USER - Armazena informações sobre os • HKEY_LOCAL_MACHINE - A chave base de HKEY_LO-
programas do usuário atual. CAL_MACHINE
• HKEY_LOCAL_MACHINE - Armazena informações sobre • HKEY_PERFORMANCE_DATA - A chave base de HKEY_
os programas para todos os usuários. PERFORMANCE_DATA.
• HKEY_USERS - Contém informações de qualquer usuário, e • HKEY_USERS - A chave base de HKEY_USERS.
não apenas o fornecido pela HKEY_CURRENT_USER. • LpSubKey - O nome da subchave dentro da chave HKey a
• HKEY_CURRENT_CONFIG - Armazena informações de excluir.
configuração do computador.
• HKEY_DYN_DATA - Armazena dados dinâmicos. RegDeleteValue
• LpSubKey - O nome da chave para abrir. Exclui um valor armazenado em uma chave especificada no
• UlOptions - Reservado. Defina como zero. registro. Esta função só funciona com valores armazenados, não
• SamDesired - Um ou mais dos seguintes valores, especificando podendo excluir subchaves. O valor pode ser de qualquer tipo de
o acesso de leitura / gravação desejado: dado do registo. A função retorna zero se for bem-sucedida, ou
• KEY_ALL_ACCESS - Permissão para todos os tipos de acesso. um código de erro diferente de zero. Parâmetros:
• KEY_CREATE_LINK - A permissão para criar links sim- • HKey - Um identificador para a chave do registro aberto, que
bólicos. contém o valor a ser excluído.
• KEY_CREATE_SUB_KEY - Permissão para criar subchaves. • LpValueName - O nome do valor a ser excluído.
• KEY_ENUMERATE_SUB_KEYS - Permissão para enumerar
subchaves. WriteString
• KEY_EXECUTE - O mesmo que KEY_READ. WriteString é uma procedure do Delphi e está declarada na unit
• KEY_NOTIFY - Autorização para prestar notificação de Registry. O procedimento irá escrever um valor, de qualquer tipo
alteração. de dado, na chave especificada.
• KEY_QUERY_VALUE - Permissão para consultar dados
subchave. ReadString
• KEY_READ - Permissão para o acesso de leitura em geral. Já ReadString é uma função, que também está declarada na unit
• KEY_SET_VALUE - Permissão para definir dados subchave. Registry. Ela vai ler o valor de uma chave, passada como parâme-
• KEY_WRITE - Permissão para o acesso geral de gravação. tro, e irá devolver uma string com o valor da chave.
• PhkResult - Recebe a informação da chave do registro.
GetValueNames
RegCloseKey GetValueNames é uma procedure do Delphi e também está
RegCloseKey fecha uma chave de registro. Isto deve ser feito declarada na unit Registry. O procedimento retorna uma lista
depois que terminar de ler ou escrever no registro. Fechando a de strings (Tstrings) de uma chave específica passada como
chave de registro são liberados alguns recursos. Obviamente, parâmetro.
você não pode mais usar a chave depois de fechá-la, será preciso
abri-la novamente. A função retorna zero se for bem-sucedida, Aplicação de Registro
ou um código de erro diferente de zero. Seu único parâmetro é Criamos uma nova aplicação Win32 e seu formulário principal
HKey, a chave do registro para fechar. adicionamos seis controles TLabel, quatro TButton, dois TMemo
e um TImage, como vemos na Figura 5. Nosso aplicativa vai confi-
RegDeleteKey gurar a calcular para ser iniciada junto ou não com a inicialização
RegDeleteKey apaga uma chave do registro. A chave a ser apagada do Windows e irá mostrar os papéis de parede registrados.
não pode ter quaisquer subchaves dentro dela ou então a operação Com a tela já montada modificarmos algumas propriedades.
de exclusão falhará. A função retorna zero se for bem-sucedida, ou A propriedade Name do Form1 para Frm_Registro e os seis
31
TLabel para Lbl_Iniciar, Lbl_NaoIniciar, Lbl_ImgPapel, Lbl_

ItensChave, Lbl_ValorChaves e Lbl_NomeChaves. Os quatro
TButton para Btn_Iniciar, Btn_NaoIniciar, Btn_ImgPapel, e
Btn_Itens. Vamos agora nomear os nossos dois Memos para
Mmo_ValorChaves e Mmo_NomeChaves. Por último vamos no-
mear o TImage, para Img_PapParede. Ao salvar o projeto, salve
a unit com o nome de Unt_Principal e o projeto como (Registro).
Agora vamos declarar, duas procedures e uma functions que
serão as responsáveis para pegar o caminho da calculadora e
por iniciar a mesma junto com o Window ou não. A Listagem 7
mostra a seção private do formulário.
Depois de fazer estas declarações, basta pressionar simul-
taneamente as teclas Shift + Ctrl + C e seu código inicial será
Figura 5. Tela do Aplicativo
construído. A Listagem 8 apresenta a implementação. Não
podemos esquecer de adicionar a unit Registry ao uses, pois
Listagem 7. Declaração das funções
usaremos seus métodos.
A função DiretorioCalc retorna o diretório de sistema, é nele que private
se encontra o aplicativo Calculadora. Na sequência temos o proce- procedure SetAutorum;
dimento NaoSetAutorum que simplesmente apaga do registro do procedure NaoSetAutorum;
Windows os dados da calculadora que foram armazenados na seção function DiretorioCalc: String;
do registro que inicializa aplicativos. Já o procedimento SetAutorum { Private declarations }
é responsável por incluir os dados da calculadora nessa seção.
Listagem 8. Implementando os Códigos do Aplicativo

function TFrm_Registro.DiretorioCalc: String;
var Try
Buffer: Array[0..255] of Char; Reg.RootKey := HKEY_CURRENT_USER;
begin
GetSystemDirectory(Buffer, 255); if Reg.OpenKey(‘\Software\Microsoft\Windows\CurrentVersion\Run’, True) then
Result := StrPas(Buffer) + ‘\calc.exe’; begin
end; Reg.WriteString(‘Calculadora’, DiretorioCalc);
Reg.CloseKey;
procedure TFrm_Registro.NaoSetAutorum;
var Application.MessageBox(‘Calculadora Será Iniciado Junto Com o Windows !’,
Reg: TRegistry; ‘ Atenção’, MB_ICONINFORMATION + MB_OK);
begin end;
Reg := TRegistry.Create;
Finally
Try Reg.Free;
Reg.RootKey := HKEY_CURRENT_USER; Inherited;
end;
if Reg.OpenKey(‘\Software\Microsoft\Windows\CurrentVersion\Run’, True) then end;
begin
Reg.DeleteValue(‘Calculadora’); procedure TFrm_Registro.Btn_IniciarClick(Sender: TObject);
Reg.DeleteKey(‘Calculadora’); begin
Reg.CloseKey; SetAutorum;
end;
Application.MessageBox(‘Calculadora Não Será Iniciado Com o Windows !’,
‘ Atenção’, MB_ICONINFORMATION + MB_OK); procedure TFrm_Registro.Btn_NaoIniciarClick(Sender: TObject);
end; begin
NaoSetAutorum;
Finally end;
Reg.Free;
Inherited; procedure TFrm_Registro.Btn_ImgPapelClick(Sender: TObject);
end; var
end; Reg: TRegistry;
begin
procedure TFrm_Registro.SetAutorum; Reg := TRegistry.Create;
var
Reg: TRegistry; Try
begin Reg.RootKey := HKEY_CURRENT_USER;
Reg := TRegistry.Create;
32
Continuação: Listagem 8. Implementando os Códigos do Aplicativo
if Reg.OpenKey(‘\Control Panel\Desktop’, True) then Reg.RootKey := HKEY_LOCAL_MACHINE;
begin
Img_PapParede.Picture.LoadFromFile(Reg.ReadString(‘Wallpaper’)); if Reg.OpenKey(‘\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\
Reg.CloseKey; Shell Folders’, True) then
end; begin
Lista := TStringList.Create;
Finally Reg.GetValueNames(Lista);
Reg.Free;
Inherited; Mmo_NomeChaves.Lines.Add(Lista.Text);
end;
end; For I := 0 to Lista.Count -1 do
Mmo_ValorChaves.Lines.Add(Reg.ReadString(Lista.Strings[I]));
procedure TFrm_Registro.Btn_ItensClick(Sender: TObject);
var Lista.Free;
Reg: TRegistry; end;
Lista: TStrings;
I: integer; Finally
begin Reg.CloseKey;
Reg := TRegistry.Create; Reg.Free;
end;
Try end;
Em ImgPapelClick a imagem selecionada é exibida, a lista de Autor

imagens foi obtida por Btn_ItensClick(Sender: TObject).
Vanderson Cavalcante de Freitas
Como podemos ver, API do Windows pode e deve na auxiliar
vanderson.freitas@ig.com.br
em diversas tarefas de desenvolvendo de softwares e nos dar uma
Analista Desenvolvedor Delphi há mais de 5 anos, com experi-
enorme ajuda em diversos aspectos. Vimos aqui um pouco do seu ência em médias e grandes empresas de São Paulo. Formado
poder e um pouco de como utilizar todo esse poder. em técnico em informática no ano de 2003, com diversos cursos em
Existe várias situações em que fazer o uso de API é de uma formação específica, como Oracle, Delphi e C#.
enorme vantagem. Às vezes, não precisamos fazer enormes ro-
tinas para uma determinada situação, sendo que na API, existe
uma função, que faz a mesma situação (objetivo). Então porque
Você gostou deste artigo?
não chamar esta função?
Obviamente devemos ter um certo cuidado ao chamar funções Dê seu voto em www.devmedia.com.br/clubedelphi/feedback
que se tratam, diretamente do sistema, arquivos, ou do Registro, Ajude-nos a manter a qualidade da revista!
enfim categorias destes tipos. Mas aqui, além de aprendermos
mais sobre essas categorias, tanto na teoria, como na prática.
33
Cadastros e relatórios
dinâmicos em Delphi
Permita ao usuário criar cadastros e relatórios no
sistema
P
artindo da ideia que um sistema inteligente é Fique por Dentro
aquele que pode ser customizado de acordo com
a necessidade do cliente, hoje em dia não temos Empresas que estão ligadas ao desenvolvimento de software
muitos sistemas inteligentes. Há diversos sistemas preocupam-se cada vez mais em construir softwares que sejam ro-
grandes, que são construídos com base em um ramo bustos e atendam a todas as necessidades de seus clientes. Sistemas
de negócio. Porém, quando é necessário fazer uma de gestão empresarial, ERP (Enterprise Resource Planning), sempre
simples mudança em um relatório ou em um cadastro, têm a necessidade de novos módulos, ou adequações para atender
os clientes recebem a reposta que o sistema está estável um maior público. Módulos como financeiro, administrativo e tantos
e que diversas outras empresas usam o mesmo sem outros, geralmente possuem seus cadastros e movimentos, e normal-
problemas. Mas a resposta ideal à sua solicitação seria: mente possuem uma grande quantidade de campos. Por esses e tantos
vamos adequar, vamos fazer tais mudanças e alterações. outros motivos, há vários relatórios, com campos diversificados, afim
Sendo assim é hora de pensar, será que realmente meu de tornar esses cadastros e movimentos mais eficientes. Este artigo
negócio está competitivo? Como deve ser a estrutura, apresenta uma forma de permitir aos próprios usuários a criação de
da modelagem de dados? Meus cadastros, relatórios e cadastros e relatórios, tornando o sistema muito dinâmico e eficiente
gráficos necessitam constantemente de mudanças? em diversos aspectos.
Então por que não fazer um sistema mais inteligente,
ou adicionarmos um módulo ao nosso sistema que per-
mita ao próprio cliente, customizar e criar seus próprios ferramenta de geração de relatórios. Com ele podemos criar desde
relatórios e ainda indo um pouco mais longe, por que relatórios simples até os mais complexos. A suíte disponibiliza
não dar a possibilidade de ele mesmo criar cadastros. também o FastScript que permite a criação de scripts em várias
Veremos uma forma de como um cliente pode criar linguagens de programação, o FastReport Exports que permite
cadastros e relatórios personalizados. a exportação de relatórios do FastReport para diversos formatos
Para isso usaremos como banco de dados o Firebird, a como XLS, HTML, CSV entre outros. Dentre seus vários recursos,
ferramenta de relatório será o FastReport, e a parte de da sua versão comercial, usaremos o cross-tab, para criarmos esses
conexão de dados usaremos unidac. Lembrando que relatórios personalizados.
qualquer que seja o banco de dados, ou qualquer que
seja a empresa, seu negócio tem que ser inteligente para Unidac
que tenha uma maior competitividade. O UniDAC provê suporte e acesso a diversos servidores de banco
de dados como Oracle, Firebird, InterBase, Microsoft SQL Server,
FastReport PostgreSQL, MySQL, entre outros. Atende a diversas ferramentas
O FastReport era uma suíte unicamente externa para (Delphi, C++ Builder, Lazarus e Free Pascal) em diferentes plata-
geração de relatórios em Delphi. Essa suíte passou a formas (Windows, Mac OS, iOS, Linux e FreeBSD).
ser incorporada como ferramenta oficial de desenvolvi- Pode se dizer que a estrutura do Unidac é composta por dois
mento de relatórios a partir do Delphi XE2, possuindo elementos. O primeiro deles seria uma engine, ou seja, seu mo-
uma versão própria para essa finalidade. O FastReport tor que provê ao desenvolvedor uma interface de programação
possui algo muito interessante que é a conversões de comum e unificada, receptível aos diversos bancos suportados.
relatórios Quick Report, Rave Reports e Report Builder Já o segundo elemento é a sua parte fundamental, que é a sua
por meio de units. É considerado por muitos uma ótima camada de acesso a dados. Esse acesso a dados é composto pelos
34 ClubeDelphi • Edição 164

34 Copyright - Proibido copiar ou distribuir. Todos os direitos reservados para DevMedia
provedores (providers), que irão fazer a interação entre a engine e o cer no relatório. Para essa tabela criamos também um Generator e
servidor de banco de dados. Cada provider fica então responsável uma Trigger, que serão os responsáveis para incrementar o campo
por trabalhar com um servidor de banco de dados específico. Por código a cada novo registro.
exemplo, o TOracleUniProvider para Oracle, TInterBaseUniProvi- Para o nosso banco de dados foi adotada a versão 2.1 do Fire-
der para InterBase, TPostgreSQLUniProvider para PostgreSQL. bird. O script SQL para a criação do banco encontra-se exibido
na Listagem 1.
Funcionamento da aplicação
A aplicação permitirá ao usuário criar novos cadastros simples
e relatórios simples no sistema sem solicitar uma alteração do
sistema ao seu programador. Através de um cadastro o usuário
poderá criar a tela, quais campos serão utilizados, etc. Será uma
aplicação até relativamente simples. Teremos uma tela principal
e teremos um menu, de título Procedimentos, com os seguintes
itens: Criar Cadastros, Excluir Cadastros, Sair. Na Tabela 1 vemos
as funcionalidades dos menus.
Figura 1. Tabelas do Banco de Dados
Menu Funcionalidade Listagem 1. Script de criação do banco de dados

Irá chamar a tela onde o usuário criará os seus cadastros.
Informando o nome da tabela, os seus campos e quais SET SQL DIALECT 3;
Criar Cadastro campos irão aparecer em relatório. Terá imagens e textos
SET NAMES WIN1252;
informando ao usuário como fazer todo o procedimento
de criação. CREATE DATABASE ‘<DIRETÓRIO DO BANCO DE DADOS>\ARTBI.fdb’
Irá chamar a tela onde terá uma lista dos cadastros criados. USER ‘SYSDBA’ PASSWORD ‘masterkey’
Excluir Cadastro Para que o usuário possa selecionar um cadastro a ser PAGE_SIZE 16384
DEFAULT CHARACTER SET WIN1252;
excluído.
Sair Fecha a nossa aplicação. CREATE GENERATOR GEN_TAB_CAMPOS;
Tabela 1. Funcionalidades dos menus CREATE TABLE TAB_CAMPOS (

CODIGO INTEGER NOT NULL,
TABELA VARCHAR(40) NOT NULL,
Ao lado deste menu Procedimento teremos um outro menu, CAMPO VARCHAR(30) NOT NULL,
Cadastros, e obviamente os itens deste menu, serão os cadastros COLUNA VARCHAR(30),
criados. Por exemplo, caso sejam criados dois cadastros: Clientes TIPO VARCHAR(15),
RELATORIO CHAR(1)
e Ordem de Serviço, então esses seriam os itens deste menu. );
Ao clicar sobre um menu desses, abrirá a tela do referente CREATE TABLE TABELA_USUPER (
cadastro. Nesta tela terá uma grade de dados utilizando um TABELA VARCHAR(40) NOT NULL,
APELIDO VARCHAR(40)
DbGrid, onde será feita a inclusão, alteração e exclusão de dados. );
Para facilitar toda manipulação de dados, será utilizado um
DbNavigator. Também haverá o botão imprimir, que chamará o ALTER TABLE TABELA_USUPER ADD CONSTRAINT PK_TABUSERCODIGO
PRIMARY KEY (TABELA);
relatório que foi criado junto com o cadastro, escolhendo quais
campos serão impressos. ALTER TABLE TAB_CAMPOS ADD CONSTRAINT PK_TABCODIGO
Enfim, será um cadastro com relatório, com várias consistências, PRIMARY KEY (CODIGO);
verificações de erros e tudo mais, para que possa ter uma boa ALTER TABLE TAB_CAMPOS ADD CONSTRAINT FK_CAMCODIGO
usabilidade. FOREIGN KEY (TABELA) REFERENCES TABELA_USUPER (TABELA)
ON DELETE CASCADE ON UPDATE CASCADE;
Criando o banco de dados SET TERM ^ ;

Para começar, vamos fazer a criação do banco de dados da nossa
CREATE TRIGGER NEW_TAB_CAMPOS FOR TAB_CAMPOS
aplicação. Como é possível ver na Figura 1, teremos uma modela-
ACTIVE BEFORE INSERT POSITION 0
gem de dados simples baseada em apenas duas tabelas. A tabela AS
TABELA_USUPER é onde são cadastradas todas as tabelas que o begin
IF (NEW.CODIGO IS NULL) THEN
usuário criou. Já a tabela TAB_CAMPOS, é onde são cadastradas
NEW.CODIGO = GEN_ID(GEN_TAB_CAMPOS, 1);
todas as informações das tabelas. Informações como nome do end
campo, apelido do campo, se irá aparecer na grade de dados e ^
no relatório, qual o tipo do campo (Texto, Número, Moeda, Data,
SET TERM ; ^
Hora, Data e Hora, Observação), e se o campo deverá ou não apare-
Edição 164 • ClubeDelphi 35

Cadastros e relatórios dinâmicos em Delphi
Criamos uma estrutura no banco de dados para armazenar de

forma adequada os dados de novos cadastros. Temos a tabela
TAB_CAMPOS que armazena os campos de uma determinada
tela e suas características e a tabela TABELA_USUPER que arma-
zena as tabelas que precisarão ser criadas no banco de dados para
armazenar os dados do novo cadastro.
Criando a aplicação
No Delphi criamos um novo projeto Win32 e salvamos a unit
principal com o nome de Unt_Principal.pas e o formulário como
Frm_Principal. O projeto salvamos como CriarCadastro ou
conforme o gosto. Adicionamos a seguir um novo formulário,
salvando-o como Unt_CriaCadastro e o nomeando-o como
Frm_CriaCadastro. Agora repetindo o processo, adicionamos mais
um formulário e salvamos como Unt_ExcCadastro e o nomeamos
como Frm_ExcCadastro. Finalizando a criação dos formulários,
adicionamos o último formulário e salvamos sua unit como
Unt_Cadastro, e Frm_Cadastro. Na Tabela 2 identificamos qual
será a funcionalidade dos formulários.
Figura 2. Formulário principal
Formulário Funcionalidade
Formulário principal da aplicação, onde ficam os menus
Frm_Principal Listagem 2. Private, Public e Uses do formulário Principal
que chamam todos os outros formulários (Telas).
Pode ser considerado o formulário mais importante, é private
Frm_CriaCadastro
onde será criado os cadastros e relatórios. MenuCad,
Será o formulário que apresentará todos os cadastrados MenuTabPer: TMenuItem;
Frm_ExcCadastro
criados, para que possam ser excluídos. ImgItMenu: Integer;
E por fim o nosso formulário do cadastro, onde o usuário
Frm_Cadastro irá cadastrar, manipular os seus dados e chamar o seu procedure MenuCadPerClick(Sender: TObject);
{ private declarations }
relatório.
public
Tabela 2. Funcionalidades dos formulários procedure AdicionaMenu(Menu: String);
procedure RemoveMenu(Menu: String);
Programando o formulário principal { public declarations }
end;
Adicionamos então aos formulários os seguintes componentes
para conexão: TuniConnection, Provider: TinterBaseUniProvider, var
Transação: TuniTransaction, Script: TuniScript, Qry_Tabelas: Tu- Frm_Principal: TFrm_Principal;
niQuery, Qry_Codigo: TuniQuery. Adicionamos também outros
implementation
três componentes: Mnu_Principal: TmainMenu, Imgl_Menu:
TimageList, ApeErro: TapplicationEvents. Com isso o nosso Uses Unt_CriaCadastro, Unt_ExcCadastro, Unt_Cadastro;
formulário principal fica pronto para ser programado. Após a
adição de todos os componentes, ele deverá ficar com a aparência
da Figura 2. Programaremos então os itens do menu principal, presente na
Figura 3. O primeiro item do menu, Criar Cadastro, é onde iremos
Nota
criar o formulário de criação de cadastros. Vamos chamarmos o
cadastro e após isso o liberamos, como mostra a Listagem 3.
Mais adiante vamos utilizar um TClientDataSet, então é importante adicionarmos MidasLib à seção
uses, após a interface. Com isso não é necessário distribuir o arquivo Midas.dll.
Na seção private do nosso formulário teremos também decla-

rado, três variáveis e uma procedure. Já na seção public teremos
duas procedures e, a seguir, na seção uses do implementation,
como vamos usar todos os outros formulários, então fazemos
referência a eles, como mostra a Listagem 2. Figura 3. Menu da Aplicação

Para o segundo item do menu chamaremos o formulário com os Listagem 6. Implementação da procedure AdicionaMenu
cadastros criados, para que possamos realizar alguma exclusão,
procedure TFrm_Principal.AdicionaMenu(Menu: String);
como mostra a Listagem 4. var
Por fim, no menu Sair fecharemos nossa aplicação, como mostra I: Integer;
begin
a Listagem 5. if ImgItMenu = 0 then
ImgItMenu := 1
Listagem 3. Item do menu Criar Cadastro else
ImgItMenu := 0;
procedure TFrm_Principal.MnuI_CriaCadClick(Sender: TObject);
for I := 0 to Mnu_Principal.Items.Count - 1 do
begin
begin
try if AnsiSameCaption(Mnu_Principal.items[I].Caption, ‘C&adastros’) then
if not Assigned ( Frm_CriaCadastro ) then begin
Frm_CriaCadastro := TFrm_CriaCadastro.Create(Self ); MenuCad := Mnu_Principal.items[I];
Break;
Frm_CriaCadastro.ShowModal; end;
finally end;
FreeAndNil(Frm_CriaCadastro);
end; MenuTabPer := TMenuItem.Create(MenuCad);
end; MenuTabPer.Caption := Menu;
MenuTabPer.ImageIndex := ImgItMenu;
Listagem 4. Item do menu Excluir Cadastro MenuTabPer.OnClick := MenuCadPerClick;
procedure TFrm_Principal.MnuI_ExcCadClick(Sender: TObject); for I := 0 to MenuCad.count - 1 do

begin begin
try if MenuCad.Items[I].isLine then
begin
if not Assigned ( Frm_ExcCadastro ) then
MenuCad.Insert(I, MenuTabPer);
Frm_ExcCadastro := TFrm_ExcCadastro.Create(Self );
Break;
end;
Frm_ExcCadastro.ShowModal; end;
finally end;
FreeAndNil(Frm_ExcCadastro);
end; Listagem 7. Procedure Create do Form
end;
procedure TFrm_Principal.formCreate(Sender: TObject);
Listagem 5. Item do menu Sair var
Path,
procedure TFrm_Principal.MnuI_SairClick(Sender: TObject); Banco: String;
begin begin
Application.Terminate; try
end; Path := ExtractFiledir(paramstr(0));
Banco := Path+’\ARTBI.FDB’;
Conexao.Database := Banco;
Conexao.Open;
Na Listagem 6 implementamos a procedure AdicionaMenu, que except
é a responsável por adicionar no menu (Cadastros) os cadastros on E:exception do
begin
criados pelo usuário. Essa procedure recebe como parâmetro o
Application.MessageBox(pansichar(‘Erro de Conexão’+#13+E.Message),
nome do menu a ser criado e é utilizada no momento em que são ‘ Atenção’, MB_OK + MB_ICONHAND);
recuperados os cadastros criados. Essa recuperação ocorre no Application.Terminate;
end;
evento Create do formulário principal. end;
A Listagem 7 apresenta como são trazidos do banco de dados
ImgItMenu := 0;
cada cadastro criado. Temos duas variáveis declaradas (Path,
Banco), que serão as responsáveis por indicar o caminho do with Qry_Tabelas do
nosso banco de dados. Após fazermos a conexão com o banco de begin
Close;
dados, buscamos todos os cadastros criados que se encontram na SQL.Clear;
tabela TABELA_USUPER. Então, para cada registro encontrado SQL.Add(‘SELECT * FROM TABELA_USUPER’);
Open;
chamamos a procedure AdicionaMenu, para a criação do menu
end;
desse cadastro.
Para o procedimento de exclusão, ao selecionar um cadastro no while not(Qry_Tabelas.Eof ) do
begin
formulário de exclusão de cadastro (Frm_ExcCadastro), excluímos AdicionaMenu(Qry_Tabelas.FieldByName(‘TABELA’).AsString +’ - ‘+
o mesmo e avisamos ao formulário principal que é necessário Qry_Tabelas.FieldByName(‘APELIDO’).AsString);
Qry_Tabelas.Next;
remover o item de menu associado a esse registro. Isso é feito
end;
pela procedure RemoveMenu, presente na Listagem 8, que recebe end;
como parâmetro o nome do menu a ser removido.

Na Listagem 7 quando criamos e adicionamos um menu, con- O tratamento de erros foi todo centralizado através compo-
figuramos que seu evento Click é implementado pela procedure nente TApplicationEvents. Nele colocamos mensagens perso-
MenuCadPerClick. Essa procedure cria o formulário do cadastro nalizadas para erros, como “is not a valid date”, “Input value”,
e passa para ele qual será o cadastro a ser criado, passando para “Insufficient memory for this operation”, etc. O componente
ele qual tabela a ser carregada. Toda manipulação do cadastro é TApplication-Events pode capturar os eventos da aplicação e
apresentada na Listagem 9. um desses eventos é o evento de exceção, ou seja, sempre que
uma exceção for levantada ela passará por esse evento, que
Listagem 8. Procedure RemoveMenu é onde realizamos toda a tratativa. Fazemos isso conforme a
procedure TFrm_Principal.RemoveMenu(Menu: String);
Listagem 10.
var A partir desse momento vamos tratar da criação das tabelas no
I: Integer; banco de dados. Os procedimentos a seguir são essenciais para
begin
for I := 0 to Mnu_Principal.Items.Count - 1 do
o projeto e embora possam parecer complexos, com a devida
begin atenção, não o são.
if AnsiSameCaption(Mnu_Principal.items[I].Caption, ‘C&adastros’) then Na seção private do formulário Frm_CriaCadatro temos oito
begin
MenuCad := Mnu_Principal.items[I]; procedures e quatro functions, como na Tabela 3, onde é possível
Break; identificar o nome e a finalidade de cada uma delas.
end;
end;
Montando o formuláro de criação de cadastros
for I := 0 to MenuCad.Count - 1 do Agora que já temos conhecimento das funções e procedi-
begin
mentos do formulário de criação de cadastro, iremos montar
if AnsiSameCaption(MenuCad.Items[I].Caption, Menu) then
begin o formulário, onde temos um TpageControl com duas abas. A
MenuCad.Remove(MenuCad.items[I]); primeira aba é utilizada para a criação do cadastro em si. Já a
Break;
segunda, para ensinar o usuário a fazer os seus cadastros.
end;
end; Nesta segunda aba temos três imagens. A primeira é um
end; exemplo de criação de um cadastro, a segunda, é a imagem
Listagem 9. Click dos Menus dos Cadastrados Criados desse cadastro em execução, ou seja, o resultado como ficaria
o cadastro criado a partir da primeira imagem, já a terceira
procedure TFrm_Principal.MenuCadPerClick(Sender: TObject); imagem seria o relatório desse cadastro. Veremos então esse
begin
try formulário com foco na primeira aba, a aba de criação, como
if not Assigned ( Frm_Cadastro ) then mostra a Figura 4.
Frm_Cadastro := TFrm_Cadastro.Create(Self );
Vamos agora aos nossos componentes. Temos um TPanel
Frm_Cadastro.Tabela := TMenuItem(Sender).Caption; com alinhamento allbottom. Neste nosso panel temos dois
Frm_Cadastro.ShowModal; TEdits (Edt_Tabela, Edt_Apelido), junto com dois TLabel que
finally
são os títulos dos dois edits. Temos também um TDBNavigator
FreeAndNil(Frm_Cadastro);
end; (Nvg_Setas) e temos dois TBitBtn (Btn_Criar, Btn_Sair).
end; Temos a nossa grade de criação, onde irão ser informados
os campos do cadastro. A nossa grade
TDBGrid (Grd_Cadastro) está alinhada
em toda a área da tela (allclient). E por fim
os três últimos componentes, um TMemo
(Mmo_Script) que é onde será montado o
script para a criação da tabela no banco de
dados, esse nosso memo está invisível, ou
seja, visible = false. Um TDataSource (Ds_
Dados), e um TClientDataSet (Dados), que
é onde terão os campos a serem informa-
dos para a criação do cadastro. Serão um
total de cinco campos, (NOME, COLUNA,
TIPOCAMPO, TAMANHO, RELATORIO),
todos do tipo TStringField.
Na segunda aba temos três imagens, mos-
trando um exemplo para a criação de um
Figura 4. Form de Criação de Cadastros cadastro, como vemos nas Figuras 5 a 7.

Figura 5. Exemplo para a criação de um cadastro de Consulta Veterinária
Procedimento / Função Finalidade

O script para a criação da tabela, no banco de dados, é montado em um memo (Mmo_Script). Essa procedure
procedure Replace_Campos; troca os textos para o tipo do campo. Ex: (Data para DATE, Texto para VARCHAR, Moeda para DOUBLE PRECI-
SION, Hora para TIME, etc.)
Adiciona para o Mmo_Script um campo do tipo texto junto com o seu tamanho informado.
procedure Add_Texto;
Ex: CIDADE VARCHAR (80)
Adiciona para o Mmo_Script, os demais tipos de campos, que não precisam de nenhuma outra informação,
procedure Add_Camps; como o caso do texto, que tem que se informar um tamanho, para o mesmo.
Ex: TIME, DATE, TIMESTAMP
Monta o script para ser executado depois. Cria uma sentença CREATE TABLE + o nome da tabela informada.
Logo em seguida cria a chave primária da tabela (‘CODIGO CHAR(6) not NULL). Então percorre todos os cam-
pos que o usuário informou. Esses campos que estão num ClientDataSet (Dados: TclientDataSet). Os campos
procedure MontaScript;
são adicionados ao Mmo_Script. Se for campo do tipo texto, é utilizado Add_Texto, se não o Add_Camps. Por
último determina que o campo (CODIGO) vai ser a chave primária e usa o Replace_Campos, para terminar a
finalização do Script.
Aqui então é a criação da tabela, o conteúdo do Mmo_Script é transferido para o componente de script do
procedure CriaTabela;
formulário principal (Script: TuniScript). Então executará o mesmo para que seja criada essa tabela.
Neste procedimento é onde criamos o cadastro em si. Aqui inserimos o nome do nosso cadastro, junto com o
seu apelido na tabela (TABELA_USUPER). Com o nome do nosso cadastro já incluído junto com o seu apelido
(Titulo), cadastramos todos os campos referente a esse cadastro. Para isso, percorremos todos os campos
cadastrados no nosso TclientDataSet (Dados) e inserimos esses campos na nossa tabela TAB_CAMPOS. Os
campos dessa nossa tabela são:
procedure InserirTabela; CODIGO: Campo do tipo inteiro, é a chave primária da nossa tabela, informamos o mesmo com a função
RetornaCodigo;
TABELA: Aqui é o nome da nossa tabela e não o seu apelido (Titulo);
CAMPO: O nome do campo (interno), e não o título que será mostrado na grade e no relatório;
COLUNA: É o título do campo, aquele que será mostrado na grade e no relatório;
TIPO: Qual é o tipo do campo (Texto, Numero, Data, Hora, Data e Hora, Observação, Moeda);
RELATORIO: Só aceita dois valores (S / N) para controlar se o campo deverá ou não aparecer no relatório.
Este procedimento remove os espaços em branco do nome da tabela e dos campos. E também remove os
procedure ArrumarNomes;
caracteres acentuados.
Aqui apenas fazemos algumas limpezas.
procedure LimpaGrade; Apagamos todos os dados no TclientDataSet (Dados). Limpamos o conteúdo do nosso script de criação
(Mmo_Script). E apagamos o nome da tabela e o seu apelido.
Esta função verifica algumas coisas para que não haja erro na hora de criarmos nossa tabela. A verificação
começa ao chamarmos o procedimento (ArrumarNomes), para que o script fique adequado. Em seguida é
function VerConsistencias: Boolean;
verificado se já não existe um cadastro com o mesmo nome, se foi informado os tipos dos campos, se foi
informado o tamanho do campo no caso se o tipo for texto, etc.
Esta função retorna um inteiro que selecionamos do nosso banco de dados, para que nossa chave primária
function RetornaCodigo(Generator: string): Integer;
seja um valor único.
function RemoveAcentos(Texto: String):String; Uma função que irá remover todos os acentos dos caracteres, retornando o texto sem os caracteres acentuados.
function RemoveEspaco(Texto: String ):String; Já esta função irá tirar os espaços em brancos, contidos nos textos.
Tabela 3. Entendendo um pouco a finalidade das funções e procedimentos

Figura 6. Resultado do cadastro de Consulta Veterinária
Listagem 10. Mensagens personalizadas, para erro ou falhas da aplicação
procedure TFrm_Principal.ApeErroexception(Sender: TObject; E: exception); Application.MessageBox(‘Falha na Operação de Exclusão de Arquivo! !’,

var ‘Atenção’, MB_OK + MB_ICONWARNING )
Mensagem: String; else
Pos1, Pos2: Integer; if Pos(‘Access to table disabled because of previous error’, E.Message) > 0 then
begin Application.MessageBox(‘Acesso à Tabela desativado por causa de Erro Anterior!’,
if Pos(‘is not a valid date’, E.Message) > 0 then ‘Atenção’, MB_OK + MB_ICONWARNING )
Application.MessageBox(‘Data Invalida !’, else
‘Atenção’, MB_OK + MB_ICONWARNING ) if Pos(‘Insufficient memory for this operation’, E.Message) > 0 then
else Application.MessageBox(‘Memória Insuficiente para esta Operação!’,
if Pos(‘is not a valid time’, E.Message) > 0 then ‘Atenção’, MB_OK + MB_ICONWARNING )
Application.MessageBox(‘Hora Invalida !’, else
‘Atenção’, MB_OK + MB_ICONWARNING ) if Pos(‘Insufficient disk space’, E.Message) > 0 then
else Application.MessageBox(‘Espaço em disco Insuficiente!’,
if Pos(‘Cannot perform this operation on an empty dataset’, E.Message) > 0 then ‘Atenção’, MB_OK + MB_ICONWARNING )
Application.MessageBox(‘Sem Dados para excluir!’, else
‘Atenção’, MB_OK + MB_ICONWARNING ) if Pos(‘Invalid table delete request’, E.Message) > 0 then
else Application.MessageBox(‘Pedido de Apagar inválido!’,
if Pos(‘Invalid input value’, E.Message) > 0 then ‘Atenção’, MB_OK + MB_ICONWARNING )
Application.MessageBox(‘Informe o Campo Corretamente!’, else
‘Atenção’, MB_OK + MB_ICONWARNING ) if Pos(‘not enough memory’, E.Message) > 0 then
else Application.MessageBox(‘Memória Insuficiente!’,
if Pos(‘Input value’, E.Message) > 0 then ‘Atenção’, MB_OK + MB_ICONWARNING )
Application.MessageBox(‘Informe o Campo Corretamente!’, else
‘Atenção’, MB_OK + MB_ICONWARNING ) if Pos(‘Table is open’, E.Message) > 0 then
else Application.MessageBox(‘Tabela Está Aberta!’,
if Pos(‘Erro ApplyUpdates’, E.Message) > 0 then ‘Atenção’, MB_OK + MB_ICONWARNING )
Application.MessageBox(‘Erro ao Gravar no Banco de Dados!’, else
‘Atenção’, MB_OK + MB_ICONWARNING ) if Pos(‘Socket Error # 10061 Connection refused.’, E.Message) > 0 then
else Application.MessageBox(‘Erro de Conexão!’,
if Pos(UpperCase(‘is not a valid float’), UpperCase(E.Message)) > 0 then ‘Atenção’, MB_OK + MB_ICONWARNING )
begin else
Pos1 := Pos(‘’’’, E.Message); if Pos(‘Socket Error # 10060’, E.Message) > 0 then
Mensagem := E.Message; Application.MessageBox(‘Erro de Conexão!’,
Delete(Mensagem, Pos1, 1); ‘Atenção’, MB_OK + MB_ICONWARNING )
Pos2 := Pos(‘’’’, mensagem); else
mensagem := Copy(E.Message, Pos1 + 1, Pos2 - Pos1); if Pos(‘Socket Error # 11001 Host not found.’, E.Message) > 0 then
mensagem := ‘O valor ‘+ mensagem + ‘ não é válido.’; Application.MessageBox(‘Erro No Host!’,
‘Atenção’, MB_OK + MB_ICONWARNING )
Application.MessageBox(pansichar(mensagem), else
‘Atenção’, MB_OK + MB_ICONWARNING ) if (Copy(E.Message, 1, 27)= ‘Access violation at address’) then
end begin
else Application.MessageBox(‘Ocorreu erro de Violação de Acesso.’,
if Pos(‘Dataset not in edit or insert mode’, E.Message) > 0 then ‘Atenção’, MB_OK + MB_ICONWARNING )
Application.MessageBox(‘Tabela Não está em modo de edição!’, end
‘Atenção’, MB_OK + MB_ICONWARNING ) else
else begin
if Pos(‘Error creating cursor handle’, E.Message) > 0 then Mensagem := ‘Ocorreu o seguinte erro: ‘ + #13 +UpperCase(E.Message);
Application.MessageBox(‘Operação realizada com Sucesso !’,
‘Parabéns’, MB_OK + MB_ICONWARNING ) Application.MessageBox(pansichar(mensagem),
else ‘Atenção’, MB_OK + MB_ICONWARNING )
if pos(‘ No current record’, E.message)> 0 then end;
Application.MessageBox(‘Nenhum Registro Atual !’, end;
‘Atenção’, MB_OK + MB_ICONWARNING )
else end.
if Pos(‘File Delete operation failed’, E.Message) > 0 then

Figura 7. O Relatório da Consulta Veterinária, conforme campos escolhidos a serem mostrados
Nesta segunda aba ainda temos um TBitBtn, localizado

abaixo dessas três imagens e irá mostrar um texto que
explica um pouco mais como montar esse cadastro.
Esse texto está contido em uma imagem (Figura 8) que
é exibida ao clicar no TBitBtn.
Configurando o TClientDataSet e a grade

Vamos agora inserir os campos para a criação no nosso
TClientDataSet e na nossa grade. Para isso, basta dar um
duplo clique no TClientDataSet (Dados) e clicar com o
botão direito, escolher a opção (New Field), como na
Figura 9.
Ao fazer isto será exibida uma tela para colocarmos
as informações do campo, como vemos na Figura 10.
Esse processo deve ser repetido cinco vezes, para os
nossos campos (NOME, COLUNA, TIPOCAMPO,
TAMANHO, RELATORIO). Na tela de informações
do campo basta colocar apenas duas informações, o
Name que será o nome do campo e o Type que será o
Figura 8. Imagem que contem mais informações de como criar o cadastro
tipo do campo, todos os cincos serão do tipo String.
Ao finalizar é necessário ativar o nosso TClientDataSet
Dados, então clicamos com o botão direito sobre ele e escolhe- Texto, Numero, Data, Hora, Data e Hora, Observação, Moeda.
mos a opção Create DataSet, Lembrando que é uma listagem, então informe um em cada linha,
Como já ativamos o nosso dataset, agora vamos fazer a ligação totalizando então sete linhas.
do nosso TDataSource a esse TDataSet. Então no nosso Ds_Da-
dos indicamos na propriedade DataSet o TClientDataSet Dados. Programando a criação dos cadastros
Agora ligamos o nosso Grid (Grd_Cadastro) e o nosso Navegador É preciso garantir uma boa usabilidade e segurança para o usu-
(Nvg_Setas) a esse TDataSource. Para isso basta selecionarmos os ário no momento da criação de seu cadastro, assim controlamos
dois componentes e colocar na propriedade DataSource, o nosso algumas situações por código. Por exemplo, a Listagem 11 mostra
Ds_Dados. como impedir a exclusão ou inclusão de registros na grade de
Perceba que automaticamente ao ligarmos a grid ao datasource, campos através de teclas especiais.
todos os cincos campos que criamos já aparecem no grid. Agora
vamos configurar essa nossa grid. Então selecionamos a mesma Listagem 11. Evento KeyDown da Grade
e clicamos na propriedade Columns. Será apresentada uma janela procedure TFrm_CriaCadastro.Grd_CadastroKeydown(Sender: TObject;
que é a janela das colunas, então na parte superior desta clicamos var Key: Word; Shift: TShiftState);
no segundo botão (Add All Fields). Isso faz que os campos sejam begin
if (Shift =[ssctrl]) and (key = vk_delete) then abort;
listados nesta janela. if (key = vk_Up)then abort;
Selecionamos então o campo TIPOCAMPO e clicamos na pro- if (key = vk_down)then abort;
priedade PickList do mesmo. Feito isto será apresentada a janela if (key = vk_Cancel)then abort;
if (key = vk_Escape)then abort;
para informamos a lista que esse campo deve conter. No nosso if (key = vk_Insert)then abort;
caso serão os tipos dos campos, então basta informar os tipos end;

A Listagem 12 verifica se na coluna 2 foi selecionado um tipo

de campo da lista. Se não foi é o tipo do campo como Texto. Já
para coluna 4 é verificado se informou ou não se o campo deverá
aparecer no relatório. Se não informou, o campo será mostrado
no relatório.
Para isso é de extrema importância que os campos sejam criados
como mencionado anteriormente, nesta ordem: NOME, COLUNA,
TIPOCAMPO, TAMANHO, RELATORIO.
A Listagem 13 mostra a implementação do evento NewRecord do
TClientDataSet, assim, a cada registro novo o campo RELATORIO
é configurado com o valor padrão ‘S’, ou seja, para que ele seja
exibido no relatório, da mesma forma o campo TIPOCAMPO tem
seu valor padrão como ‘Texto’ e o tamanho, campo TAMANHO,
Figura 9. Criando os campos no TClientDataSet (Dados), escolhendo New Field definido como ‘40’.
Também é preciso validar o nome da tabela a ser criada, vamos
permitir que só contenha letras de A à Z em minúsculo, como
mostra a Listagem 14, onde verificamos se a tecla pressionada
não é “a”, “z”, ou BackSpace, então soamos o beep e ignoramos
a tecla.
Listagem 13. Evento NewRecord do TClientDataSet
procedure TFrm_CriaCadastro.DadosNewRecord(DataSet: TDataSet);

begin
Dados.FieldByName(‘RELATORIO’).AsString := ‘S’;
Dados.FieldByName(‘TIPOCAMPO’).AsString := ‘Texto’;
Dados.FieldByName(‘TAMANHO’).AsString := ‘40’;
end;
Figura 10. Tela para colocarmos as informações dos campos
Listagem 14. Evento KeyPress do Edt_Tabela
Listagem 12. Evento ColExit da Grade procedure TFrm_CriaCadastro.Edt_TabelaKeyPress(Sender: TObject;

var Key: Char);
procedure TFrm_CriaCadastro.Grd_CadastroColExit(Sender: TObject); begin
var if not(key in[‘a’..’z’, #8] ) then
Texto: String; begin
begin beep;
if not (Ds_Dados.DataSet.State in [DsEdit, DsInsert]) then key:=#0;
Exit; end;
end;
if (Grd_Cadastro.SelectedIndex = 2) then
begin
Texto := Grd_Cadastro.Columns[2].Field.Text;
A Listagem 15 mostra a implementação do botão de criação
if ((Texto <> ‘Texto’) (Btn_Criar), apesar de parecer um pouco mais complicada, com
and (Texto <> ‘Numero’) um pouco de atenção fica fácil o seu entendimento.
and (Texto <> ‘Moeda’) Usamos um bloco try/except para capturar qualquer exce-
and (Texto <> ‘Data’)
and (Texto <> ‘Hora’)
ção, para não deixar que uma apareça na tela do usuário. No
and (Texto <> ‘Data e Hora’) try mudamos o cursor do mouse, caso o processo demore
and (Texto <> ‘Observação’)) then muito. Verificamos se foi informado o nome da tabela, caso
Grd_Cadastro.Columns[2].Field.Text := ‘Texto’;
não, retornamos ao cursor normal, e informamos ao usuário.
end
else A mesma coisa já acontece logo a seguir, verificamos se foram
if (Grd_Cadastro.SelectedIndex = 4) then informados os campos do cadastro, caso não, agimos da mesma
begin forma acima, voltamos ao cursor normal e também informamos
Texto := Grd_Cadastro.Columns[4].Field.Text;
o usuário.
if ((Texto <> ‘S’) and (Texto <> ‘N’)) then Na sequência usamos a função de verificar consistências
Grd_Cadastro.Columns[4].Field.Text := ‘S’; para ver se podemos prosseguir com o processo de criação. Se
end;
estiver tudo certo, aí usaremos quatro funções MontaScript,
end;
CriaTabela, InserirTabela, LimpaGrade, para finalizarmos a

criação. E então informamos o usuário que o cadastro e o rela- Nota
tório foram criados com sucesso. Caso haja algum erro no meio No código disponível para download é possível verificar a implementação de todas, aqui no artigo
deste processo todo, entramos no Except. O Except apenas volta destacamos as mais importantes.
o cursor do mouse ao normal e informa ao usuário que houve
um erro na criação, informando a mensagem do erro.
Como o script para a criação da tabela no banco de dados é mon-
Listagem 15. Botão de Criação do Cadastro tado em um memo (Mmo_Script) a procedure Replace_Campos
(Listagem 17) tem a responsabilidade de trocar os textos que
procedure TFrm_CriaCadastro.Btn_CriarClick(Sender: TObject);
representam tipos em tipos reais. Por exemplo, Data para DATE,
begin
try Texto para VARCHAR, Moeda para DOUBLE PRECISION, Hora
Screen.Cursor := crSQLWait; para TIME, Etc.). Repare que ele troca Data por DATE, e Hora
por TIME. Em seguida ele verifica se for DATE e TIM) para então
if (Trim(Edt_Tabela.Text) =’’) then
begin trocar por TIMESTAMP.
Screen.Cursor := crDefault;
Application.MessageBox(‘Informe o Nome do Cadastro!!!’, Listagem 16. Seção Private do formulário

‘ Atenção’, MB_OK + MB_ICONINFORMATION);
Exit; private
end; procedure Replace_Campos;
procedure Add_Texto;
if (Dados.IsEmpty) then procedure Add_Camps;
begin procedure MontaScript;
Screen.Cursor := crDefault; procedure CriaTabela;
procedure InserirTabela;
procedure ArrumarNomes;
Application.MessageBox(‘Insira os Campos do Cadastro na Grade!!!’,
procedure LimpaGrade;
function VerConsistencias: Boolean;
Exit;
function RetornaCodigo(Generator: string): Integer;
end;
function RemoveAcentos(Texto: String):String;
function RemoveEspaco(Texto: String ):String;
if not (VerConsistencias) then
{ private declarations }
begin
Screen.Cursor := crDefault;
Listagem 17. Procedure Replace_Campos
Exit;
end;
procedure TFrm_CriaCadastro.Replace_Campos;
begin
MontaScript;
Mmo_Script.Lines.Text := StringReplace(Mmo_Script.Lines.Text, ‘Texto’,
CriaTabela;
‘VARCHAR’, [rfReplaceAll]);
InserirTabela;
Mmo_Script.Lines.Text := StringReplace(Mmo_Script.Lines.Text, ‘Observação’,
LimpaGrade; ‘BLOB SUB_TYPE 1 SEGMENT SIZE 30’, [rfReplaceAll]);
Mmo_Script.Lines.Text := StringReplace(Mmo_Script.Lines.Text, ‘Data’, ‘DATE’,
Screen.Cursor := crDefault; [rfReplaceAll]);
Mmo_Script.Lines.Text := StringReplace(Mmo_Script.Lines.Text, ‘Hora’, ‘TIME’,
Application.MessageBox(‘Cadastro e Relatório Personalizado Criado [rfReplaceAll]);
com Sucesso!!!’, Mmo_Script.Lines.Text := StringReplace(Mmo_Script.Lines.Text, ‘DATE e TIME’,
‘ Atenção’, MB_OK + MB_ICONINFORMATION); ‘TIMESTAMP’, [rfReplaceAll]);
Mmo_Script.Lines.Text := StringReplace(Mmo_Script.Lines.Text, ‘Moeda’, ‘DOUBLE
except PRECISION’, [rfReplaceAll]);
on E:exception do Mmo_Script.Lines.Text := StringReplace(Mmo_Script.Lines.Text, ‘Numero’,
begin ‘INTEGER’, [rfReplaceAll]);
Screen.Cursor := crDefault; Mmo_Script.Lines.Text := StringReplace(Mmo_Script.Lines.Text, ‘Sim’, ‘S’,
[rfReplaceAll]);
Application.MessageBox(PAnsiChar(‘Erro Ao Criar Tabela:’ +#13+ E.message), Mmo_Script.Lines.Text := StringReplace(Mmo_Script.Lines.Text, ‘Não’, ‘N’,
‘Business Inteligence’, MB_OK + MB_ICONERROR); [rfReplaceAll]);
Exit; end;
end;
end;
end;
A Listagem 18 apresenta o procedimento MontaScript. Ele é
responsável por montar o script que é executado. Através de
Procedimentos e funções da seção Private variáveis do tipo string todo o texto é montado. Essa montagem
Declaramos na seção Private os procedimentos e funções vistas é iniciada com a sentença CREATE TABLE + o nome da tabela
na Listagem 16. Elas realizam operações de apoio, como já foi informada. Logo em seguida a chave primária da tabela, ‘CODIGO
explicado na Tabela 3. Uma vez declaradas, para implementá-las CHAR(6) not NULL. Então todos os campos que o usuário infor-
basta pressionar Shift+Ctrl+C. mou são percorridos. Esses campos estão no ClientDataSet Dados.

Então um a um é adicionado no nosso Mmo_Script, verificando correto e possa ser executado no banco de dados, é chamado o
se for campo do tipo texto, utiliza-se o procedimento Add_Texto, procedimento Replace_Campos.
se não for do tipo texto, utiliza-se o procedimento Add_Camps. Bom agora que estamos com o nosso script correto, então é ne-
Para finalizar, é removida a última vírgula que foi adicionada cessário criar a tabela. A Listagem 19 mostra o método CriaTabela,
após o último campo, fechando a sentença então com os caracteres ele irá jogar o conteúdo do Mmo_Script no componente de script
“‘);” e o AlteraTabela. Então para que o script fique totalmente do formulário principal (Script: TuniScript) e então executará o
mesmo, obviamente avisando se houve alguma falha.
Listagem 18. Procedure MontaScript
Listagem 19. Procedure CriaTabela
procedure TFrm_CriaCadastro.MontaScript;
var procedure TFrm_CriaCadastro.CriaTabela;
CriaTabela, begin
AlteraTabela, try
NomeTabela, Frm_Principal.Script.SQL.Text := Mmo_Script.Lines.Text;
UltLinha, Frm_Principal.Script.Execute;
Codigo: String; except
I, Virgula: Integer; on E:exception do
begin begin
try Screen.Cursor := crDefault;
NomeTabela := Edt_Tabela.Text;
Application.MessageBox(PAnsiChar(‘Erro Ao Criar Tabela:’ +#13+ E.message),
CriaTabela :=’CREATE TABLE ‘ + NomeTabela + ‘ (‘; ‘Business Inteligence’, MB_OK + MB_ICONERROR);
Exit;
Codigo := ‘CODIGO CHAR(6) not NULL,’; end;
end;
AlteraTabela :=’ALTER TABLE ‘+ NomeTabela + end;
‘ ADD CONSTRAINT PK_’ + NomeTabela + ‘ PRIMARY KEY (CODIGO);’;
Dados.First;
O procedimento InserirTabela mostrado na Listagem 20 é res-
Mmo_Script.Lines.Add(CriaTabela); ponsável por criar o cadastro em si. Aqui inserimos o nome do
Mmo_Script.Lines.Add(Codigo); cadastro junto com o seu apelido na tabela (TABELA_USUPER).
while not Dados.Eof do Por exemplo, Nome (CONSVET), Apelido (Consulta Veterinária).
begin Posteriormente são cadastrados todos os campos referente a esse
if (Dados.FieldByName(‘TIPOCAMPO’).AsString =’Texto’)then cadastro, percorrendo o conteúdo do TClientDataSet Dados.
Add_Texto
else A cada registro encontrado é realizada uma inserção na tabela
Add_Camps; TAB_CAMPOS. Os campos dessa nossa tabela são:
• CODIGO: campo do tipo inteiro, é a chave primária da tabela,
Dados.Next;
end; informamos o mesmo com a função RetornaCodigo);
• TABELA: é o nome da tabela e não o seu apelido (Titulo);
I := Mmo_Script.Lines.Count - 1;
UltLinha := Mmo_Script.Lines[I];
• CAMPO: o nome do campo (interno) e não o título que será
Virgula := Pos(‘,’, UltLinha); mostrado na grade e no relatório;
• COLUNA: aqui sim é o título do campo, aquele que será mos-
if Virgula > 0 then
begin
trado na grade e no relatório;
Delete(UltLinha, Virgula, Length(UltLinha)); • TIPO: indica o tipo do Campo, Texto, Numero, Data, Hora,
Insert(‘);’, UltLinha, Virgula); Data e Hora, Observação, Moeda;
Mmo_Script.Lines[I]:= UltLinha;
end; • RELATORIO: Só aceita dois valores (S/N) para controlar se o
campo deverá ou não aparecer no relatório.
Mmo_Script.Lines.Add(AlteraTabela);
Replace_Campos; Feito isto, o nosso Cadastro e Relatório Personalizado foram cria-

except dos com sucesso. No menu do formulário principal esse cadastro
on E:exception do
já pode ser acessado como um outro qualquer.
begin
Screen.Cursor := crDefault; Claro que para permitir a criação de um cadastro e o mesmo
possa ser inserido no banco de dados, temos que realizar algu-
Application.MessageBox(PAnsiChar(‘Erro Ao Montar Script:’ +#13+ E.message),
mas consistências. A função VerConsistencias da Listagem 21
‘Business Inteligence’, MB_OK + MB_ICONERROR);
Exit; mostra isso. O procedimento ArrumarNomes (ver arquivos
end; do download) é executado para que o script fique adequado.
end;
end;
Esse procedimento remove caracteres indesejados dos nomes
informados.

Listagem 20. Procedure InserirTabela
procedure TFrm_CriaCadastro.InserirTabela; else

var if (Dados.FieldByName(‘TIPOCAMPO’).AsString =’Hora’)then
Tabela, TpCampo := ‘TIME’
Apelido, else
TpCampo, if (Dados.FieldByName(‘TIPOCAMPO’).AsString =’Data e Hora’)then
Relatorio: String; TpCampo := ‘TIMESTAMP’
begin else
try if (Dados.FieldByName(‘TIPOCAMPO’).AsString =’Observação’)then
Tabela := Trim(Edt_Tabela.Text); TpCampo := ‘MEMO’
Apelido := Edt_Apelido.Text; else
if (Dados.FieldByName(‘TIPOCAMPO’).AsString =’Moeda’)then
if (Apelido = ‘’)then TpCampo := ‘DOUBLE’;
Apelido := Tabela;
if (Dados.FieldByName(‘RELATORIO’).AsString =’S’)then
with Frm_Principal.Qry_Tabelas do Relatorio := ‘S’
begin else
Close; if (Dados.FieldByName(‘RELATORIO’).AsString =’N’)then
SQL.Clear; Relatorio := ‘N’;
SQL.Add(‘INSERT INTO TABELA_USUPER (TABELA, APELIDO) VALUES
(:TABELA, :APELIDO)’); with Frm_Principal.Qry_Tabelas do
Params.ParamByName(‘TABELA’).AsString := Tabela; begin
Params.ParamByName(‘APELIDO’).AsString := Apelido; Close;
Execute; SQL.Clear;
end; SQL.Add(‘INSERT INTO TAB_CAMPOS (CODIGO, TABELA, CAMPO, COLUNA, TIPO,
RELATORIO) VALUES ‘);
with Frm_Principal.Qry_Tabelas do SQL.Add(‘(:CODIGO, :TABELA, :CAMPO, :COLUNA, :TIPO, :RELATORIO)’);
begin
Close; Params.ParamByName(‘CODIGO’).AsInteger := RetornaCodigo
SQL.Clear; (‘GEN_TAB_CAMPOS’);
SQL.Add(‘INSERT INTO TAB_CAMPOS (CODIGO, TABELA, CAMPO, COLUNA, TIPO, Params.ParamByName(‘TABELA’).AsString := Tabela;
RELATORIO) VALUES ‘); Params.ParamByName(‘CAMPO’).AsString := Dados.FieldByName(‘NOME’).
SQL.Add(‘(:CODIGO, :TABELA, :CAMPO, :COLUNA, :TIPO, :RELATORIO)’); AsString;
Params.ParamByName(‘COLUNA’).AsString := Dados.FieldByName(‘COLUNA’).
Params.ParamByName(‘CODIGO’).AsInteger := RetornaCodigo AsString;
(‘GEN_TAB_CAMPOS’); Params.ParamByName(‘TIPO’).AsString := TpCampo;
Params.ParamByName(‘TABELA’).AsString := Tabela; Params.ParamByName(‘RELATORIO’).AsString := Relatorio;
Params.ParamByName(‘CAMPO’).AsString := ‘CODIGO’; Execute;
Params.ParamByName(‘COLUNA’).AsString := ‘Código’; end;
Params.ParamByName(‘TIPO’).AsString := ‘STRING’;
Params.ParamByName(‘RELATORIO’).AsString := ‘S’; Dados.Next;
Execute; end;
end;
Frm_Principal.AdicionaMenu(Tabela +’ - ‘+ Apelido);
Dados.First;
except
while not Dados.Eof do on E:exception do
begin begin
if (Dados.FieldByName(‘TIPOCAMPO’).AsString =’Texto’)then Screen.Cursor := crDefault;
TpCampo := ‘STRING’
else Application.MessageBox(PAnsiChar(‘Erro Ao Inserir Tabela:’ +#13+ E.message),
if (Dados.FieldByName(‘TIPOCAMPO’).AsString =’Numero’)then ‘Business Inteligence’, MB_OK + MB_ICONERROR);
TpCampo := ‘INTEGER’ Exit;
else end;
if (Dados.FieldByName(‘TIPOCAMPO’).AsString =’Data’)then end;
TpCampo := ‘DATE’ end;

Em seguida outras verificações necessárias são realizadas. Por Montando o formulário dos cadastros
exemplo, se já não existe um cadastro com o mesmo nome, se foi O formulário de cadastro possui sete componentes referente a
informado o tipo dos campos, se foi informado o tamanho dos parte de relatórios. São eles:
campos, no caso se o tipo for texto se foi informado se o campo irá • FrxPDF (TfrxPDFExport), usado para exportar o relatório para
ou não aparecer no relatório. o formato PDF;
Listagem 21. Function VerConsistencia
function TFrm_CriaCadastro.VerConsistencias: Boolean; if (Dados.FieldByName(‘TIPOCAMPO’).AsString =’’) then

begin begin
Result := True; Screen.Cursor := crDefault;
ArrumarNomes; Application.MessageBox(‘Informe o Tipo de Campo para todos os Campos(Linhas)!!!’,

with Frm_Principal.Qry_Tabelas do Result := False;
begin Exit;
Close; end;
SQL.Clear;
SQL.Add(‘SELECT TABELA FROM TABELA_USUPER ‘); if (Dados.FieldByName(‘TIPOCAMPO’).AsString =’Texto’) and
SQL.Add(‘WHERE TABELA =:TABELA’); (Dados.FieldByName(‘TAMANHO’).AsString =’’)then
Params.ParamByName(‘TABELA’).AsString := Edt_Tabela.Text; begin
Open; Screen.Cursor := crDefault;
end;
Application.MessageBox(‘Informe o Tamanho para o Tipo de Campo Texto!!!’,
if not(Frm_Principal.Qry_Tabelas.IsEmpty) then ‘ Atenção’, MB_OK + MB_ICONINFORMATION);
begin Result := False;
Screen.Cursor := crDefault; Exit;
end;
Application.MessageBox(‘Já Existe um Cadastro Personalizado com este Nome!!!’,
‘ Atenção’, MB_OK + MB_ICONINFORMATION); if (Dados.FieldByName(‘RELATORIO’).AsString =’’)then
Result := False; begin
Exit; Screen.Cursor := crDefault;
end;
Application.MessageBox(‘Informe se os Campos irão aparecer no Relatório ou não!!!’,
Dados.First; ‘ Atenção’, MB_OK + MB_ICONINFORMATION);
Result := False;
while not Dados.Eof do Exit;
begin end;
if (Dados.FieldByName(‘NOME’).AsString =’Texto’) or
(Dados.FieldByName(‘NOME’).AsString =’Numero’) or if Pos(‘ ‘, Dados.FieldByName(‘NOME’).AsString) > 0 then
(Dados.FieldByName(‘NOME’).AsString =’Data’) or begin
(Dados.FieldByName(‘NOME’).AsString =’Hora’) or Screen.Cursor := crDefault;
(Dados.FieldByName(‘NOME’).AsString =’Data e Hora’) or
(Dados.FieldByName(‘NOME’).AsString =’Observação’) or Application.MessageBox(‘Não Pode Ter Espaço em Branco no Campo Nome!!!’,
(Dados.FieldByName(‘NOME’).AsString =’Moeda’) or ‘ Atenção’, MB_OK + MB_ICONINFORMATION);
(Dados.FieldByName(‘COLUNA’).AsString =’Texto’) or Result := False;
(Dados.FieldByName(‘COLUNA’).AsString =’Numero’) or Exit;
(Dados.FieldByName(‘COLUNA’).AsString =’Data’) or end;
(Dados.FieldByName(‘COLUNA’).AsString =’Hora’) or
(Dados.FieldByName(‘COLUNA’).AsString =’Data e Hora’) or if Pos(‘ ‘, Edt_Tabela.Text) > 0 then
(Dados.FieldByName(‘COLUNA’).AsString =’Observação’) or begin
(Dados.FieldByName(‘COLUNA’).AsString =’Moeda’) then Screen.Cursor := crDefault;
begin
Screen.Cursor := crDefault; Application.MessageBox(‘Não Pode Ter Espaço em Branco no Nome do Cadastro!!!’,
Application.MessageBox(PAnsiChar(‘Atenção Não Pode Haver:’ +#13+ Result := False;
‘Texto, Numero, Data, Hora, Data e Hora, Observação, Moeda.’+#13+ Exit;
‘No ( Nome do Campo ) e em ( Titulo da Coluna ).’), end;
Result := False; Dados.Next;
Exit; end;
end; end;

• FrxHTML (TfrxHTMLExport), usado para exportar o relatório
para o formato HTML;
• FrxJPEG (TfrxJPEGExport), usado para exportar o relatório para
o formato JPEG;
• FrxEXCEL (TfrxXLSExport), usado para exportar o relatório
para o formato XLS;
• FrxCSV (TfrxCSVExport), usado para exportar o relatório para
o formato CSV;
• FrxCross (TfrxCrossObject), componente usado para a monta-
gem e exibição dos dados;
• FrxRelPerso (TfrxReport), componente do relatório.
São necessários mais dois componentes não visuais: Qry_Ca-
dastro (TuniQuery) e Ds_Cadastro (TDataSource), que serão os
responsáveis para a parte dos dados do cadastro. Temos também
dois TPanel. O primeiro painel Pnl_Tabela é alinhado ao topo do
formulário, nele conterá um TLabel, Lbl_Status. Esse label servirá,
para informar o status do cadastro se está consultando, editando,
ou inserindo dados. Figura 11. Montagem do Form de Cadastros
O segundo panel (Pnl_Botao) é alinhado na parte de baixo
do formulário. Temos nesse painel quatro componentes, dois
TDBNavigator (Nvg_Setas e Nvg_Dados). O primeiro exibe os
botões de navegação de registros, já o segundo os botões para
manipulação de dados. O primeiro navegador só fica habilitado
se não estiver inserindo ou editando o cadastro. Os outros dois
componentes são TBitBtn (Btn_Imprimir e Btn_Sair). O botão de
imprimir será responsável por gerar o relatório. Por fim, temos
o último componente, o Grd_Cadastro, um TDBGrid. A grade
do cadastro que fica alinhada em todo o restante da tela, entre
os dois painéis. Montamos esse formulário para que ele fique
parecido com a Figura 11.
Figura 12. Montagem do Relatório

Criando o Relatório
Para criar o relatório basta dar um clique no componente de re-
latório FastReport, FrxRelPerso. Mudamos as subpropriedades da objeto Memo e o nomeamos para MmoTitulo, mudando sua
propriedade PreviewOptions, nela temos Buttons onde devemos propriedade Align para baWidth e a propriedade HAlign para
deixar que só esses fiquem habilitados (true) os seguintes botões: haCenter.
pbPrint, pbExport, pbZoom, pbTools, pbNavigator, pbExport-
Quick, pbNoFullScreen. Banda dos Dados
Feita esta pequena mudança agora é só dar um duplo clique no Clicamos no botão de Inserir banda e escolhemos a banda Dado
componente do relatório que será exibido o seu designer para Mestre. Aparecerá uma tela que informa que a banda não está
fazermos sua montagem. No centro fica a página do relatório e a relacionada com DataSet algum, basta clicar no OK. Nomeie esta
esquerda uma coleção de botões, os quais usaremos alguns para banda para BdDados e alteramos a propriedade Height para 2,80.
montar o relatório. Nesse nosso relatório vamos ter três bandas, Inserimos nesta banda um objeto CrossTab. Na tela que apare-
uma para o título, uma para os dados e a outra do rodapé que cerá, na parte direita no canto superior, a propriedade Colum,
informará o número da página. A imagem desta montagem pode nela escolhemos sem ordenação. Logo a baixo, na propriedade
ser vista na Figura 12. Cell, escolher “Nenhum”. Mais um pouco em baixo, nas caixas
de seleção, deixar marcado somente as opções “Exibe Canto,
Banda do Título Cabeçalho de Coluna, Tamanho Automático, Arredonda Bordas
Aqui é uma simples banda que exibirá o título do relatório, das Células, Reimprime cabeçalho em nova página”. Selecione
esse título será: Relatório de Apelido do cadastro. Por exemplo: o estilo Gray, ou conforme o gosto. Clique no ok para fechar a
Relatório de Consulta Veterinária. Então clicamos no botão tela e vamos fazer as outras mudanças.
Inserir Banda e escolhemos a banda Título do Relatório, a Nomeie o objeto CrossTab para Cross, mude a propriedade Top
nomeamos como BdTitulo. Agora nesta banda inserimos um para 0, a propriedade Width para 2,62 e a propriedade Left para

0,05 e a propriedade Height para 2,76. Agora clicamos na primei- da tela AllBottom. Dentro deste Pnl_Botao foram colocados dois
ra coluna, onde está escrito Columm. Mudamos a propriedade TBitBtn (Btn_Excluir, Btn_Sair). Obviamente que o primeiro é para
HAlign para hacenter e a propriedade VAlign para vacenter. excluir um cadastro e o segundo é para fechar o formulário. E por
Colocamos sua fonte com o estilo Negrito e mudamos a sua cor último um TListBox (Lst_Cadastros) que por sua vez é alinhado
para cl3DLight, ou outra desejada. em todo o restante da tela (AllClient), nele é onde serão listados os
Agora clicamos na parte de baixo, onde está o 0 (zero). Mudamos cadastros existentes. Após a sua montagem, ele deverá ficar com
a propriedade color para clWhite, a sua propriedade HAlign para a aparência da Figura 13.
haLeft, na propriedade Frame no BottonLine mude a propriedade
color para clMenuText.
Banda do Rodapé
Aqui também é uma simples banda, ela informará o número
da página e o total de páginas. Clicamos novamente no botão de
inserir banda, escolhemos a banda Rodapé de Página, a nomeamos
para BdPgFoote). Agora inserimos um objeto Texto, nomeamos
para MmoLinhaFooter. Na propriedade Frame mudamos o Width
para 2, e seu Top para 0. Também alteramos a propriedade Width
para 2, em TopLine, RightLine, LeftLine, BottonLine mudamos a
propriedade Type para ftTop como true.
Agora inserimos um objeto (Texto do Sistema), na sua tela que
aparecerá marcamos a opção de Texto, que está na parte de baixo
da tela. Nela escrevemos o seguinte texto, logo em baixo na sua cai-
xa de texto: (Página [PAGE#] de [TOTALPAGES#]). Agora basta dar
ok e nomear o mesmo para SmmoPagina, mudamos também a sua
propriedade Top para 0,10 e o Left para 0. Ajustamos o seu tamanho
para que caiba todo o texto e aí finalizamos a montagem. Figura 13. Montagem do Form de Excluir Cadastros
Procedimentos e funções do fomulário dos cadastros Listagem 23. Seção Private e Public do Formulário
Na seção Uses declaramos o formulário principal e em seguida
private
declaramos uma constante, que será usada para o status do ca-
Apelido,
dastro, conforme mostra a Listagem 22. Nome,
Sql: String;
Frm: Tform;
Listagem 22. Adicionando Units ao Uses, e Declarando uma Constante MmoGrade: TMemo;
ListApelidos: TStringList;
unit Unt_Cadastro; OldStateCad: TDataSetState;
interface procedure MontaCadastro;
Uses procedure DataHoraText(Sender: TField; const Text: String);
Unt_Principal, DBAccess, Uni //etc procedure MemoText(Sender: TField; var Text: String; DisplayText:
Const Boolean);
dsEditModesStr: array [1..3] of String = (‘Consultando’, ‘Editando’, ‘Inserindo’); procedure FecharClick(Sender: TObject);
procedure ConfirmarClick(Sender: TObject);
function fZerosLeft(Str: String; Tam: Word): String;
Na seção private e public temos algumas variáveis, procedi- function fCodDefault(Qry: TUniQuery; Chave, Tab: String; nInc: Integer;
lZerosLeft: Boolean; Condicao: String = ‘’; Tabela: TDataSet = nil;
mentos e funções. São elas que irão montar o nosso cadastro Edit: TCustomEdit = nil): String;
e auxiliar em diversas outras rotinas. Olhamos com atenção { private declarations }
public
a seção public, nela está declarada uma variável Tabela. É o
Tabela: String;
formulário principal que irá passar para essa variável qual é o { public declarations }
cadastro escolhido e a ser montado. Vejamos como ficam essas end;
seções na Listagem 23 e sua implementação está disponível no
código fonte do artigo.
No evento Create do formulário selecionamos todos os campos
Programando o formulário de excluir cadastros da tabela TABELA_USUPER, que é onde ficam as informações
O formulário Frm_ExcCadastro é o mais simples todos os outros. dos cadastros criados. Percorremos o resultado da consulta e
São apenas quatro componentes e quatro procedures. Na sua adicionamos no TListBox o Cadastro (TABELA) e o seu apelido
montagem foi utilizado um TPanel (Pnl_Botao) alinhado em baixo (APELIDO), como mostra Listagem 24.

Listagem 24. Evento Create do Formulário Listagem 25. Botão Excluir Cadastro
procedure TFrm_ExcCadastro.formCreate(Sender: TObject); procedure TFrm_ExcCadastro.Btn_ExcluirClick(Sender: TObject);

begin begin
with Frm_Principal.Qry_Tabelas do if (Lst_Cadastros.ItemIndex < 0) then
begin
begin
Application.MessageBox(‘Sem Cadastro/Selecionado para Apagar!!!’,
Close;
SQL.Clear; Exit;
SQL.Add(‘SELECT * FROM TABELA_USUPER’); end;
Open;
end; if Application.MessageBox(‘Deseja Realmente Apagar o Cadastro Selecionado??’,
‘ Apagar o Cadastro’, MB_ICONQUESTION + MB_YESNO) <> idYes then Exit;
while not(Frm_Principal.Qry_Tabelas.Eof ) do
begin ExcTabela;
end;
Lst_Cadastros.Items.Add(Frm_Principal.Qry_Tabelas.FieldByName(‘TABELA’).
AsString +’ - ‘+
Frm_Principal.Qry_Tabelas.FieldByName(‘APELIDO’).AsString);
A Listagem 25 mostra a exclusão disparada pelo botão Btn_Ex-
Frm_Principal.Qry_Tabelas.Next; cluir e que usa a procedure ExcTabela. Essa procedure deve ser
end; declarada na seção private também. Verificamos se existe algum
cadastro, caso não, informamos o usuário que não há cadastro
if not (Frm_Principal.Qry_Tabelas.IsEmpty) then
Lst_Cadastros.Selected[0] := True; para excluir. Se existir o cadastro, é perguntado ao usuário se ele
end; realmente deseja excluir: se sim é chamada a procedure ExcTabela,
que pode ser vista na Listagem 26.

Listagem 26. Procedimento ExcTabela
procedure TFrm_ExcCadastro.ExcTabela;
var Params.ParamByName(‘PTABELA’).AsString := Tabela;
Tabela, Execute;
TApelido: String; end;
begin
try with Frm_Principal.Qry_Tabelas do
TApelido := Lst_Cadastros.Items.Strings[Lst_Cadastros.ItemIndex]; begin
Tabela := Copy(TApelido, 0, Pos(‘-’, TApelido )-1); Close;
SQL.Clear;
Screen.Cursor := crSQLWait; SQL.Add(‘DROP TABLE ‘+ Tabela);
Execute;
with Frm_Principal.Qry_Tabelas do end;
begin
Close; Frm_Principal.RemoveMenu(TApelido);
SQL.Clear; Lst_Cadastros.Items.Delete(Lst_Cadastros.ItemIndex);
SQL.Add(‘DELETE FROM TAB_CAMPOS TC ‘); Screen.Cursor := crDefault;
SQL.Add(‘WHERE (TC.TABELA = :PTABELA)’);
except
Params.ParamByName(‘PTABELA’).AsString := Tabela; on E:exception do
Execute; begin
end; Screen.Cursor := crDefault;
with Frm_Principal.Qry_Tabelas do Application.MessageBox(PAnsiChar(‘Erro Ao Excluir Tabela:’ +#13+ E.message),

begin ‘Business Inteligence’, MB_OK + MB_ICONERROR);
Close; Exit;
SQL.Clear; end;
SQL.Add(‘DELETE FROM TABELA_USUPER TU ‘); end;
SQL.Add(‘WHERE (TU.TABELA = :PTABELA)’); end;
Nela, repare que temos duas variáveis (Tabela, TApelido), que Autor
servem para pegar o nome e o apelido da tabela a ser excluída. Vanderson Cavalcante de Freitas
Em seguida apagamos os campos pertencentes a essa tabela, que vanderson.freitas@ig.com.br
estão na tabela TAB_CAMPOS. Logo após apagamos o cadastro Analista Desenvolvedor Delphi há mais de 5 anos, com experi-
desta tabela, que se encontra na tabela TABELA_USUPER. Feito ência em médias e grandes empresas de São Paulo. Formado
isso apagamos essa tabela com o comando Drop Table Agora em técnico em informática no ano de 2003, com diversos cursos em
sim no nosso banco de dados não há mais nada referente a esse formação específica, como Oracle, Delphi e C#.
cadastro.
Na sequência chamamos a procedure RemoveMenu, passando Você gostou deste artigo?
como parâmetro a variável apelido, e tiramos o cadastro desta
lista e do menu. Dê seu voto em www.devmedia.com.br/clubedelphi/feedback
Permitir que um usuário possa criar cadastros simples e seus
Ajude-nos a manter a qualidade da revista!
respectivos relatórios é uma funcionalidade que garante flexi-
bilidade e pode até mesmo ser um diferencial comercial para
qualquer produto.

52 ClubeDelphi • Edição 164 Edição 164 • ClubeDelphi 52


Clube Delphi 164

Enviado por

Direitos autorais:

Formatos disponíveis

Clube Delphi 164

Enviado por

Dados do documento

Direitos autorais

Formatos disponíveis

Compartilhar este documento

Compartilhar ou incorporar documento

Opções de compartilhamento

Você considera este documento útil?

Este conteúdo é inapropriado?

Direitos autorais:

Formatos disponíveis

Clube Delphi 164

Enviado por

Direitos autorais:

Formatos disponíveis

Fale com o Editor!

É muito importante para a equipe saber o que você está achando da

Fabrício Hissao Kawata (fabricio.kawata@bol.com.br) www.devmedia.com.br/central Paulo Quicoli - Editor Geral

Consultor Técnico publicidade@devmedia.com.br Assine agora e tenha acesso a

04 – Conheça as novidades no Delphi XE 8

Artigo no estilo Curso sobre e

13 – Desenvolvendo um Sistema Financeiro em Delphi – Parte 3

Artigo no estilo Curso

Artigo no estilo Solução Completa

D Fique por Dentro

Figura 3. Propriedade ControlType

da aplicação com formatos de áudio e vídeo. Logo, neste novo

Na mesma medida, as outras duas são originárias de TMedia-

Figura 6. Componente TBluetooth

Copyright - Proibido copiar ou distribuir. Todos os direitos reservados para DevMedia 77

Figura 8. Multi-Device Preview

Em razão do próprio rumo que a ferramenta tomou em seus úl-

Novo compilador para iOS 64-bit Device Manager

Figura 9. Device Manager

Git é um sistema de controle de versão distribuído, de caráter livre, voltado ao gerenciamento de

Figura 12. Setting Migration Tool

No XE8 o principal atrativo do FireDAC é o seu novo driver nativo, Box2D

C:\Program Files (x86)\Embarcadero\Studio\16.0\bin Links:

Novidades de Third-Party Você gostou deste artigo?

Este artigo faz parte de um curso Fique por Dentro

Listagem 4. Classe TOrigem

Isso é necessário, pois quando recebemos o objeto Aorigem por

Listagem 7. Classes TCliente e Tfornecedor

01 function TClienteDAO.FindById(AId: Integer): TCliente; 24 var

Listagem 11. Implementação da classe TFornecedorDAO

01 procedure TFornecedorDAO.Delete(AId: Integer); 33 FDQuery.Connection := Connection;

Listagem 12. Classe TItemConta completa

01 TItemConta = class(TObject) 24 procedure TItemConta.SetDataVencimento(const Value: TDate);

Listagem 13. Métodos Insert, Update e Delete

01 procedure TContaDAO.Delete(AId: Integer); 37 Connection.Rollback;

Este artigo faz parte de um curso Fique por Dentro

• GetSystemDirectory: retorna o caminho do diretório de sistema

GetSystemDirectoryA (ByVal lpBuffer As String, ByVal nSize As Long) As Long

• GetWindowsDirectory: está declarada em kernel32.dll e Figura 1. Tela do aplicativo

procedure TFrm_Principal.Btn_InformacoesClick(Sender: TObject); begin

function TFrm_Principal.fGetComputerName: String; 10: begin

function TFrm_Principal.fGetTempPath: String; 4: Result := ‘Windows NT ‘ + IntToStr(dwMajorVersion) + ‘.’ +

Until FindNext(SR) <> 0;

Listagem 4. Estrutura TSearchRec

Na estrutura record temos:

- HWND_TOPMOST - Coloca a janela no topo, ou seja, acima

procedure TFrm_FWindows.Btn_ShowWinClick(Sender: TObject); Minimizado := IsIconic(WindowNotp);

procedure TFrm_Cursor.Btn_BuscCursorClick(Sender: TObject);

procedure TFrm_Cursor.Btn_PosCursorClick(Sender: TObject);

TLabel para Lbl_Iniciar, Lbl_NaoIniciar, Lbl_ImgPapel, Lbl_

é responsável por incluir os dados da calculadora nessa seção.

Listagem 8. Implementando os Códigos do Aplicativo

Em ImgPapelClick a imagem selecionada é exibida, a lista de Autor

34 ClubeDelphi • Edição 164

Menu Funcionalidade Listagem 1. Script de criação do banco de dados

Tabela 1. Funcionalidades dos menus CREATE TABLE TAB_CAMPOS (

Criando o banco de dados SET TERM ^ ;

Edição 164 • ClubeDelphi 35

Criamos uma estrutura no banco de dados para armazenar de

Na seção private do nosso formulário teremos também decla-