Restore da base de dados com Delphi e FireDac

Olá clipatequeiros. Há uns dias atrás publicamos um artigo onde montamos um aplicativo básico de backup, usando componentes da paleta "FireDac" e banco "FireBird".

Recebemos alguns feedbacks pedindo para criarmos um artigo ensinando o restore do banco. Então, resolvemos atender a estes pedidos e aqui estamos.

A restauração da base de dados é muito simples, da mesma forma que o backup também é. Neste exemplo vamos pegar o arquivo de backup gerado "fbk" e restaurá-lo para um arquivo "fdb", isto é, o banco montado em si com todas os dados.

Então, crie um novo projeto em Delphi e adicione os componentes FDIBRestore, FDPhysFBDriverLink, FDGUIxWaitCursor, Memo (name = mmoProgresso) e dois Button (name btnIniciar, btnFechar).

Selecione o componente FDIBRestore e ligue na propriedade "DriverLink" o componente FDPhysFBDriverLink.

Monte um layout parecido com este na imagem abaixo:

Repare que é idêntico ao layout que montamos no aplicativo de backup. Apenas algumas alterações foram feitas.

Vamos declarar nossos métodos, para isso, vá até a seção "Private" do formulário e declare:

Pressione as teclas "Shift+Ctrl+C" para iniciarmos a implementação dos métodos. O método "HabilitarBotoes" será implementado da seguinte maneira:

Ele será responsável por habilitar e desabilitar os botões conforme necessitamos.

Agora, implemente o método "GerarRestore" da seguinte maneira:

Note que toda implementação está dentro de um bloco de tratamento (try...except), para tratarmos os possíveis erros. Claro que por este exemplo ser algo simples o tratamento será apenas imprimir uma mensagem para o usuário, para informá-lo.

Não vamos detalhar as explicações das implementações, porque é exatamente igual nosso tutorial sobre o backup, apenas foi alterado algumas linhas de código. Caso tenha dúvida, leia nosso artigo sobre backup com FireDac, ou deixe seu comentário que ajudaremos.

Na imagem está bem explicado cada linha, no final do artigo você encontra para download o fonte deste projeto.

Ao chamar o método "Restore", o processo de restauração da base de dados será iniciado, da mesma forma que fizemos com o backup, é legal acompanharmos todo esse processo, então vamos implementar o evento do componente "FDIBRestore".

Antes, selecione o componente "memo" e altere a propriedade "ScrollBars" para "ssVertical".

Agora sim, vá até o evento "OnProgress" do componente "FDIBRestore" e faça a seguinte implementação:

OK, agora conseguiremos visualizar todo o processo realizado pelo banco de dados FireBird.

Finalizando, vamos chamar os métodos nos botões, então, de um duplo clique sobre o botão "Iniciar" e chame o método "GerarRestore":

Agora, no botão "Fechar", chame o comando "Close":

Muito bem, chagamos ao fim de mais um artigo, se você quiser, pode estudar a possibilidade de colocar uma barra de progresso, caso não queira o processo no "memo".

Não é legal usar os dois, porque ficaria um tanto redundante. Desta forma que fizemos, mostrando no "memo", a dica que damos é no início do processo, adicionar uma linha ao "memo" informando que o processo de restore está sendo iniciando, e no final, outra linha informando que o restore foi concluído. Alguma dúvida? Posta ai. Um forte abraço e até o próximo.

Download

- Download do código fonte do projeto; 

(Por ClipaTec Informática)

Continue Lendo ...

Backup da base de dados com Delphi e FireDac

Olá terrestres. Neste artigo, vamos montar um esquema de backup de uma base de dados FireBird.

Backup sempre foi uma preocupação tanto da parte do desenvolvedor, quanto da parte do usuário.

Claro que nem sempre o usuário se preocupa em fazer backup, mas sempre o sistema é o culpado, se um dia, o banco corromper, não é verdade?

Então, vamos aprender como implementar um recurso de backup, simples, usando o FireDac.

Existem diversas maneiras. Alguns preferem usar o aplicativo WinRar, para este função, no qual, simplesmente, gera um arquivo compactado com o banco de dados. Outros somente fazem uma cópia da base de dados para um determinado local. E outros, geram o arquivo de backup que os próprios SGBDs oferecem. No caso do FireBird, o famoso "FBK".

Neste exemplo, trabalharemos com a geração do arquivo "FBK" que o próprio FireBird oferece, usando alguns componentes da paleta FireDac.

Com base neste exemplo, você poderá incrementar mais recursos, como por exemplo, opção de compactar, agendamentos, etc.

Crie um novo projeto em Delphi e adicione os componentes: FDIBBackup, FDPhysFBDriverLink, FDGUIxWaitCursor, Memo (name = mmoProgresso) e dois Button (name btnIniciar, btnFechar).

Selecione o componente FDIBBackup e ligue na propriedade "DriverLink" o componente FDPhysFBDriverLink.

Tente montar um layout parecido com este:

Obs: o componente ImageList (imgs16x16) está sendo utilizado apenas como repositório das imagens que estão sendo usadas nos botões.

Agora, vamos para as implementações. Declare os seguintes métodos na seção "Private" do formulário:

Vamos implementar primeiro o método "HabilitarBotoes", segue a implementação:

A única coisa que fazemos neste método, é atribuir para a propriedade "Enabled" dos botões o parâmetro da função, que por padrão é "True" conforme especificamos na declaração do método.

Este método será útil quando for iniciado o processo do backup, desabilitaremos os botões, e só habilitaremos novamente, no final do processo, ou caso, der erro e o processo não for concluído.

Agora, vamos implementar o método "GerarBackup". Segue implementação:

Neste método, toda implementação ficará dentro de um bloco de tratamento (try...except), caso ocorrer algum erro durante o processo, simplesmente emitiremos uma mensagem para o usuário.

No início do método, desabilitamos os botões, conforme dito anteriormente.

Alimentamos as propriedades do componente FDIBBackup, que dispensa comentários, visto que, na imagem acima, já está explicando o que significa cada propriedade.

Após chamar o método "Backup" do componente, o processo verdadeiramente se inicia. Se ocorrer tudo bem, uma mensagem é exibida para o usuário, informando que deu tudo certo, e em seguida, volta habilitar os botões. Como por padrão definimos no método "HabilitarBotoes" que seu valor é "True", por este motivo, não passamos nenhum valor para o parâmetro neste ponto do método.

Se por acaso, ocorrer algum erro, o método entrará no bloco de exceção, onde habilitamos os botões e mandamos uma mensagem de erro para o usuário, inclusive, com a mensagem capturada pela classe de exceção do bloco "Try...except".

Simples, prático e objetivo. Desta forma, temos o nosso backup, pronto, implementado. Porém, seria interessante, acompanharmos o processo não?

É exatamente por isso que colocamos um "memo" no projeto. Ele mostrará cada processo realizado.

Para isso, selecione o "memo" e na propriedade "ScrollBars", selecione a opção "ssVertical".

Legal, agora, vá até o evento "OnProgress" do componente "FDIBBackup" e implemente-o da seguinte forma:

A única coisa que fazemos é adicionar no "memo", as linhas de mensagens retornadas pelo serviço de backup do banco. Desta forma, conseguiremos visualizar o processo que está sendo realizado.

Ufa, chegamos ao fim deste artigo, ficou um tanto massante, porém, não tem como ficar com dúvida né? Mas se tiver dúvida, deixe seu comentário que ajudaremos com todo prazer.

Muito bem, agora basta chamar o método no botão. Para isso, de um duplo clique sobre o botão "Iniciar" e chame o método "GerarBackup", e no botão "Fechar", chame o comando "Close", conforme mostra a imagem:

Muito bem gente, algumas dicas que você pode incrementar, é que antes de começão o processo, você pode adicionar uma linha ao "memo" informando que o processo de backup está iniciando, e no final, outra linha informando que o backup foi concluído com sucesso, ou com o erro. Isso poderia substituir as mensagens que exibimos. Também é interessante trabalhar em cima do nome do arquivo de backup, colocando data e hora por exemplo. Fica a critério. Vocês são livres para personalizar da maneira que lhe convém. Abraços e até o próximo.

Download

- Download do código fonte do projeto;

(Por ClipaTec Informática)

Continue Lendo ...

Cadastro Delphi POO + MVC + DAO - Criando o banco de dados

...Hey, Jude, don't make it bad...pã-rã-rã (tentativa de fazer o som do teclado que não deu muito certo kkk)...

Fala gente boa. Este é o primeiro artigo da série, onde vamos criar o banco de dados que usaremos nesse pequeno projeto.

Como acabo de dizer, é um projeto pequeno, onde teremos três cadastros, são eles: cadastro de estado, cidade e cliente.

São poucos campos envolvidos, a ideia é apenas mostrar de maneira rápida e simples a implementação do MVC mais a camada DAO no Delphi. A partir desta ideia, você aplica em seus projetos e tudo numa boa!
Na imagem abaixo, temos o DER do nosso banco, em cima dele criaremos nosso banco de dados.

Então vamos lá, estamos usando para este tutorial a ferramenta "IBExpert" para trabalharmos com o banco de dados.
Ao abrir o IBExpert, clique no botão "Create Database" como indicado na imagem abaixo:

Ao clicar no botão aparecerá uma janela onde faremos algumas configurações, na opção "Server" vamos definir que o banco será criado em nossa máquina local, na opção "Database" definiremos o diretório/pasta onde será criado o nosso banco. Vale ressaltar que é necessário já definir o nome do arquivo do banco com o final ".fdb". No nosso caso, nomeamos "cadcliente.fdb".
Também, precisamos definir o usuário e senha padrão do Firebird, que por sinal, é o banco que utilizaremos nessa pequena série. O usuário em maiúsculo "SYSDBA" e a senha em minúsculo "masterkey".
Feito isso, apenas marque a opção "Register Database After Creating" caso não esteja, para que quando clicarmos no botão "Ok", aparecerá a Janela de registro. Segue a imagem abaixo com as configurações:

Ao clicar no botão "Ok", a janela de registro do banco será exibida. Esse registro é apenas para aparecer na listagem do IBExpert para que possamos interagir com o banco quando necessário.
Nesta janela, vamos definir um apelido para o banco no passo 1. Depois definimos o "Charset" no passo 2 e no passo 3 selecione a opção "Default_charset" em "Font Characters Set". Após isso, clique no botão "Register". Segue imagem:

Muito bem, feito isso, nosso banco já estará na lista de bancos do IBExpert:

Dê um duplo clique sobre "Cad Cliente" para conectarmos em nosso banco. Agora vamos começar criar nossas tabelas. Para isso, clique com o botão direito sobre a opção "Tables" e em seguida, clique em "New Table" como demonstra a imagem abaixo:

Lembrando que estamos criando o banco de dados usando os recursos visuais da ferramenta IBExpert, se preferir, pode criar via SQL.
Note que uma janela nova será aberta. É nela que vamos definir o nome da tabela com seus campos e tipos. Na imagem abaixo temos alguns passos numerados de 1 a 5, vamos explicar cada um:

No passo 1 é o local onde definimos o nome da tabela a ser criada.
Agora vamos criar os campos da tabela, ID e Sigla, para isso, basta digitar os nomes dos campos nas linhas, feito isso, vamos para o passo 2 onde escolhemos o tipo de dados que cada campo vai armazenar.
No passo 3 dê duplo clique sobre a caixa para marcar a opção "Not Null", com isso, o campo se torna obrigatório ser preenchido com algum valor, não aceitando valor nulo.
No passo 4, dê duplo clique sobre a coluna "PK" do campo "ID" para defini-lo como chave primária da tabela, e finalmente no passo 5, clique no botão indicado para compilar e gerar a tabela fisicamente no banco.
Uma janela será aberta com os comandos utilizados na ação e dois botões, "commit" e "rollback", onde o "commit" confirma a ação e o "rollback" desfaz a ação, então, clique no botão "commit".

Maravilha, agora faça o mesmos procedimentos para criar as tabelas "cidade" e "cliente". No DER que está no início do artigo você encontrará os nomes dos campos com seus respectivos tipos.
PORÉM, alguns detalhes não estão explícitos no DER que você terá que fazer, são eles:
- Na tabela cidade todos os campos são obrigatórios e temos a chave estrangeira "ID_ESTADO", vamos ensinar como criar uma chave estrangeira;
- Na tabela cliente, apenas os campos "ID", "NOME" e "TELEFONE" são obrigatórios e temos a chave estrangeira "ID_CIDADE".
LEGAL, agora vamos aprender como criar uma chave estrangeira visualmente. No exemplos faremos isso na tabela CIDADE e o mesmo você fará na tabela "CLIENTE".
Com a tabela "CIDADE" aberta, clique na aba "Constraints" conforme o passo 1 da imagem abaixo. Depois, clique na sub-aba "Foreign keys" conforme o passo 2 e finalmente, clique com o botão direito do mouse sobre a área em branco e escolha a opção "New foreign key Ins" conforme o passo 3.

Ok, note que uma nova "Foreign Key" foi criada. No passo 1 definimos o nome da chave estrangeira, que por padrão é o nome da tabela atual mais o nome da tabela d ligação. O passo 2, é o campo chave estrangeira da tabela atual. No passo 3 indicamos a tabela de ligação e no passo 4 o campo original referente à chave estrangeira.

Feito isso, basta confirmar a ação, clicando no botão indicado:

Legal, como sempre, aparece a janela com os comandos usado. Apenas clique no botão "Close".

Muito bem meu povo, concluindo esses passos, nosso banco está pronto, agora, partiu, programar!!! rsrsrs Forte abraço até o próximo artigo.

Este artigo faz parte da série: Cadastro Delphi POO + MVC + DAO;

(Por ClipaTec Informática)

Continue Lendo ...

Série cadastro Delphi POO + MVC + DAO

1, 2, 3 indiozinhos, 4, 5, 6 indiozinhos, 7, 8, 9 indiozinhos, 10 no pequeno bote....ops, na verdade não é um artigo sobre músicas infantis hahahaha.

Estamos dando início a uma série de conteúdo bem bacana, ela já está pronta, apenas postaremos suas partes aos poucos no blog. Sintam-se livres para comentar, sugerir e discutir ideias. Mas, qual o conteúdo desta série?

Vamos implementar um cadastro em Delphi usando recursos da programação orientada a objetos + padrão MVC e DAO.

Quando falamos de MVC, nossa mente dá pane. Sim, eu sei, é um assunto um tanto confuso, porque a teoria é muito linda, mas a prática é filhote de cruz credo. Cada programador implementa de um jeito e a gente nunca sabe quem está certo. Por fim, ninguém segue exatamente a risca o que o padrão MVC diz. Esta é a verdade. Até é possível sim implementar exatamente como o padrão propõe. Mas, para a infelicidade de vocês rsrsrs não vamos mostrar nesta série desta forma. Vamos implementar um cadastro usando MVC + DAO, só que, com algumas exceções.

O importante aqui, será a divisão do código fonte para uma melhor manutenção futura. Já que estamos falando de divisão de código, vamos ser sinceros. Quem nunca baixou um fonte de um programa na internet ou já pegou código fonte de um sistema onde uma unit chegava dar cãibra no dedo de tanto rolar a bolinha do mouse para chegar ao seu fim? Imagina dar manutenção nisso? Só de falar já deu uma preguiça terrível. A real é essa, não vira dar manutenção em units abarrotadas de códigos. Código poluído é terrível. 

O MVC é um padrão de desenvolvimento que um dos problemas que ele soluciona é justamente isso. A implementação é dividida em camadas para facilitar as futuras manutenções do código.

Isso tudo só foi um rápido bate papo sobre o que veremos a frente. Então, bora lá. Conforme publicaremos as etapas, vamos acrescentando aqui em uma lista, para ficar mais fácil de você seguir o passo a passo. 

1 - Cadastro Delphi POO + MVC + DAO - Criando o banco de dados;
2 - Cadastro Delphi POO + MVC + DAO - O que é MVC?
3 - Cadastro Delphi POO + MVC + DAO - DAO Pattern;
4 - Cadastro Delphi POO + MVC + DAO - Definições do projeto;
5 - Cadastro Delphi POO + MVC + DAO - Camada Model;
6 - Cadastro Delphi POO + MVC + DAO - Camada View (Layout) - Parte 1;
7 - Cadastro Delphi POO + MVC + DAO - Camada View (Layout) - Parte 2;
8 - Cadastro Delphi POO + MVC + DAO - Camada DAO - Parte 1;
9 - Cadastro Delphi POO + MVC + DAO - Camada DAO - Parte 2;
10 - Cadastro Delphi POO + MVC +DAO - Camada DAO - Parte 3;
11 - Cadastro Delphi POO + MVC + DAO - Camada DAO - Parte 4;
12 - Cadastro Delphi POO + MVC + DAO - Camada DAO - Parte 5;
13 - Cadastro Delphi POO + MVC + DAO - Camada Controller;
14 - Cadastro Delphi POO + MVC + DAO - Camada View - Parte 3;
15 - Cadastro Delphi POO + MVC + DAO - Camada View - Parte 4;
16 - Cadastro Delphi POO + MVC + DAO - Camada View - Parte 5;
17 - Cadastro Delphi POO + MVC + DAO - Camada View - Parte 6;

Para quem não gosta de ler, ou não consegue entender muito bem lendo, temos boas notícias, nosso instrutor Welinton J. Dias está produzindo uma série de vídeo-aulas baseadas nesta série que estamos montando, portanto, segue os links das vídeo-aulas em nosso canal:

Vídeo-aulas

1 - CRUD Delphi + POO + MVC + DAO - Parte 1
Nesta aula, será criado as definições do projeto e iniciando a criação da interface gráfica da tela de cadastro;

2 - CRUD Delphi + POO + MVC + DAO - Parte 2
Nesta aula será concluída a criação do layout da tela de cadastro e será realizado algumas implementações importantes do projeto;

3 - CRUD Delphi + POO + MVC + DAO - Parte 3
Nesta aula será implementado a camada Model e a regra de negócio;

4 - CRUD Delphi + POO + MVC + DAO - Parte 4
Nesta aula, será ciado o Data Module de conexão com o banco de dados e o Data Module de cadastro de Cliente, já com as configurações das instruções SQL e início na implementação dos métodos da DAO Cliente;

5 - CRUD Delphi + POO + MVC + DAO - Parte 5
Nesta aula, estará dando continuidade na implementação dos métodos da camada DAO Cliente;

6 - CRUD Delphi + POO + MVC + DAO - Parte 6
Nesta aula, será concluído a implementação da camada DAO Cliente;

7 - CRUD Delphi + POO + MVC + DAO - Parte 7
Nesta aula, será implementado a camada Controller;

8 - CRUD Delphi + POO + MVC + DAO - Parte 8
Nesta aula, será continuado a implementação da camada VIEW, que já havia sido iniciada na aula 1 e 2;

9 - CRUD Delphi + POO + MVC + DAO - Parte 9
Nesta aula, estaremos caminhando para a conclusão da camada VIEW, concluindo a implementação dos métodos;

(Por ClipaTec Informática)

Continue Lendo ...

Como criar um banco de dados em SQL?

Olá pessoal, tudo joia com vocês?

Nesse tutorial vamos aprender como criar um banco de dados simples, usando a linguagem SQL.

Para isso, utilizaremos a ferramenta IBExpert para criar o banco de dados com uma tabela, este banco, será usado no próximo artigo durante o desenvolvimento de um projeto de cadastro "CRUD" usando o Delphi como linguagem de programação.

Ressaltamos que este artigo é muito simples, voltado para iniciantes em programação.

Muito bem, neste exemplo criaremos um banco de dados, uma tabela de cliente com chave primária.

Então, bora praticar?

Ressaltamos que estamos usando o IBExpert para este exemplo, então, acesse-o, e clique no menu "Tools/Script Executive".

Na janela que abrir, digite os seguintes comandos:

A primeira linha cria o arquivo do banco de dados no caminho especificado. Importante lembrar que o nome do banco deve ter a extensão "FDB" no final, que é referente ao SGDB (FireBird).

A segunda linha define o usuário e senha padrão do FireBird.

Leia sobre DDL, DML, DCL.

Muito bem, agora, vamos registrar o banco no IBExpert para que possamos manipulá-lo.

Para isso, clique no menu "Database/Register Database". Configure a janela que abrir de acordo com a imagem abaixo:

Onde:

- Em "Server" definimo a opção "Local", pois nosso banco se encontra na máquina local;

- Em "Server Version" a versão do FireBird instalada no computador;

- Em "Database File" o caminho do arquivo do banco de dados que acabamos de criar;

- Em "Database Alias" um apelido para a conexão;

- Em "User Name" o usuário padrão do Firebird;

- Em "Password" a senha padrão do Firebird.

Muito bem, agora basta clicar no botão "Register", e dar um duplo-clique sobre a conexão que acabamos de registrar no IBExpert. Mais detalhes poderão ser observados na vídeo-aula no final do artigo.

Ok, agora vamos criar a nossa tabela cliente, para isso, clique no menu "Tools/SQL Editor".

Na janela que abrir, digite os seguintes comandos:

Onde:

- Na primeira linha estamos criando a tabela;

- Da segunda até a quinta linha definimos os campos da tabela, seguidos de seu tipo, tamanho e se é obrigatório;

- Na última linha, definimos que o "id_cliente" é o campo chave primária de nossa tabela de cliente.

Muito bem, apenas execute o comando e a nossa tabela será criada.

Simples assim, se você chegou até aqui sem problemas, você acabou de criar um banco de dados com uma tabela de cliente, caso teve algum problema em algum passo acima, basta comentar aqui no artigo que ajudaremos.

No final do artigo, segue o link com o banco de dados criado nesse artigo para download.

Recomendamos

- Como fazer um extract metadata com o IBExpert;

- Conectando a aplicação Delphi com o banco FireBird;

- Data Explorer e SQL Window no Delphi.

Download

- Banco de dados.

(Por ClipaTec Informática)

Continue Lendo ...

O que é DDL, DML e DCL?

Salve, salve galera!

Então, quem já não se perguntou o que é DDL, DML e DCL? Não é tudo SQL? Que p###a é essa?

Ok, a ClipaTec buscou uma forma bem simples de explicar pra você toda essa parafernália.

A linguagem SQL são organizados e agrupados da seguinte forma:

- Comandos de definição de dados;

- Comandos de manipulação de dados;

- Comandos de controle de dados.

São os DDL,DML e DCL respectivamente. Tá, mas vamos entender o que é cada grupo desse.

Continue Lendo ...

Como fazer um Extract MetaData com o IbExpert? (Parte 2)

Olá pessoal novamente, estamos aqui com a parte 2 do nosso artigo, onde estamos apresentando mais um grande recurso da poderosa ferramenta IBExpert.

Neste artigo teremos apenas uma vídeo-aula ensinando usar o recurso.

Em breve estaremos publicando outros artigos ensinando utilizar outros recursos do IBExpert que podem facilitar a sua vida e você talvez nem sabe que elas existem.

Muito bem, então vamos lá, mão na massa:

Continue Lendo ...

Como fazer um Extract MetaData com o IbExpert? (Parte 1)

Olá pessoal, salve, salve!

Estamos aqui com mais um artigo para vocês.

Pra galera que curte hardware e redes, fiquem atentos, voltaremos a publicar artigos sobre hardware, redes, servidores linux e muito mais.

Outras novidades que passarão a fazer parte do blog clipatec informática são os artigos sobre PHP orientando a objetos e Webdesign.

Enfim, fiquem ligados por aqui.

Agora vamos ao artigo de hoje. Hoje vamos aprender a usar um recurso muito interessante da ferramenta IBExpert, o: extract metadata. Qual a utilidade dessa ferramenta?

É muito simples, quando você cria um banco de dados usando o SGBD Firebird por exemplo, deve-se levar em consideração sua versão.

Suponhamos que você tem em seu computador, o Firebird 2.5, e cria um banco de dados pelo IBExpert. Se você copiar esse banco e tentar conectá-lo em uma outra máquina que tenha o Firebird 2.0 instalado por exemplo, ocorrerá um erro, alegando que a versão do Firebird é obsoleta, ou seja, o seu banco está numa versão mais nova e o SGBD instalado está numa versão antiga, e por este motivo, você não vai conseguir conectar o seu banco ao SGBD.

Continue Lendo ...