Loading ...
Postado por Plinio Cruz em 27 de outubro de 2009 - Banco de Dados, Delphi, Downloads, Programação | 
Seja o primeiro a comentar
Jackson Pires, o colaborador dos tutoriais mais completos de Delphi do Clube da Informática, volta a presentear nossos visitantes com um curso completo para desenvolvimento de um projeto de Locação de Fitas de Vídeo.
O arquivo PDF é ricamente recheado de imagens e muito bem detalhado. Serve de guia não só para a sua aplicação primária, mas como consulta para qualquer sistema de gerenciamento de banco de dados, pois trata das principais ferramentas necessárias para um sistema de gestão de dados.
O nível de detalhamento que leva o leitor do momento de criação das pastas, passando pela criação de menus e tabelas até chegar ao ponto de finalização do projeto e os relatórios.
Obrigado Jackson pela colaboração!
Loading ...
Postado por Plinio Cruz em 19 de junho de 2009 - Banco de Dados, Delphi, Programação | Seja o primeiro a comentar
Introdução
Duas ferramentas. Duas tecnologias que podem ser combinadas, usadas e aperfeiçoadas.
Delphi, linguagem visual utilizando a linguagem Pascal.
MySql, sistema de gerenciamento de banco de dados versátil que utiliza a linguagem padrão SQL.
Os programadores que utilizam o Delphi o conhecem, pois o utilizam freqüentemente, mas o MySql que é tem uma excelente rapidez em sua base de dados, é algo, hoje em dia, casualmente utilizado. Veremos mais adiante como fazer essa dependência entre as duas poderosas tecnologias.
Início
Para começarmos a trabalhar, baixe o MySql em sua mais nova versão em http://dev.mysql.com/downloads/.
Depois de instalado, em versão zip ou simplesmente instalado como um programa qualquer, acesse o diretório bin que está localizado onde você instalou o MySql. Abra o Prompt de comando juntamente com o Prompt do MySql para criarmos nosso banco de dados. Veja a Figura 1.
Digite na tela do MySql, o contexto que segue abaixo.
mysql> create database mydelphi;
Se aparecer a mensagem abaixo, está tudo certo, e assim poderemos prosseguir.
Query OK, 1 row affected (0.02 sec)
Agora, criaremos nossa tabela. Lembrando, que o MySql é igual a qualquer outro banco, em sua sintaxe SQL. Após cada linha aperte a tecla Enter em seu teclado.
mysql> use mydelphi;
Database changed
mysql> create table usuarios(
-> id int(5) not null auto_increment primary key,
-> nome varchar(20) not null,
-> email varchar(30) not null,
-> comentario text not null
-> );
Query OK, 0 rows affected (0.11 sec)
Até aqui, está tudo certo, iremos inserir agora o conteúdo na tabela, também pelo Prompt de comando.
Novamente, veja abaixo como prosseguir para inserir informações na tabela. Após cada linha aperte a tecla Enter em seu teclado.
mysql> insert into usuarios (nome,email,comentario) values (‘Orlando Junior’,’kurt1022@gmail.com’,’Delphi+MySql é realmente muito bom’);
mysql> insert into usuarios (nome,email,comentario) values (‘Zé’,’ze_zinho@zemail.com.br’,’Eita sô! Num é que esse sistema pega mesmo.’);
mysql> insert into usuarios (nome,email,comentario) values (‘’ABC,’abc@def.com.br’,’abcdefghijlmnopqrstuvxyz’);
mysql>quit
Saia do prompt.
Base de Dados
Antes de continuarmos, baixe o componente ODBC para utilizarmos juntamente com o Delphi; em http://www.mysql.com/products/connector/odbc/. Instale-o normalmente.
Acesse o BDE Administrator e crie uma nova coluna com o nome de mydelphi, selecionando o Driver ODBC do MySql; em seguida, salve.
Veja abaixo como deve ficar a configuração da nossa nova coluna.
No menu do administrador de bancos acesse o ODBC Administrator. Adicione o driver do MySql que baixamos. Após criá-lo, irá abrir uma nova janela de configuração.
Na aba Login, digite mydelphi em Data Source Name; em Server, digite localhost; em user digite root e em Database selecione nosso banco de dados, em seguida teste a conexão. Se exibir uma mensagem dizendo que a conexão foi realizada com êxito, poderemos prosseguir.
Salve todas as suas operações no BDE Administrator e saia dele.
Já no Delphi, personalize sua aplicação ao seu modo.
Adicione o componente ADOConnection na aba ADO. Clique em Build com a opção Use Connection String selecionada.
Para especificar nossa fonte de dados, na aba Conexão, clique em atualizar e na caixa de texto ao lado selecione a fonte myodbc. Em nome de usuário digite root, e teste a conexão. Se tudo estiver certo, poderemos prosseguir com êxito.
No Object Inspector, altere para True na opção Connected, em seguida confirme na janela que irá aparecer. Em DefaultDatabase, selecione mydelphi.
Insira o componente ADOTable e conecte-o com o outro componente; em seguida selecione nossa tabela e ative o componente.
Clique duas vezes no componente ADOTable, e com o botão direito do mouse adicione todos os campos da tabela do banco de dados. Ligue-os corretamente de acordo com seu nome e seu campo em KeyFields.
Em seguida ative o componente. Adicione o componente Data Source e selecione o DataSet no mesmo.
Para continuarmos, adicione 4 Labels com os respectivos subtítulos:
- ID:
- Nome:
- E-mail:
- Comentário:
Agora, adicione 3 DBEdits e apenas um DBMemo, juntamente com um controlador de formulários, o DBNavigator, todos localizados na aba Data Controls.
Na aba Standard, insira em nosso form 3 Buttons, com os respectivos subtítulos seguidos de seus códigos, adicionando-os entre begin e end; no evento OnClick da aba Events no Object Inspector.
- Novo
AdoTable.Append;
Self.Activate;
- Inserir
AdoTable.Append;
AdoTable.Post;
- Excluir
ADOTable.Delete;
Após a inclusão dos códigos, selecione os campos de inclusão e o navegador de formulários; e segurando a tecla shift, selecione o DataSource no Object Inspector.
Ligue corretamente os campos com seu nome respectivo de acordo com o DataField. Com isso, você irá perceber que os valores que colocamos no prompt de comando irão começar a aparecer no form principal.
Veja abaixo, como deverá ficar nosso programa.
Orlando da Silva Junior
Loading ...
Postado por Plinio Cruz em 15 de maio de 2009 - Delphi, Programação | Seja o primeiro a comentar
Texto extraído do Blog Delphi to Delphi de Adriano Santos
Pessoal,
Resolvi montar um exemplinho bem básico mostrando como criar um esquema de ordenação em um ListBox e depois extrair isso para uma string que pode ser usada como Order By em uma instrução SQL.
O exemplo consiste em: o usuário poderá clicar em um item do ListBox e enviar para baixo ou para cima. Em seguida ele clica em Montar Ordem e a função monta um SQL. Bem simples.
Insira 3 botões na tela (btnDesce, btnSobe e btnExtrairOrderBy), 1 ListBox(lbx1) e 1 Edit(edt1). O evento OnClick dos três botões encontra-se abaixo. Vejam:
//Esse botão faz os itens descerem
procedure TForm1.btnDesceClick(Sender: TObject);
var
NovoIndex : Integer;
begin
if not (lbx1.ItemIndex = lbx1.Items.Count-1) then
begin
NovoIndex := lbx1.ItemIndex + 1;
lbx1.Items.Move(lbx1.ItemIndex, NovoIndex);
lbx1.ItemIndex := NovoIndex;
lbx1.SetFocus;
end;
end;
//Esse botão faz os itens subiremprocedure
TForm1.btnSobeClick(Sender: TObject);
var
NovoIndex : Integer;
begin
if not (lbx1.ItemIndex - 1 < 0) then
begin
NovoIndex := lbx1.ItemIndex - 1;
lbx1.Items.Move(lbx1.ItemIndex, NovoIndex);
lbx1.ItemIndex := NovoIndex;
lbx1.SetFocus;
end;
end;
//Esse botão monta uma instrução ORDER BY dinâmicaprocedure
TForm1.btnExtrairOrderByClick(Sender: TObject);
var
I : Integer;
Order: string;
begin
Order := '';
for I := 0 to lbx1.Items.Count-1 do
begin
if I = 0 then
Order := lbx1.Items[I] + ','
else
Order := Order + lbx1.Items[I] + ',';
end;
Order := Copy(Order, 0, Length(Order)-1);
Edt1.Text := 'SELECT * FROM TABE WHERE CAMPO = :CAMPO ORDER BY ' +
Order;
end;Exemplo na seção downloads do Blog Delphi to Delphi
Adriano Santos
Editor Técnico Revista ClubeDelphi
Loading ...
Postado por Plinio Cruz em 16 de março de 2009 - Delphi, Programação | Seja o primeiro a comentar
Olá amigos!
Neste artigo discutiremos como fazer para alterar o registro do Windows permitindo que o seu programa seja executado automaticamente na inicialização. A principal vantagem de se usar essa técnina é fazer com que o seu aplicativo rode automaticamente como um serviço do Windows.
Antes de começarmos gostaria de lembrar que é necessário muito cuidado ao lidar com o Registro do Windows pois uma alteração incorreta pode prejudicar o funcionameto do Sistema Operacional ou de outros programas, sendo que eu não me responsabilizo pelo mal uso das informações contidas aqui.
Implementação:
Neste exemplo criaremos duas procedures, GravaRegistro e ApagaRegistro, para adicionar e remover o registro do windows respectivamente.
Para podermos trabalhar com o registro usaremos a classe TRegistry, que se encontra na unit Registry que deveremos adicionar na cláusula uses.
uses
…Windows, StdCtrls, Registry;
Em seguida criaremos a procedure GravaRegistro, contendo os seguintes parâmetros:
procedure GravaRegistro(Raiz: HKEY; Chave, Valor, Endereco: string);
Onde:
-Raiz (HKEY): Aqui definimos a chave raiz onde o registro será adicionado. As chaves que podem ser usadas no nosso exemplo são HKEY_CURRENT_USER (as alterações feitas aqui só afetarão o usuário logado), HKEY_LOCAL_MACHINE (as alterações afetarão qualquer usuário).
-Chave (String): No nosso exemplo usaremos a Chave “Software\Microsoft\Windows\CurrentVersion\Run” , que é a chave onde se aplicam os programas que devem ser executados na inicialização do Windows.
-Valor (String): É simplesmente o nome do valor do campo que será adicionado.
-Endereço (String): É o endereço do executável que será carregado na inicialização.
Segue a implementação da procedure GravaRegistro:
procedure TForm1.GravaRegistro(Raiz: HKEY; Chave, Valor, Endereco: string);
var
Registro: TRegistry;
begin
Registro := TRegistry.Create(KEY_WRITE); // Chama o construtor do objeto
Registro.RootKey := Raiz; //Define a chave raiz
Registro.OpenKey(Chave, True); //Cria a chave
Registro.WriteString(Valor, ‘”‘ + Endereco + ‘”‘); //Grava o endereço da sua aplicação no Registro
Registro.CloseKey; // Fecha a chave e o objeto
Registro.Free;
end;
Agora implementaremos a procedure ApagaRegistro, que terá os mesmo parâmetros que GravaResgistro menos o “Endereco”, que não será necessário nesse caso.
procedure ApagaRegistro(Raiz: HKEY; Chave, Valor : string);
Segue a implementação da procedure ApagaRegistro:
procedure TForm1.ApagaRegistro(Raiz: HKEY; Chave, Valor: string);
var
Registro: TRegistry;
begin
Registro := TRegistry.Create(KEY_WRITE); // Chama o construtor do objeto
Registro.RootKey := Raiz;
Registro.OpenKey(Chave, True); //Cria a chave
Registro.DeleteValue(Valor); //Grava o endereço da sua aplicação no Registro
Registro.CloseKey; // Fecha a chave e o objeto
Registro.Free;
end;
Agora criaremos dois botões, um para realizar a gravação no registro e outra para a remoção, respectivamente.
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
try
GravaRegistro(HKEY_LOCAL_MACHINE, ‘Software\Microsoft\Windows\CurrentVersion\Run’,
‘IniciarPrograma’, ExtractFilePath(Application.ExeName) + ‘TesteRegistro.exe’);
MessageDlg(‘Registro gravado com sucesso!’, mtInformation, [mbOk], 0);
except
MessageDlg(‘Erro ao gravar registro!’, mtInformation, [mbOk], 0);
end;
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
try
ApagaRegistro(HKEY_LOCAL_MACHINE, ‘Software\Microsoft\Windows\CurrentVersion\Run’,
‘IniciarPrograma’);
MessageDlg(‘Registro apagado com sucesso!’, mtInformation, [mbOk], 0);
except
MessageDlg(‘Erro ao apagar registro!’, mtInformation, [mbOk], 0);
end;
end;
E pronto! Agora é só testar a sua aplicação. Clicando no primeiro botão iremos adicionar nosso programa à lista de inicialização do Windows, tendo feito isso você pode efetuar logoff e assim que o windows for iniciado novamente o seu programa será executado automaticamente.
Para remover o registro de forma que o seu programa não seja executado na próxima inicialização basta clicar no segundo botão.
Espero que este artigo tenha sido útil, o código-fonte encontra-se disponível logo abaixo. Obrigado.
Registro.zip
Rafael Lemos
Bacharel em Ciências da Computação
Loading ...
Postado por Plinio Cruz em 25 de fevereiro de 2009 - Delphi, Programação, Tutorial | 6 Comentário para ler
A bilbioteca ZeosLib (download) é uma conjunto de ferramentas para você ter uma conexão nativa com banco de dados, ou seja, uma conexão sem drivers auxiliares como o ODBC. Isso agiliza a programação, deixa a instalação do seu sistema fácil e o mais importante, deixa seu sistema mais rápido.
O ZeosLib é OpenSource e gratuito, sua instalação não é das mais simples, mas também não é um bicho de sete cabeçcas, é mais uma receita de bolo, basta seguir os passos sem pular “nenhum ingrediente” e pronto, está instalado para a utilização.
Então faça o download do arquivo compactado e descompacte em um diretório vazio de sua preferência, guarde lá e vamos para o primeiro passo: Vá até a pasta “Zeos\Lib\MySQL” na diretório onde você descompactou a bilbioteca e os arquivos que lá você encontrar (libmsql40.dll, libmysql21.dll, libmysql320.dll, libmysql323.dll) faça uma cópia para a pasta system32 do diretório de instalação do Windows.
Agora abra o Delphi, aqui utilizaremos a versão 7, mas se aplica as outras também, deixamos aqui o site disponível para os visitantes que já instalaram em outras versões e encontraram alguma diferença, que deixem sua dica aqui.
Figura 01
Em seguida clique no menu “Tools”, “Enviroment Options” na janela que se abre escolha a aba ”Library”. Na tela surgirá detalhes de instalação da bibliotecas. A primeira opção “Libraty Path” é responsável pela escolha do diretório da nova bilbioteca, clique no botão “…” para você escolher os diretórios. (Figura 02)
Figura 02
Nessa tela utilize novamente o botão “…” para localizar os diretórios (Figura 03) que interessam a nossa instalação. Na tela que se abre localize o diretório que você descompactou sua bilbioteca e ache o diretório src, nele você encontrará os subdiretórios; component, core, dbs, parsesql e plain. Selecione o primeiro “component” clique ok e voltando para a tela da Figura 02 clique no botão Add. Você verá o endereço ser registrado no quadro acima.
Figura 03
Esse processo será repetido com todos os diretórios da pasta “src”, ou seja, core, dbs, parsesql e plain, nessa ordem. Feito isso agora vamos para a instalação da biblioteca propriamente dita. Clique em “ok” e volte a tela principal do Delphi e proceda como se fosse abrir um projeto.
Clique em “File”, “Open Project” e localize na pasta da biblioteca o subdiretório “packages” e em seguida a pasta referente a sua versão, no nosso caso, Delphi 7 e clique no arquivo ZeosDbo, em seguida OK e a tela “Project Manager” vai aparecer com o conteúdo do projeto, que não por coincidência são os nomes dos diretórios que determinamos no processo anterior.
Figura 04
Agora teremos que fazer o mesmo processo para cada um dos arquivos que aparecem e pela ordem. Clique com o botão da direita sobre o primeiro arquivo “ZCore.bpl” (Figura 04) no menu de propriedades que aparece, clique em “Compile”, aguarde o cursor da ampulheta parar, pois nesse momento os arquivos da ferramenta estão sendo compilados e dependendo do computador essa tarefa pode demorar alguns segundos.
Em seguida clique novamente com o botão direita sobre o mesmo arquivo “ZCore.bpl”, a mesma tela de propriedades se abrirá (Figura 04), dessa vez você escolherá a função “Install”, feito isso aparecerá uma tela de aviso sobre a instalação correta da ferramenta, clique “Ok” e faço o mesmo processo para os outros arquivos e lembre-se, na ordem que aparecem.
Figura 05
No último arquivo “ZComponent.bpl”, referente a instalação dos ícones e ligações da bilbioteca, você receberá a mensagem da Figura 05, que ocorrendo tudo perfeitamente mostra as ferramentas instaladas, clique ok e sua bilbioteca estará perfeitamente instalada. Clique “File”, “Close All” e confime todas as telas para salvar o projeto. Pronto o Delphi está pronto para você trabalhar.
Figura 06
Agora vá até a ABA de componentes e localize a “Zeos Acess” (Figura 06) e você terá acesso aos componetes da biblioteca. Como todos por aqui já sabem o Clube da Informática é mantido pela Trio Interativa, a nossa equipe atualmente desenvolve sistema Web (PHP/MySQL) como módulos externos desenvolvidos em Delphi para processos de maior duração e que via web poderia durar um tempo maior ou nem seriam viáveis pela velocidade da banda, por exemplo, envio de e-mails para mailings personalizados com mais de 5000 registros, as aplicações são infinitas.
Boa Sorte e espero que esse passo-a-passo tenha ajudado.
