BGames
Olá visitante! Seja bem vindo á BGames!

Para ter total acesso ao nosso fórum é preciso que você se registre.

Registre-se Aqui!


PARA VER LINKS E IMAGENS É PRECISO SE REGISTRAR!


BGames
Olá visitante! Seja bem vindo á BGames!

Para ter total acesso ao nosso fórum é preciso que você se registre.

Registre-se Aqui!


PARA VER LINKS E IMAGENS É PRECISO SE REGISTRAR!

BGames
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

BGamesEntrar

Fórum de Desenvolvimento de Jogos e Programação


descriptionRanking em Delphi EmptyRanking em Delphi

more_horiz
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 Sáb 12 Jan 2013 - 10:57, editado 1 vez(es)

descriptionRanking em Delphi EmptyRe: Ranking em Delphi

more_horiz
Tenta dar uma introdução a linguagem . Porque eu não entendi nada do código.EHAUEHAUEHAU

descriptionRanking em Delphi EmptyRe: Ranking em Delphi

more_horiz
Pode deixa, vou posta um's videos bom's de delphi aqui..

descriptionRanking em Delphi EmptyRe: Ranking em Delphi

more_horiz
privacy_tip Permissões neste sub-fórum
Não podes responder a tópicos
power_settings_newInicie sessão para responder