Bom, o principal motivo desse tutorial é ensinar como se faz Query no Delphi (Usei a versão 7).
O único componente "Custom" que eu usei foi o Zeos (Você acha grátis pra download na internet)
Design do Projeto :
1 ListView (Palheta Win32)
1 ZConnection1 (Palheta Zeos Acess)
1 ZQuery (Palheta Zeos Acess)
3 Button (Palheta Standard)
1 ImageList1 (Win32)
ListView :
Vai na opção Name e mude para : Lista
Vai na opção Columns e Adicione ( Clicando no Add New ) : Usuario, Nome , Email, Codigo.
Vai na Opção ViewStyle e mude para : vsReport
Vai na Opção Smallimages e Selecione seu ImageList1.
Vai na Opção StateImages e Selecione seu lmageList1.
Vai na Opção LargeImages e Selecione seu lmageList1.
ZConnection1:
Vai na opção Name e muda para : Con
Vai na Opção Protocol e mude para Mysql 4.1.
Vai na Opção User e coloque seu usuário : Usuário padrão é root
Vai na Opção Password e coloque sua senha : a que você cadastro quando instalo o mysql.
Vai na Opção HostName e coloque o IP do MYSQL : Localmente é 127.0.0.1
Vai na Opção Catalog e Seleciona sua Database : A Que está os Usuários
Vai na Opção Connected e Mude para : True
ZQuery :
Vai na Opção Connection e seleciona : ZConnection ( Renomeado para Con )
Vai na Opção SQL e clique nos "..." e adicione a linha de Query :
Vai na Opção Active e mude para : True.
Agora clique duas vezes sobre o componente Query e adicione 5 SortedFields clicando com butão direito do mouse e selecionando a opção Add Fields :
Adicione : ID , Username, fullname , email , code.
1° Button : Mude seu Caption para "Ver Ranking"
2° Button : Mude seu Caption para "Atualizar Ranking"
3° Button : Mude seu Caption para "Sair"
ImageList1:
Clique duas vezes e adicione 2 Imagens no Formato .BMP : Eu Adicionei 2 Coroas, 1 Cinza e uma Vermelha
Meu formulário ficou mais o menos assim :
img17.imageshack.us/img17/7726/semttuloewy.png
Codigos :
1° Button (Ver Ranking) :
2° Button (Atualizar Ranking) :
3° Button (Sair) :
Programa Funcionando :
img819.imageshack.us/img819/8027/bggames.png
Download do Exemplo :
4shared.com/rar/3oOJChQg/RANKING_BgGames.html
Obs : Minha Table está incluso no Exemplo.
Quando o fórum der permissão para posta links , meus tutoriais ficarão mais legal.. só é questão de tempo.
Créditos : _Netrunner
Última edição por _Netrunner em Sáb 12 Jan 2013 - 10:57, editado 1 vez(es)
O único componente "Custom" que eu usei foi o Zeos (Você acha grátis pra download na internet)
Design do Projeto :
1 ListView (Palheta Win32)
1 ZConnection1 (Palheta Zeos Acess)
1 ZQuery (Palheta Zeos Acess)
3 Button (Palheta Standard)
1 ImageList1 (Win32)
ListView :
Vai na opção Name e mude para : Lista
Vai na opção Columns e Adicione ( Clicando no Add New ) : Usuario, Nome , Email, Codigo.
Vai na Opção ViewStyle e mude para : vsReport
Vai na Opção Smallimages e Selecione seu ImageList1.
Vai na Opção StateImages e Selecione seu lmageList1.
Vai na Opção LargeImages e Selecione seu lmageList1.
ZConnection1:
Vai na opção Name e muda para : Con
Vai na Opção Protocol e mude para Mysql 4.1.
Vai na Opção User e coloque seu usuário : Usuário padrão é root
Vai na Opção Password e coloque sua senha : a que você cadastro quando instalo o mysql.
Vai na Opção HostName e coloque o IP do MYSQL : Localmente é 127.0.0.1
Vai na Opção Catalog e Seleciona sua Database : A Que está os Usuários
Vai na Opção Connected e Mude para : True
ZQuery :
Vai na Opção Connection e seleciona : ZConnection ( Renomeado para Con )
Vai na Opção SQL e clique nos "..." e adicione a linha de Query :
Código:
SELECT * FROM Usuarios Where Active = 1 ORDER BY Code DESC
Vai na Opção Active e mude para : True.
Agora clique duas vezes sobre o componente Query e adicione 5 SortedFields clicando com butão direito do mouse e selecionando a opção Add Fields :
Adicione : ID , Username, fullname , email , code.
1° Button : Mude seu Caption para "Ver Ranking"
2° Button : Mude seu Caption para "Atualizar Ranking"
3° Button : Mude seu Caption para "Sair"
ImageList1:
Clique duas vezes e adicione 2 Imagens no Formato .BMP : Eu Adicionei 2 Coroas, 1 Cinza e uma Vermelha
Meu formulário ficou mais o menos assim :
img17.imageshack.us/img17/7726/semttuloewy.png
Codigos :
1° Button (Ver Ranking) :
Código:
var
l: TListItem; //Adicionando Variavel
begin
Lista.Clear; //Limpar ListView
query.Active:= true; //Ativar Query
Query.SQL.Text := 'SELECT * FROM Usuarios Where Active = 1 ORDER BY Code DESC'; //Fazer Pesquisa nos usuários que estão ativados por meio do Active = 1
Query.Open; //Abrir Query ( Executar )
Query.First; //Primeira Consulta ( Mostrar Resultados )
While not (Query.Eof) do //Se não der erro ele vai mostra o Codigo Abaixo na ListView
begin
l := lista.Items.Add;
l.Caption := Query.FieldByName('username').AsString; //Adicionando Valores da Coluna Username na Lista
l.SubItems.Add(Query.FieldByName('fullname').AsString); //Adicionando Valores da Coluna Fullname na Lista
l.SubItems.Add(Query.FieldByName('email').AsString); //Adicionando Valores da Coluna Email na Lista
l.SubItems.Add(Query.FieldByName('code').AsString); //Adicionando Valores da Coluna Code na Lista
query.Next; //Proximo
if Querycode.Value = '6' then //Se o Codigo do ListView for 6 ela vai mudar a imagem para a coroa vermelha.
l.ImageIndex:= 1 //ID da coroa Vermelha
else //Se não for 6 ela vai mudar para a coroa cinza
l.ImageIndex:= 0; //id da coroa Cinza
end; //Fim
Query.Close; //Fechar Pesquisa
2° Button (Atualizar Ranking) :
Código:
Query.Refresh;
3° Button (Sair) :
Código:
application.Terminate;
Programa Funcionando :
img819.imageshack.us/img819/8027/bggames.png
Download do Exemplo :
4shared.com/rar/3oOJChQg/RANKING_BgGames.html
Obs : Minha Table está incluso no Exemplo.
Quando o fórum der permissão para posta links , meus tutoriais ficarão mais legal.. só é questão de tempo.
Créditos : _Netrunner
Última edição por _Netrunner em Sáb 12 Jan 2013 - 10:57, editado 1 vez(es)