fabin01 Posted September 24, 2009 Report Share Posted September 24, 2009 Galera é o seguinte queria aprender a fazer isso aqui tenho uma tela onde os registros aparecem na listbox queria quando o usuario clicar duas vezes no item da listbox abre a tela de alteraçao ele faz as alteraçoes e salva no bando ou senao ele seleciona e clica no botao alterar que a dialog abre e ele faz as alteraçoes.. entenderam?? como faria isso valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS Editado por - fabin01 on 02/10/2009 15:09:22 Quote Link to comment Share on other sites More sharing options...
fabin01 Posted September 24, 2009 Author Report Share Posted September 24, 2009 Galera é o seguinte queria aprender a fazer isso aqui tenho uma tela onde os registros aparecem na listbox queria quando o usuario clicar duas vezes no item da listbox abre a tela de alteraçao ele faz as alteraçoes e salva no bando ou senao ele seleciona e clica no botao alterar que a dialog abre e ele faz as alteraçoes.. entenderam?? como faria isso valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS Editado por - fabin01 on 02/10/2009 15:09:22 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 24, 2009 Report Share Posted September 24, 2009 USE O COMANDO: BKEYDOWN() OU BKEYCHAR() \samples -> exemplos - TESTLXB?.PRG Abraços João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Editado por - kapiaba on 24/09/2009 16:56:10 Quote Link to comment Share on other sites More sharing options...
Anderson.OL Posted September 24, 2009 Report Share Posted September 24, 2009 Disparar um evento com duplo clique no xBrowse id=code>id=code>Disparar um evento ao teclar ENTER id=code>id=code>Fw 2.6 | Clipper 5.3b | Med 3.02 | Workshop | DBFCDX -- FwxH 8.02 | xHb 1.1.0 | xDev 0.72 | Pelles C | DBFCDX -- FwxH 9.06 | xHb 1.2.1 | xDev 0.72 | Pelles C | SqlLib | MySqlid=brown> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted September 25, 2009 Author Report Share Posted September 25, 2009 no caso quando ele clicar no item da listbox chama essa funçao e dentro dessa funçao tenho que chamar a dialog com os campos ja preenchidos para alteraçao?? seria mais ou menos isso? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 25, 2009 Report Share Posted September 25, 2009 No seu Caso.. oBrw:blDblClick := {|| Agenda_Altera(@cCodigo,@cEmpresa,@cContato,@cEmail,@cTelefone,oget,olbx) } * * Function Agenda_Altera(cCodigo,cEmpresa,cContato,cEmail,cTelefone,oget,olbx) * * Define Dialog odlg3....... Redefine Get oGet Var cCodigo ID Of Odlg3 Redefine Get oGet Var cEmpresa ID of odlg3 Etc... etc... Redefine Button obtn Prompt "Salvar" ID Of oDlg3 Action SuaFunçãodeSalvar(cCodigo,etc,etc) Activate Dialog oDlg3 Centered Return .t. id=code>id=code>Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted September 25, 2009 Author Report Share Posted September 25, 2009 citação:No seu Caso.. oBrw:blDblClick := {|| Agenda_Altera(@cCodigo,@cEmpresa,@cContato,@cEmail,@cTelefone,oget,olbx) } * * Function Agenda_Altera(cCodigo,cEmpresa,cContato,cEmail,cTelefone,oget,olbx) * * Define Dialog odlg3....... Redefine Get oGet Var cCodigo ID Of Odlg3 Redefine Get oGet Var cEmpresa ID of odlg3 Etc... etc... Redefine Button obtn Prompt "Salvar" ID Of oDlg3 Action SuaFunçãodeSalvar(cCodigo,etc,etc) Activate Dialog oDlg3 Centered Return .t. id=code>id=code>Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> id=quote>id=quote>luiz no caso este oBrw sereia minha olbx, pq nao tenho variavel obrw, troquei para olbx so que informou que a variavel cEmpresa nao existe?? luiz vou separar meu codigo fonte por prg pq ja ta ficando meio complicado hehehe... no caso vc divide como pq tenho varias funçoes aqui?? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 25, 2009 Report Share Posted September 25, 2009 Para cada Function que vc. tem salve ela como SeuArquivo.PRG sempre inicie a function como o nome do prg e não com o Main que é reservado para o sua Tela Principal.. Function SeuArquivo1.prg Function SeuArquivo2.prg Etc.. dai em diante é igual a function que C tá acostumado compile todas elas junto com o projeto é só chama-las pelos buttons que serão abertas.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted September 25, 2009 Author Report Share Posted September 25, 2009 citação:Para cada Function que vc. tem salve ela como SeuArquivo.PRG sempre inicie a function como o nome do prg e não com o Main que é reservado para o sua Tela Principal.. Function SeuArquivo1.prg Function SeuArquivo2.prg Etc.. dai em diante é igual a function que C tá acostumado compile todas elas junto com o projeto é só chama-las pelos buttons que serão abertas.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> id=quote>id=quote>nao entendi luiz como assim da um exemplor real pra mim... consegui resolver o problema da listbox é so colocar um custol control que resolve agora coloca um exemplo ai de como vc divide em prgs valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS Editado por - fabin01 on 25/09/2009 11:03:45 Editado por - fabin01 on 25/09/2009 11:13:48 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 25, 2009 Report Share Posted September 25, 2009 Para mostrar a barra de rolagem troque o ListBox por Custom Control Troque o valor de "Window Style" 0x508id=red>10000 por 0x50Bid=red>10000 Para os PRG. Vc. tem uma function como AGENDA_CADASTRO() outra Function AGENDA_ALTERA() etc... Para cada uma crie um PRg com o mesmo nome por exemplo Cadastro.prg Alterar.prg dentro do cadastro.prg inicie assim Function Cadastro() dentro do Alterar.prg inicie assim Function Alterar() ai é só copiar sua function que vc. já está usando e colar nos prgs. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Editado por - ico on 25/09/2009 11:21:52 Quote Link to comment Share on other sites More sharing options...
fabin01 Posted September 25, 2009 Author Report Share Posted September 25, 2009 luiz voce me explicou como fazer para chamar a tela para alteraçao com dois cliques no menu da listbox certo so que agora é para alterar se eu chama a funçao salvar dados ele vai é inserir e nao alterar no caso teria que usar update nao?? e esta dando um erro quando dou dois cliques no campo da listbox informando que a variavel cEmpresa nao existe?? deste modo que voce mepassou quando eu clicar vai carregar os dados na dialog?? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 25, 2009 Report Share Posted September 25, 2009 citação:luiz voce me explicou como fazer para chamar a tela para alteraçao com dois cliques no menu da listbox certo so que agora é para alterar se eu chama a funçao salvar dados ele vai é inserir e nao alterar no caso teria que usar update nao?? e esta dando um erro quando dou dois cliques no campo da listbox informando que a variavel cEmpresa nao existe?? deste modo que voce mepassou quando eu clicar vai carregar os dados na dialog?? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS id=quote>id=quote>Vou fazer um exemplo depois posto.. Aguarde.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 25, 2009 Report Share Posted September 25, 2009 E Luiz, não foge não... Tú criou o POST FIVEWIN 9.09 e o ´bixo´ pegou!! Se vira e ´apaga´ o fogo! kkkkk Abraços. Hoje é SEXTA-FEIRA!! João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
fabin01 Posted September 25, 2009 Author Report Share Posted September 25, 2009 ok fico no aguardo valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 25, 2009 Report Share Posted September 25, 2009 citação:E Luiz, não foge não... Tú criou o POST FIVEWIN 9.09 e o ´bixo´ pegou!! Se vira e ´apaga´ o fogo! kkkkk Abraços. Hoje é SEXTA-FEIRA!! João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>Meu extintor tá seco Em briga de Gigantes anão não pode ser juiz Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
fabin01 Posted September 25, 2009 Author Report Share Posted September 25, 2009 citação: citação:E Luiz, não foge não... Tú criou o POST FIVEWIN 9.09 e o ´bixo´ pegou!! Se vira e ´apaga´ o fogo! kkkkk Abraços. Hoje é SEXTA-FEIRA!! João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>Meu extintor tá seco Em briga de Gigantes anão não pode ser juiz Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> id=quote>id=quote>ta com o exemplo aew corumba??} valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 25, 2009 Report Share Posted September 25, 2009 citação: citação: citação:E Luiz, não foge não... Tú criou o POST FIVEWIN 9.09 e o ´bixo´ pegou!! Se vira e ´apaga´ o fogo! kkkkk Abraços. Hoje é SEXTA-FEIRA!! João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>Meu extintor tá seco Em briga de Gigantes anão não pode ser juiz Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> id=quote>id=quote>ta com o exemplo aew corumba??} valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS id=quote>id=quote>Comigo não tá.. tá em seu email.. Execute o EXE analise abras os PRGs estude como a bagaça funciona tente entender.. só depois coloca em prática.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Editado por - ico on 25/09/2009 16:58:29 Quote Link to comment Share on other sites More sharing options...
fabin01 Posted September 28, 2009 Author Report Share Posted September 28, 2009 luiz ate agora to fazendo tudo certo e ta rodando perfeitamente minha duvida é o seguinte agora... paraalteraçao dos dados no mysql o comando nativo é o update certo?? se eu colocar um insert ele vai inserir dados e nao alterar... entao vou ter q usar o update certo... se sim tem como postar a estrutura de como fazer.. é igual ao insert porem eu coloco so o update?? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS Quote Link to comment Share on other sites More sharing options...
Luisão Posted September 28, 2009 Report Share Posted September 28, 2009 id=code>id=code>Ou aqui: UPDATE ps.: Fábio, isso é outra coisa que você poderia pesquisar sem precisar vir no fórum. Foi isso o que eu quis dizer no outro tópico e que o S.A. Oliveira confirmou. Não tenha vergonha de perguntar, mas tenha a iniciativa de tentar entender antes de lotar de perguntas. Eu costumo ajudar, mas não tanto quanto o Luiz (santa paciência a dele). Luis Fernando Jr.(Luisão) "Seize the day or die regretting the time you lost" FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY Quote Link to comment Share on other sites More sharing options...
fabin01 Posted September 28, 2009 Author Report Share Posted September 28, 2009 citação: id=code>id=code>Ou aqui: UPDATE ps.: Fábio, isso é outra coisa que você poderia pesquisar sem precisar vir no fórum. Foi isso o que eu quis dizer no outro tópico e que o S.A. Oliveira confirmou. Não tenha vergonha de perguntar, mas tenha a iniciativa de tentar entender antes de lotar de perguntas. Eu costumo ajudar, mas não tanto quanto o Luiz (santa paciência a dele). Luis Fernando Jr.(Luisão) "Seize the day or die regretting the time you lost" FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY id=quote>id=quote>luizao eu faço isso porem na maioria das vezes da erro por isso recorro... igual agora ja tinha feito o comando porem esta dando um erro Argument error apontando pro + cUpdate:= "Update cadastro_clientes SET empresa = '" +sqlStr( cEmpresa ) +"',"+; "contato = '" +sqlStr( cContato ) +"',"+; "email = '" +sqlStr( cEmail ) +"',"+; "telefone = '" +sqlStr( cTelefone ) +"'"+; " Where cadastro_clientes.codcliente = " +cCodigo SQLExecute( cUpdate ) oget[1]:Varput(cCodigo) oGet[1]:Refresh() olbx:Refresh() xSetFocus(oget[2]) Return .t.id=code>id=code>Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS Editado por - fabin01 on 28/09/2009 10:02:18 Editado por - fabin01 on 28/09/2009 10:03:07 Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted September 28, 2009 Report Share Posted September 28, 2009 Agora eu que pergunto id=code>id=code>Aquele Ponto ali tá certo ??? Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> Quote Link to comment Share on other sites More sharing options...
Luisão Posted September 28, 2009 Report Share Posted September 28, 2009 Como o comando está tratando apenas uma tabela, o ponto é desnecessário. Mas está certo sim. Depois faça um teste: id=code>id=code>Vai funcionar também Luis Fernando Jr.(Luisão) "Seize the day or die regretting the time you lost" FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY Quote Link to comment Share on other sites More sharing options...
fabin01 Posted September 28, 2009 Author Report Share Posted September 28, 2009 alterei a linha id=code>id=code>para: id=code>id=code> porem erro persisteerro: id=code>id=code>o que estou colocando de errado ou o que esta faltando aew galera? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS Editado por - fabin01 on 28/09/2009 10:41:44 Editado por - fabin01 on 28/09/2009 11:07:54 Editado por - fabin01 on 28/09/2009 11:45:18 Quote Link to comment Share on other sites More sharing options...
Luisão Posted September 28, 2009 Report Share Posted September 28, 2009 Não sei como os outros programadores testam erros, como não tem debug, as vezes eu faço o seguinte: cUpdate:= "Update cadastro_clientes SET empresa = '" +sqlStr( cEmpresa ) +"',"+; "contato = '" +sqlStr( cContato ) +"',"+; "email = '" +sqlStr( cEmail ) +"',"+; "telefone = '" +sqlStr( cTelefone ) +"'"+; " Where cadastro_clientes.codcliente = " +cCodigo */ ? "Update cadastro_clientes SET empresa = '" +sqlStr( cEmpresa ) +"'," ? "contato = '" +sqlStr( cContato ) +"'," ? "email = '" +sqlStr( cEmail ) +"'," ? "telefone = '" +sqlStr( cTelefone ) +"'" ? " Where cadastro_clientes.codcliente = " +cCodigo id=code>id=code>Dessa forma, você vai saber qual linha exatamente o erro aconteceu e poderá avaliar melhor... "Não dar o peixe pescado, mas ensinar a pescar" =P Luis Fernando Jr.(Luisão) "Seize the day or die regretting the time you lost" FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY Quote Link to comment Share on other sites More sharing options...
fabin01 Posted September 28, 2009 Author Report Share Posted September 28, 2009 "contato = '" +sqlStr( cContato ) +"',"+; "email = '" +sqlStr( cEmail ) +"',"+; "telefone = '" +sqlStr( cTelefone ) +"'"+; " Where cadastro_clientes.codcliente = " +sqlNtrim(cCodigo) ?SQLExecute( cUpdate ) /*? "Update cadastro_clientes SET empresa = '" +sqlStr( cEmpresa ) +"'," ? "contato = '" +sqlStr( cContato ) +"'," ? "email = '" +sqlStr( cEmail ) +"'," ? "telefone = '" +sqlStr( cTelefone ) +"'" ? "Where cadastro_clientes.codcliente = " +sqlNtrim(cCodigo)*/ olbx:Refresh() xSetFocus(oget[2]) Return .t.id=code>id=code>nao conseguir localizar onde esta meu erro ai... apos fazer as verificaçoes conforme luizao citou colocando ? funcionou perfeitamente mas quando descomentei a linha dos ? e fui executar e coloquei ? no sqlExecute(cUpdate) retornou .f. entao algo esta errado no comando update porem nao conseguir identificar.. alguem olhando ai sabe onde estou errando? valews Obrigado pela ATENÇÃO e AJUDA! "O homem deve criar as oportunidades e não somente encontrá-las." Fábio Igor (BH-MG) fabio.igor@hotmail.com Iniciante FWH 2.8 [x]Harbour 9.61 xdev 0.70 WS Editado por - fabin01 on 28/09/2009 15:43:13 Editado por - fabin01 on 28/09/2009 15:48:26 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.