Aniversáriante do mes Alguem sabe como que funciona ?
Oi Amigos estou fazendo um Programa escolar, gostaria de como eu faço
Para saber quantos alunos estão fazendo universário no mes ?
Alguem pode me ajudar ??
Para saber quantos alunos estão fazendo universário no mes ?
Alguem pode me ajudar ??
Anonymous
Curtidas 0
Respostas
Moonlight
07/03/2003
Coloca uma query, e no SQL pede o aniversario entre o primeiro e ultimo dia do mes.
GOSTEI 0
Anonymous
07/03/2003
8) O jeito mais fáicl de fazer isto é: crie um campo mes de aniversário na sua tabela de cadastro de alunos e crie uma rotina para este campo receber o nome do mes, pode ser no ´Beforepost´ da tabela use o ´Decoddate´ no help do delphi vc encontrará um exemplo.
depois use uma query para para filtrar este campo. que receberá o nome
dos meses como Ex.: Janeiro, fevereiro.....
depois use uma query para para filtrar este campo. que receberá o nome
dos meses como Ex.: Janeiro, fevereiro.....
GOSTEI 0
Anonymous
07/03/2003
8) Desculpe meu email é => mfvalmir@terra.com.br
GOSTEI 0
Anonymous
07/03/2003
Coloca uma query no seu programa e insira o seguinte código na propriedade SQl dela :
Select * from Clientes where DataAniver between=:Data1 and =:Data2
vai na propriedade params e define data1 e data 2 como data e coloca um componente dateTimePicker para cara um ! e atribua a eles o parametro (exemplo, na hora que vc clicar em um botão):
DataModule.AdoQuery1.Params(´Data1´).value:=DtpData1.date;e a mesna coisa para o Data2
qualquer coisa me manda um mail ! bcantelli@uol.com.br
Select * from Clientes where DataAniver between=:Data1 and =:Data2
vai na propriedade params e define data1 e data 2 como data e coloca um componente dateTimePicker para cara um ! e atribua a eles o parametro (exemplo, na hora que vc clicar em um botão):
DataModule.AdoQuery1.Params(´Data1´).value:=DtpData1.date;e a mesna coisa para o Data2
qualquer coisa me manda um mail ! bcantelli@uol.com.br
GOSTEI 0
Anonymous
07/03/2003
Mais fácil:
Coloque numa query:
Query.Close;
Query.SQL.Clear.
Query.SQL.Add(´Select * from TabelaAlunos where EXTRACT(MONTH from DataAniver) = :MES´);
Depois passe o mês desejado para a query:
Query.ParamByName(´MES´).AsInteger := StrToInt( FormatDateTime( ´MM´,Date ) );
Agora é só abrir a query:
Query.Open;
Coloque numa query:
Query.Close;
Query.SQL.Clear.
Query.SQL.Add(´Select * from TabelaAlunos where EXTRACT(MONTH from DataAniver) = :MES´);
Depois passe o mês desejado para a query:
Query.ParamByName(´MES´).AsInteger := StrToInt( FormatDateTime( ´MM´,Date ) );
Agora é só abrir a query:
Query.Open;
GOSTEI 0