Ir em baixo
_Netrunner
_Netrunner

Mensagens : 156
Pontos : 564

Ranking em Delphi Empty Ranking em Delphi

em Sab 12 Jan 2013 - 10:36
Reputação da mensagem: 100% (3 votos)
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 :
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 Sab 12 Jan 2013 - 10:57, editado 1 vez(es)
BGames
BGames

Mensagens : 1808
Pontos : 16497
Evolução : 100
Ranking em Delphi Reputation_highposRanking em Delphi Reputation_highposRanking em Delphi Reputation_highposRanking em Delphi Reputation_highposRanking em Delphi Reputation_highposRanking em Delphi Reputation_highposRanking em Delphi Reputation_highposRanking em Delphi Reputation_highposRanking em Delphi Reputation_highposRanking em Delphi Reputation_highpos

Ranking em Delphi Empty Re: Ranking em Delphi

em Sab 12 Jan 2013 - 10:52
Tenta dar uma introdução a linguagem . Porque eu não entendi nada do código.EHAUEHAUEHAU
_Netrunner
_Netrunner

Mensagens : 156
Pontos : 564

Ranking em Delphi Empty Re: Ranking em Delphi

em Sab 12 Jan 2013 - 10:54
Pode deixa, vou posta um's videos bom's de delphi aqui..
Conteúdo patrocinado

Ranking em Delphi Empty Re: Ranking em Delphi

Voltar ao Topo
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum