Re: [delphi-br] DBXCommon.pas
Não existe a pasta databese dentro da pasta source. Pode ser algum problema de instalação? grato - Original Message - From: Paulo Coutinho To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 12, 2009 12:30 AM Subject: Re: [delphi-br] DBXCommon.pas Olá, Essa unit fica em: C:\Arquivos de programas\CodeGear\RAD Studio\6.0\source\database Por padrão o Delphi já deveria reconhecer. 2009/5/12 Adolfo Stotz abnst...@fastlane.com.br Estou aprendendo DataSnap/Rad Studio. A minha aplicação Server conecta com o SQLServer 2008. A aplicação cliente, tambem conecta normalmente (Connected = True), mas ao executar a aplicação, aparece o seguinte erro - Remote Error: DBXError: Error Code: 3604 e ao fazer o debug, aparece o erro - Souce File not found: DBXCommon.pas. Que programa é este ? Onde ele deveria estar ? Onde encontra-lo ? Grato [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] DBXCommon.pas
2009 - Original Message - From: Paulo Coutinho To: delphi-br@yahoogrupos.com.br Sent: Tuesday, May 12, 2009 5:50 PM Subject: Re: [delphi-br] DBXCommon.pas Qual sua versão do Delphi? 2009/5/12 Adolfo Stotz abnst...@fastlane.com.br Não existe a pasta databese dentro da pasta source. Pode ser algum problema de instalação? grato - Original Message - From: Paulo Coutinho To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Tuesday, May 12, 2009 12:30 AM Subject: Re: [delphi-br] DBXCommon.pas Olá, Essa unit fica em: C:\Arquivos de programas\CodeGear\RAD Studio\6.0\source\database Por padrão o Delphi já deveria reconhecer. 2009/5/12 Adolfo Stotz abnst...@fastlane.com.brabnstotz%40fastlane.com.br Estou aprendendo DataSnap/Rad Studio. A minha aplicação Server conecta com o SQLServer 2008. A aplicação cliente, tambem conecta normalmente (Connected = True), mas ao executar a aplicação, aparece o seguinte erro - Remote Error: DBXError: Error Code: 3604 e ao fazer o debug, aparece o erro - Souce File not found: DBXCommon.pas. Que programa é este ? Onde ele deveria estar ? Onde encontra-lo ? Grato [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com paulo%40prsolucoes.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Atenciosamente, Paulo Coutinho. Blog: www.prsolucoes.com/blog Site: www.prsolucoes.com Msn: pa...@prsolucoes.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] DBXCommon.pas
Estou aprendendo DataSnap/Rad Studio. A minha aplicação Server conecta com o SQLServer 2008. A aplicação cliente, tambem conecta normalmente (Connected = True), mas ao executar a aplicação, aparece o seguinte erro - Remote Error: DBXError: Error Code: 3604 e ao fazer o debug, aparece o erro - Souce File not found: DBXCommon.pas. Que programa é este ? Onde ele deveria estar ? Onde encontra-lo ? Grato [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Multicamadas e Stored Procedure
Uso uma aplicação servidora e uma aplicação cliente, com DBExpress. Onde devo colocar o componente TSQLStoredProc, na aplicação servidora ou na aplicação cliente ? Como devo fazer o DataSource ? Grato [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Conexão com DBExpress
Uso Delphi 2009 com MySql e DBExpress. Tenho uma aplicação sevidora com os componentes de conexão com o banco e uma aplicação cliente com os ClientDataSet das tabelas. Em qual das duas aplicações devo colocar o componente SQLStoredProcedure e como deve ser seu DataSource? Grato Adolfo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Stored Procedure com Mysql 5
A Stored Procedure abaixo dá erro de Sintaxe. Alguem pode me ajudar? Grato create procedure Sp_consolidado (ContaVarchar (16), Ano Numeric (10), Superior Varchar (16), Grau Numeric (01), Jan_deb Numeric (11,02), Jan_cred Numeric (11,02), Fev_deb Numeric (11,02), Fev_cred Numeric (11,02), Mar_deb Numeric (11,02), Mar_cred Numeric (11,02), Abr_deb Numeric (11,02), Abr_cred Numeric (11,02), Mai_deb Numeric (11,02), Mai_cred Numeric (11,02), Jun_deb Numeric (11,02), Jun_cred Numeric (11,02), Jul_deb Numeric (11,02), Jul_cred Numeric (11,02), Ago_deb Numeric (11,02), Ago_cred Numeric (11,02), Set_deb Numeric (11,02), Set_cred Numeric (11,02), Out_deb Numeric (11,02), Out_cred Numeric (11,02), Nov_deb Numeric (11,02), Nov_cred Numeric (11,02), Dez_deb Numeric (11,02), Dez_cred Numeric (11,02)) begin if (EXISTS(SELECT(conta_consolid,ano_consolid) from Consolidado where (conta_consolid,ano_consolid) = (Conta,Ano) update Consolidado set Jan_deb_consolid = Jan_deb_consolid + Jan_deb, Jan_cred_consolid = Jan_cred_consolid + Jan_cred, Fev_deb_consolid = Fev_deb_consolid + Fev_deb, Fev_cred_consolid = Fev_cred_consolid + Fev_cred, Mar_deb_consolid = Mar_deb_consolid + Mar_deb, Mar_cred_consolid = Mar_cred_consolid + Mar_cred, Abr_deb_consolid = Abr_deb_consolid + Abr_deb, Abr_cred_consolid = Abr_cred_consolid + Abr_cred, Mai_deb_consolid = Mai_deb_consolid + Mai_deb, Mai_cred_consolid = Mai_cred_consolid + Mai_cred, Jun_deb_consolid = Jun_deb_consolid + Jun_deb, Jun_cred_consolid = Jun_cred_consolid + Jun_cred, Jul_deb_consolid = Jul_deb_consolid + Jul_deb, Jul_cred_consolid = Jul_cred_consolid + Jul_cred, Ago_deb_consolid = Ago_deb_consolid + Ago_deb, Ago_cred_consolid = Ago_cred_consolid + Ago_cred, Set_deb_consolid = Set_deb_consolid + Set_deb, Set_cred_consolid = Set_cred_consolid + Set_cred, Out_deb_consolid = Out_deb_consolid + Out_deb, Out_cred_consolid = Out_cred_consolid + Out_cred, Nov_deb_consolid = Nov_deb_consolid + Nov_deb, Nov_cred_consolid = Nov_cred_consolid + Nov_cred, Dez_deb_consolid = Dez_deb_consolid + Dez_deb, Dez_cred_consolid = Dez_cred_consolid + Dez_cred where Conta_consolid = Conta and Ano_consolid = Ano ELSE INSERT into Consolidado (Conta_consolid ano_consolid, superior_consolid, grau_consolid, Jan_deb_consolid, Jan_cred_consolid, Fev_deb_consolid, Fev_cred_consolid, Mar_deb_consolid, Mar_cred_consolid, Abr_deb_consolid, Abr_cred_consolid, Mai_deb_consolid, Mai_cred_consolid, Jun_deb_consolid, Jun_cred_consolid, Jul_deb_consolid, Jul_cred_consolid, Ago_deb_consolid, Ago_cred_consolid, Set_deb_consolid, Set_cred_consolid, Out_deb_consolid, Out_cred_consolid, Nov_deb_consolid, Nov_cred_consolid, Dez_deb_consolid, Dez_cred_consolid) VALUES (Conta, Ano, Superior, Grau, Jan_deb, Jan_cred, Fev_deb, Fev_cred, Mar_deb, Mar_cred, Abr_deb, Abr_cred, Mai_deb, Mai_cred, Jun_deb, Jun_cred, Jul_deb, Jul_cred, Ago_deb, Ago_cred, Set_deb, Set_cred, Out_deb, Out_cred, Nov_deb, Nov_cred, Dez_deb, Dez_cred); end [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Sistema para Pocket PC
A partir de uma matéria da Clube Delphi, estou a tentar desenvolver um sistema para Pocket PC. Na revista e´usado o Delphi 2006 com o respectivo Compact Framework Builder for Delphi 2006; como eu uso o Delphi 2009, pergunto: não existe Compact Framework Builder for Delphi 2009? Ou não e´necessário o uso desta ferramenta? Caso não exita ou não seja necessária a ferramenta, onde posso achar alguma matéria a respeito do assunto? Grato [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Consulta entre 2 bancos firebird independentes
Discordo. Tebho um sistema, adessando normalmente dois bancos de dados em FB 2.0. - Original Message - From: Ricardo César Cardoso To: delphi-br@yahoogrupos.com.br Sent: Thursday, December 04, 2008 12:07 AM Subject: Re: [delphi-br] Consulta entre 2 bancos firebird independentes Not yet. Ainda não. Parece que tá na mira do FB 2.5 mas com certeza já estará no FB 3.0 (pelo menos foi o que andei lendo em alguma lista internet afora...) []'s Ricardo. __ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qua, 3/12/08, Tiago Miranda - Coisarada Materiais Elétricos [EMAIL PROTECTED] escreveu: De: Tiago Miranda - Coisarada Materiais Elétricos [EMAIL PROTECTED] Assunto: [delphi-br] Consulta entre 2 bancos firebird independentes Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 3 de Dezembro de 2008, 22:02 Olá; Preciso fazer uma consulta envolvendo tabelas que estão em 2 bancos firebird separados... É possível? Sugestões? Desde já agradeço. Tiago B. Miranda Coisarada Materiais Elétricos Ltda R. Pedro Alvares Cabral - 415 - Coral - Lages - SC Fone: +55 49 3251-9000 blocked::http://www.coisarad a.net/ http://www.coisarad a.net Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Driver DBX4 para MySQL no Delphi 2009
Encontrei, obrigado. Vou começar alguns testes; caso precise de ajuda, retorno. Grato - Original Message - From: Andreano Lanusse To: delphi-br@yahoogrupos.com.br Sent: Friday, November 28, 2008 5:22 AM Subject: RE: [delphi-br] Driver DBX4 para MySQL no Delphi 2009 Adolfo, O Delphi 2009 tem driver pra MySQL. Você não está encontrando? From: delphi-br@yahoogrupos.com.br [EMAIL PROTECTED] On Behalf Of Adolfo Stotz [EMAIL PROTECTED] Sent: Thursday, November 27, 2008 8:27 PM To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Driver DBX4 para MySQL no Delphi 2009 Existe driver para usar DBX4 no Delphi 2009 com BD Mysql ? Onde encontrar ? Grato Adolfo [As partes desta mensagem que não continham texto foram removidas] CONFIDENTIALITY NOTICE: This email message is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. If you are not the intended recipient, please contact the sender by reply email and destroy all copies of the original message. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Driver DBX4 para MySQL no Delphi 2009
Existe driver para usar DBX4 no Delphi 2009 com BD Mysql ? Onde encontrar ? Grato Adolfo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] PRECISA-SE DE PROGRAMADOR DELPHI
Tenho um sistema hospitalar praticamento pronto (só falta integrar ao sistema a parte de coleta de dados do paciente prlo Pocket PC e a parte de medicação padrão para cada CID). Se interessar, podemos conversar. Grato Adolfo - Original Message - From: Marcelo Carvalho To: delphi-br@yahoogrupos.com.br ; [EMAIL PROTECTED] ; [EMAIL PROTECTED] Sent: Friday, August 29, 2008 8:36 AM Subject: [delphi-br] PRECISA-SE DE PROGRAMADOR DELPHI Bom Dia, Estamos a procura de um programador Delphi para trabalhar com sistema hospitalar, em Porto Alegre/RS Marcelo Carvalho [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Problemas com IntraWeb
Uso o Delphi 2005. Quando vou criar um novo form com IntraWeb, ao clicar em Form - New - Other - IntraWeb - New Form - Application Form, aparecem os erros Error creating form: Identifier expected on line 1. The project already contains a form or module named IWForm1. Mas não existia anteriormente o IWForm1, ele eh criado neste momento, mas não eh gravado nenhum arquivo .pas ou .dfm ou .dcu, porem aparece no Project a Unit IWForm1 sem Form associado a ele. O que poderia estar acontecendo ? Grato [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Não permitir uma segunda execu ção do programa
Usei o codigo abaixo
var
MutexHandle : THandle;
hwind : HWND;
begin
MutexHandle := CreateMutex(nil,True,'MCTAgente');
if (MutexHandle 0) then
begin
if GetLastError = ERROR_ALREADY_EXISTS then
begin
Application.MessageBox('Este programa já está em execução!','Café
Colonial', 0);
CloseHandle(MutexHandle);
hwind:=0;
repeat
hwind:=Windows.FindWindowEx(0,hwind,'TApplication','My sampleapp');
until (hwindApplication.Handle);
if (hwind0) then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TDmodule, Dmodule);
Application.CreateForm(Tfrm_usuar001, frm_usuar001);
Application.CreateForm(Tfrm_fatur801, frm_fatur801);
Application.CreateForm(Tfrm_receb801, frm_receb801);
Application.Run;
end;
Halt;
end
end;
Ao compilar o programa (uso o Delphi 2008), aparecem os erros:
[Error] Cafe_Colonial.dpr(390): E2003 Undeclared identifier: 'HWND'
[Error] Cafe_Colonial.dpr(392): E2003 Undeclared identifier: 'CreateMutex'
[Error] Cafe_Colonial.dpr(395): E2003 Undeclared identifier:
'ERROR_ALREADY_EXISTS'
[Error] Cafe_Colonial.dpr(398): E2003 Undeclared identifier: 'CloseHandle'
[Error] Cafe_Colonial.dpr(401): E2003 Undeclared identifier: 'Windows'
[Warning] Cafe_Colonial.dpr(402): W1023 Comparing signed and unsigned types -
widened both operands
[Warning] Cafe_Colonial.dpr(403): W1023 Comparing signed and unsigned types -
widened both operands
[Error] Cafe_Colonial.dpr(427): E2018 Record, object or class type required
- Original Message -
From: José Mário Silva Guedes
To: delphi-br@yahoogrupos.com.br
Sent: Friday, January 11, 2008 9:12 AM
Subject: Re: [delphi-br] Re: Não permitir uma segunda execução do programa
Sempre uso o código como no exemplo abaixo (Coloque no DPR):
var
MutexHandle : THandle;
hwind : HWND;
begin
MutexHandle := CreateMutex(nil,True,'MCTAgente');
if (MutexHandle 0) then
begin
if GetLastError = ERROR_ALREADY_EXISTS then
begin
MessageBox(0, 'Este programa já está em execução!','', mb_IconHand);
CloseHandle(MutexHandle);
hwind:=0;
repeat
hwind:=Windows.FindWindowEx(0,hwind,'TApplication','My sampleapp');
until (hwindApplication.Handle);
if (hwind0) then
begin
Windows.ShowWindow(hwind,SW_SHOWNORMAL);
Windows.SetForegroundWindow(hwind);
end;
Halt;
end
end;
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Re: Não permitir uma segunda execu ção do programa
Desculpem, mas encontrei o erro e tudo está perfeito. Grato pela atenção.
- Original Message -
From: Adolfo Stotz
To: delphi-br@yahoogrupos.com.br
Sent: Friday, January 11, 2008 11:14 AM
Subject: Re: [delphi-br] Re: Não permitir uma segunda execução do programa
Usei o codigo abaixo
var
MutexHandle : THandle;
hwind : HWND;
begin
MutexHandle := CreateMutex(nil,True,'MCTAgente');
if (MutexHandle 0) then
begin
if GetLastError = ERROR_ALREADY_EXISTS then
begin
Application.MessageBox('Este programa já está em execução!','Café Colonial',
0);
CloseHandle(MutexHandle);
hwind:=0;
repeat
hwind:=Windows.FindWindowEx(0,hwind,'TApplication','My sampleapp');
until (hwindApplication.Handle);
if (hwind0) then
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TDmodule, Dmodule);
Application.CreateForm(Tfrm_usuar001, frm_usuar001);
Application.CreateForm(Tfrm_fatur801, frm_fatur801);
Application.CreateForm(Tfrm_receb801, frm_receb801);
Application.Run;
end;
Halt;
end
end;
Ao compilar o programa (uso o Delphi 2008), aparecem os erros:
[Error] Cafe_Colonial.dpr(390): E2003 Undeclared identifier: 'HWND'
[Error] Cafe_Colonial.dpr(392): E2003 Undeclared identifier: 'CreateMutex'
[Error] Cafe_Colonial.dpr(395): E2003 Undeclared identifier:
'ERROR_ALREADY_EXISTS'
[Error] Cafe_Colonial.dpr(398): E2003 Undeclared identifier: 'CloseHandle'
[Error] Cafe_Colonial.dpr(401): E2003 Undeclared identifier: 'Windows'
[Warning] Cafe_Colonial.dpr(402): W1023 Comparing signed and unsigned types -
widened both operands
[Warning] Cafe_Colonial.dpr(403): W1023 Comparing signed and unsigned types -
widened both operands
[Error] Cafe_Colonial.dpr(427): E2018 Record, object or class type required
- Original Message -
From: José Mário Silva Guedes
To: delphi-br@yahoogrupos.com.br
Sent: Friday, January 11, 2008 9:12 AM
Subject: Re: [delphi-br] Re: Não permitir uma segunda execução do programa
Sempre uso o código como no exemplo abaixo (Coloque no DPR):
var
MutexHandle : THandle;
hwind : HWND;
begin
MutexHandle := CreateMutex(nil,True,'MCTAgente');
if (MutexHandle 0) then
begin
if GetLastError = ERROR_ALREADY_EXISTS then
begin
MessageBox(0, 'Este programa já está em execução!','', mb_IconHand);
CloseHandle(MutexHandle);
hwind:=0;
repeat
hwind:=Windows.FindWindowEx(0,hwind,'TApplication','My sampleapp');
until (hwindApplication.Handle);
if (hwind0) then
begin
Windows.ShowWindow(hwind,SW_SHOWNORMAL);
Windows.SetForegroundWindow(hwind);
end;
Halt;
end
end;
[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]
[delphi-br] Dificuldades com SQL
Utilizo o codigo abaixo, mas ao executar esta rotina, aparece o erro:
DsLanccorT : field 'CODIGO_LANCCOR not found'. Este campo esta definido na
Tabela LanccorT O que estarça ocorrendo ?
Grato
Adolfo
procedure Tfrm_corre222.datamenorExit(Sender: TObject);
var
soma_debitos : currency;
soma_creditos : currency;
begin
soma_debitos :=0;
soma_creditos :=0;
with Dmodule.DsLanccorT do
begin
close;
SelectSQL.Text :=
'select sum(DEBITO_LANCCOR) as soma_debitos, sum(CREDITO_LANCCOR) as
soma_creditos from LANCCORT where corrent_lanccor = :conta_aux and data_lanccor
= :datamenos';
paramByName('conta_aux').asString := codigo.Text;
paramByName('datamenos').asDate := datamenor.DateTime;
open;
end;
saldo_inicial := soma_debitos - soma_creditos;
saldo.Text := currtostr(saldo_inicial);
end;
[As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Deletar linhas
È uma tabela que deve ser atualizada duranre a execução do prograna, com os numeros de lore de produto que esta sendo faturado. - Original Message - From: Robson To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 20, 2007 9:39 PM Subject: Res: [delphi-br] Deletar linhas Perguntinha básica, mas pq vc quer apagar linha por linha Kaputz, Robson Skype: kaputz_gri - Mensagem original De: Rubem Nascimento da Rocha [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 20 de Setembro de 2007 16:50:35 Assunto: RE: [delphi-br] Deletar linhas Puro erro de lógica! Quando vc faz o Delete(), na hora vc já se posiciona no registro seguinte, por isso não precisa desse Next(). Reavalie a lógica desse laço. Sds. To: [EMAIL PROTECTED] os.com.brFrom: [EMAIL PROTECTED] com.brDate: Thu, 20 Sep 2007 16:43:38 -0300Subject: [delphi-br] Deletar linhas Usando o codigo abaixo, a cada execução, sao apagadas as linhas impares, mas as linhas pares nao sao deletadas. Porque ? Como fazer para acertar ?Grato-- - - - - - ---beginwith Dmodule.DsTotLotesP AT dobeginDmodule. DsTotLotesPAT. Close;Dmodule. DsTotLotesPAT. Open;Dmodule. DsTotLotesPAT. First;while not Dmodule.DsTotLotesP AT.Eof dobeginDmodule. DsTotLotesPAT. Delete;Dmodule. DsTotLotesPAT. Next;end; end;Dmodule. DsTotLotesPAT. Close;--- - - - - - - -[As partes desta mensagem que não continham texto foram removidas] _ _ _ _ _ _ Receba GRÁTIS as últimas novidades do esporte direto no seu Messenger! http://signup. alerts.live. com/alerts/ login.do? PINID=37485679 returnURL= http://www. nivea.com. br [As partes desta mensagem que não continham texto foram removidas] Flickr agora em português. Você clica, todo mundo vê. http://www.flickr.com.br/ [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br]
Usando o codigo abaixo, a cada execução, sao apagadas ad linhas impares, mas as linhas áres nao sao deletadas. Porque ? Como fazer para acertar ? Grato -- begin with Dmodule.DsTotLotesPAT do begin Dmodule.DsTotLotesPAT.Close; Dmodule.DsTotLotesPAT.Open; Dmodule.DsTotLotesPAT.First; while not Dmodule.DsTotLotesPAT.Eof do begin Dmodule.DsTotLotesPAT.Delete; Dmodule.DsTotLotesPAT.Next; end; end; Dmodule.DsTotLotesPAT.Close; [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Deletar linhas
Usando o codigo abaixo, a cada execução, sao apagadas as linhas impares, mas as linhas pares nao sao deletadas. Porque ? Como fazer para acertar ? Grato -- begin with Dmodule.DsTotLotesPAT do begin Dmodule.DsTotLotesPAT.Close; Dmodule.DsTotLotesPAT.Open; Dmodule.DsTotLotesPAT.First; while not Dmodule.DsTotLotesPAT.Eof do begin Dmodule.DsTotLotesPAT.Delete; Dmodule.DsTotLotesPAT.Next; end; end; Dmodule.DsTotLotesPAT.Close; [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Limpar conteudo de uma tabela
Como eh posssivel apagar todas as linhas de uma tabela, usando SQL ? Grato Adolfo [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Limpar conteudo de uma tabela
Porem, apos a deleção da tabela, ao fazer um locate, retorna um erro de Access violation. O que pode estar ocorrendo ? Grato Adolfo - Original Message - From: Andreano Lanusse To: delphi-br@yahoogrupos.com.br Sent: Thursday, September 20, 2007 2:15 AM Subject: RE: [delphi-br] Limpar conteudo de uma tabela Delete from NOME_DA_TABELA []'s Andreano Lanusse CodeGear Product Line Manager Evangelist Leader Latin America Blog: http://blogs.codegear.com/andreanolanusse http://blogs.codegear.com/andreanolanusse Exemplos: http://cc.codegear.com/Author/38483 http://cc.codegear.com/Author/38483 From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Adolfo Stotz Sent: Wednesday, September 19, 2007 10:05 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Limpar conteudo de uma tabela Como eh posssivel apagar todas as linhas de uma tabela, usando SQL ? Grato Adolfo [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]
[delphi-br] Rave
Uso o Delphi 2005 e o Rave 6.0 BE. Criei um form (relat01) e inseri um componente TRVProject, um componente TRVDataSetConnection e um componente TRVSystem. Desenhei o relatorio e o Prewiew mostra tudo normalmente. A dúvida eh de como mandar imprimir o relatório, quando executo o programa relat01. Grato Adolfo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] TIdAttachment
Em que palheta do Delphi 2005, eu encontro o componente TIdAttachment, para anexar arquivos a serem enviados por email ? Grato Adolfo [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Envio de e-mail com delphi 2005 e Indy
O programa listado abaixo, não envia o e-mail e retorna o erro `malformed auth
input (#5,5,4)´. Oque estou fazendo de errado?
Grato
Adolfo
unit acad401;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, ComCtrls, ToolWin, ExtCtrls, ImgList,
Menus, ShellApi, Db, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase, IdMessageClient, IdSMTPBase,
IdSMTP, IdMessage;
type
Tfrm_acad401 = class(TForm)
mmMensagem: TMemo;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
edAssunto: TEdit;
ControlBar1: TControlBar;
ToolBar1: TToolBar;
btnEnvia: TBitBtn;
ToolButton1: TToolButton;
btnAnexo: TBitBtn;
Label4: TLabel;
edAnexo: TEdit;
Abrir: TOpenDialog;
btnExcluiAnexos: TBitBtn;
StatusBar1: TStatusBar;
MainMenu1: TMainMenu;
Arquivo1: TMenuItem;
Fechar1: TMenuItem;
Anexos1: TMenuItem;
AnexarArquivos1: TMenuItem;
ExcluirAnexos1: TMenuItem;
EnviarEMail1: TMenuItem;
N1: TMenuItem;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
btnFechar: TBitBtn;
cmbDe: TEdit;
edPara: TComboBox;
IdSMTP: TIdSMTP;
IdMessage: TIdMessage;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure btnEnviaClick(Sender: TObject);
procedure btnAnexoClick(Sender: TObject);
procedure btnExcluiAnexosClick(Sender: TObject);
procedure EnviarEMail1Click(Sender: TObject);
procedure AnexarArquivos1Click(Sender: TObject);
procedure ExcluirAnexos1Click(Sender: TObject);
procedure Fechar1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btnFecharClick(Sender: TObject);
procedure edParaExit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure Limpa(Sender: TObject);
procedure Habilita(bEnable:Boolean);
end;
var
frm_acad401: Tfrm_acad401;
email_aluno: string;
implementation
uses Udm;
{$R *.DFM}
{***}
procedure Tfrm_acad401.Limpa(Sender: TObject);
begin
cmbDe.Text := '[EMAIL PROTECTED]';
edPara.Text := '';
edAssunto.Text := '';
edAnexo.text := '';
mmMensagem.Lines.Clear;
end;
procedure Tfrm_acad401.Habilita(bEnable:Boolean);
begin
Arquivo1.Enabled := bEnable;
Anexos1.Enabled := bEnable;
btnEnvia.Enabled := bEnable;
btnAnexo.Enabled := bEnable;
btnExcluiAnexos.Enabled := bEnable;
btnFechar.Enabled := bEnable;
end;
{***}
procedure Tfrm_acad401.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
DM.IBDataSetAlunos.Close;
frm_acad401 := nil;
action := cafree;
DM.IBTransaction.Commit;
end;
procedure Tfrm_acad401.btnEnviaClick(Sender: TObject);
var xAnexo: integer;
begin
if edPara.Text = '' then
begin
ShowMessage('O campo Para deve ser preenchido.');
edPara.SetFocus;
Exit;
end;
if edAssunto.Text = '' then
begin
ShowMessage('O campo Assunto deve ser preenchido.');
edAssunto.SetFocus;
Exit;
end;
Habilita(False);
cmbDe.Text := '[EMAIL PROTECTED]';
IdSMTP.Host := 'smtp.floripa.com.br';
IdSMTP.Username := 'Harger Ensino Jurídico';
IdMessage.Recipients.EMailAddresses := edPara.text;
IdMessage.Subject := edAssunto.Text;
IdMessage.Body := mmMensagem.Lines;
IdSMTP.Connect; // Conecta no servidor
Try
IdSMTP.Send(Idmessage); // Envia email
beep;
ShowMessage('Mensagem enviada com sucesso!');
Limpa(Sender);
Habilita(True);
Except
beep;
ShowMessage('A sua mensagem não pode ser enviada!');
Habilita(True);
end; // Try
IdSMTP.Disconnect;
end;
procedure Tfrm_acad401.btnAnexoClick(Sender: TObject);
begin
Abrir.Title := 'Selecione os arquivos desejados';
if not Abrir.Execute then Exit;
if edAnexo.Text '' then
edAnexo.Text := edAnexo.Text +' , '+ Abrir.FileName
else
edAnexo.Text := Abrir.FileName;
IdMessage.AttachmentEncoding := Abrir.FileName;
end;
procedure Tfrm_acad401.btnExcluiAnexosClick(Sender: TObject);
begin
if edAnexo.Text = '' then Exit;
edAnexo.Text := '';
end;
procedure Tfrm_acad401.EnviarEMail1Click(Sender: TObject);
begin
btnEnviaClick(Sender);
end;
procedure Tfrm_acad401.AnexarArquivos1Click(Sender: TObject);
begin
btnAnexoClick(Sender);
end;
procedure Tfrm_acad401.ExcluirAnexos1Click(Sender: TObject);
begin
btnExcluiAnexosClick(Sender);
end;
procedure Tfrm_acad401.Fechar1Click(Sender: TObject);
begin
Close;
end;
procedure Tfrm_acad401.FormCreate(Sender: TObject);
begin
cmbDe.Text := '[EMAIL PROTECTED]';
//edPara.SetFocus;
with DM.IBDataSetAlunos do
begin
close;
SelectSQL.Text :=
'select * from ALUNOS order by Nome_alu';
open;
end;
edPara.Items.Clear;
DM.IBDataSetAlunos.Close;
DM.IBDataSetAlunos.Open;
DM.IBDataSetAlunos.First;
While not DM.IBDataSetAlunos.Eof do
begin
edPara.Items.Add(DM.IBDataSetAlunosNOME_ALU.Value);
DM.IBDataSetAlunos.Next;
end;
//DM.IBDataSetAlunos.Close;
end;
procedure
[delphi-br] Re: IBTable X IBDataset
Quando estou usando um IBTable, qual o comando SQL que substitui o SelectSQL.Text, que eu uso com o IBDataset ? Grato Adolfo -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] Artigos/Apostilas Delphi 2005
Instalei o Delphi 2005 e agora preciso de material de consulta para aprender dotNET. Alguem pode me ajudar ? Grato Adolfo [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
[delphi-br] ibxdp605.exe
Preciso do componente acima, mas não consigo baixar do site da Borland. Alguém pode me ajudar ? Grato Adolfo ([EMAIL PROTECTED]) [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
