Repositório do Delphi

Fonte: www.activedelphi.com.br

O repositório do Delphi é um local para armazenamento de objetos, como formulários e projetos, que facilita o compartilhamento desses objetos por vários projetos. Quando você clica em File|New... para criar um novo objeto, você pode escolher um dos itens do repositório.
Acrescentando um formulário ao repositório
     Abra um projeto DPR, e dentro dele o formulário "Form" (Form1.pas). Esse formulário está sendo compartilhado dentro do mesmo projeto, mas se você quiser reutilizá-lo em outros projetos, pode acrescentá-lo ao repositório. 

     Para isso, clique com o botão direito e em Add to Repository. Você deve informar o título do item, uma descrição e qual a página onde ele será inserido (se você digitar um nome de página que não existe, uma nova será criada), além do seu nome para indicar qual o autor desse item. Opcionalmente você pode escolher um ícone que será usado para representar o item. Para o exemplo digite o seguinte: 

   Title: Formulário para uma tabela
   Description: Formulário de banco de dados para uma tabela
   Page: Forms (default)
   Author: seu nome 

     O botão "Browse" permite você procurar um ícone , para representar sua classe de formulário, caso não informe ele irá mostrar o seguinte ícone . Clique Ok. O novo item será adicionado ao repositório. Agora crie um novo projeto com File|New Application e veremos como o item pode ser reutilizado.

     Formas de criar novos objetos
     Se você clicar em File|New... e na página "Forms", você verá que o novo item ("Formulário para uma tabela") está dentro do repositório. Agora ele está disponível em qualquer projeto, permitindo criar novos formulários a partir dele.

     Existem três opções para criar novos objetos a partir do repositório: copiar [copy] o item, herdar [inherit] do item (criar uma nova classe derivada) ou usar [use] o item diretamente.
Se você marcar a opção "Copy" e clicar Ok, o Delphi cria uma cópia separada do objeto original que está no repositório. Qualquer alteração no original posteriormente não vai afetar essa cópia e qualquer alteração na cópia é independente do que está no repositório. Note que a unidade do formulário não foi salva e está em memória como "Unit2". Isso permite você salvar com um nome qualquer.

     A opção "Inherit" (herdar) faz diferente: faz uma referência ao original (ou seja, acrescenta o formulário original dentro do projeto) e cria uma nova classe derivada da original, TForm1. O novo formulário será chamado de 'FormBase1', com a classe 'TFormBase1'. A unidade do formulário não foi salva ainda. Nesse caso, qualquer alteração no original, que está no repositório, será herdada pela classe derivada.

     A opção "Use" não copia o objeto original, mas compartilha com o projeto atual. Nesse caso, alterações feitas no item dentro do projeto afetam o item no repositório e vice-versa. Se vários projetos usarem o mesmo item, todos eles compartilham o mesmo item.

     Adicionando um projeto ao repositório
     Para reutilizar um projeto inteiro, você pode acrescentá-lo ao repositório com o menu Project|Add to Repository... e informar a descrição do item como antes.

     Gerenciando o repositório
     Para gerenciar as páginas do repositório e os itens de cada página, você pode clicar em   Tools|Repository. Na caixa de diálogo você pode criar, renomear ou excluir uma página do repositório (você só pode excluir se ela estiver vazia). É possível também mudar a ordem das páginas.

     Você pode mover os itens entre páginas arrastando o item da lista da esquerda e soltando sobre a página desejada. Também é possível renomear ou alterar características de um item ou excluir o item.

     Compartilhando o repositório numa equipe
     Quando uma equipe de desenvolvedores trabalha em conjunto, é importante que eles possam compartilhar o repositório, de forma que novos itens adicionados a ele estejam disponíveis para toda a equipe.

     Para compartilhar o repositório, você deve usar um diretório na rede que seja acessível a todos os desenvolvedores. Por exemplo, se G: é uma letra de drive que aponta para a rede, você pode usar G:\REPOS. Você deve também copiar os arquivos do repositório do Delphi para esse diretório.

     Os arquivos do repositório do Delphi são armazenados num subdiretório OBJREPOS, abaixo do diretório onde o Delphi foi instalado (geralmente C:\Arquivos de Programas\Borland\Delphi6). Além desses arquivos, o Delphi usa um arquivo de texto chamado DELPHI32.DRO, localizado no subdiretório BIN do Delphi.

     Para compartilhar o repositório na rede, faça o seguinte: 
     • Crie um diretório compartilhado (e.g. G:\REPOS). Verifique que todos os desenvolvedores têm acesso a ele e usam a mesma letra de drive; 
     • Copie o repositório de um computador para o diretório compartilhado (G:\REPOS), ou seja, todos os arquivos do subdiretório OBJREPOS do Delphi, mais DELPHI32.DRO, do subdiretório BIN; 
     • Em cada um dos computadores, no Delphi, clique em Tools|Environment Options. Na página Preferences Em "Shared Repository", digite o caminho do diretório compartilhado. 
Agora lembre-se que qualquer alteração ou acréscimo feito por um desenvolvedor afeta todos os outros. É importante também notar que quando você quiser compartilhar um objeto, ele deve ser salvo num diretório compartilhado também, acessível a todos (por exemplo, G:\BIBLIOTECAS).

Como instalar componentes no delphi

Fonte: www.activedelphi.com.br

Existe a possibilidade de instalar componentes através de três tipos de extensões de arquivos: *.pas, *.dcu, *.dpk.
Explicando um por um:
1 - Para arquivos que necessitam de um Package (normalmente componentes que possuem somente o *.PAS), execute o Delphi e feche o projeto, acesse o menu 'Component' e clique na opção 'install component'. Na janela que se apresenta, acesse a aba ' Into New Packages', clique no botão 'Browse' ao lado da caixa de texto 'Unit File Name' abra o arquivo com extensão *.pas, dê ok e logo após 'Compile' e 'Install' e o arquivo criará uma aba na barra de componentes com um nome para a sua localização.

2 - Para instalar pacotes de componentes (Packages, arquivos com a extensão *.DPK), execute o Delphi e feche o projeto, acesse o menu 'File' e clique na opção 'Open', abra o arquivo que contém os componentes. Dê Ok e depois é só clicar en 'install'. Pronto seu pacote de componentes será instalado.

3 - Para arquivos com a extensão *.dcu, é um pouco mais complicado. Acesse o menu 'Component' e clique na opção 'install package'. Verifique se na lista 'Design packages' existe a opção 'Borland user component', se sim, clique no botão 'edit', abrirá uma caixa de mensagens, clique no botão 'yes'. Na janela que aparece clique no botão 'add', na janela que se abrirá clique no botão 'browse' da caixa de texto 'unit file name'. Na caixa de combinação 'files of type' escolha 'Delphi compiled unit(*.dcu)', depois na caixa de texto 'File name' direcione o arquivo a ser instalado, clique no botão 'open'. Clique no botão 'ok' na janela que aparece e clique no botão install. Pronto o seu componente será instalado.

Obs:Se na lista 'Design packages' não tiver a opção 'Borland user component' você deverá primeiro instalar componentes que estão em arquivos com extensão *.pas.

Stored Procedure para saber os aniversariantes por dia/mês

Fonte: www.activedelphi.com.br

Administrador Essa procedure lhe retorna todos os aniversariantes de um determinado período de dia e mês. Foi feita originalmente para Firebird, mas pode ser facilmente adaptada para qualquer outro banco que suporte Stored Procedures

Observação: este artigo é uma alternativa ao material enviado pelo amigo cruzeirense, pois em sua dica, exige-se que o ano de nascimento também seja informado como parâmetro da procedure. Seu material pode ser visto neste link:

No exemplo, utilizarei uma tabela chamada FUNCIONARIO, conforme pode ser visto abaixo:

/* Estrutura da tabela FUNCIONARIO
CREATE TABLE FUNCIONARIO (
    ID               INTEGER,
    NOME             VARCHAR(50),
    SALARIO          NUMERIC(15,2),
    DATA_NASCIMENTO  TIMESTAMP
);
*/

SET TERM ^ ;

CREATE PROCEDURE ANIVERSARIANTES (
    strdta_ini varchar(5),
    strdta_fim varchar(5))
returns (
    nome varchar(50),
    salario numeric(15,2),
    dta_nasc timestamp)
as
declare variable dta_ini timestamp;
declare variable dta_fim timestamp;
BEGIN
    SELECT CAST(:STRDTA_INI||'.'||CAST(EXTRACT(YEAR FROM
        MAX(DATA_NASCIMENTO)) AS VARCHAR(10)) AS TIMESTAMP) AS B
        FROM FUNCIONARIO INTO DTA_INI;
    SELECT CAST(:STRDTA_FIM||'.'||CAST(EXTRACT(YEAR FROM
        MAX(DATA_NASCIMENTO)) AS VARCHAR(10)) AS TIMESTAMP) AS B
        FROM FUNCIONARIO INTO DTA_FIM;
    WHILE (DTA_INI <= DTA_FIM) DO
    BEGIN
        FOR SELECT NOME, SALARIO, DATA_NASCIMENTO FROM FUNCIONARIO WHERE
        EXTRACT(DAY FROM DATA_NASCIMENTO) = EXTRACT(DAY FROM :DTA_INI) AND
        EXTRACT(MONTH FROM DATA_NASCIMENTO) = EXTRACT(MONTH FROM :DTA_INI)
        ORDER BY NOME, DATA_NASCIMENTO INTO :NOME, :SALARIO, :DTA_NASC DO
            SUSPEND;
        DTA_INI = DTA_INI + 1;
    END
END^

SET TERM ; ^

Agora é só fazer um select como o abaixo e pronto! ;-)

SELECT * FROM ANIVERSARIANTES('01/01', '31/01');

Migração de dados entre bancos ou tabelas

Fonte: www.activedelphi.com.br

Administrador Esta é uma dica simples de como fazer migração de dados entre bancos ou entre tabelas diferentes, utilizando poucas linhas de código e deixando o trabalho maior na organização dos componentes

Você deve deixar os campos com as mesmas posições em seus componentes DataSet de origem e destino (componentes que farão a leitura de uma tabela e edição na outra). Este DataSet, obviamente pode ser um TQuery, TTable, TIBQuery, TADOQuery, TClientDataSet ou, enfim, qualquer outro componente descendente da classe TDataSet.

Vamos supor que estamos fazendo a migração de um banco Access para Firebird. Para acessar o Access, usaremos um ADOQuery, e para Firebird, ClientDataSet.

Feitas as conexões, o que precisamos fazer é organizar os campos no ADOQuery e no ClientDataSet para que fiquem com as mesmas posições, ou seja, campo[0] do ADOQuery equivale ao campo[0] no ClientDataSet, assim como os demais, campo[1], campo[2], etc.

Organizados os campos, o seguinte código seria suficiente para transferir os dados entre as tabelas:

//código do botão "Transferir"
var
  c: integer;
begin
  //abre a tabela Destino
  ClientDataSet1.Open;
  //abre a tabela Origem
  ADOQuery1.Open;
  //enquanto não chegar ao fim da origem
  while not ADOQuery1.EOF do
  begin
    //abre um novo registro no destino
    ClientDataSet1.Append;
    //para cada campo da tabela destino
    for c := 0 to ClientDataSet1.FieldCount-1 do
      //preenche cada campo com seu valor respectivo da origem
      //ClientDataSet1.Fields[c].Value := ClientDataSet1.Fields[c].Value;
      //Corrigido em 16/07/2009 15:45
      ClientDataSet1.Fields[c].Value := ADOQuery1.Fields[c].Value;
    //grava o registro na tabela destino (em memória)
    ClientDataSet1.Post;
    //confirma as alterações no banco de dados
    //(desnecessário se não for um ClientDataSet)
    ClientDataSet1.ApplyUpdates(0);
    //vai para o próximo registro da origem
    ADOQuery1.Next;
  end;
  //fecha a origem
  ADOQuery1.Close;
  //fecha o destino
  ClientDataSet1.Close;
end;

Backup com MySQL e Delphi

Fonte: www.activedelphi.com.br

Mesmo que saibamos tudo sobre o MySQL Server 5.0, comandos, sintaxe, recursos entre outras coisas, tudo ficará perdido se um vírus ou outra praga digital invadir o computador e acabar com os nossos dados. Por isso é bom fazer backups da base de dados

O MySQL Server 5.0 tem um recurso chamado mysqldump, que ajuda a fazer backups da base de dados, mas, o problema é que tudo por meio de linhas de comando, o que um usuário final (na maioria dos casos) não saberá fazer.

Para contornar essa barreira, podemos utilizar os arquivos bat, automatizando o processo de backup, ou melhor, do mysqldump! Veja um exemplo:

  cd C:\Arquivos de programas\MySQL\MySQL Server 5.0\bin
  mysqldump nome_da_base_de_dados > caminho_onde_ficara_salvo_o_bakup
  -u Nome_do_usuario_do_mysql -p senha_do_mysql -x -e -a -v
  exit

Essa é a sintaxe do comando que deve conter o arquivo bat, e pronto!

Para executar o bat de uma aplicação em Delphi, use a seguinte linha de comando:

  WinExec(Pchar('Caminho onde esta salvo o arquivo bat'), SW_SHOWNORMAL);

Bom pessoal, espero que tenham gostado da dica.

Segue um link para baixar um pequeno programa que fiz para demonstrar como fazer a conexão com MySQL Server 5.0 e com o exemplo de arquivo bat para o backup: exemplo_backup_mysql.zip

Um lembrete: para compilar o exemplo, copie-o para o seu C:\

Consulta entre datas Usando SQL

Essa é minha primeira dica aqui. Antes de mais nada, gostaria de agradecer muito ao Planeta Delphi, que com suas dicas tem me ajudado a aprender a programar no Delphi. Bom, eu sou iniciante ainda, apesar de estar no meu terceiro programa, que possui uso real em um escritório, estou contente pois estou aprendendo "na raça", sem curso e nem nada, apenas com as dicas daqui e o help do Delphi.

Bom, essa dica se destina a quem estiver tendo problemas na hora de fazer consultas SQL entre datas.

Quem nunca recebeu a mensagem "EDataBase Error: Unassigned Code" quando fez essa pesquisa? O que acontece é que mesmo que utilizemos funções de conversão de data como StrToDate, StrToDateTime e similares, ainda assim não estaremos no mesmo formato de data utilizado nos SGBDs (eu uso o Interbase 7.5).

Acontece que mesmo para os campos de data simples "Date", quando vamos nos relacionar com esses dados devemos estar no tipo primário do BD, que é SqlTimeStamp. Assim sendo, devemos incluir na cláusula "uses" da nossa unit que contém a consulta a unit "SqlTimSt", que nos proporcionará o uso do tipo de dados referido acima.

Devemos então realizar duas conversões:

1 - Converter o tipo de dados DateTime nativo do Delphi em SqlTimeStamp
2 - Passar esse dado convertido como parâmetro da busca.

Eu utilizei dois DateTimePickers do Delphi, pra quem não conhece é "aquele calendariozinho" utilizado para que o usuário selecione a data como se estivesse acertando a data no calendário do Windows, pois ele já nos fornece os dados no formato DateTime nativo do Delphi e nos poupa linhas de código adicionais para ter informação convertida nesse formato, por[em quem quiser fazer isso a partir de um Edit por exemplo, que fique à vontade.

Bom, segue o código que eu usei e funcionou direitinho:


procedure TForm_Planilha.SpeedButton5Click(Sender: TObject);

var
D1,D2 : TDateTime;

begin
      D1 := DateTimePicker_Inicial.DateTime;
      D2 := DateTimePicker_Final.DateTime;

      DM.Query_Geral.Close;
      DM.Query_Geral.CommandText := 'Select * from GERAL Where DATA_FATURA >= :D1 and DATA_FATURA <= :D2';
      DM.Query_Geral.ParamByName('D1').AsSQLTimeStamp := DateTimeToSQLTimeStamp (D1);
      DM.Query_Geral.ParamByName('D2').AsSQLTimeStamp := DateTimeToSQLTimeStamp (D2);
      DM.Query_Geral.Open;
end;

Como colocar seus "Forms" e "Projetos Modelos" no Repository

Fonte: www.activedelphi.com.br

Acredito que muitos já tentaram colocar seus forms mais usuais ou projetos modelos que são utilizados em várias aplicações no repository do Delphi, mas não tiveram muito sucesso.
Por isso resolvi escrever este artigo demonstrando uma maneira fácil de fazer isso.

O Repository ou "Repositor de objetos" é um conjunto de forms e projetos que podemos usar para criar um programa ou inserir determinados formulários à aplicação, por exemplo o "About".
    Nos rendemos a facilidade de ir no menu "File -> New -> Other..." e escolher os modelos existentes ali para adicionar ao nosso programa, por isso adicionar os nossos próprios modelos de forms e projects ao repository pode nos render facilidade e economia de tempo ao programar.
    Então mãos a obra, digo, ao teclado.
    Os arquivos do Repository, em uma instalação padrão, ficam em: "C:\Arquivos de programas\Borland\DelphiX\Objrepos" onde "X" refere-se a versão do Delphi.
    Aí encontramos diversos diretórios organizando os diferentes tipos de modelos.
    Portanto seus modelos também deverão ser colocados ai, de preferência dentro de um diretório criado por você.     Ex.: "C:\Arquivos de programas\Borland\DelphiX\Objrepos\Adair"
    Importante: Para um form é necessário ter os seguintes arquivos dentro deste diretório:
    "Sobre.dfm" -> Formulário
    "Sobre.pas" -> Código fonte do formulário Sobre
    "Sobre.ico" -> Ícone representativo do formulário Sobre(Irá parecer na lista do Repository)
    Para um project modelo deve-se criar um diretório próprio para o projeto.
    Ex.: "C:\Arquivos de programas\Borland\DelphiX\Objrepos\Adair\Projeto"
    Todos os arquivos do projeto (*.pas, *.dfm, *.res, e os demais) devem estar dentro deste diretório.
    Depois disso devemos alterar as configurações do Delphi para que os nossos modelos apareçam no repository.
    Para isso devemos localizar o arquivo "C:\Arquivos de programas\Borland\DelphiX\Bin\delphi32.dro" que contém as configurações referentes ao repository.
    Devemos editar este arquivo com o bloco de notas do Windows.
    Importante: Este arquivo só pode ser editado por um editor de textos simples, pois não pode conter outras informações a não ser texto, e muito cuidado ao alterar as informações contidas ali, se forem modificadas sem o devido cuidado, o repositoy pode não funcionar direito. Para prevenir, faça uma cópia do arquivo antes de altera-lo.
    Em primeiro lugar devemos localizar a seguinte expressão "[Repository Pages]" (que está bem no final do arquivo) e adicionar "Adair=" (que se refere ao diretório que criamos).
    Para incluir um Form devemos adicionar as seguintes linhas ao arquivo (de preferência já no início do arquivo para faciliar futuras alterações):
    [C:\Arquivos de programas\Borland\Delphi7\Objrepos\Adair\Sobre]
    Type=FormTemplate
    Name=Meu Sobre
    Page=Adair
    Icon=C:\Arquivos de programas\Borland\Delphi7\Objrepos\Adair\Sobre.ICO
    Description=Sobre do meu programa.
    Author=Adair
    DefaultMainForm=0
    DefaultNewForm=0
    Ancestor=
    Designer=dfm
    ATENÇÃO: As opções abaixo não podem ser modificadas:
    Type=FormTemplate
    DefaultMainForm=0
    DefaultNewForm=0
    Ancestor=
    Designer=dfm
  
    Para incluir um Project devemos adicionar as seguintes linhas ao arquivo:
    [C:\Arquivos de programas\Borland\Delphi7\Objrepos\Adair\Projeto\Modelo]
    Type=ProjectTemplate
    Name=Projeto Modelo
    Page=Adair
    Icon=C:\Arquivos de programas\Borland\Delphi7\Objrepos\Adair\Projeto\Modelo.ico
    Description=Meu Projeto Modelo.
    Author=Adair
    DefaultProject=0
    Designer=dfm
  
    Onde "Modelo" é o Delphi Project.
    ATENÇÃO: As opções abaixo não podem ser modificadas:
    Type=ProjectTemplate
    DefaultProject=0
    Designer=dfm
    Depois de adicionado todas as entradas, deve-se salvar e fechar o arquivo.