RE: [delphi-br] Relatorios no Delphi Turbo Explorer - uma luz por favor!
Turbo Explorer não vem com ferramenta de relatório. From: delphi-br@yahoogrupos.com.br on behalf of Cristiano Nunes - Programador Sent: Fri 07-Sep-07 04:03 To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Relatorios no Delphi Turbo Explorer - uma luz por favor! Colegas Ontem baixei do site da codegear o Turbo Delphi Explorer (lindo diga-se de passagem) eu uso delphi 4 (que baita diferenca no design hehehehe). Mas nao achei nenhuma paleta de gerador de relatorios (eu uso no d4 o quickreport). Qual gerador de relatorios da versao turbo explorer? (tem algum?) Qualquer ajuda é bem-vinda, muito obrigado. []´s Tiano.
[delphi-br] Relatorios no Delphi Turbo Explorer - uma luz por favor!
Colegas Ontem baixei do site da codegear o Turbo Delphi Explorer (lindo diga-se de passagem) eu uso delphi 4 (que baita diferenca no design hehehehe). Mas nao achei nenhuma paleta de gerador de relatorios (eu uso no d4 o quickreport). Qual gerador de relatorios da versao turbo explorer? (tem algum?) Qualquer ajuda é bem-vinda, muito obrigado. []´s Tiano.
Re: [delphi-br] Delphi 2007
Muito estranho heim JCPF, to usando aqui e ta funcionando normalmente;;; Veja no menu Tools no item Environment Options no GroupBox Compiling and Running olhe se Mininize on Run esta marcado, desmarque e faça um teste, e volte a marcar novamente.. mas te adianto que aqui comigo ta funcionando normalmente... passe mais detalhes sobre o problema, ele acontece ja na 1ª compilação..? tente expor os detalhes.. Em 07/09/07, jcpf_gmail [EMAIL PROTECTED] escreveu: Prezados Colegas, Gostaria de saber se no D2007 existe alguma configuração para quando eu executar uma aplicação e a IDE do D2007 minimizar, ao término da execução da aplicação a IDE voltar a maximizar como acontece no Delphi 7. Até agora não achei nada que faça isso acontecer no D2007, a IDE do mesmo fica minimizada. Grato, João Carlos Fonseca No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.485 / Virus Database: 269.13.8/993 - Release Date: 06/09/2007 15:18 [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: [EMAIL PROTECTED] Site: http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Delphi 2007
Prezados Colegas, Gostaria de saber se no D2007 existe alguma configuração para quando eu executar uma aplicação e a IDE do D2007 minimizar, ao término da execução da aplicação a IDE voltar a maximizar como acontece no Delphi 7. Até agora não achei nada que faça isso acontecer no D2007, a IDE do mesmo fica minimizada. Grato, João Carlos Fonseca No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.485 / Virus Database: 269.13.8/993 - Release Date: 06/09/2007 15:18 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Delphi 2007
Eduardo, Já fiz de tudo, inclusive o que você sugeriu, mas não tem jeito. A IDE não volta a maximizar qdo finalizo a execução do aplicativo. Sim, ocorre desde a primeira compilação. Grato pela atenção, João Carlos De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: sexta-feira, 7 de setembro de 2007 13:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi 2007 Muito estranho heim JCPF, to usando aqui e ta funcionando normalmente;;; Veja no menu Tools no item Environment Options no GroupBox Compiling and Running olhe se Mininize on Run esta marcado, desmarque e faça um teste, e volte a marcar novamente.. mas te adianto que aqui comigo ta funcionando normalmente... passe mais detalhes sobre o problema, ele acontece ja na 1ª compilação..? tente expor os detalhes.. Em 07/09/07, jcpf_gmail HYPERLINK mailto:jcprog%40gmail.com[EMAIL PROTECTED] escreveu: Prezados Colegas, Gostaria de saber se no D2007 existe alguma configuração para quando eu executar uma aplicação e a IDE do D2007 minimizar, ao término da execução da aplicação a IDE voltar a maximizar como acontece no Delphi 7. Até agora não achei nada que faça isso acontecer no D2007, a IDE do mesmo fica minimizada. Grato, João Carlos Fonseca No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.485 / Virus Database: 269.13.8/993 - Release Date: 06/09/2007 15:18 [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: HYPERLINK mailto:eduardo.drd%40gmail.com[EMAIL PROTECTED] Site: HYPERLINK http://www.drdsistemas.com/http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.485 / Virus Database: 269.13.8/993 - Release Date: 06/09/2007 15:18 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.485 / Virus Database: 269.13.8/993 - Release Date: 06/09/2007 15:18 [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Delphi 2007
Eduardo, Descobri que isso só acontece qdo clico em Run Without Debugging, No Run normal(f9) funciona OK. []´s João Carlos De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Eduardo Silva dos Santos Enviada em: sexta-feira, 7 de setembro de 2007 13:51 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Delphi 2007 Muito estranho heim JCPF, to usando aqui e ta funcionando normalmente;;; Veja no menu Tools no item Environment Options no GroupBox Compiling and Running olhe se Mininize on Run esta marcado, desmarque e faça um teste, e volte a marcar novamente.. mas te adianto que aqui comigo ta funcionando normalmente... passe mais detalhes sobre o problema, ele acontece ja na 1ª compilação..? tente expor os detalhes.. Em 07/09/07, jcpf_gmail HYPERLINK mailto:jcprog%40gmail.com[EMAIL PROTECTED] escreveu: Prezados Colegas, Gostaria de saber se no D2007 existe alguma configuração para quando eu executar uma aplicação e a IDE do D2007 minimizar, ao término da execução da aplicação a IDE voltar a maximizar como acontece no Delphi 7. Até agora não achei nada que faça isso acontecer no D2007, a IDE do mesmo fica minimizada. Grato, João Carlos Fonseca No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.485 / Virus Database: 269.13.8/993 - Release Date: 06/09/2007 15:18 [As partes desta mensagem que não continham texto foram removidas] -- Eduardo Silva dos Santos DRD Sistemas. (27) 3218-4201 MSN: HYPERLINK mailto:eduardo.drd%40gmail.com[EMAIL PROTECTED] Site: HYPERLINK http://www.drdsistemas.com/http://www.drdsistemas.com/ [As partes desta mensagem que não continham texto foram removidas] No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.485 / Virus Database: 269.13.8/993 - Release Date: 06/09/2007 15:18 No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.485 / Virus Database: 269.13.8/993 - Release Date: 06/09/2007 15:18 [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Sobre impressão direta LPT1 (usando o writeln).
Oi, Estou desenvolvendo uma rotina que realiza consulta nos dados e imprime na impressora padrao do Windows, através de impressão direta LPT1 (usando o writeln). Problema: imprime a primeira linha do query, repetindo-a a todos os registros da consulta. Conforme abaixo ... - RELATORIO: Movimento de Contas a Pagar - Fornecedor NotaEmi. ValorDuplicata Valor Vcto Dpag. Vl. pago - 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 - Total de registros: 9 -
Re: [delphi-br] socorro --- diretorios e atributos
Quando for testar o atributo, faça assim if (searchrec.attr and 16)=16 then ... Em 06/09/07, pelebr [EMAIL PROTECTED] escreveu: preciso testar num programa usando findfirst - findenext e identificar e guardar todos diretorios e subs do hd num array testei assim if searchrec.attr = 16 then... //16 = diretorio so que um diretorio pode ter varios atributos e nesse teste nao leio muitas pastas do disco pois ele pode ter atributo 17= atributo diretorio mais atributo oculto atributo 22 = diretorio + sistema + oculto e etc como posso testar de forma que eu entre em TODAS pastas dum HD se for diretorio quero ler nao me interessa se eh sistema oculto -- Timeo hominem unius libri Cogito ergo sum - Carpe diem []s Guionardo Furlan http://guionardo.blogspot.com
[delphi-br] Horá no grid do delphi
Olá, outra coisa que estou com problemas. Quando coloco um valor do tipo hora no cadastro, no banco ele vai beleza mas no Grid ele aparece dessa forma 30/12/1899 14:30:35. Como que eu tiro essa data dali.. [ ] ´s Michael
Re: [delphi-br] Relatorios no Delphi Turbo Explorer - uma luz por favor!
Bruno ou Andreano me corrijam se eu estiver equivocado, mas, devido as limitações da Versão Explorer, creio a mesma que venha sem gerador de relatório e também não é possível instalar um. Cristiano Nunes - Programador escreveu: Colegas Ontem baixei do site da codegear o Turbo Delphi Explorer (lindo diga-se de passagem) eu uso delphi 4 (que baita diferenca no design hehehehe). Mas nao achei nenhuma paleta de gerador de relatorios (eu uso no d4 o quickreport). Qual gerador de relatorios da versao turbo explorer? (tem algum?) Qualquer ajuda é bem-vinda, muito obrigado. []´s Tiano. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/
RES: [delphi-br] Farmacia Popular
Veja se o clientDataSet não te ajuda. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Alessandro da Silva Souza Enviada em: quinta-feira, 6 de setembro de 2007 16:51 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Farmacia Popular Boa tarde, Preciso muito de ajuda. Preciso gerar um arquivo XML para o farmacia popular, mais não consegui achar nenhum exemplo do arquivo XML gerado para que eu possa saber como gerar o arquivo. Se algume puder me ajudar ficarei muito grato. Alessandro. [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Gerar Arquivo .txt
Bom, estou respondendo pensando em termos de programação, não de Delphi,
por isso se não estiver correto, descupe-me.
Tente isso:
1)Crie dois objetos 'TSQLQUERY': um para tabela mestre e outra para
detalhe.
2) pesquise a informação que vc deseja da tabela mestre.
3) para cada item da tabela mestre faça uma pesquisa na tabela itens.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de MarcioCC
Enviada em: terça-feira, 4 de setembro de 2007 09:32
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Gerar Arquivo .txt
Pessoal é o seguinte to tentando gerar um arquivo texto entre uma
tabela Pai e Filha (Master/Detail) da seguinte maneira:
AssignFile(F,'C:\GerConv\DrogariaNovaCampina.txt');
Rewrite(F);
TabGlobal.DTB_LOTE.First;
While not TabGlobal.DTB_LOTE.Eof do
begin
StrLinhaLote :=
(TabGlobal.DTB_LOTE.CONSTANTE.Conteudo)+(TabGlobal.DTB_LOTE.CONSTANTE_LO
TE.Conteudo)+FormatFloat('0',campointeiro)+IntToStr(campointeiro2)+F
ormatfloat('000',campointeiro3)+FormatFloat('000',campointeiro4)+IntToSt
r(campointeiro5)+FormatFloat('00',campointeiro6)+FormatFloat('00',campoi
nteiro7)+FormatFloat('',campointeiro8)+IntToStr(campointeiro9)+I
ntToStr(campointeiro10)+(TabGlobal.DTB_LOTE.TOTAL_REG_INFO.Conteudo)+(Ta
bGlobal.DTB_LOTE.SOMA_MATR_INFOR.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_EV_I
NFOR.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_UN_INFOR.Conteudo)+(TabGlobal.DT
B_LOTE.SOMA_VAL_INF.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_TOT_INFOR.Conteud
o)+(TabGlobal.DTB_LOTE.SOMA_VAL_INF.Conteudo)+(TabGlobal.DTB_LOTE.SOMA_T
OT_INFOR.Conteudo)+(TabGlobal.DTB_LOTE.FILLER.Conteudo)+(TabGlobal.DTB_L
OTE.CONSTANTE_1.Conteudo);
Writeln(F, strLinhaLote);
TabGlobal.DTB_MOV_ITENS.First;//adicionei agora
// TabGlobal.DTB_LOTE.next; //tirei agora
/// TabGlobal.DTB_MOV_ITENS.next;
// TabGlobal.DTB_MOV_ITENS.First;
While not TabGlobal.DTB_MOV_ITENS.Eof do
begin
strLinhaMov_Item := (TabGlobal.DTB_MOV_ITENS.CONSTANTE.Conteudo) +
(TabGlobal.DTB_MOV_ITENS.CONST_LOTE.Conteudo) +
FormatFloat('0',campointeiro11)+
IntToStr(campointeiro12) +
Formatfloat('000',campointeiro13) +
FormatFloat('000',campointeiro14) +
(TabGlobal.DTB_MOV_ITENS.COD_CAT_SAL.Conteudo)
+
FormatFloat('00',campointeiro16) +
FormatFloat('00',campointeiro17) +
FormatFloat('',campointeiro18) +
IntToStr(campointeiro19) +
IntToStr(campointeiro20) +
FormatFloat('',campointeiro21) +
IntToStr(campointeiro22) +
FormatFloat('00',campointeiro23) +
FormatFloat('000',campointeiro24) +
(TabGlobal.DTB_MOV_ITENS.FILLER.Conteudo) +
(TabGlobal.DTB_MOV_ITENS.CONSTANTE_FIM.Conteudo);
Writeln(F, strLinhaMov_Item);
TabGlobal.DTB_MOV_ITENS.next;
///TabGlobal.DTB_LOTE.next;
end;
TabGlobal.DTB_LOTE.next;
end;
CloseFile(F);
end;
Ta gerando tudo certinho mais ta acontecendo o seguinte nos dados
inclusos no .txt:
mvtolote000441002001007200704571900
0
mvtolote000162002001004571909894650
mvtolote000441002001007200704571900
0
mvtolote000162002001004571909894650
Tenho 2 registros na tabela pai e 2 registros na tabela filha sendo
eles:
TABELA PAI = 00044 e 00045
TABELA FILHA = 00016 e 00017
Notem que ta duplicando o registro pai e filha da tabela,e os registros
00045 e 00017 não estão vindo , o que estou fazendo de errado por favor
me ajudem ...
JESUS TE AMA !!!
MarcioCC®
**
Itabyte Tecnologia® - www.itabyte.com
Analista/Programador - For Delphi
MSN : [EMAIL PROTECTED]
SKYPE : itabytetec
Fone : 15-3524-1946
[As partes desta mensagem que não continham texto foram removidas]
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Links do Yahoo! Grupos
RES: [delphi-br] Consulta sql mais de um campos
Tente isso:
strSQL, sendo strSQL uma string com o seu comando sem ordem.
Em sequida, no evento click do dbgridTitleClick, vc abre um outro
comando sql da seguinte forma.
{ cabeçalho da procedure}
var
strSQL : string;
qry : TSQLQuery;
begin
qry := TSQLQuery.create(nil);
strSQL := select * from cliente where dp1 like
{ o resto do seu
código}
try
try
qry.SQLConnection:= { sua conexao de banco de dados }
qry.close;
qry.sql.clear;
qry.sql.add(strSQL);
qry.sql.add(Order by + column.fieldname);
qry.open;
finally
qry.free;
qry:= nil;
end;
except
on Exc: Exception do raiseMessage(Erro, Exc.getMessage);
end;
end;
{ ** Não testei, por isso não posso me certificar 100% de que está
certo, sobretudo no uso dos comando try... except que eu ainda estou
estudando **}
No banco tente usar sql preparadas. Se for possível.. Da maneira que vc
está usando, ele vai criar o mesmo plano de consulta todas as vezes que
essa rotina for executada.
Espero ter ajudado.
-Mensagem original-
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED]
Em nome de Ruth
Enviada em: quinta-feira, 6 de setembro de 2007 08:10
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: [delphi-br] Consulta sql mais de um campos
Vc precisa colocar todos os campos da tabela em uma unica coluna?
e depois dar order by nessa coluna unica?
- Original Message -
From: Hudson
To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br
os.com.br
Sent: Thursday, September 06, 2007 12:15 AM
Subject: [delphi-br] Consulta sql mais de um campos
Ola gente,
estou com uma duvida, e gostaria de compartilhar aqui na lista...
tenho que fazer uma consulta sql like dados % em mais de uma campo
exemplo:
select * from cliente where dp1 like '+ Edit1.Text +'% or dp2 like '+
Edit1.Text +'% or dp3 like '+ Edit1.Text +'% or dp4 like '+
Edit1.Text +'% or dp5 like '+ Edit1.Text +'% or dp6 like '+
Edit1.Text +'%'
o problema e que apos feito isso tenho que jogar em uma coluna no dbgrid
e dar order by..
alguem ja teve essa duvida, poois não tenho como separar estes campos,
já tem mais ou mesno 30,000 registro na tabela...
Atenciosamente Hudson Dias
www.alcancedigital.com.br
MSN: [EMAIL PROTECTED] mailto:hudson_bh%40hotmail.com com
Skype: hudson_bh
Tele: (31)3434-6304
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] Acess
Geralmente, Access violation é disparado quando um objeto não inicializado é acessado. -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de BandaLemuel Enviada em: quarta-feira, 5 de setembro de 2007 13:32 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Acess Concordo.. me deculpe... rsrsrrs... entao... percebi que o erro acontece qudno tento ler ou gravar um INI... mas o engraçado que ele le o INI... porque ele configura o banco de dados fiz o SP2 do xp mas nao resolveu e percebi outra coisa... quando esta logado com algum usuario que é administrador não da problema Wesley -- - Original Message - From: Davi Eduardo Borges Wall To: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Sent: Wednesday, September 05, 2007 8:43 AM Subject: RES: [delphi-br] Acess Agora em caso de adivinhação.. esse post só com a mãe Diná mesmo. RS. Wesley imagine que vc seja um mecânico, e eu tenho um carro. Eu chego na sua mecânica sem o carro e pergunto.. Wesley, no meu carro, quando eu subo morro de casa da um barulho, mas quando subo o morro da vizinha o barulho não acontece. Como vc como mecânico poderia me ajudar? Bom isso foi uma brincadeirinha, mas falando sério agora. VocÊ não deu o mínimo de informações para que alguém possa te ajudar. Assim fica difícil. =D De: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br [mailto:[EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br] Em nome de BandaLemuel Enviada em: quarta-feira, 5 de setembro de 2007 08:36 Para: [EMAIL PROTECTED] mailto:delphi-br%40yahoogrupos.com.br os.com.br Assunto: [delphi-br] Acess Bom dia Lista é o seguinte.. tenho um aplicativo que em apenas um computador ele da o erro Acess Violation na ntdll.dll alguem sabeo que pode ser ??? vlw... Wesley [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.485 / Virus Database: 269.13.5/990 - Release Date: 4/9/2007 22:36 [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
RES: [delphi-br] socorro --- diretorios e atributos
Para isso, vc precisa criar uma função recursiva. Talvez o delphi já tenha esse tipo de função. http://www.devmedia.com.br/articles/viewcomp.asp?comp=1112 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de pelebr Enviada em: quinta-feira, 6 de setembro de 2007 15:57 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] socorro --- diretorios e atributos preciso testar num programa usando findfirst - findenext e identificar e guardar todos diretorios e subs do hd num array testei assim if searchrec.attr = 16 then... //16 = diretorio so que um diretorio pode ter varios atributos e nesse teste nao leio muitas pastas do disco pois ele pode ter atributo 17= atributo diretorio mais atributo oculto atributo 22 = diretorio + sistema + oculto e etc como posso testar de forma que eu entre em TODAS pastas dum HD se for diretorio quero ler nao me interessa se eh sistema oculto entenderam? obrigado [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Duvidas em Sistema de Controle de ACESSO
e ai pessoal, tranquilo??
Eu estou fazendo um sistema de controle de acesso com delphi. Em
termos já resolvi o problema, mas queria o auxilio de voces para
outros modos de utilização do sistema.
Bom eu tenho uma Tabela no Access chamada TabAcesso que tem os
seguintes campos:
ID
pessoa_ID
data
hraEntrada
hraSaida
Status
Essa tabela,a TabAcessos, dentro do AdoTable dei o nome de tbAcesso.
Bom, quando uma pessoa entra na instituição, eu pesquiso primeiramente
se essa pessoa já teve o acesso naquele dia. Se não entrou eu preencho
os campos da tabela menos o hraSaida e no estatus eu coloco a letra
E referente a Entrada. Feito isso, quando essa pessoa sair eu faço
uma pesquisa SQL que verifica qual é o status da pessoa dessa maneira:
qryStatus.SQL.Clear;
qryStatus.SQL.ADD('SELECT TOP 1 * FROM TabAcessos WHERE pessoa_ID = '
+ edID.txt);
qryStatus.SQL.ADD('Order By pessoa_ID Desc);
qryStatus.Open;
Nessa pesquisa, eu acho o ultimo registro dessa pessoa, como não
entendo muito de SQL e pesquisei esse comando na net não sei se esta
100% correto, mas sei que esta funcionando aqui.
Bom, depois de ter feito isso eu faço o seguinte:
if (qryStatus.FieldByName('Status').AsString = 'E') then
Begin
tbAcesso.Locate('ID', qryStatus.FieldByName('ID').AsInteger,[]);
tbAcesso.Edit;
End
else
tbAcesso.Append;
Bom, depois da consulta SQL eu faço um teste para verificar se o
ultimo registro da pessoa o status dela é 'E' se ele for eu com o
tbAcesso.Locate eu tento me posicionar naquele registro para alterar a
hora de saida e o status para 'S'. Mas é importante frizar que uma
pessoa pode entrar e sair varias vezes no dia.
Eu queria que voces dessem uma olhada para me dizer se existe uma
outra maneira derrepente até mais segura. Eu tenho receio do
tbAcesso.Locate em não se posicionar na ultima coluna da pessoa para
que eu possa edita-la.
Bom, é isso
[]´s Michael
Re: [delphi-br] Sobre impressão direta LPT1 (usando o writeln).
vc a cada iteracao do loop está colocando um (seu TQuery).Next pra ir p/ o prox registro? gilsonlongo escreveu: Oi, Estou desenvolvendo uma rotina que realiza consulta nos dados e imprime na impressora padrao do Windows, através de impressão direta LPT1 (usando o writeln). Problema: imprime a primeira linha do query, repetindo-a a todos os registros da consulta. Conforme abaixo ... - RELATORIO: Movimento de Contas a Pagar - Fornecedor NotaEmi. ValorDuplicata Valor Vcto Dpag. Vl. pago - 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 350-APTO 503 1/1/2007 3416 136 3416 28/2/2007 136 28/2/2007 136 - Total de registros: 9 -
RE: [delphi-br] Relatorios no Delphi Turbo Explorer - uma luz por favor!
Sim, não se pode instalar. Para ter componentes de terceiro use a versão Turbo Professional From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Alexandre Rodrigues Sent: Friday, September 07, 2007 6:11 AM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Relatorios no Delphi Turbo Explorer - uma luz por favor! Bruno ou Andreano me corrijam se eu estiver equivocado, mas, devido as limitações da Versão Explorer, creio a mesma que venha sem gerador de relatório e também não é possível instalar um. Cristiano Nunes - Programador escreveu: Colegas Ontem baixei do site da codegear o Turbo Delphi Explorer (lindo diga-se de passagem) eu uso delphi 4 (que baita diferenca no design hehehehe). Mas nao achei nenhuma paleta de gerador de relatorios (eu uso no d4 o quickreport). Qual gerador de relatorios da versao turbo explorer? (tem algum?) Qualquer ajuda é bem-vinda, muito obrigado. []´s Tiano. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ http://br.yahoo.com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas]
