Re: [delphi-br] Dúvida.

[Eduardo Silva dos Santos]

Eu acho esse tipo de divisão totalmente desnecessários e no futuro vai te
dar trabalho

a menos que vc vá cadastrar mais de um endereço pra cada aluno, coloca tudo
na tabela alunos.

2008/5/30 nullycampos2 <[EMAIL PROTECTED]>:

>   Espero que possam me ajudar, ficaria muito agradecida.
> Tenho algumas dúvidas referentes, a alguns campos de tabela. Estou
> desenvolvendo um Sistema de Gerenciamento de um Escola. Eu teria que
> criar uma tabela Endereço para Endereço do Aluno, e outra tabela
> Endereço para Endereço dos Professores? Ou poderia na mesma tabela
> inserir dois Campos Endereco_Aluno e Endereco-Professor?
>
> Desde já agradeço.
> Estou utilizando as tabelas do Interbase.
>
>  
>



-- 
...
Eduardo Silva dos Santos
DRD Sistemas.
(27) 3218-4201
MSN: [EMAIL PROTECTED]
Site: http://www.drdsistemas.com.br/
...


[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Cobol

[Wagne®_Fix]

Pessoal estou com um sistema cobol com banco de dados .dbf
 
Vocês conhecem algum software que converte para sql ou algo parecido?
 
Valeus


  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Componente

[Rodrigo Magno]

Amigos Delphianos,
Estou precisando da ajudo do grupo, gostaria de saber se alguem utiliza a dll 
IPCoreUtils.dll aonde eu posso conseguir sera que alguem poderia me informar.
Grato pela atenção de todos.
 
Rodrigo  Magno 

[EMAIL PROTECTED]
msn    [EMAIL PROTECTED]


  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Dúvida.

[nullycampos2]

Espero que possam me ajudar, ficaria muito agradecida.
Tenho algumas dúvidas referentes, a alguns campos de tabela. Estou 
desenvolvendo um Sistema de Gerenciamento de um Escola. Eu teria que 
criar uma tabela Endereço para Endereço do Aluno, e outra tabela 
Endereço para Endereço dos Professores? Ou poderia na mesma tabela 
inserir dois Campos Endereco_Aluno e Endereco-Professor? 

Desde já agradeço.
Estou utilizando as tabelas do Interbase.

Re: Res: [delphi-br] DBExpress x FireBird 2 x UIB IMPORTANTE LEIAM POR FAVOR

[alineri]

Oi Eduardo,

Isso depende, porque o execsql e uma instrucao que ira gerar
"gravacao" no banco essa "gravacao"  ainda nao esta salva, quando
inicio uma transacao comecamos a salvar essa "gravacao" identificando
atraves da transacao ( id transaction ) depois termino de salvar dando
um commit.

quando o Default Transaction = TACommit; sempre que um dataset for
fechado ele vai dar um commit; se voce chamar uma transacao em
seguida, vai dar erro, porque nao podemos iniciar transacoes em
tabelas fechadas.

no caso do nosso amigo que esta utilizando sqldatasets para as
operacoes insert , delete, update e consulta, para dar um rollback
utilizando o exemplo que passei seria assim


try 
  dataset1.close;
  
  Sqldataset1.commandtext := 'insert .';
  Sqldataset1.parambyname( .

  SqlDataSet.ExecSQL;
  MinhaTransacao.TransactionID := 1;
  MinhaTransacao.IsolationLevel := xilREPEATABLEREAD;
  SQLConnection.StartTransaction(Transacao)
  SQLConnection.Commit(Transacao);

  SqlDataSet.Close;


Except
  on Exc:Exception do
   begin
SQLConnection.Rollback(Transacao);
MessageDlg('Erro:'+#10#10+Exc.Message,mtError,[mbOK],0); 
   end; 
end;

dessa forma temos tudo transacoes commit e rollback

voltando ao assunto de compilar uma nova dll , se alguem tiver o
delphi 7 por ai, tenta compilar novamente essa dll da UIB novamente
para verificar se tiveram realmente melhorias ou nao

volto a dizer que o driver que utilizo e o UIB trabalho com meus
sistemas com o formato que coloquei acima com campos blob e esta tudo
funcionando

mas confesso que se tivesse grana hoje compraria o drive da crlab,
testei o demo, e o muito bom

um forte abarco a todos
[]s
alineri
  








--- Em delphi-br@yahoogrupos.com.br, "Eduardo Silva dos Santos"
<[EMAIL PROTECTED]> escreveu
>
> >>>Faca o seguinte:
> 
> >>> SQLDataSet1. CommandText := 'insert into table (codigo) values (1)';
> >>> SQLDataSet1. ExecSQL;
> >>> StartTransaction;
> >>> commit;
> 
> Olá Alineri... Startar a transação depois de executar o comando não faz
> sentido.. e se quiser fazer um rollback..??
> 
> 2008/5/30 alineri <[EMAIL PROTECTED]>:
> 
> >   Ola Luciano,
> >
> > Estou utilizando firebird 2.1 + dbexpress com o Driver da UIB
> > E esta tudo funcionando perfeitamente, inclusive campos Blobs.
> >
> > Vamos aos seu problema primeiro.
> >
> > Realmente o seu codigo utilizando o driver do Interbase funciona Ok, a
> > diferenca acredito que esta realmente na forma como ambos os drivers
> > tratam as transacoes no dbexpress.
> >
> > Faca o seguinte:
> >
> > SQLDataSet1. CommandText := 'insert into table (codigo) values (1)';
> > SQLDataSet1. ExecSQL;
> > StartTransaction;
> > commit;
> >
> > basta voce startar a transacao apos o execsql e nao antes.
> >
> > essa foi a unica diferenca que encontrei dos drivers para IB e FB.
> >
> > Blobs funcionam normalmente com o drive da UIB
> >
> > Testa ai e verifica se vai funcionar.
> >
> > Em relacao ao close comitar esse problema nao sei como resolver
> > principalmente se estiver setado no driver da UIB Default Transaction
> > = TACommit, ele vai comitar assim que o close for chamado.
> >
> > a unica forma para evitar seria ao dar um open em uma consulta
> > relalizar todos os procedimentos dentro das suas rotinas e ao termino
> > da um close.
> >
> > um problema que estou tendo e para compilar a a dll da UIB
> > http://www.progdigy.com/modules.php?name=UIB
> >
> > existe um pacote novo a UIB2.1 ( componente de acesso ) so que essa
> > dll utiliza as implementacoes desse pacote de componentes que ja esta
> > adaptado para firebird 2.x, entao acredito que eeses error devam estar
> > corrigidos, o problema e que nao consigo compilar,utilizo o BDS 2006,
> > e nao reconhece o tipo de dados DBINAME e OIDViewFields no BDS 2006
> > existe DBINAME32 e OIDViewField se altero no font a Dll e gerada
> > normalmente mas nao funciona.
> >
> > Em alguns foruns ja verifiquei que a Dll consegue ser compilada sem
> > problemas na versao 7 do Delphi que nao tenho no momento. Um detalhe
> > antes de compilar o pacote da UIB e compilar a Dll e necessario
> > instalar o pacote SynEdit disponivel no link abaixo
> >
> >
http://sourceforge.net/project/downloading.php?group_id=3221&use_mirror=ufpr&filename=SynEdit-2_0_6.zip&75620534
> >
> > quem sabe se com esse compilacao o problema de controle de transacao
> > nao esta resolvido ?
> >
> > um forte abarco a todos
> >
> > []s
> > alineri
> >
> > --- Em delphi-br@yahoogrupos.com.br ,
> > Luciano Calenzani Simões
> >  escreveu
> > >
> > > Ninguém passou por este problema?
> > > Alguém está usando FireBirs 2 com esse driver UIB FireBird15?
> > >
> > > Luciano Calenzani Simões
> > >
> > >
> > >
> > >
> > >
> > > - Mensagem original 
> > > De: Luciano Calenzani Simões 
> > > Para: delphi-br@yahoogrupos.com.br 
> > > Enviadas: Quinta-feira, 29 de Maio de 2008 19:39:41
> > > Assunto: [delphi-br] DBExpress x FireBird 2 x UIB FireBird15
> > >
> > >
> > > O UIB FireBird15 para DBExpress com FireBird 2 t

Re: [delphi-br] Fontes disponiveis......

[Jose Eduardo Victorino]

Amigos estarei no msn para trocar as fontes e criarmos um grupo de amigos 
iniciantes para trocar duvidas,, meu msn eh

[EMAIL PROTECTED]

Espero vcs la,,


"O.S. Informática" <[EMAIL PROTECTED]> escreveu: 
Favor, me envie algumas fontes, obrigado
   tb me envie a sua relação amigo, grato.
   To começando agora e preciso desse empurrão
 
 Jose Eduardo Victorino <[EMAIL PROTECTED]> escreveu:
   Para o pessoal novo, calouro que esta começando agora, consegui 78 
tipos de fonte em delphi para trocar, me perdoe os avançados pois as vezes nao 
conseguimos ter o empurrao com os que deveriam dar,, e so pedir que mando via 
email
 
 
 
 
 Você já procurou no google?
 
 Eu fiz uma procura rápida e já encontrei alguns posts no fórum da codegear.
 
 De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Leandro 
Yahoo
 Enviada em: sexta-feira, 16 de maio de 2008 14:32
 Para: delphi-br@yahoogrupos.com.br
 Assunto: Re: [delphi-br] Componentes
 
 E com faria isso vc pode me mostrar um exemplo?
 
 - Original Message - 
 From: Alex Antunes 
 To: delphi-br@yahoogrupos.com.br  
 Sent: Friday, May 16, 2008 1:45 PM
 Subject: Re: [delphi-br] Componentes
 
 O que eu sei é através do envio de mensagens.
 
 Vc retorna o endereço de memória do componente.
 
 Alex
 
 - Original Message - 
 From: Leandro Santos 
 To: delphi-br@yahoogrupos.com.br  
 Sent: Friday, May 16, 2008 12:10 PM
 Subject: [delphi-br] Componentes
 
 Bom dia Pessoal
 
 Eu gostaria de saber se alguem sabe como eu posso pegar o nome de 
 componentes de uma outra aplicação, mas seria o name não o caption, 
 exemplo eu tenho project1 e nele tenho 3 botões btn_1, btn_2, btn_3 e 
 faço um outro projeto que eu passe o nome do project1 e consiga listar 
 o name desses 3 botões que estão na outra aplicação.
 
 Alguem conhece alguma Rotina que faço isso e tem algum programa de 
 exemplo que faça isso para que eu posso ter uam idéia?
 
 Obrigado
 Leandro Santos
 
 [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]
 
 -
 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 -
 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
   



   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] DBExpress x FireBird 2 x UIB FireBird15

[Eduardo Silva dos Santos]

Luciano, se vc quer ter paz e poder usar DBX com qualquer versão do
FireBird.. vale à pena investir um pouco nesse produto
http://crlab.com/dbx/

senão, vai ser essa agonia pra sempre.

2008/5/30 Luciano Calenzani Simões <[EMAIL PROTECTED]>:

>   Obrigado pela atenção pessoal.
>
> Inicialmente farei o teste de usar SQLQuery para os Inserts, Updats e
> Deletes e SQLDataSet para os Selects como o Sandro sugeriu.
>
> Eu tinha feito um teste usando tudo SQLQuery mas ocorre o mesmo problema.
> Mesclando os dois tipos (SQLQuery - SQLDataSet) ainda não testei.
>
> Em seguida farei os testes que o Alineri sugeriu. Vejo alguns problemas
> relacionados ao meu projeto, principalmente porque em alguns métodos, são
> disparados vários outros métodos de outras classes, que por sua vez poderão
> ter SELECTs. Vou estudar esse parâmetro UIB Default Transaction = TACommit
> que você citou.
>
> Eduardo, também fiquei intrigado com o StartTransaction após um ExecSQL.
> Creio que no meu caso isso não servirá, porque tenho vários ExecSQLs dentro
> de uma única transação.
>
> Estou pensando até em usar o FireBird 1.5 com o driver do Interbase.
> Luciano Calenzani Simões
>
> - Mensagem original 
> De: alineri <[EMAIL PROTECTED] >
> Para: delphi-br@yahoogrupos.com.br 
> Enviadas: Sexta-feira, 30 de Maio de 2008 19:32:40
> Assunto: Re: Res: [delphi-br] DBExpress x FireBird 2 x UIB IMPORTANTE LEIAM
> POR FAVOR
>
> Ola Luciano,
>
> Estou utilizando firebird 2.1 + dbexpress com o Driver da UIB
> E esta tudo funcionando perfeitamente, inclusive campos Blobs.
>
> Vamos aos seu problema primeiro.
>
> Realmente o seu codigo utilizando o driver do Interbase funciona Ok, a
> diferenca acredito que esta realmente na forma como ambos os drivers
> tratam as transacoes no dbexpress.
>
> Faca o seguinte:
>
> SQLDataSet1. CommandText := 'insert into table (codigo) values (1)';
> SQLDataSet1. ExecSQL;
> StartTransaction;
> commit;
>
> basta voce startar a transacao apos o execsql e nao antes.
>
> essa foi a unica diferenca que encontrei dos drivers para IB e FB.
>
> Blobs funcionam normalmente com o drive da UIB
>
> Testa ai e verifica se vai funcionar.
>
> Em relacao ao close comitar esse problema nao sei como resolver
> principalmente se estiver setado no driver da UIB Default Transaction
> = TACommit, ele vai comitar assim que o close for chamado.
>
> a unica forma para evitar seria ao dar um open em uma consulta
> relalizar todos os procedimentos dentro das suas rotinas e ao termino
> da um close.
>
> um problema que estou tendo e para compilar a a dll da UIB
> http://www.progdigy .com/modules. php?name= UIB
>
> existe um pacote novo a UIB2.1 ( componente de acesso ) so que essa
> dll utiliza as implementacoes desse pacote de componentes que ja esta
> adaptado para firebird 2.x, entao acredito que eeses error devam estar
> corrigidos, o problema e que nao consigo compilar,utilizo o BDS 2006,
> e nao reconhece o tipo de dados DBINAME e OIDViewFields no BDS 2006
> existe DBINAME32 e OIDViewField se altero no font a Dll e gerada
> normalmente mas nao funciona.
>
> Em alguns foruns ja verifiquei que a Dll consegue ser compilada sem
> problemas na versao 7 do Delphi que nao tenho no momento. Um detalhe
> antes de compilar o pacote da UIB e compilar a Dll e necessario
> instalar o pacote SynEdit disponivel no link abaixo
> http://sourceforge. net/project/ downloading. php?group_ id=3221&use_
> mirror=ufpr& filename= SynEdit-2_ 0_6.zip&75620534
>
> quem sabe se com esse compilacao o problema de controle de transacao
> nao esta resolvido ?
>
> um forte abarco a todos
>
> []s
> alineri
>
> --- Em [EMAIL PROTECTED] os.com.br, Luciano Calenzani Simões
>  escreveu
> >
> > Ninguém passou por este problema?
> > Alguém está usando FireBirs 2 com esse driver UIB FireBird15?
> >
> > Luciano Calenzani Simões
> >
> >
> >
> >
> >
> > - Mensagem original 
> > De: Luciano Calenzani Simões 
> > Para: [EMAIL PROTECTED] os.com.br
> > Enviadas: Quinta-feira, 29 de Maio de 2008 19:39:41
> > Assunto: [delphi-br] DBExpress x FireBird 2 x UIB FireBird15
> >
> >
> > O UIB FireBird15 para DBExpress com FireBird 2 tem problemas no
> gerenciamento de transação. Além daquele do campo BLOB já relatado
> nesta lista.
> >
> > Explico: Se dentro do contexto da transação tiver um
> SQLDataSet/SQLQuery /... fazendo um select em uma tabela, ao executar
> o SQLDataSet.Close ele" commita" a transação, e continua o
> procedimento normalmente. Se ocorrer algum erro após esse
> SQLDataSet.Close, as operações de I/O que foram feitas no início não
> serão desfeitas, mesmo sendo executado o RoolBack. Não deve estar
> acreditando, na hora eu também não acreditei.
> >
> > Fiz um teste com o mesmo código com o dirver Interbase e funciona
> perfeitamente. Mas esse driver não funciona perfeitamente com o
> FireBird 2.
> > Isso só acontece com operação de SELECT, se dentro da transação só
> tiver INSERT, UPDATE e DELETE irá funcionar perfeitamente.
> >
> > Código exemplo (síntese):

Res: [delphi-br] DBExpress x FireBird 2 x UIB FireBird15

[Luciano Calenzani Simões]

Obrigado pela atenção pessoal.

Inicialmente farei o teste de usar SQLQuery para os Inserts, Updats e Deletes e 
SQLDataSet para os Selects como o Sandro sugeriu.

Eu tinha feito um teste usando tudo SQLQuery mas ocorre o mesmo problema. 
Mesclando os dois tipos (SQLQuery - SQLDataSet) ainda não testei.

Em seguida farei os testes que o Alineri sugeriu. Vejo alguns problemas 
relacionados ao meu projeto, principalmente porque em alguns métodos, são 
disparados vários outros métodos de outras classes, que por sua vez poderão ter 
SELECTs. Vou estudar esse parâmetro UIB Default Transaction = TACommit que você 
citou.

Eduardo, também fiquei intrigado com o StartTransaction após um ExecSQL. Creio 
que no meu caso isso não servirá, porque tenho vários ExecSQLs dentro de uma 
única transação.


Estou pensando até em usar o FireBird 1.5 com o driver do Interbase.
 Luciano Calenzani Simões





- Mensagem original 
De: alineri <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 30 de Maio de 2008 19:32:40
Assunto: Re: Res: [delphi-br] DBExpress x FireBird 2 x UIB  IMPORTANTE LEIAM 
POR FAVOR


Ola Luciano,

Estou utilizando firebird 2.1 + dbexpress com o Driver da UIB 
E esta tudo funcionando perfeitamente, inclusive campos Blobs.

Vamos aos seu problema primeiro.

Realmente o seu codigo utilizando o driver do Interbase funciona Ok, a
diferenca acredito que esta realmente na forma como ambos os drivers
tratam as transacoes no dbexpress.

Faca o seguinte:

SQLDataSet1. CommandText := 'insert into table (codigo) values (1)';
SQLDataSet1. ExecSQL;
StartTransaction;
commit;

basta voce startar a transacao apos o execsql e nao antes. 

essa foi a unica diferenca que encontrei dos drivers para IB e FB.

Blobs funcionam normalmente com o drive da UIB

Testa ai e verifica se vai funcionar.

Em relacao ao close comitar esse problema nao sei como resolver
principalmente se estiver setado no driver da UIB Default Transaction
= TACommit, ele vai comitar assim que o close for chamado.

a unica forma para evitar seria ao dar um open em uma consulta
relalizar todos os procedimentos dentro das suas rotinas e ao termino
da um close.

um problema que estou tendo e para compilar a a dll da UIB
http://www.progdigy .com/modules. php?name= UIB

existe um pacote novo a UIB2.1 ( componente de acesso ) so que essa
dll utiliza as implementacoes desse pacote de componentes que ja esta
adaptado para firebird 2.x, entao acredito que eeses error devam estar
corrigidos, o problema e que nao consigo compilar,utilizo o BDS 2006,
e nao reconhece o tipo de dados DBINAME e OIDViewFields no BDS 2006
existe DBINAME32 e OIDViewField se altero no font a Dll e gerada
normalmente mas nao funciona.

Em alguns foruns ja verifiquei que a Dll consegue ser compilada sem
problemas na versao 7 do Delphi que nao tenho no momento. Um detalhe
antes de compilar o pacote da UIB e compilar a Dll e necessario
instalar o pacote SynEdit disponivel no link abaixo
http://sourceforge. net/project/ downloading. php?group_ id=3221&use_ 
mirror=ufpr& filename= SynEdit-2_ 0_6.zip&75620534

quem sabe se com esse compilacao o problema de controle de transacao
nao esta resolvido ?

um forte abarco a todos

[]s
alineri

--- Em [EMAIL PROTECTED] os.com.br, Luciano Calenzani Simões
 escreveu
>
> Ninguém passou por este problema?
> Alguém está usando FireBirs 2 com esse driver UIB FireBird15?
> 
>  Luciano Calenzani Simões
> 
> 
> 
> 
> 
> - Mensagem original 
> De: Luciano Calenzani Simões 
> Para: [EMAIL PROTECTED] os.com.br
> Enviadas: Quinta-feira, 29 de Maio de 2008 19:39:41
> Assunto: [delphi-br] DBExpress x FireBird 2 x UIB FireBird15
> 
> 
> O UIB FireBird15 para DBExpress com FireBird 2 tem problemas no
gerenciamento de transação. Além daquele do campo BLOB já relatado
nesta lista.
> 
> Explico: Se dentro do contexto da transação tiver um
SQLDataSet/SQLQuery /... fazendo um select em uma tabela, ao executar
o SQLDataSet.Close ele" commita" a transação, e continua o
procedimento normalmente. Se ocorrer algum erro após esse
SQLDataSet.Close, as operações de I/O que foram feitas no início não
serão desfeitas, mesmo sendo executado o RoolBack. Não deve estar
acreditando, na hora eu também não acreditei.
> 
> Fiz um teste com o mesmo código com o dirver Interbase e funciona
perfeitamente. Mas esse driver não funciona perfeitamente com o
FireBird 2.
> Isso só acontece com operação de SELECT, se dentro da transação só
tiver INSERT, UPDATE e DELETE irá funcionar perfeitamente.
> 
> Código exemplo (síntese):
> 
> begin
> ...
> StartTransaction;
> try
> SQLDataSet1. CommandText := 'insert into table (codigo) values (1)';
> SQLDataSet1. ExecSQL;
> SQLDataSet1. Close;
> 
> SQLDataSet1. CommandText := 'select * from table';
> SQLDataSet1. Open;
> SQLDataSet1. Close; // Aqui ele comita a transação automaticamente.
> 
> // Quando chegar aqui, o 1º insert já está comitado, se houver erro
daqui para frente ele não será desfeito.
> SQLDataSet1. Comman

Re: Res: [delphi-br] DBExpress x FireBird 2 x UIB IMPORTANTE LEIAM POR FAVOR

[Eduardo Silva dos Santos]

>>>Faca o seguinte:

>>> SQLDataSet1. CommandText := 'insert into table (codigo) values (1)';
>>> SQLDataSet1. ExecSQL;
>>> StartTransaction;
>>> commit;

Olá Alineri... Startar a transação depois de executar o comando não faz
sentido.. e se quiser fazer um rollback..??

2008/5/30 alineri <[EMAIL PROTECTED]>:

>   Ola Luciano,
>
> Estou utilizando firebird 2.1 + dbexpress com o Driver da UIB
> E esta tudo funcionando perfeitamente, inclusive campos Blobs.
>
> Vamos aos seu problema primeiro.
>
> Realmente o seu codigo utilizando o driver do Interbase funciona Ok, a
> diferenca acredito que esta realmente na forma como ambos os drivers
> tratam as transacoes no dbexpress.
>
> Faca o seguinte:
>
> SQLDataSet1. CommandText := 'insert into table (codigo) values (1)';
> SQLDataSet1. ExecSQL;
> StartTransaction;
> commit;
>
> basta voce startar a transacao apos o execsql e nao antes.
>
> essa foi a unica diferenca que encontrei dos drivers para IB e FB.
>
> Blobs funcionam normalmente com o drive da UIB
>
> Testa ai e verifica se vai funcionar.
>
> Em relacao ao close comitar esse problema nao sei como resolver
> principalmente se estiver setado no driver da UIB Default Transaction
> = TACommit, ele vai comitar assim que o close for chamado.
>
> a unica forma para evitar seria ao dar um open em uma consulta
> relalizar todos os procedimentos dentro das suas rotinas e ao termino
> da um close.
>
> um problema que estou tendo e para compilar a a dll da UIB
> http://www.progdigy.com/modules.php?name=UIB
>
> existe um pacote novo a UIB2.1 ( componente de acesso ) so que essa
> dll utiliza as implementacoes desse pacote de componentes que ja esta
> adaptado para firebird 2.x, entao acredito que eeses error devam estar
> corrigidos, o problema e que nao consigo compilar,utilizo o BDS 2006,
> e nao reconhece o tipo de dados DBINAME e OIDViewFields no BDS 2006
> existe DBINAME32 e OIDViewField se altero no font a Dll e gerada
> normalmente mas nao funciona.
>
> Em alguns foruns ja verifiquei que a Dll consegue ser compilada sem
> problemas na versao 7 do Delphi que nao tenho no momento. Um detalhe
> antes de compilar o pacote da UIB e compilar a Dll e necessario
> instalar o pacote SynEdit disponivel no link abaixo
>
> http://sourceforge.net/project/downloading.php?group_id=3221&use_mirror=ufpr&filename=SynEdit-2_0_6.zip&75620534
>
> quem sabe se com esse compilacao o problema de controle de transacao
> nao esta resolvido ?
>
> um forte abarco a todos
>
> []s
> alineri
>
> --- Em delphi-br@yahoogrupos.com.br ,
> Luciano Calenzani Simões
> <[EMAIL PROTECTED]> escreveu
> >
> > Ninguém passou por este problema?
> > Alguém está usando FireBirs 2 com esse driver UIB FireBird15?
> >
> > Luciano Calenzani Simões
> >
> >
> >
> >
> >
> > - Mensagem original 
> > De: Luciano Calenzani Simões <[EMAIL PROTECTED]>
> > Para: delphi-br@yahoogrupos.com.br 
> > Enviadas: Quinta-feira, 29 de Maio de 2008 19:39:41
> > Assunto: [delphi-br] DBExpress x FireBird 2 x UIB FireBird15
> >
> >
> > O UIB FireBird15 para DBExpress com FireBird 2 tem problemas no
> gerenciamento de transação. Além daquele do campo BLOB já relatado
> nesta lista.
> >
> > Explico: Se dentro do contexto da transação tiver um
> SQLDataSet/SQLQuery /... fazendo um select em uma tabela, ao executar
> o SQLDataSet.Close ele" commita" a transação, e continua o
> procedimento normalmente. Se ocorrer algum erro após esse
> SQLDataSet.Close, as operações de I/O que foram feitas no início não
> serão desfeitas, mesmo sendo executado o RoolBack. Não deve estar
> acreditando, na hora eu também não acreditei.
> >
> > Fiz um teste com o mesmo código com o dirver Interbase e funciona
> perfeitamente. Mas esse driver não funciona perfeitamente com o
> FireBird 2.
> > Isso só acontece com operação de SELECT, se dentro da transação só
> tiver INSERT, UPDATE e DELETE irá funcionar perfeitamente.
> >
> > Código exemplo (síntese):
> >
> > begin
> > ...
> > StartTransaction;
> > try
> > SQLDataSet1. CommandText := 'insert into table (codigo) values (1)';
> > SQLDataSet1. ExecSQL;
> > SQLDataSet1. Close;
> >
> > SQLDataSet1. CommandText := 'select * from table';
> > SQLDataSet1. Open;
> > SQLDataSet1. Close; // Aqui ele comita a transação automaticamente.
> >
> > // Quando chegar aqui, o 1º insert já está comitado, se houver erro
> daqui para frente ele não será desfeito.
> > SQLDataSet1. CommandText := 'insert into table (codigo) values (2)';
> > SQLDataSet1. ExecSQL;
> > SQLDataSet1. Close;
> >
> > CommitWork;
> > except
> > RollBack;
> > end;
> > end;
> >
> > Luciano Calenzani Simões
> >
> >
> >
> > Abra sua conta no Yahoo! Mail, o único sem limite de espaço
> para armazenamento!
> > http://br.mail.yahoo.com/
> >
> > [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.br/
...

Re: Res: [delphi-br] DBExpress x FireBird 2 x UIB IMPORTANTE LEIAM POR FAVOR

[alineri]

Ola Luciano,

Estou utilizando firebird 2.1 + dbexpress com o Driver da UIB 
E esta tudo funcionando perfeitamente, inclusive campos Blobs.

Vamos aos seu problema primeiro.

Realmente o seu codigo utilizando o driver do Interbase funciona Ok, a
diferenca acredito que esta realmente na forma como ambos os drivers
tratam as transacoes no dbexpress.

Faca o seguinte:

SQLDataSet1. CommandText := 'insert into table (codigo) values (1)';
SQLDataSet1. ExecSQL;
StartTransaction;
commit;

basta voce startar a transacao apos o execsql e nao antes. 

essa foi a unica diferenca que encontrei dos drivers para IB e FB.

Blobs funcionam normalmente com o drive da UIB

Testa ai e verifica se vai funcionar.

Em relacao ao close comitar esse problema nao sei como resolver
principalmente se estiver setado no driver da UIB Default Transaction
= TACommit, ele vai comitar assim que o close for chamado.

a unica forma para evitar seria ao dar um open em uma consulta
relalizar todos os procedimentos dentro das suas rotinas e ao termino
da um close.

um problema que estou tendo e para compilar a a dll da UIB
http://www.progdigy.com/modules.php?name=UIB

existe um pacote novo a UIB2.1 ( componente de acesso ) so que essa
dll utiliza as implementacoes desse pacote de componentes que ja esta
adaptado para firebird 2.x, entao acredito que eeses error devam estar
 corrigidos, o problema e que nao consigo compilar,utilizo o BDS 2006,
e nao reconhece o tipo de dados DBINAME e OIDViewFields no BDS 2006
existe DBINAME32 e OIDViewField se altero no font a Dll e gerada
normalmente mas nao funciona.

Em alguns foruns ja verifiquei que a Dll consegue ser compilada sem
problemas na versao 7 do Delphi que nao tenho no momento. Um detalhe
antes de compilar o pacote da UIB e compilar a Dll e necessario
instalar o pacote SynEdit disponivel no link abaixo
http://sourceforge.net/project/downloading.php?group_id=3221&use_mirror=ufpr&filename=SynEdit-2_0_6.zip&75620534

quem sabe se com esse compilacao o problema de controle de transacao
nao esta resolvido ?

um forte abarco a todos

[]s
alineri






--- Em delphi-br@yahoogrupos.com.br, Luciano Calenzani Simões
<[EMAIL PROTECTED]> escreveu
>
> Ninguém passou por este problema?
> Alguém está usando FireBirs 2 com esse driver UIB FireBird15?
> 
>  Luciano Calenzani Simões
> 
> 
> 
> 
> 
> - Mensagem original 
> De: Luciano Calenzani Simões <[EMAIL PROTECTED]>
> Para: delphi-br@yahoogrupos.com.br
> Enviadas: Quinta-feira, 29 de Maio de 2008 19:39:41
> Assunto: [delphi-br] DBExpress x FireBird 2 x UIB FireBird15
> 
> 
> O UIB FireBird15 para DBExpress com FireBird 2 tem problemas no
gerenciamento de transação. Além daquele do campo BLOB já relatado
nesta lista.
> 
> Explico: Se dentro do contexto da transação tiver um
SQLDataSet/SQLQuery /... fazendo um select em uma tabela, ao executar
o SQLDataSet.Close ele" commita" a transação, e continua o
procedimento normalmente. Se ocorrer algum erro após esse
SQLDataSet.Close, as operações de I/O que foram feitas no início não
serão desfeitas, mesmo sendo executado o RoolBack. Não deve estar
acreditando, na hora eu também não acreditei.
> 
> Fiz um teste com o mesmo código com o dirver Interbase e funciona
perfeitamente. Mas esse driver não funciona perfeitamente com o
FireBird 2.
> Isso só acontece com operação de SELECT, se dentro da transação só
tiver INSERT, UPDATE e DELETE irá funcionar perfeitamente.
> 
> Código exemplo (síntese):
> 
> begin
> ...
> StartTransaction;
> try
> SQLDataSet1. CommandText := 'insert into table (codigo) values (1)';
> SQLDataSet1. ExecSQL;
> SQLDataSet1. Close;
> 
> SQLDataSet1. CommandText := 'select * from table';
> SQLDataSet1. Open;
> SQLDataSet1. Close; // Aqui ele comita a transação automaticamente.
> 
> // Quando chegar aqui, o 1º insert já está comitado, se houver erro
daqui para frente ele não será desfeito.
> SQLDataSet1. CommandText := 'insert into table (codigo) values (2)';
> SQLDataSet1. ExecSQL;
> SQLDataSet1. Close;
> 
> CommitWork;
> except
> RollBack;
> end;
> end;
> 
> Luciano Calenzani Simões
> 
> 
> 
>   Abra sua conta no Yahoo! Mail, o único sem limite de espaço
para armazenamento!
> http://br.mail.yahoo.com/
> 
> [As partes desta mensagem que não continham texto foram removidas]
>

Re: [delphi-br] DBExpress x FireBird 2 x UIB FireBird15

[Sandro]

Tentou utilizar tsqlquery para executar instruções de insert, update e delete e 
usar o tsqldataset apenas para instruções de select?

  - Original Message - 
  From: Luciano Calenzani Simões 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, May 30, 2008 4:59 PM
  Subject: Res: [delphi-br] DBExpress x FireBird 2 x UIB FireBird15


  Ninguém passou por este problema?
  Alguém está usando FireBirs 2 com esse driver UIB FireBird15?

  Luciano Calenzani Simões

  - Mensagem original 
  De: Luciano Calenzani Simões <[EMAIL PROTECTED]>
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Quinta-feira, 29 de Maio de 2008 19:39:41
  Assunto: [delphi-br] DBExpress x FireBird 2 x UIB FireBird15

  O UIB FireBird15 para DBExpress com FireBird 2 tem problemas no gerenciamento 
de transação. Além daquele do campo BLOB já relatado nesta lista.

  Explico: Se dentro do contexto da transação tiver um SQLDataSet/SQLQuery /... 
fazendo um select em uma tabela, ao executar o SQLDataSet.Close ele" commita" a 
transação, e continua o procedimento normalmente. Se ocorrer algum erro após 
esse SQLDataSet.Close, as operações de I/O que foram feitas no início não serão 
desfeitas, mesmo sendo executado o RoolBack. Não deve estar acreditando, na 
hora eu também não acreditei.

  Fiz um teste com o mesmo código com o dirver Interbase e funciona 
perfeitamente. Mas esse driver não funciona perfeitamente com o FireBird 2.
  Isso só acontece com operação de SELECT, se dentro da transação só tiver 
INSERT, UPDATE e DELETE irá funcionar perfeitamente.

  Código exemplo (síntese):

  begin
  ...
  StartTransaction;
  try
  SQLDataSet1. CommandText := 'insert into table (codigo) values (1)';
  SQLDataSet1. ExecSQL;
  SQLDataSet1. Close;

  SQLDataSet1. CommandText := 'select * from table';
  SQLDataSet1. Open;
  SQLDataSet1. Close; // Aqui ele comita a transação automaticamente.

  // Quando chegar aqui, o 1º insert já está comitado, se houver erro daqui 
para frente ele não será desfeito.
  SQLDataSet1. CommandText := 'insert into table (codigo) values (2)';
  SQLDataSet1. ExecSQL;
  SQLDataSet1. Close;

  CommitWork;
  except
  RollBack;
  end;
  end;

  Luciano Calenzani Simões

  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
  http://br.mail.yahoo.com/

  [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] DBExpress x FireBird 2 x UIB FireBird15

[Luciano Calenzani Simões]

Ninguém passou por este problema?
Alguém está usando FireBirs 2 com esse driver UIB FireBird15?

 Luciano Calenzani Simões





- Mensagem original 
De: Luciano Calenzani Simões <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 29 de Maio de 2008 19:39:41
Assunto: [delphi-br] DBExpress x FireBird 2 x UIB FireBird15


O UIB FireBird15 para DBExpress com FireBird 2 tem problemas no gerenciamento 
de transação. Além daquele do campo BLOB já relatado nesta lista.

Explico: Se dentro do contexto da transação tiver um SQLDataSet/SQLQuery /... 
fazendo um select em uma tabela, ao executar o SQLDataSet.Close ele" commita" a 
transação, e continua o procedimento normalmente. Se ocorrer algum erro após 
esse SQLDataSet.Close, as operações de I/O que foram feitas no início não serão 
desfeitas, mesmo sendo executado o RoolBack. Não deve estar acreditando, na 
hora eu também não acreditei.

Fiz um teste com o mesmo código com o dirver Interbase e funciona 
perfeitamente. Mas esse driver não funciona perfeitamente com o FireBird 2.
Isso só acontece com operação de SELECT, se dentro da transação só tiver 
INSERT, UPDATE e DELETE irá funcionar perfeitamente.

Código exemplo (síntese):

begin
...
StartTransaction;
try
SQLDataSet1. CommandText := 'insert into table (codigo) values (1)';
SQLDataSet1. ExecSQL;
SQLDataSet1. Close;

SQLDataSet1. CommandText := 'select * from table';
SQLDataSet1. Open;
SQLDataSet1. Close; // Aqui ele comita a transação automaticamente.

// Quando chegar aqui, o 1º insert já está comitado, se houver erro daqui para 
frente ele não será desfeito.
SQLDataSet1. CommandText := 'insert into table (codigo) values (2)';
SQLDataSet1. ExecSQL;
SQLDataSet1. Close;

CommitWork;
except
RollBack;
end;
end;

Luciano Calenzani Simões



  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] etiquetas laboratório

[Sandro]

Na verdade a dúvida é como gerar etiquetas que os equipamentos que fazem as 
análise consigam ler e identificar qual o exame que deve ser feita a análise.
Vou usar impressora Zebra TLP-2844. Já tenho rotina que imprimem etiqueta para 
produtos.
Mas para laboratório tenho que gerar esta etiquetas com dados no padrão dos 
aparelhos e não estou encontrando esses padrões.
Ex.: Você coleta uma amostra sangue. No tubo dessa amostra será colada a 
etiqueta de barras dizendo quais os exames que o equipamento deverá fazer a 
análise. Numa mesma amostra podem ser feita várias análises ao mesmo tempo.
O equipamento é da Roche Elecsys 2010. Já procurei no site do fabricante e não 
encontrei.

Não sei se fui mais claro.

Mas valeu Filippe.

Abraço


  - Original Message - 
  From: Filippe Maymone 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, May 30, 2008 2:20 PM
  Subject: Re: [delphi-br] etiquetas laboratório


  Voce vai trabalhar com qual impressora ?? impressoras termicas ?? 
  Teria que ver qual a impressora, pois cada impressora termica tem sua 
linguagem de impressão... 

  Eu trabalho com impressoras que tem a linguagem ZPL, que são as impressoras 
da marca Zebra 

  Se for isso eu tenho alguns sistemas com essa linguagem...

  Abraços
  - Original Message - 
  From: Sandro 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, May 30, 2008 11:30 AM
  Subject: [delphi-br] etiquetas laboratório

  Bom dia,

  Alguém já desenvolveu alguma aplicação que gera etiquetas com códigos de 
barras para serem lidas em equipamentos de laboratórios clínicos?

  Grato.

  Sandro

  [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]

RE: [delphi-br] Alguma ideia

[Rubem Nascimento da Rocha]

Duas alternativas:

1) Lê esse .TXT linha a linha pra alimentar um ClientDataSet em memória 
(procura na Internet que tem artigo falando sobre isso);

2) Usar um componente da JediVCL chamado TJvCsvDataSet. Ele permite editar um 
texto do tipo CSV (Comma Separated Values - Valores separados por vírgula) em 
um dataset.

Boa sorte.
Sds.




To: [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Fri, 30 May 2008 16:23:04 -0300
Subject: [delphi-br] Alguma ideia

Pessoal .. boa tarde,
Eu tenho um arquivo TXT, que nesse arquivo eu tenho diverosos codigo que esta 
separado por virgulas

EX:

'1001','1025','2562','2515','9525'.

Eu utilizo isso para gerar um relatorio, este relatorio necessita desses 
codigos, eu pego o todos os codigo do txt e passo para uma String e utilizo no 
meu realtorio... Até blz esta funcionando perfeito ..

O que eu preciso fazer é mostrar esses codigos para o usuario editar. Hoje o 
usuario abre o txt na mão editar .. mais queria deixar isso mais facil .. mais 
simples dele editar ...

Alguem tem alguma ideia de como fazer ???

Abra~ços,

[As partes desta mensagem que não continham texto foram removidas]

_
Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos 
com até 6,000 fotos!
http://www.amigosdomessenger.com.br

[delphi-br] [GR] OPORTUNIDADE DE LOTUS NOTES!!!!

[Renata Ferretti]

 

Srs., Boa Tarde!

No momento estamos com a oportunidade listada abaixo.

Aos interessados solicitamos o CV atualizado, remuneração (PJ) e
disponibilidade para iniciar.

Também solicitamos sua indicação e divulgação junto aos seus
amigos/contatos.

Para está solicitação é imprescindível as informações de remuneração e
disponibilidade.

 


 

 



 
 







18 anos - Gerando Informação dos Processos de Negócio com Qualidade 




PROFISSIONAL

MÓDULOS

NÍVEL

IDIOMA

QTDE

LOCAL

FORMA DE

DATAS PREVISTAS

OBSERVAÇÃO


 

LINGUAGEM

EXPER.

 

 

PROJETO

CONTRATO

INÍCIO

DURAÇÃO

 


 

 

 

 

 

 

 

 

 

 


Analista Programador

Lotus Notes 

SR

 

1

Rio de Janeiro

 

Imediato

1 a 2 meses

 


 

 

 

 

 

 

 

 

 

 

 

 

 

Atenciosamente,

 

 

Novo Logo CTT email

 

Renata Ferretti

CTT Integration Group

Tel.: (55 21) 2258-8694

Fax: (55 21) 3879-5595

 



[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Alguma ideia

[Filippe Maymone]

Pessoal .. boa tarde, 
Eu tenho um arquivo TXT, que nesse arquivo eu tenho diverosos codigo que 
esta separado por virgulas

EX: 

'1001','1025','2562','2515','9525'.

Eu utilizo isso para gerar um relatorio, este relatorio necessita desses 
codigos, eu pego o todos os codigo do txt e passo para uma String e utilizo no 
meu realtorio... Até blz esta funcionando perfeito .. 
   
O que eu preciso fazer é mostrar esses codigos para o usuario editar. Hoje o 
usuario abre o txt na mão editar .. mais queria deixar isso mais facil .. mais 
simples dele editar ... 

Alguem tem alguma ideia de como fazer ??? 

Abra~ços,


[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] etiquetas laboratório

[Filippe Maymone]

Voce vai trabalhar com qual impressora ?? impressoras termicas ?? 
Teria que ver qual a impressora, pois cada impressora termica tem sua linguagem 
de impressão... 

Eu trabalho com impressoras que tem a linguagem ZPL, que são as impressoras da 
marca Zebra 

Se for isso eu tenho alguns sistemas com essa linguagem...

Abraços
  - Original Message - 
  From: Sandro 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, May 30, 2008 11:30 AM
  Subject: [delphi-br] etiquetas laboratório


  Bom dia,

  Alguém já desenvolveu alguma aplicação que gera etiquetas com códigos de 
barras para serem lidas em equipamentos de laboratórios clínicos?

  Grato.

  Sandro

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] BCD overflow

[Alisson Costa Resende]

Ao abrir um ClientDataset ocorre o erro acima. Pesquisando na internet, 
verifiquei que o erro se dá devido a incompatibilidade de tamanho de campos 
numéricos. Mas, o erro ocorre em um campo do tipo Integer. Uso DbExpress para 
acesso a dados. 


  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

RES: [delphi-br] D7, FB1.5, DBexpress ( driver - UIB FireBird15 )

[Antonio ney.Silva]

Qual o erro que o programa retorna?

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Luiz Carlos
Enviada em: sexta-feira, 30 de maio de 2008 10:47
Para: Delphi Total; Delphi Br
Assunto: [delphi-br] D7, FB1.5, DBexpress ( driver - UIB FireBird15 )



Bom dia a todos da lista,
Estou com problemas e nao consigo entender o motivo.

Seguinte, criei um simples projeto utilizando D7, FB1.5, DBexpress ( driver
- UIB FireBird15 ), entao até ai tranquilo, mas o problema ocorre quando
tento executar o projeto em uma estação que nao tenha o D7 instalado alguem
saberia me informa o motivo?
Detalhes dos procedimentos efetuados:
Aplicativo + dll's (dbexpUIBfire15.dll, fbclient.dll) + Arquivo.ini ( com
informações para conexão com o banco ) todos no mesmo diretorio.
No aplicativo: 1 DM com SQLconection com a propriedade LoadParamsOnConnect =
true.

Será que esqueci alguma coisa!
Grato desde já pela ajuda de todos!

Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
armazenamento!
http://br.mail.  yahoo.com/


 


[As partes desta mensagem que não continham texto foram removidas]

RE: [delphi-br] Cronometro em DBGrid

[Rubem Nascimento da Rocha]

Por ser um DBGrid, esse campo deveria ser atualizado periodicamente no DataSet. 
Teoricamente, criaria-se um campo ftInternalCalc e bastaria um TTimer pra 
atualizar o valor desse campo para todos os registros. Em teoria, seria assim. 
Sds.



To: [EMAIL PROTECTED]; delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Fri, 30 May 2008 15:42:27 -0300
Subject: [delphi-br] Cronometro em DBGrid

Como colocar um crônometro numa coluna de um DBGrid ?

Imaginem que o DBGrid seja consultado as 15:30, portanto ele deverá exibir o 
seguinte:

NOME DATA/HORA TEMPO

João 30/05/08 15:04 00:26:.
Paulo 30/05/08 15:12 00:18:.
Marcos 30/05/08 15:28 00:02:.

Porém a coluna TEMPO tem que funcionar como um cronômetro automático e real, 
partindo da hora da coluna DATA/HORA,

isto é, deve ser atualizado/exibido de segundo em segundo, e não de uma forma 
estática.

(de forma estática basta fazer o date/time “now” menos o date/time da tabela, 
mas não é isso que eu preciso)

Agradeço antecipadamente a atenção dispensada.

Dival Zambon Junior
Quirius Sistemas de Informática Ltda

[As partes desta mensagem que não continham texto foram removidas]

_
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/


-- 
< 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] Cronometro em DBGrid

[Dival @ QS]

Como colocar um crônometro numa coluna de um DBGrid ?

Imaginem que o DBGrid seja consultado as 15:30, portanto ele deverá exibir o
seguinte:

NOME   DATA/HORA TEMPO

João 30/05/08 15:0400:26:.  

Paulo30/05/08 15:1200:18:.

Marcos 30/05/08 15:2800:02:.

 

Porém a coluna TEMPO tem que funcionar como um cronômetro automático e real,
partindo da hora da coluna DATA/HORA, 

isto é, deve ser atualizado/exibido de segundo em segundo, e não de uma
forma estática.

(de forma estática basta fazer o date/time “now” menos o date/time da
tabela, mas não é isso que eu preciso)

 

Agradeço antecipadamente a atenção dispensada.

 

 

Dival Zambon Junior 
Quirius Sistemas de Informática Ltda 




 

 



[As partes desta mensagem que não continham texto foram removidas]

RES: [delphi-br] Re: Dúvidas com Interbase/Ibexpert

[Marcelo Mendes de Oliveira]

É só baixar na internet

 

Marcelo Mendes de Oliveira 
Analista de Custos
Tel.: + 49 3541-6177
Fax: + 49 3541-0423
IGUAÇU - celulose, papel s.a
www.iguacucelulose.com.br  
P Antes de imprimir pense em sua responsabilidade e compromisso com o MEIO
AMBIENTE!
Before printing this document, think about your responsibility and care for
the ENVIRONMENT!

 

  _  

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de rafaelpinto19
Enviada em: sexta-feira, 30 de maio de 2008 15:35
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Re: Dúvidas com Interbase/Ibexpert

 


Está bem, mas onde eu consigo essa instlação do Interbase Cliente?
Onde eu consigo a Dll do Cliente do Interbase, pois não tenho o CD...

--- Em [EMAIL PROTECTED] 
os.com.br, Rubem Nascimento da Rocha
<[EMAIL PROTECTED]> escreveu
>
> 
> 
> A máquina que tenta acesso ao banco InterBase/FireBird tem que ter
apenas o cliente do referido banco instalado. Ou seja, pelo menos a
DLL cliente para que a aplicação front-end possa acessar o servidor.
fbclient.dll(FireBird) ou gds32.dll(InterBase).
> 
> Sds.
> 
> 
> 
> 
> To: [EMAIL PROTECTED]  os.com.br
> From: [EMAIL PROTECTED]
> Date: Fri, 30 May 2008 17:47:51 +
> Subject: [delphi-br] Dúvidas com Interbase/Ibexpert
> 
> 
> 
> Só uma pergunta galera:
> 
> Quero saber se para acessar(Com Ibexpert) um banco de dados que
> está em outra maquina, é preciso que o Interbase esteja instalado na
> maquina q está tentando o Acesso? Pois eu estou tentando configurar no
> IbExpert um banco de Dados que está em outra maquina, mas nessa
> maquina(Onde está o IBExpert) não tem a instalação do Interbase. Será
> que é por isso que não estou conseguindo fazer a conexão com o BAnco
> 
> Obrigado galera pela atenção...
> 
> 
> 
> __
> Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
> http://www.amigosdo 
messenger.com.br/
>

 



[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Re: Dúvidas com Interbase/Ibex pert

[Berdam]

no cd do delphi vc pode instalar acredito eu, tá escrito lá, interbase client

rafaelpinto19 <[EMAIL PROTECTED]> escreveu: 
 Está bem, mas onde eu consigo essa instlação do Interbase Cliente?
 Onde eu consigo a Dll do Cliente do Interbase, pois não tenho o CD...
 
 --- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha
 <[EMAIL PROTECTED]> escreveu
 >
 > 
 > 
 > A máquina que tenta acesso ao banco InterBase/FireBird tem que ter
 apenas o cliente do referido banco instalado. Ou seja, pelo menos a
 DLL cliente para que a aplicação front-end possa acessar o servidor.
 fbclient.dll(FireBird) ou gds32.dll(InterBase).
 > 
 > Sds.
 > 
 > 
 > 
 > 
 > To: delphi-br@yahoogrupos.com.br
 > From: [EMAIL PROTECTED]
 > Date: Fri, 30 May 2008 17:47:51 +
 > Subject: [delphi-br] Dúvidas com Interbase/Ibexpert
 > 
 > 
 > 
 > Só uma pergunta galera:
 > 
 > Quero saber se para acessar(Com Ibexpert) um banco de dados que
 > está em outra maquina, é preciso que o Interbase esteja instalado na
 > maquina q está tentando o Acesso? Pois eu estou tentando configurar no
 > IbExpert um banco de Dados que está em outra maquina, mas nessa
 > maquina(Onde está o IBExpert) não tem a instalação do Interbase. Será
 > que é por isso que não estou conseguindo fazer a conexão com o BAnco
 > 
 > Obrigado galera pela atenção...
 > 
 > 
 > 
 > __
 > Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
 > http://www.amigosdomessenger.com.br/
 >
 
 
 
   



Uberdam Cavaletti
Formado em Tecnologia da Informação - Unoesc - Xxe
Pós-graduado em desenvolvimento Java - Unoesc - Xxe


-
http://www.curricular.com.br/berdam

Visite
http://passandoveneno.blogspot.com


   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Re: Dúvidas com Interbase/Ibexpert

[rafaelpinto19]

Está bem, mas onde eu consigo essa instlação do Interbase Cliente?
Onde eu consigo a Dll do Cliente do Interbase, pois não tenho o CD...


--- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha
<[EMAIL PROTECTED]> escreveu
>
> 
> 
> A máquina que tenta acesso ao banco InterBase/FireBird tem que ter
apenas o cliente do referido banco instalado. Ou seja, pelo menos a
DLL cliente para que a aplicação front-end possa acessar o servidor.
fbclient.dll(FireBird) ou gds32.dll(InterBase).
> 
> Sds.
> 
> 
> 
> 
> To: delphi-br@yahoogrupos.com.br
> From: [EMAIL PROTECTED]
> Date: Fri, 30 May 2008 17:47:51 +
> Subject: [delphi-br] Dúvidas com Interbase/Ibexpert
> 
> 
> 
> Só uma pergunta galera:
> 
> Quero saber se para acessar(Com Ibexpert) um banco de dados que
> está em outra maquina, é preciso que o Interbase esteja instalado na
> maquina q está tentando o Acesso? Pois eu estou tentando configurar no
> IbExpert um banco de Dados que está em outra maquina, mas nessa
> maquina(Onde está o IBExpert) não tem a instalação do Interbase. Será
> que é por isso que não estou conseguindo fazer a conexão com o BAnco
> 
> Obrigado galera pela atenção...
> 
> 
> 
> _
> Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
> http://www.amigosdomessenger.com.br/
>

RE: [delphi-br] Dúvidas com Interbase/Ibexpert

[Rubem Nascimento da Rocha]

A máquina que tenta acesso ao banco InterBase/FireBird tem que ter apenas o 
cliente do referido banco instalado. Ou seja, pelo menos a DLL cliente para que 
a aplicação front-end possa acessar o servidor. fbclient.dll(FireBird) ou 
gds32.dll(InterBase).

Sds.




To: delphi-br@yahoogrupos.com.br
From: [EMAIL PROTECTED]
Date: Fri, 30 May 2008 17:47:51 +
Subject: [delphi-br] Dúvidas com Interbase/Ibexpert



Só uma pergunta galera:

Quero saber se para acessar(Com Ibexpert) um banco de dados que
está em outra maquina, é preciso que o Interbase esteja instalado na
maquina q está tentando o Acesso? Pois eu estou tentando configurar no
IbExpert um banco de Dados que está em outra maquina, mas nessa
maquina(Onde está o IBExpert) não tem a instalação do Interbase. Será
que é por isso que não estou conseguindo fazer a conexão com o BAnco

Obrigado galera pela atenção...



_
Conheça o Windows Live Spaces, a rede de relacionamentos do Messenger!
http://www.amigosdomessenger.com.br/

[delphi-br] Dúvidas com Interbase/Ibexpert

[rafaelpinto19]

   Só uma pergunta galera:
   
   Quero saber se para acessar(Com Ibexpert) um banco de dados que
está em outra maquina, é preciso que o Interbase esteja instalado na
maquina q está tentando o Acesso? Pois eu estou tentando configurar no
IbExpert um banco de Dados que está em outra maquina, mas nessa
maquina(Onde está o IBExpert) não tem a instalação do Interbase. Será
que é por isso que não estou conseguindo fazer a conexão com o BAnco

   Obrigado galera pela atenção... 

Res: [delphi-br] Exportar QReport para PDF

[Luciano Calenzani Simões]

A paleta do QrReport PROFESSIONAL (não gratúito) tem um componente para 
exportar em PDF.

 Luciano Calenzani Simões





- Mensagem original 
De: Bollasette <[EMAIL PROTECTED]>
Para: Itamar Boleto <[EMAIL PROTECTED]>; [EMAIL PROTECTED]; 
delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED]
Enviadas: Sexta-feira, 30 de Maio de 2008 14:06:46
Assunto: [delphi-br] Exportar QReport para PDF


Olá,,, b tarde a todos

Como posso exportar do QReport para PDF (boleto bancário)  vários
boletos ao mesmo tempo?

Abçs,,, 

D.H.Oliveira



  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Exportar QReport para PDF

[Luciano Calenzani Simões]

A paleta do QrReport PROFESSIONAL (não gratúito) tem um componente para 
exportar em PDF.

 Luciano Calenzani Simões





- Mensagem original 
De: Bollasette <[EMAIL PROTECTED]>
Para: Itamar Boleto <[EMAIL PROTECTED]>; [EMAIL PROTECTED]; 
delphi-br@yahoogrupos.com.br; [EMAIL PROTECTED]
Enviadas: Sexta-feira, 30 de Maio de 2008 14:06:46
Assunto: [delphi-br] Exportar QReport para PDF


Olá,,, b tarde a todos

Como posso exportar do QReport para PDF (boleto bancário)  vários
boletos ao mesmo tempo?

Abçs,,, 

D.H.Oliveira



  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Exportar QReport para PDF

[Bollasette]

Olá,,, b tarde a todos

Como posso exportar do QReport para PDF (boleto bancário)  vários
boletos ao mesmo tempo?

Abçs,,, 

D.H.Oliveira

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Re: Erro ao instalar componente no delphi 2005

[Eduardo Silva dos Santos]

remove a referência e tenta compilar..

2008/5/30 Alexsandro <[EMAIL PROTECTED]>:

>   Procurei + que tudo esses pacotes e ñ encontrei ainda,já estou até
> achando que é problema no minha ferramenta...
>
> --- Em delphi-br@yahoogrupos.com.br ,
> "Eduardo Silva dos Santos"
> <[EMAIL PROTECTED]> escreveu
>
> >
> > ele não ta achando esses pacotes na hora de compilar.
> >
> > 2008/5/29 Alexsandro <[EMAIL PROTECTED]>:
> >
> > > Alguem conhece esse erro xmlrtl e dbrtl not found ?
> > >
> > > --- Em delphi-br@yahoogrupos.com.br 
> > >  40yahoogrupos.com.br>,
> > > "Alexsandro"  escreveu
> > > >
> > > > Pessoal eu estou intalando 2 componentes visuais no delphi 2005
> > > edition
> > > > e esta dando esses erros :
> > > >
> > > > em um componente esta dandos esse:
> > > > E2202 Required package 'xmlrtl' not found
> > > >
> > > >
> > > > No outro esse:
> > > > E2202 Required package 'dbrtl' not found
> > > >
> > > > Alguém conhece esse erro para poder me ajudar a desvendar
> isso 
> > > > a desvendar isso 
> > > >
> > >
> > >
> > >
> >
> >
> >
> > --
> > ...
> > Eduardo Silva dos Santos
> > DRD Sistemas.
> > (27) 3218-4201
> > MSN: [EMAIL PROTECTED]
> > Site: http://www.drdsistemas.com.br/
> > ...
> >
> >
> > [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.br/
...


[As partes desta mensagem que não continham texto foram removidas]

Re: Res: [delphi-br] Criando dm

[Moacir - GMail]

Pessoal !!!

URGENTE !!

Respondam ai !! Estão pensando o que ??

Se ele perguntou tem que responder e rápido !!!


Berdam escreveu:
> será que isso é tão difícil assim galera, ou o pessoal que sabe não quer 
> responder??
>
> Jean Barreiros <[EMAIL PROTECTED]> escreveu: Cara 
> aho que basta você usar isso:
>  if not Assigned(dmCadastros) then
>dmCadastros := TdmCadastros. Create(Self) ;
>   Jean Barreiros
>  Programador/Web-Designer
>  Delphi, C++, PHP, JavaScript
>  FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
>  msn: [EMAIL PROTECTED]
>  e-mail: [EMAIL PROTECTED]
>  
>  - Mensagem original 
>  De: Berdam <[EMAIL PROTECTED]>
>  Para: Delphi 
>  Enviadas: Sexta-feira, 30 de Maio de 2008 9:46:01
>  Assunto: [delphi-br] Criando dm
>  
>  Galera, eu tenho que testar se o dm está criado ou não, eu fiz essa função 
> abaixo, tem alguma maneira de fazer isso genérico??
>  
>  Será que não tem alguma maneira de criar o dm apenas passando nome, eu até 
> fiz a função, mas não fui pra frente no momento em que testo o tipo dele 
> (Tdatamodule) , alguém por favor pode dar uma ajuda??
>  
>  procedure TFSinprod.CriaDm( dm:String) ;
>  begin
>  if dm = 'dmcadastros' then
>  if not Assigned(dmCadastro s) then
>  begin
>  dmCadastros := TdmCadastros. Create(Self) ;
>  end
>  end;
>  
>   - - - - - -
>  Uberdam Cavaletti
>  Formado em Tecnologia da Informação - Unoesc - Xxe
>  Pós-graduado em desenvolvimento Java - Unoesc - Xxe
>  
>   - - ---
>  http://www.curricul ar.com.br/ berdam
>  
>  Visite
>  http://passandovene no.blogspot. com
>   - - - - - -
>  
>   - - ---
>  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
> armazenamento! 
>  
>  [As partes desta mensagem que não continham texto foram removidas]
>  
>  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
> armazenamento!
>  http://br.mail.yahoo.com/
>  
>  [As partes desta mensagem que não continham texto foram removidas]
>  
>  
>  
>
>
>
> 
> Uberdam Cavaletti
> Formado em Tecnologia da Informação - Unoesc - Xxe
> Pós-graduado em desenvolvimento Java - Unoesc - Xxe
>
>
> -
> http://www.curricular.com.br/berdam
>
> Visite
> http://passandoveneno.blogspot.com
> 
>
>
> -
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
> armazenamento! 
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
> 
>
>   

RES: Res: [delphi-br] Criando dm

[Davi Eduardo Borges Wall]

OU TALVEZ... o pessoal está tão ocupado trabalhando e não tem tempo pra 
responder???

 

 

Type

TipoDM = (tdCadastro, tdConsultas, tdRelatorios, tdCustom, tdBla);

 

 

Procedure CriaMeuDM(MeuDM: TipoDM);

Begin

  Case meuDM of

  tdCadastro: Begin

 CriarDMCadastro;

   end;   

  tdConsultas: Begin

 CriarDMConsultas;

   end;   

 

  tdRelatorios: Begin

 CriarDMRelatorios;

   end;   

  ...

  ...

  end;

End;

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Berdam
Enviada em: sexta-feira, 30 de maio de 2008 11:23
Para: delphi-br@yahoogrupos.com.br
Assunto: Re: Res: [delphi-br] Criando dm

 

será que isso é tão difícil assim galera, ou o pessoal que sabe não quer 
responder??

Jean Barreiros <[EMAIL PROTECTED]  > 
escreveu: Cara aho que basta você usar isso:
if not Assigned(dmCadastros) then
dmCadastros := TdmCadastros. Create(Self) ;
Jean Barreiros
Programador/Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED]  
e-mail: [EMAIL PROTECTED]  

- Mensagem original 
De: Berdam <[EMAIL PROTECTED]  >
Para: Delphi mailto:delphi-br%40yahoogrupos.com.br> >
Enviadas: Sexta-feira, 30 de Maio de 2008 9:46:01
Assunto: [delphi-br] Criando dm

Galera, eu tenho que testar se o dm está criado ou não, eu fiz essa função 
abaixo, tem alguma maneira de fazer isso genérico??

Será que não tem alguma maneira de criar o dm apenas passando nome, eu até fiz 
a função, mas não fui pra frente no momento em que testo o tipo dele 
(Tdatamodule) , alguém por favor pode dar uma ajuda??

procedure TFSinprod.CriaDm( dm:String) ;
begin
if dm = 'dmcadastros' then
if not Assigned(dmCadastro s) then
begin
dmCadastros := TdmCadastros. Create(Self) ;
end
end;

 - - - - - -
Uberdam Cavaletti
Formado em Tecnologia da Informação - Unoesc - Xxe
Pós-graduado em desenvolvimento Java - Unoesc - Xxe

 - - ---
http://www.curricul ar.com.br/ berdam

Visite
http://passandovene no.blogspot. com
 - - - - - -

 - - ---
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

[As partes desta mensagem que não continham texto foram removidas]

Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]





--
Uberdam Cavaletti
Formado em Tecnologia da Informação - Unoesc - Xxe
Pós-graduado em desenvolvimento Java - Unoesc - Xxe

-
http://www.curricular.com.br/berdam

Visite
http://passandoveneno.blogspot.com
--

-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

[As partes desta mensagem que não continham texto foram removidas]

 



[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] etiquetas laboratório

[Sandro]

Bom dia,

Alguém já desenvolveu alguma aplicação que gera etiquetas com códigos de barras 
para serem lidas em equipamentos de laboratórios clínicos?

Grato.

Sandro

[As partes desta mensagem que não continham texto foram removidas]

Re: Res: [delphi-br] Criando dm

[Berdam]

será que isso é tão difícil assim galera, ou o pessoal que sabe não quer 
responder??

Jean Barreiros <[EMAIL PROTECTED]> escreveu: Cara 
aho que basta você usar isso:
 if not Assigned(dmCadastros) then
   dmCadastros := TdmCadastros. Create(Self) ;
  Jean Barreiros
 Programador/Web-Designer
 Delphi, C++, PHP, JavaScript
 FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
 msn: [EMAIL PROTECTED]
 e-mail: [EMAIL PROTECTED]
 
 - Mensagem original 
 De: Berdam <[EMAIL PROTECTED]>
 Para: Delphi 
 Enviadas: Sexta-feira, 30 de Maio de 2008 9:46:01
 Assunto: [delphi-br] Criando dm
 
 Galera, eu tenho que testar se o dm está criado ou não, eu fiz essa função 
abaixo, tem alguma maneira de fazer isso genérico??
 
 Será que não tem alguma maneira de criar o dm apenas passando nome, eu até fiz 
a função, mas não fui pra frente no momento em que testo o tipo dele 
(Tdatamodule) , alguém por favor pode dar uma ajuda??
 
 procedure TFSinprod.CriaDm( dm:String) ;
 begin
 if dm = 'dmcadastros' then
 if not Assigned(dmCadastro s) then
 begin
 dmCadastros := TdmCadastros. Create(Self) ;
 end
 end;
 
  - - - - - -
 Uberdam Cavaletti
 Formado em Tecnologia da Informação - Unoesc - Xxe
 Pós-graduado em desenvolvimento Java - Unoesc - Xxe
 
  - - ---
 http://www.curricul ar.com.br/ berdam
 
 Visite
 http://passandovene no.blogspot. com
  - - - - - -
 
  - - ---
 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
 http://br.mail.yahoo.com/
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
   



Uberdam Cavaletti
Formado em Tecnologia da Informação - Unoesc - Xxe
Pós-graduado em desenvolvimento Java - Unoesc - Xxe


-
http://www.curricular.com.br/berdam

Visite
http://passandoveneno.blogspot.com


   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

[As partes desta mensagem que não continham texto foram removidas]

Re: Res: [delphi-br] Criando dm

[Berdam]

obrigado jean ,valeu pela ajuda, 

sim, desta maneira dá certo, só que eu queria um tipo de criação onde eu passe 
apenas o nome do dm e a procedure/function se vire na criação, dessa maneira ai 
já tenho no sistema.

Jean Barreiros <[EMAIL PROTECTED]> escreveu: Cara 
aho que basta você usar isso:
 if not Assigned(dmCadastros) then
   dmCadastros := TdmCadastros. Create(Self) ;
  Jean Barreiros
 Programador/Web-Designer
 Delphi, C++, PHP, JavaScript
 FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
 msn: [EMAIL PROTECTED]
 e-mail: [EMAIL PROTECTED]
 
 - Mensagem original 
 De: Berdam <[EMAIL PROTECTED]>
 Para: Delphi 
 Enviadas: Sexta-feira, 30 de Maio de 2008 9:46:01
 Assunto: [delphi-br] Criando dm
 
 Galera, eu tenho que testar se o dm está criado ou não, eu fiz essa função 
abaixo, tem alguma maneira de fazer isso genérico??
 
 Será que não tem alguma maneira de criar o dm apenas passando nome, eu até fiz 
a função, mas não fui pra frente no momento em que testo o tipo dele 
(Tdatamodule) , alguém por favor pode dar uma ajuda??
 
 procedure TFSinprod.CriaDm( dm:String) ;
 begin
 if dm = 'dmcadastros' then
 if not Assigned(dmCadastro s) then
 begin
 dmCadastros := TdmCadastros. Create(Self) ;
 end
 end;
 
  - - - - - -
 Uberdam Cavaletti
 Formado em Tecnologia da Informação - Unoesc - Xxe
 Pós-graduado em desenvolvimento Java - Unoesc - Xxe
 
  - - ---
 http://www.curricul ar.com.br/ berdam
 
 Visite
 http://passandovene no.blogspot. com
  - - - - - -
 
  - - ---
 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento! 
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
 http://br.mail.yahoo.com/
 
 [As partes desta mensagem que não continham texto foram removidas]
 
 
 
   



Uberdam Cavaletti
Formado em Tecnologia da Informação - Unoesc - Xxe
Pós-graduado em desenvolvimento Java - Unoesc - Xxe


-
http://www.curricular.com.br/berdam

Visite
http://passandoveneno.blogspot.com


   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Contas a Pagar / Receber

[Maria das Graças .]

Acesse o site da Editora Érica que lá tem uma coleção de livros do mesmo autor 
"Aplicativos em Delphi-Contas a Receber", "Aplicativos em Delphi-Contas A 
Pagar" e outros. O conteúdo dos livros é bom. 
  Comprando diretamente da editora, você compra bem mais barato do que na 
livraria e chega em 24 horas na sua casa.
  Graça

Magnun Oliveira <[EMAIL PROTECTED]> escreveu:
  Sempre em meus projetos, montei o modulo financeiro com base no 
estudo de caso feito com o cliente, com base em suas necessidades.Porem, estou 
em um projeto mais abrangente e, será utilizado em varios. Alguem tem alguma 
indicação de livro, site, link etc ... principalmente sobre contas 
pagar/receber pra criar um modelo generico ? Pode ser do basico ao avançado, 
pois ae o ajustarei com base nas experiencias que tive. Obrigado 
__
Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos 
com até 6,000 fotos!
http://www.amigosdomessenger.com.br

[As partes desta mensagem que não continham texto foram removidas]



   

   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] Criando dm

[Jean Barreiros]

Cara aho que basta você usar isso:
if not Assigned(dmCadastros) then
  dmCadastros := TdmCadastros. Create(Self) ;
 Jean Barreiros
Programador/Web-Designer
Delphi, C++, PHP, JavaScript
FireBird/InterBase, MySql, SQLServer, PostGree, Oracle
msn: [EMAIL PROTECTED]
e-mail: [EMAIL PROTECTED]



- Mensagem original 
De: Berdam <[EMAIL PROTECTED]>
Para: Delphi 
Enviadas: Sexta-feira, 30 de Maio de 2008 9:46:01
Assunto: [delphi-br] Criando dm


Galera, eu tenho que testar se o dm está criado ou não, eu fiz essa função 
abaixo, tem alguma maneira de fazer isso genérico??

Será que não tem alguma maneira de criar o dm apenas passando nome, eu até fiz 
a função, mas não fui pra frente no momento em que testo o tipo dele 
(Tdatamodule) , alguém por favor pode dar uma ajuda??

procedure TFSinprod.CriaDm( dm:String) ;
begin
if dm = 'dmcadastros' then
if not Assigned(dmCadastro s) then
begin
dmCadastros := TdmCadastros. Create(Self) ;
end
end;

 - - - - - -
Uberdam Cavaletti
Formado em Tecnologia da Informação - Unoesc - Xxe
Pós-graduado em desenvolvimento Java - Unoesc - Xxe

 - - ---
http://www.curricul ar.com.br/ berdam

Visite
http://passandovene no.blogspot. com
 - - - - - -

 - - ---
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

[As partes desta mensagem que não continham texto foram removidas]

 


  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] D7, FB1.5, DBexpress ( driver - UIB FireBird15 )

[Luiz Carlos]

Bom dia a todos da lista,
Estou com problemas e nao consigo entender o motivo.

Seguinte, criei um simples projeto utilizando D7, FB1.5, DBexpress ( driver - 
UIB FireBird15 ), entao até ai tranquilo, mas o problema ocorre quando tento 
executar o projeto em uma estação que nao tenha o D7 instalado alguem saberia 
me informa o motivo?
Detalhes dos procedimentos efetuados:
Aplicativo + dll's (dbexpUIBfire15.dll, fbclient.dll) + Arquivo.ini ( com 
informações para conexão com o banco ) todos no mesmo diretorio.
No aplicativo: 1 DM com SQLconection com a propriedade LoadParamsOnConnect = 
true.

Será que esqueci alguma coisa!
Grato desde já pela ajuda de todos!


  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

[delphi-br] Criando dm

[Berdam]

Galera, eu tenho que testar se o dm está criado ou não, eu fiz essa função 
abaixo, tem alguma maneira de fazer isso genérico??

Será que não tem alguma maneira de criar o dm apenas passando nome, eu até fiz 
a função, mas não fui pra frente no momento em que testo o tipo dele  
(Tdatamodule), alguém por favor pode dar uma ajuda??



procedure TFSinprod.CriaDm(dm:String);
begin
 if dm = 'dmcadastros' then
  if not Assigned(dmCadastros) then
   begin
  dmCadastros := TdmCadastros.Create(Self);
   end
end;


Uberdam Cavaletti
Formado em Tecnologia da Informação - Unoesc - Xxe
Pós-graduado em desenvolvimento Java - Unoesc - Xxe


-
http://www.curricular.com.br/berdam

Visite
http://passandoveneno.blogspot.com


   
-
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! 

[As partes desta mensagem que não continham texto foram removidas]

Res: [delphi-br] DBExpress x FireBird 2 x UIB FireBird15

[Luciano Calenzani Simões]

Fiz outro teste aqui e se houver algum erro dentro da transação (conversão, 
campo obrigatório, queda, ...), e não há qualquer SELECT dentro dela, o 
RollBack funciona perfeitamente. 

Tenho lido em alguns fóruns o pessoal reclamando que não faz Rollback, na 
verdade ele faz sim, desde que não exista qualquer SELECT antes do erro.

 Luciano Calenzani Simões





- Mensagem original 
De: Luciano Calenzani Simões <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 29 de Maio de 2008 19:39:41
Assunto: [delphi-br] DBExpress x FireBird 2 x UIB FireBird15


O UIB FireBird15 para DBExpress com FireBird 2 tem problemas no gerenciamento 
de transação. Além daquele do campo BLOB já relatado nesta lista.

Explico: Se dentro do contexto da transação tiver um SQLDataSet/SQLQuery /... 
fazendo um select em uma tabela, ao executar o SQLDataSet.Close ele" commita" a 
transação, e continua o procedimento normalmente. Se ocorrer algum erro após 
esse SQLDataSet.Close, as operações de I/O que foram feitas no início não serão 
desfeitas, mesmo sendo executado o RoolBack. Não deve estar acreditando, na 
hora eu também não acreditei.

Fiz um teste com o mesmo código com o dirver Interbase e funciona 
perfeitamente. Mas esse driver não funciona perfeitamente com o FireBird 2.
Isso só acontece com operação de SELECT, se dentro da transação só tiver 
INSERT, UPDATE e DELETE irá funcionar perfeitamente.

Código exemplo (síntese):

begin
...
StartTransaction;
try
SQLDataSet1. CommandText := 'insert into table (codigo) values (1)';
SQLDataSet1. ExecSQL;
SQLDataSet1. Close;

SQLDataSet1. CommandText := 'select * from table';
SQLDataSet1. Open;
SQLDataSet1. Close; // Aqui ele comita a transação automaticamente.

// Quando chegar aqui, o 1º insert já está comitado, se houver erro daqui para 
frente ele não será desfeito.
SQLDataSet1. CommandText := 'insert into table (codigo) values (2)';
SQLDataSet1. ExecSQL;
SQLDataSet1. Close;

CommitWork;
except
RollBack;
end;
end;

Luciano Calenzani Simões



  Abra sua conta no Yahoo! Mail, o único sem limite de espaço para 
armazenamento!
http://br.mail.yahoo.com/

[As partes desta mensagem que não continham texto foram removidas]

[delphi-br] Re: Erro ao instalar componente no delphi 2005

[Alexsandro]

Procurei + que tudo esses pacotes e ñ encontrei ainda,já estou até  
achando que é problema no minha ferramenta...

--- Em delphi-br@yahoogrupos.com.br, "Eduardo Silva dos Santos" 
<[EMAIL PROTECTED]> escreveu
>
> ele não ta achando esses pacotes na hora de compilar.
> 
> 2008/5/29 Alexsandro <[EMAIL PROTECTED]>:
> 
> >   Alguem conhece esse erro xmlrtl e dbrtl not found ?
> >
> > --- Em delphi-br@yahoogrupos.com.br ,
> > "Alexsandro"  escreveu
> > >
> > > Pessoal eu estou intalando 2 componentes visuais no delphi 2005
> > edition
> > > e esta dando esses erros :
> > >
> > > em um componente esta dandos esse:
> > > E2202 Required package 'xmlrtl' not found
> > >
> > >
> > > No outro esse:
> > > E2202 Required package 'dbrtl' not found
> > >
> > > Alguém conhece esse erro para poder me ajudar a desvendar 
isso 
> > > a desvendar isso 
> > >
> >
> >  
> >
> 
> 
> 
> -- 
> ...
> Eduardo Silva dos Santos
> DRD Sistemas.
> (27) 3218-4201
> MSN: [EMAIL PROTECTED]
> Site: http://www.drdsistemas.com.br/
> ...
> 
> 
> [As partes desta mensagem que não continham texto foram removidas]
>