Res: [Bulk] Re: [delphi-br] Re: Solução para MyConnection
Obrigado Fabricio, mas me dá pelo menos um empurrão pra eu saber como rodar isso por fora ou como desativar a opção Stop on Delphi Exceptions. Outra coisa... desabilitar isso é viável? Um abraço! ---Mensagem original--- De: Fabricio Colombo Data: 07/23/10 07:45:34 Para: delphi-br@yahoogrupos.com.br Assunto: [Bulk] Re: [delphi-br] Re: Solução para MyConnection Quanto vc está debugando, todas as exceções são mostradas, mesmo as que estão dentro do bloco try..except..end. Se rodar por fora do delphi ou desativar o opção Stop on Delphi Exceptions em Debugger Options\Language Exceptions (Delphi 7), essa mensagem não vai mais aparecer debug. Em 22 de julho de 2010 18:52, brunolbrasil brunolbra...@yahoo.com brescreveu: Pessoal, não ta dando certo! Eu to fazendo assim: 1 try 2 myConnection.Connected := false; 3 myConnection.Server := edit3.Text; //o edit3.text está recebendo um valor que não existe 4 myConnection.Database := edit5.Text; 5 myConnection.Connected := true; //aqui o programa dá o erro 6 ShowMessage('1'); except 7 showMessage('Existem dados errados! Favor corrigi-los.'); 8 close; end; O título da caixa com o erro é o seguinte: Debugger Exception Notification Se eu tirar a linha 5 ele execulta tudo sem problema, mas não faz os comandos do except. Um abraço a todos! --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Eduardo Silva dos Santos eduardo@... escreveu Usa um try except no código. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@... Site: http://www.drdsistemas.com.br/ ... Em 22 de julho de 2010 10:24, Bruno Lepesqueur brunolbra...@...escreveu: Galera... estou com um probleminha! Eu inseri um myConnection (componente do myDAC) em meu formulário e criei na tela inicial do programa umas opções pra se mudar as configurações desse componente myConnection (qdo necessário), mas qdo se coloca uma opção que não existe no formulário, tipo um banco de dados que não existe, o sistema gera um erro que eu não gostaria que gerasse! Fiz assim: myConnection .Connected := false; myConnection .Database := edit5.Text; myConnection .Server := edit3.Text; Qdo o usuário digita no edti3.text um valor de Servidor que não existe o sistema gera um erro. A solução que pensei foi a seguinte... Qdo o erro for gerado, ao invés de aparecer o erro, fazer um if para enviar uma msg tipo um showMessage informando ao usuário que aquele Server não existe, mas eu não sei fazer isso! Seria mais ou menos assim: if myconnection.server (192.168.0.1) não existir faça isso... Podem me dar uma dica inicial? Um abraço! [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] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM [As partes desta mensagem que não continham texto foram removidas]
Res: [Bulk] Re: [Bulk] Res: [Bulk] Re: [delphi-br] Acesso ao root do mySQL
ela fica dentro de C:\Documents and Settings\All Users\Dados de aplicativos\MySQL\MySQL Server 5.1 Um abraço! ---Mensagem original--- De: Eduardo Silva dos Santos Data: 09/10/2009 16:59:27 Para: delphi-br@yahoogrupos.com.br Assunto: [Bulk] Re: [Bulk] Res: [Bulk] Re: [delphi-br] Acesso ao root do mySQL Onde ela tava? tava oculta? Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... 2009/10/9 Bruno Lepesqueur - Uaitec Soluções em Informática brunolbra...@yahoo.com.br Pessoal, consegui achar a pasta DATA e já está tudo certo! Obrigado! ---Mensagem original--- De: Bruno Lepesqueur - Uaitec Soluções em Informática\ Data: 09/10/2009 10:29:19 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: [Bulk] Res: [Bulk] Re: [delphi-br] Acesso ao root do mySQL Já fiz isso que vc falou ontem mesmo Eduardo, mas o engraçado é que eu não consigo achar a pasta Data no mySQL 5.1.33. Ou ela fica em outro local ou fica oculta de uma forma que não consigo enxerga-la. Tem mais alguma dica? Obrigado e um abraço! ---Mensagem original--- De: Eduardo Silva dos Santos Data: 08/10/2009 19:55:18 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: [Bulk] Re: [delphi-br] Acesso ao root do mySQL Se você desinstalou o MySQL e reinstalou tem que funcionar. De tudo, se nao funcionar, desinstale o MySQL novamente e vá em arquivos de programas e delete completamente a pasta do MySQL, assim quando o mesmo for reinstalado será copiada uma nova tabela de usuários. e fica a dica.. faça uma copia da tabela User na pasta Data\MySQL, assim se um acidente como esta acontecer basta para o serviço, e sobrescrever a tabela errada que você terá acesso novamente. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... 2009/10/8 Bruno Lepesqueur - Uaitec Soluções em Informática brunolbra...@yahoo.com.br brunolbrasil%40yahoo.com.br Boa noite pessoal! Fiz uma cagada sem querer e sem saber! Fui liberar o usuário root do mySql para todas as redes e me dei mau! Eu queria colocar os seguinte privilégio: user: root - Host: %, mas só que no lugar do % eu coloquei / (barra) sem querer e confirmei! (No host a gente coloca o % pra liberar o uso em todas as faixas de IP, se não estou enganado). O problema é que agora eu não consigo acesso ao root mais e como eu não havia outro usuário cadastrado, eu fiquei sem permissão alguma para acesso ao banco! Fiz isso usando o SQL Manager e já desinstalei o mySQL 5.1 e o Manager e reinstalei de novo, mas eu continuo sem permissão pra tudo! Alguém consegue me socorrer? Um abraço! Att.: Bruno. [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] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [Bulk] Re: [delphi-br] Acesso ao root do mySQL
Já fiz isso que vc falou ontem mesmo Eduardo, mas o engraçado é que eu não consigo achar a pasta Data no mySQL 5.1.33. Ou ela fica em outro local ou fica oculta de uma forma que não consigo enxerga-la. Tem mais alguma dica? Obrigado e um abraço! ---Mensagem original--- De: Eduardo Silva dos Santos Data: 08/10/2009 19:55:18 Para: delphi-br@yahoogrupos.com.br Assunto: [Bulk] Re: [delphi-br] Acesso ao root do mySQL Se você desinstalou o MySQL e reinstalou tem que funcionar. De tudo, se nao funcionar, desinstale o MySQL novamente e vá em arquivos de programas e delete completamente a pasta do MySQL, assim quando o mesmo for reinstalado será copiada uma nova tabela de usuários. e fica a dica.. faça uma copia da tabela User na pasta Data\MySQL, assim se um acidente como esta acontecer basta para o serviço, e sobrescrever a tabela errada que você terá acesso novamente. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... 2009/10/8 Bruno Lepesqueur - Uaitec Soluções em Informática brunolbra...@yahoo.com.br Boa noite pessoal! Fiz uma cagada sem querer e sem saber! Fui liberar o usuário root do mySql para todas as redes e me dei mau! Eu queria colocar os seguinte privilégio: user: root - Host: %, mas só que no lugar do % eu coloquei / (barra) sem querer e confirmei! (No host a gente coloca o % pra liberar o uso em todas as faixas de IP, se não estou enganado). O problema é que agora eu não consigo acesso ao root mais e como eu não havia outro usuário cadastrado, eu fiquei sem permissão alguma para acesso ao banco! Fiz isso usando o SQL Manager e já desinstalei o mySQL 5.1 e o Manager e reinstalei de novo, mas eu continuo sem permissão pra tudo! Alguém consegue me socorrer? Um abraço! Att.: Bruno. [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: [Bulk] Res: [Bulk] Re: [delphi-br] Acesso ao root do mySQL
Pessoal, consegui achar a pasta DATA e já está tudo certo! Obrigado! ---Mensagem original--- De: Bruno Lepesqueur - Uaitec Soluções em Informática\ Data: 09/10/2009 10:29:19 Para: delphi-br@yahoogrupos.com.br Assunto: [Bulk] Res: [Bulk] Re: [delphi-br] Acesso ao root do mySQL Já fiz isso que vc falou ontem mesmo Eduardo, mas o engraçado é que eu não consigo achar a pasta Data no mySQL 5.1.33. Ou ela fica em outro local ou fica oculta de uma forma que não consigo enxerga-la. Tem mais alguma dica? Obrigado e um abraço! ---Mensagem original--- De: Eduardo Silva dos Santos Data: 08/10/2009 19:55:18 Para: delphi-br@yahoogrupos.com.br Assunto: [Bulk] Re: [delphi-br] Acesso ao root do mySQL Se você desinstalou o MySQL e reinstalou tem que funcionar. De tudo, se nao funcionar, desinstale o MySQL novamente e vá em arquivos de programas e delete completamente a pasta do MySQL, assim quando o mesmo for reinstalado será copiada uma nova tabela de usuários. e fica a dica.. faça uma copia da tabela User na pasta Data\MySQL, assim se um acidente como esta acontecer basta para o serviço, e sobrescrever a tabela errada que você terá acesso novamente. Att, ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... 2009/10/8 Bruno Lepesqueur - Uaitec Soluções em Informática brunolbra...@yahoo.com.br Boa noite pessoal! Fiz uma cagada sem querer e sem saber! Fui liberar o usuário root do mySql para todas as redes e me dei mau! Eu queria colocar os seguinte privilégio: user: root - Host: %, mas só que no lugar do % eu coloquei / (barra) sem querer e confirmei! (No host a gente coloca o % pra liberar o uso em todas as faixas de IP, se não estou enganado). O problema é que agora eu não consigo acesso ao root mais e como eu não havia outro usuário cadastrado, eu fiquei sem permissão alguma para acesso ao banco! Fiz isso usando o SQL Manager e já desinstalei o mySQL 5.1 e o Manager e reinstalei de novo, mas eu continuo sem permissão pra tudo! Alguém consegue me socorrer? Um abraço! Att.: Bruno. [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] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Acesso ao root do mySQL
Boa noite pessoal! Fiz uma cagada sem querer e sem saber! Fui liberar o usuário root do mySql para todas as redes e me dei mau! Eu queria colocar os seguinte privilégio: user: root - Host: %, mas só que no lugar do % eu coloquei / (barra) sem querer e confirmei! (No host a gente coloca o % pra liberar o uso em todas as faixas de IP, se não estou enganado). O problema é que agora eu não consigo acesso ao root mais e como eu não havia outro usuário cadastrado, eu fiquei sem permissão alguma para acesso ao banco! Fiz isso usando o SQL Manager e já desinstalei o mySQL 5.1 e o Manager e reinstalei de novo, mas eu continuo sem permissão pra tudo! Alguém consegue me socorrer? Um abraço! Att.: Bruno. [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Código SQL
Boa tarde pessoal! Gostaria que me ajudassem com esse código: select nf.*, tpgto.descTipoPgto, c.NomeCli, c.cpfcli, c.cnpjcli, c.codigocli co.CodigoOperNF, co.NaturezaOperNF from notasfiscais nf inner join cliforntrans c on c.CodigoCli = nf.CodigoCli inner join codigosdeoperacaonf co on co.CodigoOperNF = nf.CodigoOperNF inner join tipoPgto tpgto on tpgto.codigoTipoPgto = nf.codigoTipoPgto where nf.codigotiponf = '2' or nf.codigotiponf = '1' order by nf.datalctoNF desc, nf.CodigoNF desc Seguinte... ele exibe os dados que preciso, mas não sei se posso usar dessa forma mesmo ou se tem algum padrão certo para a codificação SQL. Qdo eu uso: o inner join sempre devemos colocar uma tabela antes dele e uma depois. Será que tanto faz a ordem ou tem que seguir alguma regra? Ex.: Eu uso assim: select nf.*, tpgto.descTipoPgto, c.NomeCli, c.cpfcli, c.cnpjcli, c.codigocli co.CodigoOperNF, co.NaturezaOperNF from notasfiscais nf inner join cliforntrans c on c.CodigoCli = nf.CodigoCli ? ou assim: select nf.*, tpgto.descTipoPgto, c.NomeCli, c.cpfcli, c.cnpjcli, c.codigocli co.CodigoOperNF, co.NaturezaOperNF from cliforntrans c inner join notasfiscais nf on c.CodigoCli = nf.CodigoCli ? Estou querendo saber por causa de uns erros que estão ocorrendo em meu sistema e acho q isso pode estar interferindo! Um abraço a todos! [As partes desta mensagem que não continham texto foram removidas]
Res: Re: Re: [delphi-br] Erro ao executar SQL
Nas grids eu só estou usando o evento OnKeyPress que serve pra que qdo o enter for pressionado, pular para a dbEdit7: if key= #13 then dbEdit7.SetFocus; Alguém tem mais alguma dica? Obrigado a todos! ---Mensagem original--- De: Leandro Data: 24/06/2009 21:12:12 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Re: [delphi-br] Erro ao executar SQL pode nao ter eventos nas querys mas nos grids q voce mostra os dados? 2009/6/24 Thales (Shubacca) - Tebo Software tebosoftw...@gmail.com Voce poderia mandar o trecho completo para avaliarmos? 2009/6/24 Bruno Lepesqueur brunolbra...@yahoo.com.brbrunolbrasil%40yahoo com.br Não uso nenhum evento nessas querys! A única coisa que eu uso nelas é a propriedade CachedUpdate = True. Obrigado! ---Mensagem original--- De: Thales (Shubacca) - Tebo Software Data: 06/24/09 19:27:59 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com brdelphi-br% 40yahoogrupos.com.br Assunto: Re: [delphi-br] Erro ao executar SQL voce por acaso tem algum evento de afterscroll ou afteropen nessas querys? se tiver de uma olhada para ver se alguma delas nao esta tentando editar sem a query estar em modo de edicao falow 2009/6/24 Bruno Lepesqueur brunolbra...@yahoo.com brbrunolbrasil%40yahoo.com.br brunolbrasil%40yahoo.com.br Boa noite pessoal! Estou com um problema que não consigo resolver desde a semana passada e gostaria da ajuda de todos! Eu tenho 2 tabelas relacionadas: tblNotas e tblFrete (campo relacionado: codigoNF) Cada nota deve conter um frete que é relacionado através do campo codigoNF Eu consigo inserir registros nas tabelas através das funções tblNotas.insert e da função tblFrete.insert numa boua, mas qdo eu entro no formulário para alterar a nota e o frete que acabei de gravar usando um comando simples do SQL como: with dmoQuerys.QueryNF.SQL do begin clear; add('select * from Notas where codigoNF = '); add(#39+queryNFCodigoNF.AsString+#39); end; dmoQuerys.QueryNF.Active := false; dmoQuerys.QueryNF.Active := true; (para selecionar a nota desejada para alteração) e depois faço o comando: with dmoQuerys.QueryFrete.SQL do begin clear; add('select * from frete where codigoNF = '); add(#39+dmoquerys.QueryNFCodigoNF.AsString+#39); end; dmoQuerys.QueryFrete.Active := false; dmoQuerys.QueryFrete.Active := true; (para selecionar o frete ref. a essa nota que estou alterando) ele dá o seguinte erro: Project SisNota.exe raised exception class EDatabaseError with message Dataset not in edit or Insert mode'. Process stopped. Use Step or Run to continue. (o arquivo está anexo ao e-mail) Eu gostaria de esclarecer que nesse momento a única coisa que eu fiz foi ativar as duas tabelas e nada mais! Elas não estão sendo editadas ou inseridas. O estranho é que se eu mudo a ordem de execução das SQL (mandando a queryFrete antes da queryNF) elas executam numa boa e sem erro! O que será que pode ser pessoal? Eu uso delphi 7 com myDac. Um abraço a todos! [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com tebosoftware%40gmail.com tebosoftware% 40gmail.com (GoogleTalk) thales_...@hotmail.com thales_oli%40hotmail.com thales_oli% 40hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com tebosoftware%40gmail.com (GoogleTalk) thales_...@hotmail.com thales_oli%40hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas] -- Leandro, MuTukA [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: Re: Re: [delphi-br] Erro ao executar SQL
Pessoal... to mandando os códigos que uso no delphi pra ver se vcs conseguem me ajudar: If (dbEdit7.Text '0') and (dbEdit7.Text '') then begin If QueryQtdeCount.value 0 then begin Edit1.text := 'alterar'; If (InicialFrm.dbEdit3.Text = '0') or (InicialFrm.dbEdit4.Text = '0 ) or (InicialFrm.dbEdit5.Text = '0') or (InicialFrm.dbEdit6.Text = '0') or (InicialFrm.dbEdit7.Text = '0') then begin InicialFrm.QueryEndereco.Active := false; InicialFrm.QueryEndereco.Active := true; InicialFrm.QueryVendedor.Active := false; InicialFrm.QueryVendedor.Active := true; InicialFrm.QueryProdutos.Active := false; InicialFrm.QueryProdutos.Active := true; InicialFrm.QueryCliFornTrans2.Active := false; InicialFrm.QueryCliFornTrans2.Active := true; InicialFrm.QueryCodOper.Active := false; InicialFrm.QueryCodOper.Active := true; end; If InicialFrm.dbEdit5.text = '0' then ShowMessage('Não existe nenhum produto cadastrado! Você deve cadastrar pelo menos 1 produto no sistema!') else If InicialFrm.dbEdit6.text = '0' then ShowMessage('Não existe nenhum cliente, fornecedor ou transportadora cadastrado! Você deve cadastrar pelo menos 1 cliente, fornecedor ou transportadora no sistema!') else If InicialFrm.dbEdit3.text = '0' then ShowMessage('Não existe nenhum endereço cadastrado! Você deve cadastrar pelo menos 1 endereço no sistema!') else If InicialFrm.dbEdit4.text = '0' then ShowMessage('Não existe nenhum vendedor cadastrado! Você deve cadastrar pelo menos 1 vendedor no sistema!') else If InicialFrm.dbEdit7.text = '0' then ShowMessage('Não existe nenhum código de operação cadastrado! Você deve cadastrar pelo menos 1 código de operação no sistema!') else If InicialFrm.Edit1.Text = 'lcto' then begin dmoQuerys.QueryEstoqueProd.Active := true; dmoQuerys.queryParcFrete.active := true; dmoQuerys.QueryCadEmpresa.Active := true; dmoQuerys.QueryParcNF.Active := true; If NotasFiscaisFrm.rgPessoa.ItemIndex = 0 then begin NotasFiscaisFrm.label16.Visible := true; NotasFiscaisFrm.label17.Visible := false; end else If NotasFiscaisFrm.rgPessoa.ItemIndex = 1 then begin NotasFiscaisFrm.label16.Visible := false; NotasFiscaisFrm.label17.Visible := true; end; with dmoQuerys.QueryNF.SQL do begin clear; add('select * from notasFiscais where codigoNF = '); add(#39+queryNFCodigoNF.AsString+#39); end; dmoQuerys.QueryNF.Active := false; dmoQuerys.QueryNF.Active := true; with dmoQuerys.QueryFrete.SQL do begin clear; add('select * from fretenf where codigoNF = '); add(#39+dmoquerys.QueryNFCodigoNF.AsString+#39); end; dmoQuerys.QueryFrete.Active := false; dmoQuerys.QueryFrete.Active := true; (Nessa parte aki ele dá o erro sitado abaixo) Se eu colocar a queryFrete para executar antes da queryNF, nada de erro acontece! Um abraço a todos! ---Mensagem original--- De: Thales (Shubacca) - Tebo Software Data: 24/06/2009 20:05:00 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Re: [delphi-br] Erro ao executar SQL Voce poderia mandar o trecho completo para avaliarmos? 2009/6/24 Bruno Lepesqueur brunolbra...@yahoo.com.br Não uso nenhum evento nessas querys! A única coisa que eu uso nelas é a propriedade CachedUpdate = True. Obrigado! ---Mensagem original--- De: Thales (Shubacca) - Tebo Software Data: 06/24/09 19:27:59 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Erro ao executar SQL voce por acaso tem algum evento de afterscroll ou afteropen nessas querys? se tiver de uma olhada para ver se alguma delas nao esta tentando editar sem a query estar em modo de edicao falow 2009/6/24 Bruno Lepesqueur brunolbra...@yahoo.com.brbrunolbrasil%40yahoo com.br Boa noite pessoal! Estou com um problema que não consigo resolver desde a semana passada e gostaria da ajuda de todos! Eu tenho 2 tabelas relacionadas: tblNotas e tblFrete (campo relacionado: codigoNF) Cada nota deve conter um frete que é relacionado através do campo codigoNF Eu consigo inserir registros nas tabelas através das funções tblNotas.insert e da função tblFrete.insert numa boua, mas qdo eu entro no formulário para alterar a nota e o frete que acabei de gravar usando um comando simples do SQL como: with dmoQuerys.QueryNF.SQL do begin clear; add('select * from Notas where codigoNF
Res: Re: Re: [delphi-br] Erro ao executar SQL
Outra forma que dá certo é deixando nessa sequencia normal e mandando ativar a queryNF só depois da QueryFrete já estar ativada! Ele aceita inserir o código SQL na queryNF, mas só aceita ativar ela depois da QueryFrete ativada. Dá pra continuar usando dessa forma, mas tem algo errado pra isso estar acontecendo. Um abraço a todos! ---Mensagem original--- De: Bruno Lepesqueur Data: 25/06/2009 08:45:25 Para: delphi-br@yahoogrupos.com.br Assunto: Res: Re: Re: [delphi-br] Erro ao executar SQL Pessoal... to mandando os códigos que uso no delphi pra ver se vcs conseguem me ajudar: If (dbEdit7.Text '0') and (dbEdit7.Text '') then begin If QueryQtdeCount.value 0 then begin Edit1.text := 'alterar'; If (InicialFrm.dbEdit3.Text = '0') or (InicialFrm.dbEdit4.Text = '0 ) or (InicialFrm.dbEdit5.Text = '0') or (InicialFrm.dbEdit6.Text = '0') or (InicialFrm.dbEdit7.Text = '0') then begin InicialFrm.QueryEndereco.Active := false; InicialFrm.QueryEndereco.Active := true; InicialFrm.QueryVendedor.Active := false; InicialFrm.QueryVendedor.Active := true; InicialFrm.QueryProdutos.Active := false; InicialFrm.QueryProdutos.Active := true; InicialFrm.QueryCliFornTrans2.Active := false; InicialFrm.QueryCliFornTrans2.Active := true; InicialFrm.QueryCodOper.Active := false; InicialFrm.QueryCodOper.Active := true; end; If InicialFrm.dbEdit5.text = '0' then ShowMessage('Não existe nenhum produto cadastrado! Você deve cadastrar pelo menos 1 produto no sistema!') else If InicialFrm.dbEdit6.text = '0' then ShowMessage('Não existe nenhum cliente, fornecedor ou transportadora cadastrado! Você deve cadastrar pelo menos 1 cliente, fornecedor ou transportadora no sistema!') else If InicialFrm.dbEdit3.text = '0' then ShowMessage('Não existe nenhum endereço cadastrado! Você deve cadastrar pelo menos 1 endereço no sistema!') else If InicialFrm.dbEdit4.text = '0' then ShowMessage('Não existe nenhum vendedor cadastrado! Você deve cadastrar pelo menos 1 vendedor no sistema!') else If InicialFrm.dbEdit7.text = '0' then ShowMessage('Não existe nenhum código de operação cadastrado! Você deve cadastrar pelo menos 1 código de operação no sistema!') else If InicialFrm.Edit1.Text = 'lcto' then begin dmoQuerys.QueryEstoqueProd.Active := true; dmoQuerys.queryParcFrete.active := true; dmoQuerys.QueryCadEmpresa.Active := true; dmoQuerys.QueryParcNF.Active := true; If NotasFiscaisFrm.rgPessoa.ItemIndex = 0 then begin NotasFiscaisFrm.label16.Visible := true; NotasFiscaisFrm.label17.Visible := false; end else If NotasFiscaisFrm.rgPessoa.ItemIndex = 1 then begin NotasFiscaisFrm.label16.Visible := false; NotasFiscaisFrm.label17.Visible := true; end; with dmoQuerys.QueryNF.SQL do begin clear; add('select * from notasFiscais where codigoNF = '); add(#39+queryNFCodigoNF.AsString+#39); end; dmoQuerys.QueryNF.Active := false; dmoQuerys.QueryNF.Active := true; with dmoQuerys.QueryFrete.SQL do begin clear; add('select * from fretenf where codigoNF = '); add(#39+dmoquerys.QueryNFCodigoNF.AsString+#39); end; dmoQuerys.QueryFrete.Active := false; dmoQuerys.QueryFrete.Active := true; (Nessa parte aki ele dá o erro sitado abaixo) Se eu colocar a queryFrete para executar antes da queryNF, nada de erro acontece! Um abraço a todos! ---Mensagem original--- De: Thales (Shubacca) - Tebo Software Data: 24/06/2009 20:05:00 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Re: [delphi-br] Erro ao executar SQL Voce poderia mandar o trecho completo para avaliarmos? 2009/6/24 Bruno Lepesqueur brunolbra...@yahoo.com.br Não uso nenhum evento nessas querys! A única coisa que eu uso nelas é a propriedade CachedUpdate = True. Obrigado! ---Mensagem original--- De: Thales (Shubacca) - Tebo Software Data: 06/24/09 19:27:59 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Erro ao executar SQL voce por acaso tem algum evento de afterscroll ou afteropen nessas querys? se tiver de uma olhada para ver se alguma delas nao esta tentando editar sem a query estar em modo de edicao falow 2009/6/24 Bruno Lepesqueur brunolbra...@yahoo.com.brbrunolbrasil%40yahoo com.br Boa noite pessoal! Estou com um problema que não consigo resolver desde a semana passada e gostaria da ajuda de todos! Eu tenho 2 tabelas relacionadas: tblNotas e tblFrete (campo relacionado: codigoNF) Cada nota deve conter um frete que é relacionado através do campo codigoNF Eu consigo inserir registros nas tabelas através das funções tblNotas.insert e da função tblFrete.insert numa boua, mas qdo eu entro no formulário para alterar a nota e o frete que acabei de gravar usando um comando simples do SQL como: with dmoQuerys.QueryNF.SQL do begin clear; add('select * from Notas where codigoNF = '); add(#39+queryNFCodigoNF.AsString+#39); end
Res: Re: Re: [delphi-br] Erro ao executar SQL
Pessoal... eu de novo! Descobri outra coisa que talvez facilite pra vcs agora! Se eu uso assim dá certo: with dmoQuerys.QueryNF.SQL do begin clear; add('select * from notasFiscais where codigoNF = ''275'''); end; dmoQuerys.QueryNF.Active := false; dmoQuerys.QueryNF.Active := true; with dmoQuerys.QueryFrete.SQL do begin clear; add('select * from fretenf where codigoNF = '); add(#39+dmoquerys.QueryNFCodigoNF.AsString+#39); end; dmoQuerys.QueryFrete.Active := false; dmoQuerys.QueryFrete.Active := true; Mas se eu uso assim não dá mais certo: with dmoQuerys.QueryNF.SQL do begin clear; add('select * from notasFiscais where codigoNF = '); add(#39+queryNFCodigoNF.AsString+#39); end; dmoQuerys.QueryNF.Active := false; dmoQuerys.QueryNF.Active := true; with dmoQuerys.QueryFrete.SQL do begin clear; add('select * from fretenf where codigoNF = '); add(#39+dmoquerys.QueryNFCodigoNF.AsString+#39); end; dmoQuerys.QueryFrete.Active := false; dmoQuerys.QueryFrete.Active := true; Esse CodigoNF é um campo Integer e autoincrement. Se eu já informo a o codigo da nota direto no SQL ele passa, mas se eu mando buscar o código direto da query ele não passa! Um abraço! ---Mensagem original--- De: Bruno Lepesqueur Data: 06/25/09 09:14:13 Para: delphi-br@yahoogrupos.com.br Assunto: Res: Re: Re: [delphi-br] Erro ao executar SQL Outra forma que dá certo é deixando nessa sequencia normal e mandando ativar a queryNF só depois da QueryFrete já estar ativada! Ele aceita inserir o código SQL na queryNF, mas só aceita ativar ela depois da QueryFrete ativada. Dá pra continuar usando dessa forma, mas tem algo errado pra isso estar acontecendo. Um abraço a todos! ---Mensagem original--- De: Bruno Lepesqueur Data: 25/06/2009 08:45:25 Para: delphi-br@yahoogrupos.com.br Assunto: Res: Re: Re: [delphi-br] Erro ao executar SQL Pessoal... to mandando os códigos que uso no delphi pra ver se vcs conseguem me ajudar: If (dbEdit7.Text '0') and (dbEdit7.Text '') then begin If QueryQtdeCount.value 0 then begin Edit1.text := 'alterar'; If (InicialFrm.dbEdit3.Text = '0') or (InicialFrm.dbEdit4.Text = '0 ) or (InicialFrm.dbEdit5.Text = '0') or (InicialFrm.dbEdit6.Text = '0') or (InicialFrm.dbEdit7.Text = '0') then begin InicialFrm.QueryEndereco.Active := false; InicialFrm.QueryEndereco.Active := true; InicialFrm.QueryVendedor.Active := false; InicialFrm.QueryVendedor.Active := true; InicialFrm.QueryProdutos.Active := false; InicialFrm.QueryProdutos.Active := true; InicialFrm.QueryCliFornTrans2.Active := false; InicialFrm.QueryCliFornTrans2.Active := true; InicialFrm.QueryCodOper.Active := false; InicialFrm.QueryCodOper.Active := true; end; If InicialFrm.dbEdit5.text = '0' then ShowMessage('Não existe nenhum produto cadastrado! Você deve cadastrar pelo menos 1 produto no sistema!') else If InicialFrm.dbEdit6.text = '0' then ShowMessage('Não existe nenhum cliente, fornecedor ou transportadora cadastrado! Você deve cadastrar pelo menos 1 cliente, fornecedor ou transportadora no sistema!') else If InicialFrm.dbEdit3.text = '0' then ShowMessage('Não existe nenhum endereço cadastrado! Você deve cadastrar pelo menos 1 endereço no sistema!') else If InicialFrm.dbEdit4.text = '0' then ShowMessage('Não existe nenhum vendedor cadastrado! Você deve cadastrar pelo menos 1 vendedor no sistema!') else If InicialFrm.dbEdit7.text = '0' then ShowMessage('Não existe nenhum código de operação cadastrado! Você deve cadastrar pelo menos 1 código de operação no sistema!') else If InicialFrm.Edit1.Text = 'lcto' then begin dmoQuerys.QueryEstoqueProd.Active := true; dmoQuerys.queryParcFrete.active := true; dmoQuerys.QueryCadEmpresa.Active := true; dmoQuerys.QueryParcNF.Active := true; If NotasFiscaisFrm.rgPessoa.ItemIndex = 0 then begin NotasFiscaisFrm.label16.Visible := true; NotasFiscaisFrm.label17.Visible := false; end else If NotasFiscaisFrm.rgPessoa.ItemIndex = 1 then begin NotasFiscaisFrm.label16.Visible := false; NotasFiscaisFrm.label17.Visible := true; end; with dmoQuerys.QueryNF.SQL do begin clear; add('select * from notasFiscais where codigoNF = '); add(#39+queryNFCodigoNF.AsString+#39); end; dmoQuerys.QueryNF.Active := false; dmoQuerys.QueryNF.Active := true; with dmoQuerys.QueryFrete.SQL do begin clear; add('select * from fretenf where codigoNF = '); add(#39+dmoquerys.QueryNFCodigoNF.AsString+#39); end; dmoQuerys.QueryFrete.Active := false; dmoQuerys.QueryFrete.Active := true; (Nessa parte aki ele dá o erro sitado
Res: Re: Re: Re: [delphi-br] Erro ao executar SQL
E aí Leandro!?!?! Eu tenho uma query local chamado queryNF que exibe os dados em uma dbGrid e tenho uma outra queryNF em um data module (dmoQuerys.QueryNF). Estou mandando executar uma query que está no data module mas buscando o registro selecionado da dbGrid que está na queryNF local. O que acontece é que as duas querys estão exibindo os dados da mesma tabela, mas acho q isso não é problema, é? Já to ficando doido rsrs Obrigado! ---Mensagem original--- De: Leandro Data: 25/06/2009 16:28:30 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Re: Re: [delphi-br] Erro ao executar SQL me diz uma coisa como vc esta filtrando uma nota? pq se vc esta filtrando essa tabela usando a mesma query no minimo ela ja devera ter sido aberta uma vez senao o valor de queryNFCodigoNF.AsString sera vazio... n sei se o #39 tbm funciona como o quotedstr() mas recomendo vc usa-lo pois evitará muitos erros de digitacao dos usuários e dor de cabeça rsrs.. with dmoQuerys.QueryNF.SQL do begin clear; add('select * from notasFiscais where codigoNF = '); add(#39+queryNFCodigoNF.AsString+#39); end; dmoQuerys.QueryNF.Active := false; dmoQuerys.QueryNF.Active := true; 2009/6/25 Bruno Lepesqueur brunolbra...@yahoo.com.br Pessoal... eu de novo! Descobri outra coisa que talvez facilite pra vcs agora! Se eu uso assim dá certo: with dmoQuerys.QueryNF.SQL do begin clear; add('select * from notasFiscais where codigoNF = ''275'''); end; dmoQuerys.QueryNF.Active := false; dmoQuerys.QueryNF.Active := true; with dmoQuerys.QueryFrete.SQL do begin clear; add('select * from fretenf where codigoNF = '); add(#39+dmoquerys.QueryNFCodigoNF.AsString+#39); end; dmoQuerys.QueryFrete.Active := false; dmoQuerys.QueryFrete.Active := true; Mas se eu uso assim não dá mais certo: with dmoQuerys.QueryNF.SQL do begin clear; add('select * from notasFiscais where codigoNF = '); add(#39+queryNFCodigoNF.AsString+#39); end; dmoQuerys.QueryNF.Active := false; dmoQuerys.QueryNF.Active := true; with dmoQuerys.QueryFrete.SQL do begin clear; add('select * from fretenf where codigoNF = '); add(#39+dmoquerys.QueryNFCodigoNF.AsString+#39); end; dmoQuerys.QueryFrete.Active := false; dmoQuerys.QueryFrete.Active := true; Esse CodigoNF é um campo Integer e autoincrement. Se eu já informo a o codigo da nota direto no SQL ele passa, mas se eu mando buscar o código direto da query ele não passa! Um abraço! ---Mensagem original--- De: Bruno Lepesqueur Data: 06/25/09 09:14:13 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Res: Re: Re: [delphi-br] Erro ao executar SQL Outra forma que dá certo é deixando nessa sequencia normal e mandando ativar a queryNF só depois da QueryFrete já estar ativada! Ele aceita inserir o código SQL na queryNF, mas só aceita ativar ela depois da QueryFrete ativada. Dá pra continuar usando dessa forma, mas tem algo errado pra isso estar acontecendo. Um abraço a todos! ---Mensagem original--- De: Bruno Lepesqueur Data: 25/06/2009 08:45:25 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Res: Re: Re: [delphi-br] Erro ao executar SQL Pessoal... to mandando os códigos que uso no delphi pra ver se vcs conseguem me ajudar: If (dbEdit7.Text '0') and (dbEdit7.Text '') then begin If QueryQtdeCount.value 0 then begin Edit1.text := 'alterar'; If (InicialFrm.dbEdit3.Text = '0') or (InicialFrm.dbEdit4.Text = '0 ) or (InicialFrm.dbEdit5.Text = '0') or (InicialFrm.dbEdit6.Text = '0') or (InicialFrm.dbEdit7.Text = '0') then begin InicialFrm.QueryEndereco.Active := false; InicialFrm.QueryEndereco.Active := true; InicialFrm.QueryVendedor.Active := false; InicialFrm.QueryVendedor.Active := true; InicialFrm.QueryProdutos.Active := false; InicialFrm.QueryProdutos.Active := true; InicialFrm.QueryCliFornTrans2.Active := false; InicialFrm.QueryCliFornTrans2.Active := true; InicialFrm.QueryCodOper.Active := false; InicialFrm.QueryCodOper.Active := true; end; If InicialFrm.dbEdit5.text = '0' then ShowMessage('Não existe nenhum produto cadastrado! Você deve cadastrar pelo menos 1 produto no sistema!') else If InicialFrm.dbEdit6.text = '0' then ShowMessage('Não existe nenhum cliente, fornecedor ou transportadora cadastrado! Você deve cadastrar pelo menos 1 cliente, fornecedor ou transportadora no sistema!') else If InicialFrm.dbEdit3.text = '0' then ShowMessage('Não existe nenhum endereço cadastrado! Você deve cadastrar pelo menos 1 endereço no sistema!') else If InicialFrm.dbEdit4.text = '0' then ShowMessage('Não existe nenhum vendedor cadastrado! Você deve cadastrar pelo menos 1 vendedor no sistema!') else If InicialFrm.dbEdit7.text = '0' then ShowMessage('Não existe nenhum código de operação cadastrado! Você deve cadastrar pelo menos 1 código de operação no sistema!') else If InicialFrm.Edit1.Text = 'lcto' then begin dmoQuerys.QueryEstoqueProd.Active := true
[delphi-br] Erro ao executar SQL
Boa noite pessoal! Estou com um problema que não consigo resolver desde a semana passada e gostaria da ajuda de todos! Eu tenho 2 tabelas relacionadas: tblNotas e tblFrete (campo relacionado: codigoNF) Cada nota deve conter um frete que é relacionado através do campo codigoNF. Eu consigo inserir registros nas tabelas através das funções tblNotas.insert e da função tblFrete.insert numa boua, mas qdo eu entro no formulário para alterar a nota e o frete que acabei de gravar usando um comando simples do SQL como: with dmoQuerys.QueryNF.SQL do begin clear; add('select * from Notas where codigoNF = '); add(#39+queryNFCodigoNF.AsString+#39); end; dmoQuerys.QueryNF.Active := false; dmoQuerys.QueryNF.Active := true; (para selecionar a nota desejada para alteração) e depois faço o comando: with dmoQuerys.QueryFrete.SQL do begin clear; add('select * from frete where codigoNF = '); add(#39+dmoquerys.QueryNFCodigoNF.AsString+#39); end; dmoQuerys.QueryFrete.Active := false; dmoQuerys.QueryFrete.Active := true; (para selecionar o frete ref. a essa nota que estou alterando) ele dá o seguinte erro: Project SisNota.exe raised exception class EDatabaseError with message Dataset not in edit or Insert mode'. Process stopped. Use Step or Run to continue. (o arquivo está anexo ao e-mail) Eu gostaria de esclarecer que nesse momento a única coisa que eu fiz foi ativar as duas tabelas e nada mais! Elas não estão sendo editadas ou inseridas. O estranho é que se eu mudo a ordem de execução das SQL (mandando a queryFrete antes da queryNF) elas executam numa boa e sem erro! O que será que pode ser pessoal? Eu uso delphi 7 com myDac. Um abraço a todos! [As partes desta mensagem que não continham texto foram removidas]
Res: Re: [delphi-br] Erro ao executar SQL
Não uso nenhum evento nessas querys! A única coisa que eu uso nelas é a propriedade CachedUpdate = True. Obrigado! ---Mensagem original--- De: Thales (Shubacca) - Tebo Software Data: 06/24/09 19:27:59 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Erro ao executar SQL voce por acaso tem algum evento de afterscroll ou afteropen nessas querys? se tiver de uma olhada para ver se alguma delas nao esta tentando editar sem a query estar em modo de edicao falow 2009/6/24 Bruno Lepesqueur brunolbra...@yahoo.com.br Boa noite pessoal! Estou com um problema que não consigo resolver desde a semana passada e gostaria da ajuda de todos! Eu tenho 2 tabelas relacionadas: tblNotas e tblFrete (campo relacionado: codigoNF) Cada nota deve conter um frete que é relacionado através do campo codigoNF Eu consigo inserir registros nas tabelas através das funções tblNotas.insert e da função tblFrete.insert numa boua, mas qdo eu entro no formulário para alterar a nota e o frete que acabei de gravar usando um comando simples do SQL como: with dmoQuerys.QueryNF.SQL do begin clear; add('select * from Notas where codigoNF = '); add(#39+queryNFCodigoNF.AsString+#39); end; dmoQuerys.QueryNF.Active := false; dmoQuerys.QueryNF.Active := true; (para selecionar a nota desejada para alteração) e depois faço o comando: with dmoQuerys.QueryFrete.SQL do begin clear; add('select * from frete where codigoNF = '); add(#39+dmoquerys.QueryNFCodigoNF.AsString+#39); end; dmoQuerys.QueryFrete.Active := false; dmoQuerys.QueryFrete.Active := true; (para selecionar o frete ref. a essa nota que estou alterando) ele dá o seguinte erro: Project SisNota.exe raised exception class EDatabaseError with message Dataset not in edit or Insert mode'. Process stopped. Use Step or Run to continue. (o arquivo está anexo ao e-mail) Eu gostaria de esclarecer que nesse momento a única coisa que eu fiz foi ativar as duas tabelas e nada mais! Elas não estão sendo editadas ou inseridas. O estranho é que se eu mudo a ordem de execução das SQL (mandando a queryFrete antes da queryNF) elas executam numa boa e sem erro! O que será que pode ser pessoal? Eu uso delphi 7 com myDac. Um abraço a todos! [As partes desta mensagem que não continham texto foram removidas] -- Thales Eduardo Barros de Oliveira Desenvolvedor Delphi / Firebird / Java Emails: tebosoftw...@gmail.com (GoogleTalk) thales_...@hotmail.com (MSN) Blog: http://tebosoftware.blogspot.com/ Tente ser uma pessoa de valor, não de sucesso Albert Einstein [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Enquanto processa
Boa noite pessoal! Eu criei um botão que executa o relatório de clientes, mas até que o relatório carregue demora uns 50 segundos e às vezes dá impressão que o sistema travou! Tem como ele exibir uma lupa ou o percentual na tela enquanto o relatório estiver sendo processado? Dessa forma o usuário saberá que o relatório está terminando de ser concluído e aguardará numa boua! Obrigado! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] MySQL Servidor
Boa tarde pessoal! Aconteceu uma coisa estranha aki em minha rede e não consigo descobrir! Eu estava conseguindo ter acesso ao meu banco de dados através de IP e agora só consigo conectar à ele se eu colcar localhost no lugar! O que será que eu posso ter feito de errado? Será q o myDAC bloqueia isso por algum motivo ou não tem nada a ver? O MySQL já está configurado como servidor, o firewall não está abilitado, .. Se tiverem alguma sugestão eu agradeço! Obrigado! [As partes desta mensagem que não continham texto foram removidas]
Res: Re: [delphi-br] MySQL Servidor
Paulo... eu to usando a senha de root do mysql e o usuário do win. xp tem permissões totais! Se não tivesse eu não teria conseguido criar o acesso à pasta pela rede! Alguém mais tem alguma outra dica? Obrigado! ---Mensagem original--- De: Paulo Coutinho Data: 04/23/09 16:07:43 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] MySQL Servidor ja verificou as permissões do usuário q você usa para se conectar ao banco. verifique os IPs que o usuário permite conectar. 2009/4/23 Bruno Lepesqueur brunolbra...@yahoo.com.br Boa tarde pessoal! Aconteceu uma coisa estranha aki em minha rede e não consigo descobrir! Eu estava conseguindo ter acesso ao meu banco de dados através de IP e agora só consigo conectar à ele se eu colcar localhost no lugar! O que será que eu posso ter feito de errado? Será q o myDAC bloqueia isso por algum motivo ou não tem nada a ver? O MySQL já está configurado como servidor, o firewall não está abilitado, .. Se tiverem alguma sugestão eu agradeço! Obrigado! [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]
Res: [delphi-br] MySQL Servidor
Obrigado Berdam, mas eu não tenho nem idéia do que é esse grant. Pode me passar o código pra eu executar? Obrigado! ---Mensagem original--- De: Berdam Data: 04/23/09 17:38:01 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] MySQL Servidor o servidor mysql bloqueia conexões de root remotamente, vc tem que executar um comando grant no mysql para liberar o acesso root das outras máquinas. -- 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 -- De: Paulo Coutinho pa...@prsolucoes.com Para: delphi-br@yahoogrupos.com.br Enviadas: Quinta-feira, 23 de Abril de 2009 16:03:58 Assunto: Re: [delphi-br] MySQL Servidor ja verificou as permissões do usuário q você usa para se conectar ao banco. verifique os IPs que o usuário permite conectar. 2009/4/23 Bruno Lepesqueur brunolbrasil@ yahoo.com. br Boa tarde pessoal! Aconteceu uma coisa estranha aki em minha rede e não consigo descobrir! Eu estava conseguindo ter acesso ao meu banco de dados através de IP e agora só consigo conectar à ele se eu colcar localhost no lugar! O que será que eu posso ter feito de errado? Será q o myDAC bloqueia isso por algum motivo ou não tem nada a ver? O MySQL já está configurado como servidor, o firewall não está abilitado, .. Se tiverem alguma sugestão eu agradeço! Obrigado! [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] 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]
Res: Re: [delphi-br] MySQL Servidor
Ok... já olhei as permissões root e ta tudo marcado, ou seja, o root está com total permissão! Gostaria de saber se nos clientes eu devo instalar algo sobre o mySql (servidor) ou se somente bastará eu executar a aplicação? Não entendo pq eu não consigo mais fazer funcionar! Eu posso executar o arquivo pela rede ou eu devo instalar os arquivos localmente na máquina cliente? O erro que dá é o erro do windows que tem dois botões para enviar relatório ou não para a microsoft! Mais uma vez eu agradeço a todos!! ---Mensagem original--- De: Paulo Coutinho Data: 04/23/09 19:27:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] MySQL Servidor Google ! Quem procura acha. Link: http://dev.mysql.com/doc/refman/5.1/en/grant.html 2009/4/23 Bruno Lepesqueur brunolbra...@yahoo.com.br Obrigado Berdam, mas eu não tenho nem idéia do que é esse grant. Pode me passar o código pra eu executar? Obrigado! ---Mensagem original--- De: Berdam Data: 04/23/09 17:38:01 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Res: [delphi-br] MySQL Servidor o servidor mysql bloqueia conexões de root remotamente, vc tem que executar um comando grant no mysql para liberar o acesso root das outras máquinas. -- 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 -- De: Paulo Coutinho pa...@prsolucoes.com paulo%40prsolucoes.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Enviadas: Quinta-feira, 23 de Abril de 2009 16:03:58 Assunto: Re: [delphi-br] MySQL Servidor ja verificou as permissões do usuário q você usa para se conectar ao banco verifique os IPs que o usuário permite conectar. 2009/4/23 Bruno Lepesqueur brunolbrasil@ yahoo.com. br Boa tarde pessoal! Aconteceu uma coisa estranha aki em minha rede e não consigo descobrir! Eu estava conseguindo ter acesso ao meu banco de dados através de IP e agora só consigo conectar à ele se eu colcar localhost no lugar! O que será que eu posso ter feito de errado? Será q o myDAC bloqueia isso por algum motivo ou não tem nada a ver? O MySQL já está configurado como servidor, o firewall não está abilitado .. Se tiverem alguma sugestão eu agradeço! Obrigado! [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] 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] -- 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]
Res: Re: Re: [delphi-br] MySQL Servidor
Paulo... muitíssimo obrigado! Tem uns 3 dias que tô garrado aki e tentando fazer isso funcionar! Agora deu certo, graças a vc e ao restante do pessoal! Um abraço a todos e uma boa noite! ---Mensagem original--- De: Paulo Coutinho Data: 23/04/2009 19:51:48 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Re: [delphi-br] MySQL Servidor A questão não é estar tudo marcado garantido acesso a insert/select/update/delete e sim para você checar quais IPs o usuário permite conectar. Pois provavelmente seu usuário só permite através de LOCALHOST, ai basta você colocar o IP da máquina que você quer ou um % para liberar geral(para qualquer IP). Entra nesse link que te explico visualmente: http://www.prsolucoes.com/downloads/temp_mysql.png 2009/4/23 Bruno Lepesqueur brunolbra...@yahoo.com.br Ok... já olhei as permissões root e ta tudo marcado, ou seja, o root está com total permissão! Gostaria de saber se nos clientes eu devo instalar algo sobre o mySql (servidor) ou se somente bastará eu executar a aplicação? Não entendo pq eu não consigo mais fazer funcionar! Eu posso executar o arquivo pela rede ou eu devo instalar os arquivos localmente na máquina cliente? O erro que dá é o erro do windows que tem dois botões para enviar relatório ou não para a microsoft! Mais uma vez eu agradeço a todos!! ---Mensagem original--- De: Paulo Coutinho Data: 04/23/09 19:27:19 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] MySQL Servidor Google ! Quem procura acha. Link: http://dev.mysql.com/doc/refman/5.1/en/grant.html 2009/4/23 Bruno Lepesqueur brunolbra...@yahoo.com.brbrunolbrasil%40yahoo com.br Obrigado Berdam, mas eu não tenho nem idéia do que é esse grant. Pode me passar o código pra eu executar? Obrigado! ---Mensagem original--- De: Berdam Data: 04/23/09 17:38:01 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com brdelphi-br% 40yahoogrupos.com.br Assunto: Res: [delphi-br] MySQL Servidor o servidor mysql bloqueia conexões de root remotamente, vc tem que executar um comando grant no mysql para liberar o acesso root das outras máquinas -- 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 -- De: Paulo Coutinho pa...@prsolucoes.com paulo%40prsolucoes.compaulo% 40prsolucoes.com Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com brdelphi-br% 40yahoogrupos.com.br Enviadas: Quinta-feira, 23 de Abril de 2009 16:03:58 Assunto: Re: [delphi-br] MySQL Servidor ja verificou as permissões do usuário q você usa para se conectar ao banco verifique os IPs que o usuário permite conectar. 2009/4/23 Bruno Lepesqueur brunolbrasil@ yahoo.com. br Boa tarde pessoal! Aconteceu uma coisa estranha aki em minha rede e não consigo descobrir! Eu estava conseguindo ter acesso ao meu banco de dados através de IP e agora só consigo conectar à ele se eu colcar localhost no lugar! O que será que eu posso ter feito de errado? Será q o myDAC bloqueia isso por algum motivo ou não tem nada a ver? O MySQL já está configurado como servidor, o firewall não está abilitado .. Se tiverem alguma sugestão eu agradeço! Obrigado! [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] 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] -- 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]
Res: Re: [delphi-br] Re: Delphi 7 X Delphi 2009
Ok... vou fazer um teste sim, mas respondam uma coisa... Se eu quiser usar o delphi 2009 para conectar bancos mySQL eu consigo fazer sem o myDAC? O delphi 2009 tem algum componente de confiança pra isso? Um abraço! ---Mensagem original--- De: Eduardo Silva dos Santos Data: 20/04/2009 23:45:28 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Re: Delphi 7 X Delphi 2009 Bruno, você deverá baixar o MyDAC para Delphi 2009. em relação ao MyDAC não vai precisar mexer em nada.. quanto ao resto do sistema não garanto.. Eu te recomendo fortemente a baixar o trial do Delphi 2009, providenciar todos os componentes e fazer a compilação do Seu sistema para só depois comprar a licença, assim você não se depara com nenhuma surpresa. --- Em delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br, Bruno Lepesqueur brunolbra...@... escreveu Pessoal, boa tarde! Eu liguei para o suporte da borland pra fazer um orçamento sobre preços de licenças do delphi! A atendente me disse que só consegue me vender a qtde de uma licença para o delphi 2009. Eu uso o delphi 7, mas pra eu ter a licença do mesmo ela me disse que eu teria que adquirir no mínimo 4 licenças, mas até aí tudo bem... A dúvida é a seguinte... Pelo que ela me disse o delphi terá valores diferentes dependendo dos pacotes que eu escolher, ou seja, alguns pacotes já vem os drivers específicos para alguns bancos de dados (coisa que o delphi 7 não tem). Eu uso o delphi 7 com o MySQL e faço a conexão usando o MyDAC. Quer dizer que se eu comprar o delphi 2009 com os pacotes para o mySQL eu não irei precisar mais do MyDAC? Outra coisa... será que eu vou ter q readaptar o meu sistema todo do Delphi 7 para o Delphi 2009? Um abraço a todos! [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.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] Delphi 7 X Delphi 2009
Pessoal, boa tarde! Eu liguei para o suporte da borland pra fazer um orçamento sobre preços de licenças do delphi! A atendente me disse que só consegue me vender a qtde de uma licença para o delphi 2009. Eu uso o delphi 7, mas pra eu ter a licença do mesmo ela me disse que eu teria que adquirir no mínimo 4 licenças, mas até aí tudo bem... A dúvida é a seguinte... Pelo que ela me disse o delphi terá valores diferentes dependendo dos pacotes que eu escolher, ou seja, alguns pacotes já vem os drivers específicos para alguns bancos de dados (coisa que o delphi 7 não tem). Eu uso o delphi 7 com o MySQL e faço a conexão usando o MyDAC. Quer dizer que se eu comprar o delphi 2009 com os pacotes para o mySQL eu não irei precisar mais do MyDAC? Outra coisa... será que eu vou ter q readaptar o meu sistema todo do Delphi 7 para o Delphi 2009? Um abraço a todos! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Backup MySQL
Bom dia pessoal! Como que eu consigo criar um botão no delphi 7 que faça o backup do banco ou dos bancos que eu tenho no mysql? Pode ser um backup em código SQL e no formato .txt. Obrigado! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Compra myDAC
Bom pessoal, ta complicado pra mim porque já tem umas 2 semanas que eu comprei o myDAC e a compra tb já consta em meu cartão de crédito, mas eu não recebo o programa e nem a licença! Eu recebi um e-mail inglês no dia 02/04/09 e não sei se isso pode ser a licença pq o meu inglês é quase zero rs Se tiverem como me intruirem! O e-mail é o seguinte: Hello, We received your order #265861406 for 'MyDAC Professional Subscription single license'. Could you please specify your MyDAC license number you would to renew subscription for or email address used on the initial purchase. If you have any further questions please contact us at sa...@devart.com Devart Sales Team sa...@devart.com www.devart.com Já estou ficando louco pq o meu já inspirou e eu preciso passar o meu programa para o cliente! Obrigado a todos! [As partes desta mensagem que não continham texto foram removidas]
Res: Re: [delphi-br] Compra myDAC
rsrs Ta certo... o bravo é ter que esperar tanto tempo pra receber o programa, né? Um abraço! ---Mensagem original--- De: Humberto Oliveira Data: 15/04/2009 14:16:37 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Compra myDAC Receberam sua encomenda com número #265861406 e estão solicitando o número da sua inscrição MyDAC para renovação ou o e-mail utilizado na compra inicial da licença. Sacou? 2009/4/15 Bruno Lepesqueur brunolbra...@yahoo.com.br Bom pessoal, ta complicado pra mim porque já tem umas 2 semanas que eu comprei o myDAC e a compra tb já consta em meu cartão de crédito, mas eu não recebo o programa e nem a licença! Eu recebi um e-mail inglês no dia 02/04/09 e não sei se isso pode ser a licença pq o meu inglês é quase zero rs Se tiverem como me intruirem! O e-mail é o seguinte: Hello, We received your order #265861406 for 'MyDAC Professional Subscription single license'. Could you please specify your MyDAC license number you would to renew subscription for or email address used on the initial purchase. If you have any further questions please contact us at sa...@devart comsales%40devart.com Devart Sales Team sa...@devart.com sales%40devart.com www.devart.com Já estou ficando louco pq o meu já inspirou e eu preciso passar o meu programa para o cliente! Obrigado a todos! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: Re: [delphi-br] Compra myDAC
Pessoal, a minha situação é complicada! Eu comprei o myDAC e vou acabar perdendo o cliente pq não recebi ele ainda! Faltam 1 dia pra expirar! O que eu faço? Eu mando e-mails, mas eles não resolvem! Alguém sabe de alguma solução ou algum telefone pra falar com os representantes do Brasil? Obrigado! ---Mensagem original--- De: Andrei Luís Data: 15/04/2009 14:32:49 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Compra myDAC Bruno, que tal tentar com o Google Translator? http://translate.google.com/?hl=pt-BR Veja o resultado: Nós recebemos a sua encomenda # 265861406 para 'MyDAC Professional Subscrição licença única . Poderia especificar o seu número de licença MyDAC faria para renovar subscrição por e-mail ou utilizados na compra inicial. Se tiver mais alguma dúvida entre em contato conosco pelo sa...@devart.com [] Andrei 2009/4/15 Bruno Lepesqueur brunolbra...@yahoo.com.br Bom pessoal, ta complicado pra mim porque já tem umas 2 semanas que eu comprei o myDAC e a compra tb já consta em meu cartão de crédito, mas eu não recebo o programa e nem a licença! Eu recebi um e-mail inglês no dia 02/04/09 e não sei se isso pode ser a licença pq o meu inglês é quase zero rs Se tiverem como me intruirem! O e-mail é o seguinte: Hello, We received your order #265861406 for 'MyDAC Professional Subscription single license'. Could you please specify your MyDAC license number you would to renew subscription for or email address used on the initial purchase. If you have any further questions please contact us at sa...@devart.com Devart Sales Team sa...@devart.com www.devart.com Já estou ficando louco pq o meu já inspirou e eu preciso passar o meu programa para o cliente! Obrigado a todos! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: Re: [delphi-br] Compra myDAC
Tudo bem Eduardo entendi, mas eu já havia traduzido utilizando o translator e só queria ter certeza! Sobre a numeração que eu passei aki no forum, eu mudei o nr. e ele só serve para exemplo mesmo! rs Eu fiz foi o mais barato mesmo, mas eu não tenho licença inicial! Será que terei problema? Será que eu terei que compra-la novamente? Obrigado! ---Mensagem original--- De: Eduardo Silva dos Santos Data: 04/15/09 17:04:11 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Compra myDAC Bruno, em primeiro lugar, JAMAIS, repasse o e-mail que o forcedor te enviou, você poderia sem querer mostrar sua senha de acesso e dados da licença a todos. outra coisa.. esse desculpa do inglês não justifica, exitem milhares de tradutores on-line. (eu mesmo uso) Pelo que consta na mensagem da DevArt, você renovou a sua licença, e eles querem que você informe os dados da sua licença inicial para que eles façam todas as modificações. Pelo que vejo vc comprou a renovação que é mais barata pensando que tava comprando a licença. O processo de compra na DevArt é tranquilo, assim que estiver tudo confirmado eles vão de passar um e-mail com seu numero de registro e senha de acesso a àrea do cliente. (favor nao postar esse e-mail para o mundo) qualquer dúvada quanto a solução do seu problema escreva para sa...@devart.com att, Eduardo. 2009/4/15 Bruno Lepesqueur brunolbra...@yahoo.com.br Bom pessoal, ta complicado pra mim porque já tem umas 2 semanas que eu comprei o myDAC e a compra tb já consta em meu cartão de crédito, mas eu não recebo o programa e nem a licença! Eu recebi um e-mail inglês no dia 02/04/09 e não sei se isso pode ser a licença pq o meu inglês é quase zero rs Se tiverem como me intruirem! O e-mail é o seguinte: Hello, We received your order #265861406 for 'MyDAC Professional Subscription single license'. Could you please specify your MyDAC license number you would to renew subscription for or email address used on the initial purchase. If you have any further questions please contact us at sa...@devart comsales%40devart.com Devart Sales Team sa...@devart.com sales%40devart.com www.devart.com Já estou ficando louco pq o meu já inspirou e eu preciso passar o meu programa para o cliente! Obrigado a todos! [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.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] Licença delphi 7
Bom dia pessoal! Preciso comprar uma licença para delphi 7. Alguém tem pra vender ou eu só consigo comprar direto da Borland? Obrigado e um abraço a todos! [As partes desta mensagem que não continham texto foram removidas]
Res: RE: [delphi-br] Licença delphi 7
Blz Bruno... e vc mesmo não tem a licença do delphi 7 pra me passar? Um abraço! ---Mensagem original--- De: Bruno Lichot Data: 04/03/09 10:02:16 Para: delphi-br@yahoogrupos.com.br Assunto: RE: [delphi-br] Licença delphi 7 O processo de compra de uma licença de terceiro é um processo judicial de transmissão de propriedade. Para alguns casos voce pode adquirir diretamente o Delphi 7 quando é comprovado tecnicamente que somente esta versão lhe atende. E não precisa falar com Borland/Inprise/Codegear/Embarcadero ou sei la mais quem .. Bata entrar em contato comigo mesmo para qualquer problema/questão de licenciamento do Delphi. Meu email: bruno.lic...@borland.com Meu telefone: 11-2165-8000 Abs BL From: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] On Behalf Of Moacir - GMail Sent: sexta-feira, 3 de abril de 2009 08:01 To: delphi-br@yahoogrupos.com.br Subject: Re: [delphi-br] Licença delphi 7 Bruno, Acredito que vc possa sim comprar uma licença de terceiros, mas esta venda deverá ser comunicada a Borland/Inprise/Codegear/Embarcadero ou sei la mais quem.. Procure informar-se melhor a respeito. Este assunto ja foi profundamente debatido por aqui. [ ]´s Moacir Jhosef Marks escreveu: Vc vai ter que comprar o D2009 e pedir um downgrade para versão 7. JM 2009/4/3 Bruno Lepesqueur brunolbra...@yahoo.com.br mailto:brunolbrasil%40yahoo.com.br Bom dia pessoal! Preciso comprar uma licença para delphi 7. Alguém tem pra vender ou eu só consigo comprar direto da Borland? Obrigado e um abraço a todos! [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] [As partes desta mensagem que não continham texto foram removidas]
Res: Re: [delphi-br] Licença MyDAC
Bom dia! No site do MyDAC tem várias licenças (http://devart.com/mydac/ordering.html) pra comprar. Alguém sabe me dizer qual dessas que eu posso comprar pra eu continuar desenvolvendo o meu sistema e coloca-lo em rede? Quero comprar a licença em nome de minha empresa (pessoa jurídica). Um abraço! ---Mensagem original--- De: Eduardo Silva dos Santos Data: 03/26/09 19:53:45 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Licença MyDAC Olá Bruno, esse tipo de coisa configura pirataria e não é permitida na lista. Caso tennha interesse entre contato em PVT que posso te ajudar a comprar a licença diretamente no site. -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... 2009/3/26 Bruno Lepesqueur brunolbra...@yahoo.com.br Pessoal, ninguém da lista tem o myDAC licenciado para delphi 7 pra me fornecer ou vender? Obrigado! [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: Re: Re: [delphi-br] Licença MyDAC
Obrigado pela dica Escobar, mas tenho outra dúvida: Eu tenho como comprar as licenças: Standard e a Professional Edition. Vc sabe me dizer qual a diferença entre elas e se a Standard me atende? Além de escolher entre essas duas eu tenho as opções de comprar elas como single, team e site. (tb não sei oq significa) Obrigado! ---Mensagem original--- De: Luiz Escobar Data: 03/27/09 10:48:28 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Re: [delphi-br] Licença MyDAC Bom se for pra usar só com MySQL compre o MyDAC, se for usar hoje com MySQL e amanhã com oracle, ms-sql ou firebird, compre o UniDAC Eu tenho o MyDAC pq não existia o UniDAC... O meu ainda é a versão 4, hoje tem a 5 mas ainda não fiz o upgrade... Eu comprei a versão que vem com os FONTES. Hoje seria uma das versões com SOURCE ACCESS, tem duas e não sei a diferença entre elas, teria que perguntar á eles para saber a diferença, e ai sim optar por uma. abrçs Luiz Escobar From: Bruno Lepesqueur Sent: Friday, March 27, 2009 9:47 AM To: delphi-br@yahoogrupos.com.br Subject: Res: Re: [delphi-br] Licença MyDAC Bom dia! No site do MyDAC tem várias licenças (http://devart.com/mydac/ordering.html) pra comprar. Alguém sabe me dizer qual dessas que eu posso comprar pra eu continuar desenvolvendo o meu sistema e coloca-lo em rede? Quero comprar a licença em nome de minha empresa (pessoa jurídica). Um abraço! ---Mensagem original--- De: Eduardo Silva dos Santos Data: 03/26/09 19:53:45 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Licença MyDAC Olá Bruno, esse tipo de coisa configura pirataria e não é permitida na lista. Caso tennha interesse entre contato em PVT que posso te ajudar a comprar a licença diretamente no site. -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... 2009/3/26 Bruno Lepesqueur brunolbra...@yahoo.com.br Pessoal, ninguém da lista tem o myDAC licenciado para delphi 7 pra me fornecer ou vender? Obrigado! [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] [As partes desta mensagem que não continham texto foram removidas]
Res: Re: Re: [delphi-br] Licença MyDAC
i pessoal! rs Cada vez vcs me deixam com mais dúvidas rs Pra que vai me servir comprar ele com fontes ou sem fontes? Isso é pra eu mexer no código do myDac se eu quiser? Obrigado a todos! ---Mensagem original--- De: Luiz Escobar Data: 27/03/2009 20:07:26 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Re: [delphi-br] Licença MyDAC Se for pra comprar sem fontes para depois ter que comprar os fontes, melhor ja comprar tudo, pq explicar pro chefe que precisa de mais da mesma coisa, puts... []s Luiz Escobar From: Eduardo Silva dos Santos Sent: Friday, March 27, 2009 10:31 AM To: delphi-br@yahoogrupos.com.br Subject: Re: Re: [delphi-br] Licença MyDAC Bruno, nesse link da pra ver as diferenças de cada edição do MyDAC http://devart.com/mydac/editions.html todos vão funcionar em rede, a grande difrerença são os componentes oferecidos e a questão dos fontes. eu por exemplo, tenho a Versão Professional Edition, ela é completa mas sem os fontes. em breve vou migrar para a versão Professional Edition with Source Code. compre a versão Professional Edition por $199,95 depois vc migra se necessário a compra pelo ShareIt é tranquila, mais requer um cartão de crédito internacional. da uma olhada no site que lá tem todas as informações. 2009/3/27 Bruno Lepesqueur brunolbra...@yahoo.com.br Bom dia! No site do MyDAC tem várias licenças ( http://devart.com/mydac/ordering.html) pra comprar. Alguém sabe me dizer qual dessas que eu posso comprar pra eu continuar desenvolvendo o meu sistema e coloca-lo em rede? Quero comprar a licença em nome de minha empresa (pessoa jurídica). Um abraço! ---Mensagem original--- De: Eduardo Silva dos Santos Data: 03/26/09 19:53:45 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Licença MyDAC Olá Bruno, esse tipo de coisa configura pirataria e não é permitida na lista. Caso tennha interesse entre contato em PVT que posso te ajudar a comprar a licença diretamente no site. -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com eduardo.drd%40gmail.com Site: http://www.drdsistemas.com.br/ ... 2009/3/26 Bruno Lepesqueur brunolbra...@yahoo.com.brbrunolbrasil%40yahoo com.br Pessoal, ninguém da lista tem o myDAC licenciado para delphi 7 pra me fornecer ou vender? Obrigado! -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.com.br/ ... [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] Licença MyDAC
Pessoal, ninguém da lista tem o myDAC licenciado para delphi 7 pra me fornecer ou vender? Obrigado! [As partes desta mensagem que não continham texto foram removidas]
Res: Re: [delphi-br] Cópia do banco MySQL
Pessoal, já descobri o problema! Acho q era por causa do SQL Manager que eu estava usando! Obrigado a todos! Um abraço! ---Mensagem original--- De: Eduardo Silva dos Santos Data: 26/03/2009 07:52:26 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Cópia do banco MySQL É Luiz, MyISAM é rápido como um foguete, mas sensível como um bebê, qualquer coisa.. já era. O ideal mesmo é usar InnoDB, que além de todos os recursos, é bem robusto. 2009/3/25 Luiz Escobar esco...@megasistema.com.br Então ta explicado, tenho nobreak e gerador, nobreak segura e se não voltar em 15 segundos gerador arma. Mas bom saber que MyISAM tem este problema, nunca ia descobrir. []s Luiz Escobar From: Eduardo Silva dos Santos Sent: Wednesday, March 25, 2009 9:47 AM To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Subject: Re: [delphi-br] Cópia do banco MySQL Se você tiver um servidor com no-break, realmente MyIsam nao vai dar problema nao, mas essa não é a realidade de todos. com Innodb, pode usar servidor sem no-break, pode chutar o servidor, da uma paulada nele que vai funcionar. 2009/3/24 Luiz Escobar esco...@megasistema.com.brescobar%40megasistema com.br Estou migrando aos poucos ao InnoDB também, alias nem migrando o que vem novo é feito em InnoDB, pelas vantagens ja comentadas, porem NUNCA tive problemas com os MyISAM. []s Luiz Escobar -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 9961-7095 MSN: eduardo@gmail.com Site: http://www.drdsistemas.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] Cópia do banco MySQL
Pessoal... to usando o Delphi 7 com o MySQL 5, e trabalho com eles na empresa e to tentando levar pra casa tb, mas não consigo fazer o banco de dados funcionar em casa. Seguinte... eu usava um banco do tipo MyISAM e agora converti ele para InnoDB. Pelo que entendi o MyISAM não trabalha com relacionamentos entre tabelas (chave estrangeira) e refiz o meu banco todo como InnoDB e fiz os relacionamentos entre tabelas, mas o problema é que se eu apenas copiar a pasta do banco de dados e colar no outro micro ele não aceita! OBS.: O banco que eu tinha no formato MyISAM aceitava eu apenas copiar o banco (C:\Arquivos de programas\MySQL\MySQL Server 5.0\data\nome do banco) de um computador e colar no outro para que tudo funcionasse. O que vcs me sugerem? Obrigado! [As partes desta mensagem que não continham texto foram removidas]
Res: Re: [delphi-br] Cópia do banco MySQL
Mas eu devo copiar esses ib_logfile0 e ib_logfile1 também ou não? Obrigado! ---Mensagem original--- De: Luiz Escobar Data: 03/24/09 16:55:55 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Cópia do banco MySQL InnoDB usa vários outros arquivos... como: ib_logfile0 ib_logfile1 ibdata1 E os da pasta DATABASENAME que você criou. []s Luiz Escobar From: Bruno Lepesqueur Sent: Tuesday, March 24, 2009 2:52 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Cópia do banco MySQL Pessoal... to usando o Delphi 7 com o MySQL 5, e trabalho com eles na empresa e to tentando levar pra casa tb, mas não consigo fazer o banco de dados funcionar em casa. Seguinte... eu usava um banco do tipo MyISAM e agora converti ele para InnoDB. Pelo que entendi o MyISAM não trabalha com relacionamentos entre tabelas (chave estrangeira) e refiz o meu banco todo como InnoDB e fiz os relacionamentos entre tabelas, mas o problema é que se eu apenas copiar a pasta do banco de dados e colar no outro micro ele não aceita! OBS.: O banco que eu tinha no formato MyISAM aceitava eu apenas copiar o banco (C:\Arquivos de programas\MySQL\MySQL Server 5.0\data\nome do banco) de um computador e colar no outro para que tudo funcionasse. O que vcs me sugerem? Obrigado! [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] MyDAC
Como que eu faço pra comprar o MyDAC para o delphi 7? Obrigado! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Não usar o mesmo registro ao mesmo tempo
Bom dia a todos! Pessoal... agora que eu consegui colocar o sistema em rede eu me deparei com outra situação! rs Vamos supor que nesse momento um usuário esteja alterando o produto de código 5 e de repente outro usuário de outro computador entra nesse mesmo produto de código 5 e começa alterar ele tb (tudo simultaneamente). Eu gostaria de alguma solução para que a minha aplicação não aceitasse isso, ou seja, quando um usuário estiver alterando um produto o outro não pode alterar até que a alteração seja finalizada pelo primeiro usuário. Dentro da aplicação e em alguns casos eu crio o: if tblProdutos.state in [dsInsert, dsEdit] then, mas me parece que isso só vale para a aplicação local e não para todos que estiverem editando ou inserindo a tabela produtos pela rede. Obrigado a todos! [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Não usar o mesmo registro ao mesmo tempo
Não entendi! Vc acha q eu posso colocar algum código no sqlconnection que dará certo? Pode me dar um exemplo? Obrigado! ---Mensagem original--- De: Berdam Data: 02/18/09 09:02:59 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Não usar o mesmo registro ao mesmo tempo veja a respeito de transação, acho que isso vc pode arrumar no sqlconnection -- 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 -- De: Bruno Lepesqueur brunolbra...@yahoo.com.br Para: delphi-br@yahoogrupos.com.br Enviadas: Quarta-feira, 18 de Fevereiro de 2009 8:36:45 Assunto: [delphi-br] Não usar o mesmo registro ao mesmo tempo Bom dia a todos! Pessoal... agora que eu consegui colocar o sistema em rede eu me deparei com outra situação! rs Vamos supor que nesse momento um usuário esteja alterando o produto de código 5 e de repente outro usuário de outro computador entra nesse mesmo produto de código 5 e começa alterar ele tb (tudo simultaneamente) . Eu gostaria de alguma solução para que a minha aplicação não aceitasse isso, ou seja, quando um usuário estiver alterando um produto o outro não pode alterar até que a alteração seja finalizada pelo primeiro usuário. Dentro da aplicação e em alguns casos eu crio o: if tblProdutos. state in [dsInsert, dsEdit] then, mas me parece que isso só vale para a aplicação local e não para todos que estiverem editando ou inserindo a tabela produtos pela rede. Obrigado a todos! [As partes desta mensagem que não continham texto foram removidas] 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]
[delphi-br] Alterar registro simultaneamente
Bom dia a todos! Pessoal... agora que eu consegui colocar o sistema em rede eu me deparei com outra situação! rs Vamos supor que nesse momento um usuário esteja alterando o produto de código 5 e de repente outro usuário de outro computador entra nesse mesmo produto de código 5 e começa alterar ele tb (tudo simultaneamente) . Eu gostaria de alguma solução para que a minha aplicação não aceitasse isso, ou seja, quando um usuário estiver alterando um produto o outro não pode alterar até que a alteração seja finalizada pelo primeiro usuário. Dentro da aplicação e em alguns casos eu crio o: if tblProdutos. state in [dsInsert, dsEdit] then, mas me parece que isso só vale para a aplicação local e não para todos que estiverem editando ou inserindo a tabela produtos pela rede. Obrigado a todos! [As partes desta mensagem que não continham texto foram removidas]
Res: Re: Re: [delphi-br] Conexao com o banco
Pessoal, até hj não consegui fazer o meu sistema funcionar a rede! Pra começar eu já acho q estou errado pq eu não consigo fazer a minha aplicação funcionar sem ter q instalar o delphi 7 completo nos micros clientes! Preciso saber se eu tenho q instalar o delphi 7 em todos os computadores clientes ou se basta eu criar um atalho nos clientes do executável que está no computador servidor de aplicação. (eu uso delphi 7, banco: mysql 5 e myDAC) Outra coisa que eu fiz foi a seguinte... eu criei um mapeamento no cliente da pasta data do mysql e tentei acessar o banco via mapeamento, mas tb não deu certo! Qdo eu entro no componente do myDAC e aponto para o mapeamento e o banco que eu uso no servidor, não dá certo! Agradeço pela ajuda de vcs! Tenham um ótimo dia! ---Mensagem original--- De: Ramon Data: 14/02/2009 13:03:54 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Re: [delphi-br] Conexao com o banco Não Alisson, este arquivo serve apenas para a criação do alias do banco. O usuário e senha são criados quando o banco propriamente dito é criado. Ramon A. Korber Jr MSN - ramon15061...@hotmail.com Skype - ramon15061959 Harbour 1.1.0 - MiniGUI Extended 1.62 xMate - BCC 5.5 - Firebird 2.1 - OleDB-AdoDB Lazarus 0.9.26 - ZeosDBO 6.6.4 - Firebird 2.1 - Desenvolvimento Multi-Plataforma Windows XP SP3 - Linux Opensuse 11 - Mandriva 2008 - Ubuntu 8.04 Linux User Number 404280 - Original Message - From: Alisson To: delphi-br@yahoogrupos.com.br Sent: Saturday, February 14, 2009 10:16 AM Subject: Re: Re: [delphi-br] Conexao com o banco Ramon, Eu não sabia que era possível configurar alias nesse arquivo do Firebird. Eu sempre usei um arquivo .ini pra isso. De princípio achei bem interessante, mas, parece que nesse arquivo você configura somente o endereço do banco de dados. Seria necessário colocar o usuário e senha. Daria pra fazer isso nesse arquivo tambem? __ Faça ligações para outros computadores com o novo Yahoo! Messenger http://br.beta.messenger.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: Re: Re: Re: [delphi-br] Conexao com o banco
Seguinte Eduardo... eu joguei a minha aplicação completa no computador cliente e cliquei direto no executável, mas não deu certo! Ele pediu a instalação do myDAC no micro cliente! A mensagem é a seguinte: Não foi possível encontrar o módulo especificado myDAC. Eu tentei instalar o myDAC no cliente, mas ele não instala sem o delphi estar instalado rsrs Complicado, né? rs Oq vcs me sugerem? Um abraço! ---Mensagem original--- De: Eduardo Silva dos Santos Data: 17/02/2009 13:54:42 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Re: Re: [delphi-br] Conexao com o banco Olá Bruno, vamos lá.. 1º - usando Delphi + MyDAC você não precisa de nada além do seu exe na estação, não é necessário nenhuma dll, o mydac trabalha de forma direta com o MySQL. sendo assim não é preciso instalar o Delphi nos clientes. 2º - No MySQL não existe a necessidade de criar mapeamentos. Para conectar ao MySQL usando MyDAC basta setar no TMyConnection as seguintes propriedades: Server, IP ou nome da máquina onde o MySQL está instalado DataBase, Nome do banco ao qual deseja conectar.. apenas o nome.. exemplo: test UserName, nome do usuário cadastrado no MySQL, geralmente root PassWord, senha do usuário pronto, você ja pode conectar ao banco... mas lembre-se de liberar no Firewall do Servidor a porta 3306 que geralmente é usada pelo MySQL. Basicamente é isso, tentar conectar ai e se der errado nos passe mais detalhes.. att, Eduardo. 2009/2/17 Bruno Lepesqueur brunolbra...@yahoo.com.br Pessoal, até hj não consegui fazer o meu sistema funcionar a rede! Pra começar eu já acho q estou errado pq eu não consigo fazer a minha aplicação funcionar sem ter q instalar o delphi 7 completo nos micros clientes! Preciso saber se eu tenho q instalar o delphi 7 em todos os computadores clientes ou se basta eu criar um atalho nos clientes do executável que está no computador servidor de aplicação. (eu uso delphi 7, banco: mysql 5 e myDAC) Outra coisa que eu fiz foi a seguinte... eu criei um mapeamento no cliente da pasta data do mysql e tentei acessar o banco via mapeamento, mas tb não deu certo! Qdo eu entro no componente do myDAC e aponto para o mapeamento e o banco que eu uso no servidor, não dá certo! Agradeço pela ajuda de vcs! Tenham um ótimo dia! ---Mensagem original--- De: Ramon Data: 14/02/2009 13:03:54 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: Re: [delphi-br] Conexao com o banco Não Alisson, este arquivo serve apenas para a criação do alias do banco. O usuário e senha são criados quando o banco propriamente dito é criado. Ramon A. Korber Jr MSN - ramon15061...@hotmail.com ramon15061959%40hotmail.com Skype - ramon15061959 Harbour 1.1.0 - MiniGUI Extended 1.62 xMate - BCC 5.5 - Firebird 2.1 - OleDB-AdoDB Lazarus 0.9.26 - ZeosDBO 6.6.4 - Firebird 2.1 - Desenvolvimento Multi-Plataforma Windows XP SP3 - Linux Opensuse 11 - Mandriva 2008 - Ubuntu 8.04 Linux User Number 404280 - Original Message - From: Alisson To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Saturday, February 14, 2009 10:16 AM Subject: Re: Re: [delphi-br] Conexao com o banco Ramon, Eu não sabia que era possível configurar alias nesse arquivo do Firebird. Eu sempre usei um arquivo .ini pra isso. De princípio achei bem interessante, mas, parece que nesse arquivo você configura somente o endereço do banco de dados. Seria necessário colocar o usuário e senha. Daria pra fazer isso nesse arquivo tambem? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: Re: Re: Re: [delphi-br] Conexao com o banco
Outra pergunta... o mySQL tem q estar configurado pra rede ou não precisa? Ele como padrão já aceita qq um conectar a ele? Obrigado! ---Mensagem original--- De: Eduardo Silva dos Santos Data: 17/02/2009 13:54:42 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Re: Re: [delphi-br] Conexao com o banco Olá Bruno, vamos lá.. 1º - usando Delphi + MyDAC você não precisa de nada além do seu exe na estação, não é necessário nenhuma dll, o mydac trabalha de forma direta com o MySQL. sendo assim não é preciso instalar o Delphi nos clientes. 2º - No MySQL não existe a necessidade de criar mapeamentos. Para conectar ao MySQL usando MyDAC basta setar no TMyConnection as seguintes propriedades: Server, IP ou nome da máquina onde o MySQL está instalado DataBase, Nome do banco ao qual deseja conectar.. apenas o nome.. exemplo: test UserName, nome do usuário cadastrado no MySQL, geralmente root PassWord, senha do usuário pronto, você ja pode conectar ao banco... mas lembre-se de liberar no Firewall do Servidor a porta 3306 que geralmente é usada pelo MySQL. Basicamente é isso, tentar conectar ai e se der errado nos passe mais detalhes.. att, Eduardo. 2009/2/17 Bruno Lepesqueur brunolbra...@yahoo.com.br Pessoal, até hj não consegui fazer o meu sistema funcionar a rede! Pra começar eu já acho q estou errado pq eu não consigo fazer a minha aplicação funcionar sem ter q instalar o delphi 7 completo nos micros clientes! Preciso saber se eu tenho q instalar o delphi 7 em todos os computadores clientes ou se basta eu criar um atalho nos clientes do executável que está no computador servidor de aplicação. (eu uso delphi 7, banco: mysql 5 e myDAC) Outra coisa que eu fiz foi a seguinte... eu criei um mapeamento no cliente da pasta data do mysql e tentei acessar o banco via mapeamento, mas tb não deu certo! Qdo eu entro no componente do myDAC e aponto para o mapeamento e o banco que eu uso no servidor, não dá certo! Agradeço pela ajuda de vcs! Tenham um ótimo dia! ---Mensagem original--- De: Ramon Data: 14/02/2009 13:03:54 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: Re: [delphi-br] Conexao com o banco Não Alisson, este arquivo serve apenas para a criação do alias do banco. O usuário e senha são criados quando o banco propriamente dito é criado. Ramon A. Korber Jr MSN - ramon15061...@hotmail.com ramon15061959%40hotmail.com Skype - ramon15061959 Harbour 1.1.0 - MiniGUI Extended 1.62 xMate - BCC 5.5 - Firebird 2.1 - OleDB-AdoDB Lazarus 0.9.26 - ZeosDBO 6.6.4 - Firebird 2.1 - Desenvolvimento Multi-Plataforma Windows XP SP3 - Linux Opensuse 11 - Mandriva 2008 - Ubuntu 8.04 Linux User Number 404280 - Original Message - From: Alisson To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Saturday, February 14, 2009 10:16 AM Subject: Re: Re: [delphi-br] Conexao com o banco Ramon, Eu não sabia que era possível configurar alias nesse arquivo do Firebird. Eu sempre usei um arquivo .ini pra isso. De princípio achei bem interessante, mas, parece que nesse arquivo você configura somente o endereço do banco de dados. Seria necessário colocar o usuário e senha. Daria pra fazer isso nesse arquivo tambem? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: Re: Re: Re: [delphi-br] Conexao com o banco
Pessoal! Muito obrigado! Problema resolvido! Eu não estava conseguindo conectar pq o myDAC exige q tenha alguns arquivos de configuração dele na pasta system32 e então eu copiei os arquivos: *.bpl do myDAC e colei na pasta system32. O meu outro problema era que eu estava usando o mySQL para local e não como servidor mySQL. Agora que eu re-configurei-o para servidor mySQL funcionou bacana! Obrigado a todos e um grande abraço! ---Mensagem original--- De: Bruno Lepesqueur Data: 02/17/09 15:07:46 Para: delphi-br@yahoogrupos.com.br Assunto: Res: Re: Re: Re: [delphi-br] Conexao com o banco Outra pergunta... o mySQL tem q estar configurado pra rede ou não precisa? Ele como padrão já aceita qq um conectar a ele? Obrigado! ---Mensagem original--- De: Eduardo Silva dos Santos Data: 17/02/2009 13:54:42 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Re: Re: [delphi-br] Conexao com o banco Olá Bruno, vamos lá.. 1º - usando Delphi + MyDAC você não precisa de nada além do seu exe na estação, não é necessário nenhuma dll, o mydac trabalha de forma direta com o MySQL. sendo assim não é preciso instalar o Delphi nos clientes. 2º - No MySQL não existe a necessidade de criar mapeamentos. Para conectar ao MySQL usando MyDAC basta setar no TMyConnection as seguintes propriedades: Server, IP ou nome da máquina onde o MySQL está instalado DataBase, Nome do banco ao qual deseja conectar.. apenas o nome.. exemplo: test UserName, nome do usuário cadastrado no MySQL, geralmente root PassWord, senha do usuário pronto, você ja pode conectar ao banco... mas lembre-se de liberar no Firewall do Servidor a porta 3306 que geralmente é usada pelo MySQL. Basicamente é isso, tentar conectar ai e se der errado nos passe mais detalhes.. att, Eduardo. 2009/2/17 Bruno Lepesqueur brunolbra...@yahoo.com.br Pessoal, até hj não consegui fazer o meu sistema funcionar a rede! Pra começar eu já acho q estou errado pq eu não consigo fazer a minha aplicação funcionar sem ter q instalar o delphi 7 completo nos micros clientes! Preciso saber se eu tenho q instalar o delphi 7 em todos os computadores clientes ou se basta eu criar um atalho nos clientes do executável que está no computador servidor de aplicação. (eu uso delphi 7, banco: mysql 5 e myDAC) Outra coisa que eu fiz foi a seguinte... eu criei um mapeamento no cliente da pasta data do mysql e tentei acessar o banco via mapeamento, mas tb não deu certo! Qdo eu entro no componente do myDAC e aponto para o mapeamento e o banco que eu uso no servidor, não dá certo! Agradeço pela ajuda de vcs! Tenham um ótimo dia! ---Mensagem original--- De: Ramon Data: 14/02/2009 13:03:54 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: Re: [delphi-br] Conexao com o banco Não Alisson, este arquivo serve apenas para a criação do alias do banco. O usuário e senha são criados quando o banco propriamente dito é criado. Ramon A. Korber Jr MSN - ramon15061...@hotmail.com ramon15061959%40hotmail.com Skype - ramon15061959 Harbour 1.1.0 - MiniGUI Extended 1.62 xMate - BCC 5.5 - Firebird 2.1 - OleDB-AdoDB Lazarus 0.9.26 - ZeosDBO 6.6.4 - Firebird 2.1 - Desenvolvimento Multi-Plataforma Windows XP SP3 - Linux Opensuse 11 - Mandriva 2008 - Ubuntu 8.04 Linux User Number 404280 - Original Message - From: Alisson To: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Sent: Saturday, February 14, 2009 10:16 AM Subject: Re: Re: [delphi-br] Conexao com o banco Ramon, Eu não sabia que era possível configurar alias nesse arquivo do Firebird. Eu sempre usei um arquivo .ini pra isso. De princípio achei bem interessante, mas, parece que nesse arquivo você configura somente o endereço do banco de dados. Seria necessário colocar o usuário e senha. Daria pra fazer isso nesse arquivo tambem? [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: Re: Re: [delphi-br] Conexao com o banco
Entendi sim, mas ele não tratou essa msg de erro do jeito q vc me falou! Qdo eu mando conectar ao banco errado, ele dá uma tela de erro e não trata o except. A não ser q eu tenha q criar um código que trate esse erro tb! Obrigado! ---Mensagem original--- De: Daniel Sobrinho Laporte Data: 12/02/2009 22:06:30 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Re: [delphi-br] Conexao com o banco Bom Bruno então eu não entendi o que voce quis rs... os blocos try except end ou try finally end São blocos de instrução assim como begin end porém quando você coloca o except significa que qualquer erro dentro do bloco try o curso de execução será redirecionado para o except dai é possível fazer tratamento personalizados com mensagens de erro e etc ex: try except on e:exception do begin ShowMessage(e.message); end end No caso acima será exibido o erro dentro de um dialogo de mensagem. Já no finally você utiliza quando independente de qualquer coisa sempre queria que passe em determinadas instruções como no exemplo abaixo: try c := TClientDataSet.Create(nil); finally FreeAndNil(c); end Neste caso independente do que acontecer dentro do bloco try sempre será zerada a variavel c e liberada da memória.. Abraços, Daniel 2009/2/12 Bruno Lepesqueur brunolbra...@yahoo.com.br Não deu certo Daniel! Pra q server o try e o except? Obrigado! ---Mensagem original--- De: Daniel Sobrinho Laporte Data: 02/12/09 17:12:22 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Conexao com o banco Isso é resolvido com um simples bloco de tratamento de erros da seguinte forma : try System_DB.Connected := false; System_DB.Database := edit3.Text; System_DB.Connected := true; except ShowMessage('Erro ao conectar, por favor tente novamente !'); end; Abraços, Daniel 2009/2/12 Bruno Lepesqueur brunolbra...@yahoo.com.brbrunolbrasil%40yahoo com.br Tenho o seguinte código: System_DB.Connected := false; System_DB.Database := edit3.Text; System_DB.Connected := true; Onde System_DB é o nome da conexão com o banco my-sql e edit3.text é onde eu informo o caminho do banco, tipo: c:\mysql\data\banco; Esse código funciona, mas qdo é digitado no edit3.text um nome de banco de dados que não existe ou que esteja com caminho errado ele dá uma mensagem de erro. Eu estava pensando em criar um IF para não ter esse problema! Coisa mais ou menso assim: se o banco existir e tiver conectado faça... Alguém pode me ajudar? Obrigado! [As partes desta mensagem que não continham texto foram removidas] -- Abraços, Daniel. Sempre que a vida lhe apresentar um desafio, tenha certeza que junto dele está a solução, [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] -- Abraços, Daniel. Sempre que a vida lhe apresentar um desafio, tenha certeza que junto dele está a solução, [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: Re: [delphi-br] Conexao com o banco
Ok... Eduardo, mas e se o banco estiver em outro computador! Como que ele vai saber o caminho? Obrigado! ---Mensagem original--- De: Eduardo Silva dos Santos Data: 12/02/2009 22:25:49 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Conexao com o banco Bruno, com mysql a coisa é diferente.. vc não informa o caminho do banco como no FireBird.. no Mysql basta você informar o Nome do mesmo.. com isso vai funcionar numa boa.. e graças ao Mysql ser assim, é possivel vc fazer um select em bancos distintos. qual componente de acesso você ta usando? 2009/2/12 Bruno Lepesqueur brunolbra...@yahoo.com.br Tenho o seguinte código: System_DB.Connected := false; System_DB.Database := edit3.Text; System_DB.Connected := true; Onde System_DB é o nome da conexão com o banco my-sql e edit3.text é onde eu informo o caminho do banco, tipo: c:\mysql\data\banco; Esse código funciona, mas qdo é digitado no edit3.text um nome de banco de dados que não existe ou que esteja com caminho errado ele dá uma mensagem de erro. Eu estava pensando em criar um IF para não ter esse problema! Coisa mais ou menso assim: se o banco existir e tiver conectado faça... Alguém pode me ajudar? Obrigado! [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com Site: http://www.drdsistemas.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] Conexao com o banco
Tenho o seguinte código: System_DB.Connected := false; System_DB.Database := edit3.Text; System_DB.Connected := true; Onde System_DB é o nome da conexão com o banco my-sql e edit3.text é onde eu informo o caminho do banco, tipo: c:\mysql\data\banco; Esse código funciona, mas qdo é digitado no edit3.text um nome de banco de dados que não existe ou que esteja com caminho errado ele dá uma mensagem de erro. Eu estava pensando em criar um IF para não ter esse problema! Coisa mais ou menso assim: se o banco existir e tiver conectado faça... Alguém pode me ajudar? Obrigado! [As partes desta mensagem que não continham texto foram removidas]
Res: Re: [delphi-br] Conexao com o banco
Não deu certo Daniel! Pra q server o try e o except? Obrigado! ---Mensagem original--- De: Daniel Sobrinho Laporte Data: 02/12/09 17:12:22 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Conexao com o banco Isso é resolvido com um simples bloco de tratamento de erros da seguinte forma : try System_DB.Connected := false; System_DB.Database := edit3.Text; System_DB.Connected := true; except ShowMessage('Erro ao conectar, por favor tente novamente !'); end; Abraços, Daniel 2009/2/12 Bruno Lepesqueur brunolbra...@yahoo.com.br Tenho o seguinte código: System_DB.Connected := false; System_DB.Database := edit3.Text; System_DB.Connected := true; Onde System_DB é o nome da conexão com o banco my-sql e edit3.text é onde eu informo o caminho do banco, tipo: c:\mysql\data\banco; Esse código funciona, mas qdo é digitado no edit3.text um nome de banco de dados que não existe ou que esteja com caminho errado ele dá uma mensagem de erro. Eu estava pensando em criar um IF para não ter esse problema! Coisa mais ou menso assim: se o banco existir e tiver conectado faça... Alguém pode me ajudar? Obrigado! [As partes desta mensagem que não continham texto foram removidas] -- Abraços, Daniel. Sempre que a vida lhe apresentar um desafio, tenha certeza que junto dele está a solução, [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Impressão VDOPrint
Pessoal, eu consegui instalar o VDOPrint em meu micro e uso o delphi 7. Ta barra de ferramentas existem 3 opções: VDOPrinter VDOCaPrinter VDODmPrinter O problema é q eu estou começando agora e já consegui até alguns exemplos de códigos na internet, mas não sei como dar o pontapé inicial! Não encontrei nada que me mostrasse como iniciar e como usar esses componetes. Se alguém tiver algum apostila ensinando a usar com o delphi ou algum código como exemplo eu lhes agradeço! Um abraço! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Query MyDAC
Pessoal, eu uso o MyDac em minhas aplicações e gostaria de tirar uma dúvida! Eu tenho uma query com um código select tipo: select * from clientes Se eu clicar na query com o botão direito, depois em Fields Edito... eu consigo add todos os campos, mas eu gostaria de fazer isso usando uma linha de códigos pelo delphi. To tentando algo assim: QueryCli.Fields.Clear; (para limpar todos os campos, mas não sei se dará certo) Agora eu preciso de outro comando que inclua todos novamente na query, tipo algo parecido com: QueryCli.Fields.Add(all); (Esse código não dá certo! Já testei!) Obrigado a todos! [As partes desta mensagem que não continham texto foram removidas]
Res: Re: [delphi-br] Query MyDAC
Eduardo eu pensei bem aki e acho q estou dando bobeira mesmo! Consegui fazer oq eu queria de outra forma! Eu estava querendo usar a mesma query para duas tabelas (uma de cada vez) daí e teria que limpar e mandar inserir os outros campos a cada vez q eu ativasse uma tabela! Eu vou fazer com duas querys mesmo! Obrigado! ---Mensagem original--- De: Eduardo Silva dos Santos Data: 11/02/2009 10:36:13 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Query MyDAC Olá Bruno, desculpa a pergunta, mais qual a sua intenção em fazer isso? 2009/2/11 Bruno Lepesqueur brunolbra...@yahoo.com.br Pessoal, eu uso o MyDac em minhas aplicações e gostaria de tirar uma dúvida! Eu tenho uma query com um código select tipo: select * from clientes Se eu clicar na query com o botão direito, depois em Fields Edito... eu consigo add todos os campos, mas eu gostaria de fazer isso usando uma linha de códigos pelo delphi. To tentando algo assim: QueryCli.Fields.Clear; (para limpar todos os campos, mas não sei se dará certo) Agora eu preciso de outro comando que inclua todos novamente na query, tipo algo parecido com: QueryCli.Fields.Add(all); (Esse código não dá certo! Já testei!) Obrigado a todos! [As partes desta mensagem que não continham texto foram removidas] -- ... Eduardo Silva dos Santos DRD SISTEMAS (27) 3218-4201 (27) 8842-9489 MSN: eduardo@gmail.com Site: http://www.drdsistemas.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] Distinct (SQL)
Boa noite a todos! Estou tentando exibir os registros da tabela CodigosTributacao, mas preciso usar um distinct para que não sejam exibidos registros repeditos para o campo codigoTrib, ou seja, quero que mostre todos os registros da tabela, mas que não repita o CodigoTrib. Acho q tem como fazer isso usando o distinct, mas não ta dando certo! Eu achei um exemplo válido, mas ele só me mostra o campo codigoTrib. Aqui está: select distinct codigoTrib from CodigosTributação Gostaria de algo assim: selecione codigoTrib, NomeTrib, DescricaoTrib from codigosTributação e não repita o codigoTrib Obrigado! [As partes desta mensagem que não continham texto foram removidas]
Res: Re: Re: Re: [delphi-br] Erro qdo campo Null
Daniel, me desculpe as perguntas bobas, mas nesse if Pos o Pos é algum comando interno? Copiei tudo q vc me passou e joguei no delphi, mas ele deu erro no E.Message Esse é tb é um comando interno? Obrigado! ---Mensagem original--- De: Daniel Sobrinho Laporte Data: 04/02/2009 21:33:25 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Re: Re: [delphi-br] Erro qdo campo Null Todos os créditos que vou colocar aqui são do seu xará o mestre Bruno Lichot de uma olhada nos exemplos dele que você vai entender melhor no final tem o link dele para você baixar exemplos que serão bem úteis ao seu aprendizado e dúvidas.. Abraços, Daniel. * //algumas informações que podem ser obtidas do application} //Sugestao de tratamento de erro de campo não preenchido e valores invalidos if Pos(UpperCase('must have a value'), UpperCase(E.Message)) 0 then begin Pos1:=Pos(, E.Message); mensagem:=E.Message; Delete(mensagem, Pos1, 1); Pos2:=Pos(, mensagem); mensagem:=copy(E.Message, Pos1 + 1, Pos2 - Pos1); mensagem := 'É obrigatório o preenchimento do campo '+ mensagem + '.'; showmessage(mensagem); end Bruno Lichot - HTTP://cc.codegear.com/author/795118* 2009/2/4 Bruno Lepesqueur brunolbra...@yahoo.com.br Obrigado a todos! Eu não uso o ClienteDataSet. Acho q terei q optar pela dica do Daniel, mas eu não sei usar o ApplicationEnvents pra esse tipo de operação! Se puderem me ajudar o campo já está como required = true ---Mensagem original--- De: Daniel Sobrinho Laporte Data: 02/04/09 14:37:58 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: Re: [delphi-br] Erro qdo campo Null Bruno para tal, o seu campo deve estar marcado como required = True no seu Fields Editor dai esta validação é feita automaticamente, caso o seu sistema vá dar o post e o campo esteja nulo o seu sistema irá gerar um erro ( e não será dado o apply no seu banco), é possível capturar esse erro e tratá-lo a partir do componente ApplicationEvents e no caso ficaria tratado já na aplicação inteira. Com este componente você consegue obter a mensagem de erro e personalizar conforme seu gosto dando algo do tipo : ShowMessage('Campo x não pode ser nulo !), é importante saber que através do e.Message que ele recebe como parâmetro você pode capturar inclusive o nome do campo. Bom se entendi bem, acho que isso pode te ajudar 2009/2/4 Bruno Lepesqueur brunolbra...@yahoo.com.brbrunolbrasil%40yahoo com.br Eu não estava querendo fazer esse tipo de restrição ao sair do dbEdit e nem criando ela no botão gravar (bitbtn1). Oq eu gostaria mesmo de saber é se existe no delphi algum comando que cancelasse o post (a gravação da tabela) se algum campo não estiver preechido e estiver configurado como não nulo! Obrigado! ---Mensagem original--- De: Ricardo César Cardoso Data: 04/02/2009 11:35:50 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com brdelphi-br% 40yahoogrupos.com.br Assunto: Re: [delphi-br] Erro qdo campo Null Na verdade esse código é que informa a restrição... o que vc quer é mostrar uma mensagem mais amigável para o seu usuário, não é? Um exemplo super-hiper-mega-simplista e não muito recomendável seria fazer essa consistência no evento OnExit desse teu dbEdit, como abaixo: [code] TForm1.dbEdit1Exit( // ... conteúdo omitido ); Begin if (Length(Trim(dbEdit1.Text)) = 0 ) // vejo se o campo está vazio. ShowMessage(O campo não pode ser nulo!); End; [/code] Como já escrevi anteriormente, essa é a maneira mais simples e acredito que não seja a mais recomendada de se fazer. Mas já é uma luz no final do túnel. Como estou sem o Delphi pra testar, improvisei de cabeça o que faria (por isso digo que esta não é a melhor solução ou a mais indicada) []'s Ricardo. __ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qua, 4/2/09, Bruno Lepesqueur brunolbra...@yahoo combrunolbrasil%40yahoo.com brbrunolbrasil%40yahoo.com.br escreveu: Bom dia pessoal! Eu tenho no banco de dados um campo que não pode receber null. O problema é que na aplicação do delphi qdo eu não digito nada, ou seja, deixo o dbEdit1 text (que faz referência à esse campo que não pode aceitar null) em branco o sistema dá uma msg de erro informando que o campo não pode ser nulo. Existe algum código que informe uma msg para o usuário dizendo que o campo não pode ser nulo para não aparecer esse erro? Obrigado! 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] -- Abraços, Daniel. Sempre que a vida lhe apresentar um desafio, tenha certeza que junto dele está a solução
Res: Re: [delphi-br] Dúvida com PageControl
Tava fácil demais né??? rs Fiz o seguinte: If (dmoQuerys.QueryPadroesSis.State in [dsEdit, dsInsert]) or (dmoQuerys.QueryCadEmpresa.State in [dsEdit, dsInsert]) or (dmoQuerys.QueryCadNF.State in [dsEdit, dsInsert]) then begin AllowChange := false; ShowMessage('Você deve gravar ou cancelar as alterações antes de sair! ); end; Obrigado pela força Jhosef! Deu certo! Um abraço a todos! ---Mensagem original--- De: Jhosef Marks Data: 04/02/2009 10:22:33 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Dúvida com PageControl No evento OnChanging utilize a propriedade AllowChange para controlar se o usuário pode ou não alterar de guia... JM 2009/2/4 Bruno Lepesqueur brunolbra...@yahoo.com.br Pessoal eu incluí em um formulário um PageControl contendo umas 4 páginas (guias) e gostaria que fosse feito uma verificação todas as vezes que o usuário sair de uma guia clicando em outra, mas não consigo! Eu fiz o seguinte código: procedure TPadroesSisFrm.PageControl1Changing(Sender: TObject; var AllowChange: Boolean); begin If (dmoQuerys.QueryPadroesSis.State in [dsEdit, dsInsert]) or (dmoQuerys.QueryCadEmpresa.State in [dsEdit, dsInsert]) or (dmoQuerys.QueryCadNF.State in [dsEdit, dsInsert]) then begin If (PageControl1.ActivePage = DadosPadroes) then edit1.text := 'DadosPadroes' else If (PageControl1.ActivePage = DadosEmpresa) then edit1.text := 'DadosEmpresa' else If (PageControl1.ActivePage = DadosNF) then edit1.text := 'DadosNF' else If (PageControl1.ActivePage = Produtos) then edit1.text := 'Produtos'; pageControl1.ActivePage := edit1.text; //o delphi não aceita esse comando. Ele aceitaria se fosse assim: //pageControl1.ActivePage := DadosPadroes; If pageAtual = 'DadosPadroes' then PageControl1.ActivePage := DadosPadroes else If pageAtual = 'DadosEmpresa' then PageControl1.ActivePage := DadosEmpresa else If pageAtual = 'DadosNF' then PageControl1.ActivePage := DadosNF else If pageAtual = 'Produtos' then PageControl1.ActivePage := Produtos; ShowMessage('Você deve gravar ou cancelar as alterações antes de sair! ); end; end; Resumindo, eu só não quero deixar ele mudar de página (guia) sem antes salvar os registros. Talvez vcs tem alguma forma melhor de se fazer isso! Obrigado! [As partes desta mensagem que não continham texto foram removidas] -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [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] Dúvida com PageControl
vc pode usar: PageControl1.ActivePage := NomeDaPágina; ---Mensagem original--- De: Sergio - Jundiai / SP Data: 04/02/2009 12:08:19 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Dúvida com PageControl qual o comando para pular de uma guia para outra? - Original Message - From: Jhosef Marks To: delphi-br@yahoogrupos.com.br Sent: Wednesday, February 04, 2009 10:23 AM Subject: Re: [delphi-br] Dúvida com PageControl *propriedade = variável AllowChange PageControl1Changing(Sender: TObject; var AllowChange: Boolean); begin end; JM 2009/2/4 Jhosef Marks jho...@gmail.com No evento OnChanging utilize a propriedade AllowChange para controlar se o usuário pode ou não alterar de guia... JM 2009/2/4 Bruno Lepesqueur brunolbra...@yahoo.com.br Pessoal eu incluí em um formulário um PageControl contendo umas 4 páginas (guias) e gostaria que fosse feito uma verificação todas as vezes que o usuário sair de uma guia clicando em outra, mas não consigo! Eu fiz o seguinte código: procedure TPadroesSisFrm.PageControl1Changing(Sender: TObject; var AllowChange: Boolean); begin If (dmoQuerys.QueryPadroesSis.State in [dsEdit, dsInsert]) or (dmoQuerys.QueryCadEmpresa.State in [dsEdit, dsInsert]) or (dmoQuerys.QueryCadNF.State in [dsEdit, dsInsert]) then begin If (PageControl1.ActivePage = DadosPadroes) then edit1.text := 'DadosPadroes' else If (PageControl1.ActivePage = DadosEmpresa) then edit1.text := 'DadosEmpresa' else If (PageControl1.ActivePage = DadosNF) then edit1.text := 'DadosNF' else If (PageControl1.ActivePage = Produtos) then edit1.text := 'Produtos'; pageControl1.ActivePage := edit1.text; //o delphi não aceita esse comando. Ele aceitaria se fosse assim: //pageControl1.ActivePage := DadosPadroes; If pageAtual = 'DadosPadroes' then PageControl1.ActivePage := DadosPadroes else If pageAtual = 'DadosEmpresa' then PageControl1.ActivePage := DadosEmpresa else If pageAtual = 'DadosNF' then PageControl1.ActivePage := DadosNF else If pageAtual = 'Produtos' then PageControl1.ActivePage := Produtos; ShowMessage('Você deve gravar ou cancelar as alterações antes de sair! ); end; end; Resumindo, eu só não quero deixar ele mudar de página (guia) sem antes salvar os registros. Talvez vcs tem alguma forma melhor de se fazer isso! Obrigado! [As partes desta mensagem que não continham texto foram removidas] -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi -- Jhosef Marks de Carvalho Delphi Developer http://groups.google.com/group/soumaisdelphi [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
Res: Re: [delphi-br] Erro qdo campo Null
Eu não estava querendo fazer esse tipo de restrição ao sair do dbEdit e nem criando ela no botão gravar (bitbtn1). Oq eu gostaria mesmo de saber é se existe no delphi algum comando que cancelasse o post (a gravação da tabela) se algum campo não estiver preechido e estiver configurado como não nulo! Obrigado! ---Mensagem original--- De: Ricardo César Cardoso Data: 04/02/2009 11:35:50 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Erro qdo campo Null Na verdade esse código é que informa a restrição... o que vc quer é mostrar uma mensagem mais amigável para o seu usuário, não é? Um exemplo super-hiper-mega-simplista e não muito recomendável seria fazer essa consistência no evento OnExit desse teu dbEdit, como abaixo: [code] TForm1.dbEdit1Exit( // ... conteúdo omitido ); Begin if (Length(Trim(dbEdit1.Text)) = 0 ) // vejo se o campo está vazio. ShowMessage(O campo não pode ser nulo!); End; [/code] Como já escrevi anteriormente, essa é a maneira mais simples e acredito que não seja a mais recomendada de se fazer. Mas já é uma luz no final do túnel. Como estou sem o Delphi pra testar, improvisei de cabeça o que faria (por isso digo que esta não é a melhor solução ou a mais indicada) []'s Ricardo. __ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qua, 4/2/09, Bruno Lepesqueur brunolbra...@yahoo.com.br escreveu: Bom dia pessoal! Eu tenho no banco de dados um campo que não pode receber null. O problema é que na aplicação do delphi qdo eu não digito nada, ou seja, deixo o dbEdit1 text (que faz referência à esse campo que não pode aceitar null) em branco o sistema dá uma msg de erro informando que o campo não pode ser nulo. Existe algum código que informe uma msg para o usuário dizendo que o campo não pode ser nulo para não aparecer esse erro? Obrigado! 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]
[delphi-br] Erro qdo campo Null
Bom dia pessoal! Eu tenho no banco de dados um campo que não pode receber null. O problema é que na aplicação do delphi qdo eu não digito nada, ou seja, deixo o dbEdit1 text (que faz referência à esse campo que não pode aceitar null) em branco o sistema dá uma msg de erro informando que o campo não pode ser nulo. Existe algum código que informe uma msg para o usuário dizendo que o campo não pode ser nulo para não aparecer esse erro? Obrigado! [As partes desta mensagem que não continham texto foram removidas]
Res: Re: Re: [delphi-br] Erro qdo campo Null
Obrigado a todos! Eu não uso o ClienteDataSet. Acho q terei q optar pela dica do Daniel, mas eu não sei usar o ApplicationEnvents pra esse tipo de operação! Se puderem me ajudar o campo já está como required = true ---Mensagem original--- De: Daniel Sobrinho Laporte Data: 02/04/09 14:37:58 Para: delphi-br@yahoogrupos.com.br Assunto: Re: Re: [delphi-br] Erro qdo campo Null Bruno para tal, o seu campo deve estar marcado como required = True no seu Fields Editor dai esta validação é feita automaticamente, caso o seu sistema vá dar o post e o campo esteja nulo o seu sistema irá gerar um erro ( e não será dado o apply no seu banco), é possível capturar esse erro e tratá-lo a partir do componente ApplicationEvents e no caso ficaria tratado já na aplicação inteira. Com este componente você consegue obter a mensagem de erro e personalizar conforme seu gosto dando algo do tipo : ShowMessage('Campo x não pode ser nulo !), é importante saber que através do e.Message que ele recebe como parâmetro você pode capturar inclusive o nome do campo. Bom se entendi bem, acho que isso pode te ajudar 2009/2/4 Bruno Lepesqueur brunolbra...@yahoo.com.br Eu não estava querendo fazer esse tipo de restrição ao sair do dbEdit e nem criando ela no botão gravar (bitbtn1). Oq eu gostaria mesmo de saber é se existe no delphi algum comando que cancelasse o post (a gravação da tabela) se algum campo não estiver preechido e estiver configurado como não nulo! Obrigado! ---Mensagem original--- De: Ricardo César Cardoso Data: 04/02/2009 11:35:50 Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Assunto: Re: [delphi-br] Erro qdo campo Null Na verdade esse código é que informa a restrição... o que vc quer é mostrar uma mensagem mais amigável para o seu usuário, não é? Um exemplo super-hiper-mega-simplista e não muito recomendável seria fazer essa consistência no evento OnExit desse teu dbEdit, como abaixo: [code] TForm1.dbEdit1Exit( // ... conteúdo omitido ); Begin if (Length(Trim(dbEdit1.Text)) = 0 ) // vejo se o campo está vazio. ShowMessage(O campo não pode ser nulo!); End; [/code] Como já escrevi anteriormente, essa é a maneira mais simples e acredito que não seja a mais recomendada de se fazer. Mas já é uma luz no final do túnel. Como estou sem o Delphi pra testar, improvisei de cabeça o que faria (por isso digo que esta não é a melhor solução ou a mais indicada) []'s Ricardo. __ Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! --- Em qua, 4/2/09, Bruno Lepesqueur brunolbra...@yahoo.com brbrunolbrasil%40yahoo.com.br escreveu: Bom dia pessoal! Eu tenho no banco de dados um campo que não pode receber null. O problema é que na aplicação do delphi qdo eu não digito nada, ou seja, deixo o dbEdit1 text (que faz referência à esse campo que não pode aceitar null) em branco o sistema dá uma msg de erro informando que o campo não pode ser nulo. Existe algum código que informe uma msg para o usuário dizendo que o campo não pode ser nulo para não aparecer esse erro? Obrigado! 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] -- Abraços, Daniel. Sempre que a vida lhe apresentar um desafio, tenha certeza que junto dele está a solução, [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] Duvidas com Impressão
Vc está usando o rave? Se for, faça da seguinte forma: rvsPedidosPre.SystemPreview.FormState := wsMaximized; rvsPedidosPre.DefaultDest := rdPreview; rvsPedidosPre.SystemSetups := rvsPedidosPre.SystemSetups - [ssAllowSetup,ssAllowCopies,ssAllowCollate,ssAllowDuplex,ssAllowDestPreview,ssAllowDestPrinter,ssAllowDestFile,ssAllowPrinterSetup,ssAllowPreviewSetup]; rvPedidosPre.ProjectFile := 'C:\Pasta onde se encontra o relatório\RelPedidoNF.rav'; rvPedidosPre.ExecuteReport('Report1'); rvsPedidosPre.DefaultDest := rdPreview; Considere que: rvsPedidosPre é um componente rvSystem; rvPedidosPre é um componente rvProject; RelPedidoNF.rav é o relatório que eu criei através do rave; Espero que eu tenha ajudado! Um abraço! - Original Message - From: Eduardo Oliveira silva To: delphi-br@yahoogrupos.com.br Sent: Tuesday, February 03, 2009 4:22 PM Subject: [delphi-br] Duvidas com Impressão Boa Noite, Alguém sabe como eu posso enviar algo direto para impressora padrão instalada no windows sem que abra aquele telinha de impressão.. Ex: Tenho um botão pra grava dados no banco e quando clicar quero imprimir um comprovante diretamente na impressora. valeu. -- Eduardo de Oliveira Fone: 8448-4117 msn: kad...@hotmail.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] Formato da tabela MySql
Boa noite pessoal! Estou criando algumas tabelas no My-Sql do tipo InnoDB e tenho que escolher o row format, mas não sei qual usar e nem qual a função de cada uma das opções! As opções do row format das tabelas são: DEFAULT FIXED DYNAMIC COMPRESSED REDUNDANT e COMPACT O próprio SQL Manager usa como padrão o COMPACT, mas eu nem sei se ele é o formato certo para eu utilizar em minhas tabelas! Gostaria muito da ajuda de vcs porque eu não achei nada de interessante na internet sobre isso! Obrigado! [As partes desta mensagem que não continham texto foram removidas]
Re: [Bulk] RES: [delphi-br] Comercializar sistema
Obrigado Daniel! Era tudo isso que eu queria saber! Um abraço! - Original Message - From: Daniel - Infopower Sistemas To: delphi-br@yahoogrupos.com.br Sent: Saturday, January 31, 2009 7:14 PM Subject: [Bulk] RES: [delphi-br] Comercializar sistema Opa Bruno, É o seguinte!!! Posso te dar informações sobre o PR / SC que são os estados a onde presto serviços, nesses estados vc tem q ser credenciado para emitir tanto o cupom fiscal, como as notas fiscais (normais, modelo A1 por exemplo), inclusive o seu sistema tem que gerar os arquivos do sintegra, que diga-se de passagem é um saco, apesar q vc acha na net componentes para facilitarem o trabalho, é q aqui na empresa não usamos nada de terceiros , apenas os componentes nativos do próprio Delphi, então desenvolvidos por nós. Cada secretaria da fazenda dos estados em questão (SC / PR), tem suas exigências como documentos, negativas, ser cadastrado no CRA ( no caso de SC) e toda aquela burrocracia q agente já conhece. Ou seja, se vc não for de nenhum destes estados, eu aconselho vc a entrar no site dar receita estadual do estado de interesse, onde normalmente existem todas as informações e ou procurar uma agencia da receita estadual ai na sua cidade, q com certeza eles poderão te auxiliar. Só oriento para que não emita nota fiscal nenhuma sem estar devidamente credenciando, pq aqui nesses estados as penas são pesadas, principalmente para o cliente. Espero ter ajudado, qualquer coisa da um tq. Abraços... Daniel Amorin -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em nome de Bruno Lepesqueur Enviada em: sábado, 31 de janeiro de 2009 13:21 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Comercializar sistema Quer dizer que se eu fizer um sistema com a função de cadastrar uma nota fiscal e imprimir a mesma, basta eu colocar os formulários das notas fiscais na impressora e mandar o sistema imprimir nos mesmos? (lembrando que esses formulários são feitos especificamente para a empresa que utiliza o sistema de acordo com o contador e com as leis do estado) Eu não preciso de nenhuma autorização do governo ou nenhum tipo de registro do sistema pra fazer isso? OBS.: Eu não irei trabalhar com cupom fiscal. Pelo que sei o meu sistema deve gerar alguns arquivos para ser validados pelo governo! Se souberem de algum site com mais informações para o estado de Minas Gerais eu agradeço tb! Obrigado pelas dicas! - Original Message - From: Rafael To: delphi-br@yahoogrupos.com.br Sent: Saturday, January 31, 2009 9:04 AM Subject: Re: [delphi-br] Comercializar sistema Para emissão de notas fiscais não há nenhum impedimento, a não ser que estejamos falando de nota fiscal eletrônica. Neste caso é preciso se informar das leis que regem este modo de emissão. Já no caso de cupons fiscais é necessário o registro do software. 2009/1/31 Bruno Lepesqueur brunolbra...@yahoo.com.br Já procurei meu contador, mas ele não me deu informações válidas e acho q as regras de sistemas não devem ser de conhecimento deles! Obrigado a todos! --- Em sex, 30/1/09, Julio Cesar julio_...@yahoo.com.brjulio_gyn%40yahoo.com.br escreveu: De: Julio Cesar julio_...@yahoo.com.br julio_gyn%40yahoo.com.br Assunto: Re: [delphi-br] Comercializar sistema Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Sexta-feira, 30 de Janeiro de 2009, 20:21 procura um contador ou vai na secretaria da fazenda da sua cidade q eles te informam, nao sei como andam as leis, mas ha alguns anos atras somente alguns estados exigiam um cadastro do sistema... julio cesar - Original Message - From: brunolbrasil To: delphi...@yahoogrup os.com.br Sent: Friday, January 30, 2009 9:28 PM Subject: [delphi-br] Comercializar sistema Boa noite pessoal! Talvez eu esteja fazendo uma pergunta já discutida no grupo, mas eu andei fazendo algumas buscas no conteúdo e não consegui achar nada específico! Seguinte... eu tenho um sistema desenvolvido em delphi 7 e my-sql 5 que controla o estoque de peças de tratores através de entrada de notas fiscais e saída de notas fiscais, ou seja, as notas de fornecedores são lançadas no sistema (incluindo os produtos no estoque) e as notas de vendas para cliente são emitidas e impressas através do sistema (tirando os produtos do estoque), além de outras funcionalidades. .. Gostaria de saber do que eu preciso para poder comercializar esse sistema? Pelo que sei eu devo comprar a licença do delphi e do my- sql, mas eu não sei se depois disso eu já posso colocar o meu sistema para emitir notas fiscais e cupons fiscais! Pra trabalhar com notas fiscais eu preciso de algum tipo de autorização do governo ou de seguir algumas regras? Obrigado e me
Re: [delphi-br] Comercializar sistema
Já procurei meu contador, mas ele não me deu informações válidas e acho q as regras de sistemas não devem ser de conhecimento deles! Obrigado a todos! --- Em sex, 30/1/09, Julio Cesar julio_...@yahoo.com.br escreveu: De: Julio Cesar julio_...@yahoo.com.br Assunto: Re: [delphi-br] Comercializar sistema Para: delphi-br@yahoogrupos.com.br Data: Sexta-feira, 30 de Janeiro de 2009, 20:21 procura um contador ou vai na secretaria da fazenda da sua cidade q eles te informam, nao sei como andam as leis, mas ha alguns anos atras somente alguns estados exigiam um cadastro do sistema... julio cesar - Original Message - From: brunolbrasil To: delphi...@yahoogrup os.com.br Sent: Friday, January 30, 2009 9:28 PM Subject: [delphi-br] Comercializar sistema Boa noite pessoal! Talvez eu esteja fazendo uma pergunta já discutida no grupo, mas eu andei fazendo algumas buscas no conteúdo e não consegui achar nada específico! Seguinte... eu tenho um sistema desenvolvido em delphi 7 e my-sql 5 que controla o estoque de peças de tratores através de entrada de notas fiscais e saída de notas fiscais, ou seja, as notas de fornecedores são lançadas no sistema (incluindo os produtos no estoque) e as notas de vendas para cliente são emitidas e impressas através do sistema (tirando os produtos do estoque), além de outras funcionalidades. .. Gostaria de saber do que eu preciso para poder comercializar esse sistema? Pelo que sei eu devo comprar a licença do delphi e do my- sql, mas eu não sei se depois disso eu já posso colocar o meu sistema para emitir notas fiscais e cupons fiscais! Pra trabalhar com notas fiscais eu preciso de algum tipo de autorização do governo ou de seguir algumas regras? Obrigado e me desculpe se eu estiver fazendo perguntas bobas! rs Um abraço a todos! [As partes desta mensagem que não continham texto foram removidas] 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]
Re: [delphi-br] Comercializar sistema
Quer dizer que se eu fizer um sistema com a função de cadastrar uma nota fiscal e imprimir a mesma, basta eu colocar os formulários das notas fiscais na impressora e mandar o sistema imprimir nos mesmos? (lembrando que esses formulários são feitos especificamente para a empresa que utiliza o sistema de acordo com o contador e com as leis do estado) Eu não preciso de nenhuma autorização do governo ou nenhum tipo de registro do sistema pra fazer isso? OBS.: Eu não irei trabalhar com cupom fiscal. Pelo que sei o meu sistema deve gerar alguns arquivos para ser validados pelo governo! Se souberem de algum site com mais informações para o estado de Minas Gerais eu agradeço tb! Obrigado pelas dicas! - Original Message - From: Rafael To: delphi-br@yahoogrupos.com.br Sent: Saturday, January 31, 2009 9:04 AM Subject: Re: [delphi-br] Comercializar sistema Para emissão de notas fiscais não há nenhum impedimento, a não ser que estejamos falando de nota fiscal eletrônica. Neste caso é preciso se informar das leis que regem este modo de emissão. Já no caso de cupons fiscais é necessário o registro do software. 2009/1/31 Bruno Lepesqueur brunolbra...@yahoo.com.br Já procurei meu contador, mas ele não me deu informações válidas e acho q as regras de sistemas não devem ser de conhecimento deles! Obrigado a todos! --- Em sex, 30/1/09, Julio Cesar julio_...@yahoo.com.brjulio_gyn%40yahoo.com.br escreveu: De: Julio Cesar julio_...@yahoo.com.br julio_gyn%40yahoo.com.br Assunto: Re: [delphi-br] Comercializar sistema Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br Data: Sexta-feira, 30 de Janeiro de 2009, 20:21 procura um contador ou vai na secretaria da fazenda da sua cidade q eles te informam, nao sei como andam as leis, mas ha alguns anos atras somente alguns estados exigiam um cadastro do sistema... julio cesar - Original Message - From: brunolbrasil To: delphi...@yahoogrup os.com.br Sent: Friday, January 30, 2009 9:28 PM Subject: [delphi-br] Comercializar sistema Boa noite pessoal! Talvez eu esteja fazendo uma pergunta já discutida no grupo, mas eu andei fazendo algumas buscas no conteúdo e não consegui achar nada específico! Seguinte... eu tenho um sistema desenvolvido em delphi 7 e my-sql 5 que controla o estoque de peças de tratores através de entrada de notas fiscais e saída de notas fiscais, ou seja, as notas de fornecedores são lançadas no sistema (incluindo os produtos no estoque) e as notas de vendas para cliente são emitidas e impressas através do sistema (tirando os produtos do estoque), além de outras funcionalidades. .. Gostaria de saber do que eu preciso para poder comercializar esse sistema? Pelo que sei eu devo comprar a licença do delphi e do my- sql, mas eu não sei se depois disso eu já posso colocar o meu sistema para emitir notas fiscais e cupons fiscais! Pra trabalhar com notas fiscais eu preciso de algum tipo de autorização do governo ou de seguir algumas regras? Obrigado e me desculpe se eu estiver fazendo perguntas bobas! rs Um abraço a todos! [As partes desta mensagem que não continham texto foram removidas] 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] [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Copiar dados de uma tabela mysql pra outra
Boa tarde pessoal! Tenho duas tabelas my-sql idênticas, mas de nomes diferentes e preciso copiar todos os dados de uma para a outra usando SQL ou alguma forma bem rápida! Deixa eu explicar... Eu tenho uma tabela de nome Pre-notas e outra tabela de nome Notas e inicialmente eu uso a tabela Pre-notas para ser preenchida inicialmente. Eu gostaria de criar um botão que qdo fosse clicado fizesse a copia do registro atual que estiver na Pre-notas para a Tabela notas, ou seja, eu não gostaria de copiar a tabela inteira, mas apenas o registro atual ou a linha desejada. Mesmo assim quem souber como copiar a tabela inteira e quiser postar eu agradeceria! Obrigado e um feliz ano novo a todos! [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Res: Copiar dados de uma tabela mysql pra outra
Pessoal, seguinte... Eu consegui fazer copiar a tabela inteira da seguinte forma: INSERT INTO notasfiscais (`CodigoLctoNF`, `NumeroNF`, `SerieNF`, `DataLctoNF`, `DataEmissaoNF`, `CodigoVendedor`, `CodigoOperNF`, `CodigoEndNF`, `CFOPNF`, `CFOPNF2`, `CodigoCli`, `TotalIpiNF`, `ServicosNF`, `DescontoPercentualNF`, `DescontoNF`, `FreteNF`, `SeguroNF`, `CustoFinancNF` `ValorIcmsSubNF`, `BaseIcmsSubNF`, `DescIrrfNF`, `DescInssNF`, `DescFunRurNF`, `PisCofinsNF`, `BaseCalcIcmsNF`, `VlrIcmsNF`, `BaseCalcIssNF`, `IssNF`, `DespesasNF`, `TotalMercadoriasNF`, `SomaParcNF`, `TotalNF`, `ObsNF`, `CodigoTransNF`, `PlacaNF`, `TipoPgtoNF`, `QtdeParcNF`, `EmissaoEntradaNF`, `MarcaTransNF`, `NumeroTransNF`, `EspecieTransNF`, `PesoBrutoNF`, `PesoLiqNF`, `QtdeTransNF`, `FretePorConta`, `HoraSaidaNF`, `DataSaidaNF`, `TipoNF`) SELECT `CodigoLctoPre`, `NumeroPre`, `SeriePre`, `DataLctoPre`, `DataEmissaoPre`, `CodigoVendedorPre`, `CodigoOperPre`, `CodigoEndPre`, `CFOPPre`, `CFOP2Pre`, `CodigoCliPre`, `TotalIpiPre`, `ServicosPre`, `DescontoPercentualPre`, `DescontoPre`, `FretePre`, `SeguroPre`, `CustoFinancPre`, `ValorIcmsSubPre`, `BaseIcmsSubPre`, `DescIrrfPre`, `DescInssPre`, `DescFunRurPre`, `PisCofinsPre`, `BaseCalcIcmsPre`, `VlrIcmsPre`, `BaseCalcIssPre`, `IssPre`, `DespesasPre`, `TotalMercadoriasPre`, `SomaParcPre`, `TotalPre`, `ObsPre`, `CodigoTransPre` `PlacaPre`, `TipoPgtoPre`, `QtdeParcPre`, `EmissaoEntradaPre`, `MarcaTransPre`, `NumeroTransPre`, `EspecieTransPre`, `PesoBrutoPre`, `PesoLiqPre`, `QtdeTransPre`, `FretePorContaPre`, `HoraSaidaPre`, `DataSaidaPre`, `TipoPre` FROM prenotas; Só que eu preciso que copie todos esses campos apenas do registro que estiver sendo editado no momento, por exemplo: Copiar apenas do registro que tenha CodigoLctoNF = 18 e não a tabela contendo todos os registros. Mais uma vez, obrigado! ---Mensagem original--- De: Bruno Lepesqueur J. Ribeiro Data: 31/12/2008 15:08:29 Para: delphi-br@yahoogrupos.com.br Assunto: Copiar dados de uma tabela mysql pra outra Boa tarde pessoal! Tenho duas tabelas my-sql idênticas, mas de nomes diferentes e preciso copiar todos os dados de uma para a outra usando SQL ou alguma forma bem rápida! Deixa eu explicar... Eu tenho uma tabela de nome Pre-notas e outra tabela de nome Notas e inicialmente eu uso a tabela Pre-notas para ser preenchida inicialmente. Eu gostaria de criar um botão que qdo fosse clicado fizesse a copia do registro atual que estiver na Pre-notas para a Tabela notas, ou seja, eu não gostaria de copiar a tabela inteira, mas apenas o registro atual ou a linha desejada. Mesmo assim quem souber como copiar a tabela inteira e quiser postar eu agradeceria! Obrigado e um feliz ano novo a todos! [As partes desta mensagem que não continham texto foram removidas]
Res: [delphi-br] Dúvida com OnKeyPress
Silvio, mais uma vez te agradeço! Muito obrigado a você e a todos dos grupo! Precisando estamos aqui! Um abraço! ---Mensagem original--- De: Silvio Clécio Data: 02/12/2008 21:38:06 Para: delphi-br@yahoogrupos.com.br Assunto: Res: [delphi-br] Dúvida com OnKeyPress Olá pessoal, Bruno, tem um que eu uso aqui muito simples: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin // Valid name if (Key in ['0'..'9']) then begin Key := #0; Beep; end; end; Você pode modificar para restringir outros caracteres, ex: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin // Valid name if (Key in ['0'..'9']) or (Key in ['@']) then begin Key := #0; Beep; end; end; Se o usuário digitar @ (arroba), o beep é soado avisando que é proibido. []'s, Silvio Clécio Contatos/Blog Skype: silvioprog E-mail, Yahoo! Messenger: [EMAIL PROTECTED] Gmail, Google Talk: [EMAIL PROTECTED] Hotmail, MSN: [EMAIL PROTECTED] BlogSpot: http://silvioclecio.blogspot.com/ De: Bruno Lepesqueur [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 2 de Dezembro de 2008 21:46:34 Assunto: Re: [delphi-br] Dúvida com OnKeyPress Obrigado Silvio! Eu já tinha tentado dessa forma e não havia dado certo, mas fiz de novo e deu! Outra coisa... Como que eu faço pra não aceitar digitar números no campo nome que está em uma dbEdit? Deve ser algo parecido com o código, mas sei que esse daí faz outra coisa: if key= #13 then begin Perform (CM_DialogKey, VK_TAB, 0); key:=#0; end; Valeu! 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]
[delphi-br] Dúvida com OnKeyPress
Boa tarde pessoal! Estou precisando fazer um código aki, mas não tenho nem idéia de como fazer! Seguinte... eu uso o código no OnKeyPress de um campo dbEdit: if key= #13 then begin Perform (CM_DialogKey, VK_TAB, 0); key:=#0; end; Pra quem não sabe esse código faz a tecla ENTER ter a mesma função que a tecla TAB. Na verdade eu gostaria de algo parecido! Vou explicar pra vcs abaixo: Eu gostaria que fosse executado um comando todas as vezes que alguém pressionasse qq tecla do teclado no campo Edit4, exemplo: If (pressionar qualquer tecla) then dbEdit5.setFocus; Agradeço a ajuda de todos! Obrigado! [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Dúvida com OnKeyPress
Obrigado Silvio! Eu já tinha tentado dessa forma e não havia dado certo, mas fiz de novo e deu! Outra coisa... Como que eu faço pra não aceitar digitar números no campo nome que está em uma dbEdit? Deve ser algo parecido com o código, mas sei que esse daí faz outra coisa: if key= #13 then begin Perform (CM_DialogKey, VK_TAB, 0); key:=#0; end; Valeu! - Original Message - From: Silvio Clécio To: delphi-br@yahoogrupos.com.br Sent: Tuesday, December 02, 2008 5:40 PM Subject: Res: [delphi-br] Dúvida com OnKeyPress Olá pessoal, Brother, só uma sugestão: Se tirar o if key= #13 then será que funfa? Eu testei aqui e foi de primeira, veja se dá certo aí tb :) . []'s, Silvio Clécio Contatos/Blog Skype: silvioprog E-mail, Yahoo! Messenger: [EMAIL PROTECTED] Gmail, Google Talk: [EMAIL PROTECTED] Hotmail, MSN: [EMAIL PROTECTED] BlogSpot: http://silvioclecio.blogspot.com/ De: Bruno Lepesqueur J. Ribeiro [EMAIL PROTECTED] Para: delphi-br@yahoogrupos.com.br Enviadas: Terça-feira, 2 de Dezembro de 2008 18:27:24 Assunto: [delphi-br] Dúvida com OnKeyPress Boa tarde pessoal! Estou precisando fazer um código aki, mas não tenho nem idéia de como fazer! Seguinte... eu uso o código no OnKeyPress de um campo dbEdit: if key= #13 then begin Perform (CM_DialogKey, VK_TAB, 0); key:=#0; end; Pra quem não sabe esse código faz a tecla ENTER ter a mesma função que a tecla TAB. Na verdade eu gostaria de algo parecido! Vou explicar pra vcs abaixo: Eu gostaria que fosse executado um comando todas as vezes que alguém pressionasse qq tecla do teclado no campo Edit4, exemplo: If (pressionar qualquer tecla) then dbEdit5.setFocus; Agradeço a ajuda de todos! Obrigado! 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]