Ir para conteúdo
Fórum Script Brasil

Jhonas

Monitores
  • Total de itens

    9.657
  • Registro em

Tudo que Jhonas postou

  1. Oi .. desculpe a demora em responder Não precisa ser necessariamente um componente Memo ( Delphi ) No delphi voce consegue ler o HTML e fazer outras coisas Se voce consegue ler o HTML, veja se consegue tambem recuperar o texto da tag Veja se esses links ajudam .... https://www.google.com.br/search?q=comandos+html+texto&ei=c2_cYLWXAuDD5OUP9pGq4AQ&o que=comandos++html&gs_lcp=Cgdnd3Mtd2l6EAEYCDICCAAyAggAMgYIABAHEB4yAggAMgYIABAHEB4yBggAEAcQHjICCAAyBggAEAcQHjICCAAyBggAEAcQHjoHCAAQRxCwAzoECAAQDUoECEEYAFDndVi-gQFg-qwBaAJwAngAgAG4AYgBsguSAQQwLjEwmAEAoAEBqgEHZ3dzLXdpesgBCMABAQ&sclient=gws-wiz abraço
  2. Nesse link vai encontrar a lógica de como programar um sistema de cadastro de clientes ( vai ser o mesmo para a loja ) http://www.facom.ufu.br/~albertini/prossiga/index.php/Sistema_de_cadastro_de_clientes outros links com exemplos https://www.google.com.br/search?q=programa+cadastro+de+loja+gratis+em+c%2B%2B&ei=sZrMYNvwH4ur1sQP1rS8qAQ&o que=programa+cadastro+de+loja+gratis+em+c%2B%2B&gs_lcp=Cgdnd3Mtd2l6EAM6BwgAEEcQsAM6CAghEBYQHRAeOgUIIRCgAToHCCEQChCgAVCP7gFY6Y4CYMGVAmgBcAJ4AIABmwKIAaYLkgEFMC43LjGYAQCgAQGqAQdnd3Mtd2l6yAEIwAEB&sclient=gws-wiz&ved=0ahUKEwibjb2boKHxAhWLlZUCHVYaD0UQ4dUDCA0&uact=5 https://www.google.com.br/search?q=programa+de+cadastro+de+loja+c%2B%2B&source=hp&ei=oZnMYJSXDrrL1sQPueGH8Ac&iflsig=AINFCbYAAAAAYMynsUyFPuhpAlP4gPLrLaFLBp2ylJtd&o que=programa+de+cadastro+de+loja+c%2B%2B&gs_lcp=Cgdnd3Mtd2l6EAM6CAguELEDEJMCOggIABCxAxCDAToCCC46BQgAELEDOggILhCxAxCDAToCCAA6CwgAELEDEIMBEMkDOgUIABCSAzoFCC4QsQM6BQgAEMkDOgYIABAWEB46CAghEBYQHRAeOgUIIRCgAVCrGljkxQFgic4BaAJwAHgAgAGVAogBuiaSAQYwLjMyLjGYAQCgAQGqAQdnd3Mtd2l6sAEA&sclient=gws-wiz&ved=0ahUKEwjU69GZn6HxAhW6pZUCHbnwAX4Q4dUDCAY&uact=5 abraço
  3. Use o MYSQL Front para verificar o seu banco de dados https://www.google.com.br/search?q=mysql+front&source=hp&ei=TlPKYISpEt7U1sQP4bWk8Ao&iflsig=AINFCbYAAAAAYMphXgn48PZxOhuJ0xaWyZW7gem_KAlA&o que=mysql+front&gs_lcp=Cgdnd3Mtd2l6EAMyAggAMgIIADICCAAyAggAMgIIADICCAAyAggAMgIIADoICAAQsQMQgwE6CwguELEDEMcBEKMCOgUIABCxAzoFCC4QsQM6AgguUIcZWM0zYNQ8aAFwAHgAgAGZAYgBwwySAQQwLjExmAEAoAEBqgEHZ3dzLXdperABAA&sclient=gws-wiz&ved=0ahUKEwiEiJbt85zxAhVeqpUCHeEaCa4Q4dUDCAY&uact=5 abraço
  4. Amigo, caso não tenha percebido, as instruções tambem se aplicam ao MYSQL Tem outros links que voce pode ver https://www.google.com.br/search?q=bloqueio+de+transações+mysql&source=hp&ei=qkvHYKfSE7vT1sQPip-nMA&iflsig=AINFCbYAAAAAYMdZunUbOrNRi8XBKf7PlAwP-ZIIb59C&o que=bloqueio+de+transações+mysql&gs_lcp=Cgdnd3Mtd2l6EAM6CwguELEDEIMBEJMCOggILhCxAxCDAToCCC46BQgAELEDOgsIABCxAxDHARCjAjoICAAQsQMQgwE6CwgAELEDEMcBEK8BOgIIADoFCC4QsQM6BQgAEMkDOgQIABAKUL8PWMFiYJxpaABwAHgAgAGeAYgB0RySAQQwLjI4mAEAoAEBqgEHZ3dzLXdpeg&sclient=gws-wiz&ved=0ahUKEwinz76SkJfxAhW7qZUCHYrPCQYQ4dUDCAY&uact=5 abraço
  5. Use o MysqlFront ... vai te ajudar muito nessa tarefa https://www.google.com.br/search?q=mysqlfront&ei=JYTGYNTUDozY1sQPob-22Aw&o que=mysqlf&gs_lcp=Cgdnd3Mtd2l6EAEYADICCAAyAggAMgQIABAKMgIIADICCAAyBggAEAoQHjIGCAAQChAeMgQIABAeMgYIABAKEB4yBAgAEB46BwgAEEcQsAM6BAgAEEM6BQgAELEDOggIABCxAxCDAToLCAAQsQMQxwEQowI6BQguELEDOg4IABCxAxCDARDHARCvAToCCC46BwgAELEDEENQurcTWOXWE2CWiBRoAXACeACAAdoCiAGzCpIBBzAuNS4xLjGYAQCgAQGqAQdnd3Mtd2l6yAEIwAEB&sclient=gws-wiz abraço
  6. alterar permissão ou previlégio de um usuario no mysql só complica. o certo é através do código do seu programa, fazer isso para cada usuário abraço
  7. Veja nesses links https://www.google.com.br/search?q=relação+entre+tabelas+mysql++phpmyadmin&source=hp&ei=eIPGYM6UJ6bX1sQPoPiS-A4&iflsig=AINFCbYAAAAAYMaRiKlPXD0Nyfl-aGOKyHCiiDqvQE_9&o que=relação+entre+tabelas+mysql++phpmyadmin&gs_lcp=Cgdnd3Mtd2l6EAM6CwguELEDEIMBEJMCOggIABCxAxCDAToLCAAQsQMQxwEQowI6BQgAELEDOggILhCxAxCDAToCCC46BQguELEDOgIIADoJCAAQChBGEPkBOgQIABAKOgYIABAKEB46CAgAEAUQChAeOgYIABAFEB46CggAELEDEEYQ-QE6BggAEBYQHlC_C1iZWGDNYWgDcAB4AYABqwOIAfIjkgEIMC4zMC40LTGYAQCgAQGgAQKqAQdnd3Mtd2l6sAEA&sclient=gws-wiz&ved=0ahUKEwjOsN6c0ZXxAhWmq5UCHSC8BO8Q4dUDCAY&uact=5 abraço
  8. Verifique quais são os valores passados WHERE cpf=@cpf
  9. Veja se isso te ajuda https://docs.microsoft.com/pt-br/sql/relational-databases/sql-server-transaction-locking-and-row-versioning-guide?view=sql-server-ver15 abraço
  10. Jhonas

    Editar arquivo my.ini

    Veja nesse Link https://www.ti-enxame.com/pt/mysql/como-alterar-porta-padrão-do-mysql-de-3306-para-3360/1051945424/ abraço
  11. tente ZConnection1.Properties.Add('Codepage=WIN1252'); ou veja nesses links https://www.google.com.br/search?q=ZConnection1.Porperties.Add('Codepage%3DWIN1252')%3B&source=hp&ei=OuO3YPkW6LLk5Q-r66WgBg&iflsig=AINFCbYAAAAAYLfxSm9BNQI1zJ2KHKerEUWXvFa754dT&o que=ZConnection1.Porperties.Add('Codepage%3DWIN1252')%3B&gs_lcp=Cgdnd3Mtd2l6EANQzgpYzgpg4w5oAXAAeACAAagCiAGoApIBAzItMZgBAKABAqABAaoBB2d3cy13aXqwAQA&sclient=gws-wiz&ved=0ahUKEwj5m8-33vnwAhVoGbkGHat1CWQQ4dUDCAY&uact=5 abraço
  12. ok... nesse caso voce deve trocar o software da balança Veja nesses links https://www.google.com.br/search?q=balança+prix+9094+plus+software+download&source=hp&ei=bZCxYOaMNdPX5OUPg8S7yAg&iflsig=AINFCbYAAAAAYLGefcTtrSfy3TDqVQ-GIV-gUfZKqsFe&o que=balança+prix+9094+plus+sof&gs_lcp=Cgdnd3Mtd2l6EAEYAjIHCCEQChCgATIHCCEQChCgATIHCCEQChCgAToCCAA6BggAEBYQHjoFCCEQoAFQsRlYvUVg3ltoAXAAeACAAdABiAHMBpIBBTAuNC4xmAEAoAECoAEBqgEHZ3dzLXdperABAA&sclient=gws-wiz
  13. veja os links https://www.google.com.br/search?q=erro+uuuu+balança+prix+9094+plus&source=hp&ei=uaWrYKnACpW-5OUP35ulgA0&iflsig=AINFCbYAAAAAYKuzyR1X9AMJFqfTcqnPNHHiDKpQUGKI&o que=erro+uuuu+balança+prix+9094+plus&gs_lcp=Cgdnd3Mtd2l6EAM6AggAOgsIABCxAxDHARCjAjoICAAQsQMQgwE6BQgAELEDOggILhCxAxCTAjoICC4QsQMQgwE6BQguELEDOgIILjoGCAAQFhAeOgUIIRCgAToHCCEQChCgAVDZFVj9iQFg3ZkBaARwAHgAgAGtAogBqw6SAQgwLjExLjAuMZgBAKABAaABAqoBB2d3cy13aXqwAQA&sclient=gws-wiz&ved=0ahUKEwjpgPOLsuLwAhUVH7kGHd9NCdAQ4dUDCAY&uact=5 OBS: Referente ao erro uuuu DISPLAY DE PESO5 dígitos. Peso em quilograma. Indica peso bruto ou líquido. Se houver tara memorizada (indicador de líquido aceso), o display indicará o peso líquido. Se não houver tara memo-rizada (indicador de líquido apagado), o display indicará o peso bruto. UUUU no display indica peso inferior a 1 incremento abaixo do zero. Apagamento do display indica peso superior a 5 incrementos acima da capacidade Veja pagina 10 do Manual da balança
  14. Voce quer gravar os dados do excel em uma tabela Firebird ? quantas colunas voce tem na planilha do excel ? Obs: Nesses links tem a resposta para importar a planilha para um ClientDataSet diretamente .... não precisa usar StringGrid https://www.google.com/search?q=importar+excel+para+clientdataset+delphi&client=firefox-b-e&ei=QA2pYN3vDrLN5OUP5cGauAM&o que=excel+para+delphi&gs_lcp=Cgdnd3Mtd2l6EAEYBzIGCAAQFhAeMgYIABAWEB4yBggAEBYQHjIGCAAQFhAeMgYIABAWEB4yBggAEBYQHjIGCAAQFhAeMgYIABAWEB4yBggAEBYQHjIGCAAQFhAeOgcIABBHELADOgIIADoLCAAQsQMQxwEQowI6CAgAELEDEIMBOggILhCxAxCDAToFCAAQsQM6BAgAEEM6AgguOgcIABCxAxBDOgQIABAKOgQIABATOggIABAWEB4QE1D98xhYz7gZYMGdGmgCcAJ4AIABlwSIAfUWkgEKMC4xNi4xLjUtMZgBAKABAaoBB2d3cy13aXrIAQXAAQE&sclient=gws-wiz
  15. Vai encontrar a solução em um dos links https://www.google.com.br/search?q=importar+dados+excel+para+firebird+delphi&ei=jgepYOj1DcSq1sQP1Na2oAQ&o que=importar+tabela+excel+para+firebird&gs_lcp=Cgdnd3Mtd2l6EAEYAjIHCAAQRxCwAzIHCAAQRxCwAzIHCAAQRxCwAzIHCAAQRxCwAzIHCAAQRxCwAzIHCAAQRxCwAzIHCAAQRxCwAzIHCAAQRxCwA1AAWABgxeIBaAFwAngAgAHLAYgBywGSAQMyLTGYAQCqAQdnd3Mtd2l6yAEIwAEB&sclient=gws-wiz
  16. Veja nesses links https://www.google.com.br/search?q=auditoria+de+banco+de+dados+mysql+download&source=hp&ei=jrOmYOzML9jb1sQP-7OA2AI&iflsig=AINFCbYAAAAAYKbBnuqbJauL6qOcjNXlXLXdBqNavqZ9&o que=auditoria+de+banco+de+dados+mysql&gs_lcp=Cgdnd3Mtd2l6EAEYAzIICCEQFhAdEB4yCAghEBYQHRAeMggIIRAWEB0QHjIICCEQFhAdEB4yCAghEBYQHRAeMggIIRAWEB0QHjIICCEQFhAdEB46CwgAELEDEMcBEKMCOgUIABCxAzoCCAA6CAguELEDEIMBOggIABCxAxCDAToCCC46BQguELEDOggIABDHARCvAToGCAAQFhAeOgUIIRCgAToHCCEQChCgAVCwF1ikVGCnZ2gBcAB4AIAB7AGIAZEhkgEGMC4zMi4xmAEAoAEBqgEHZ3dzLXdperABAA&sclient=gws-wiz https://www.google.com.br/search?q=auditoria+de+banco+de+dados+mysql+gratuito&ei=2rOmYJSrLOje1sQPiNiysA0&o que=auditoria+de+banco+de+dados+mysql&gs_lcp=Cgdnd3Mtd2l6EAEYADIICCEQFhAdEB4yCAghEBYQHRAeMggIIRAWEB0QHjIICCEQFhAdEB4yCAghEBYQHRAeMggIIRAWEB0QHjIICCEQFhAdEB46BwgAEEcQsANQiI8DWIiPA2ChqgNoAnACeACAAf8BiAGcA5IBBTAuMS4xmAEAoAEBqgEHZ3dzLXdpesgBCMABAQ&sclient=gws-wiz https://www.google.com.br/search?q=auditoria+de+banco+de+dados+mysql+pronto&ei=ErSmYLytL5LY1sQPm6KGsAk&o que=auditoria+de+banco+de+dados+mysql+&gs_lcp=Cgdnd3Mtd2l6EAEYBDIICCEQFhAdEB4yCAghEBYQHRAeMggIIRAWEB0QHjIICCEQFhAdEB4yCAghEBYQHRAeMggIIRAWEB0QHjIICCEQFhAdEB46BwgAEEcQsANQ1OUBWNTlAWCOgwJoAXACeACAAcwBiAHbApIBBTAuMS4xmAEAoAEBqgEHZ3dzLXdpesgBCMABAQ&sclient=gws-wiz Voce vai encontrar o que procura em um deles abraço
  17. ok.. se entendi direito, voce quer copiar os dados da tabela clientes para a tabela pessoas. voce não precisa deletar os registros da tabela pessoas ... bastara apenas que, durante a leitura da tabela clientes, faça uma comparação de registros entre essa tabela e a tabela pessoas. se o registro da tabela clientes, já existir na tabela pessoas, não faz nada e vai para a leitura do proximo registro. se o registro da tabela clientes não existir na tabela pessoas, então voce copia ( insere ) o registro na tabela pessoas Exemplo baseado no seu relato: Nesse caso voce deve fazer uso do comando Select no componente de acesso a tabela exemplo: Select * from Pessoas where Codigo = :NCod procedure TForm1.Button1Click(Sender: TObject); var X : integer; begin if MessageDlg('DESEJA ATUALIZAR A LISTA DE PESSOAS ?' ,mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin Clientes.Active := false; /// componente QUERY / IBQUery CDS_Clientes.Active := false; /// componente ClientDataSet Clientes.Active := true; CDS_Clientes.Active := true; CDS_Clientes.Refresh; for x := 1 to CDS_Clientes.RecordCount do BEGIN // FAZER A PESQUISA NA TABELA PELO CODIGO Pessoas.Active := false; CDS_Pessoas.Active := false; CDS_Pessoas.Params[0].AsString := trim(CDS_ClientesCODIGO.Value); Pessoas.Active := true; CDS_Pessoas.Active := true; CDS_Pessoas.Refresh; if CDS_Pessoas.RecordCount <> 0 then begin // SE EXISTIR A PESSOA NA TABELA PESSOAS // NÃO FAZ NADA end ELSE BEGIN //// SE NÃO EXISTIR A PESSOA NA TABELA PESSOAS //// COPIAR O REGISTRO CDS_Pessoas.Last; CDS_Pessoas.Append; CDS_Pessoas.Edit; CDS_PessoasCODIGO.Value := CDS_ClientesCODIGO.Value; CDS_PessoasNOME.Value := CDS_ClientesNOME.Value; CDS_Pessoas.Post; CDS_Pessoas.ApplyUpdates(-1); CDS_Pessoas.Refresh; END; CDS_Clientes.Next; END; end; Isso é bem nais simples do que voce esta querendo fazer. abraço
  18. Imagine uma tabela com os registros Me mostra com um exemplo simples, como voce quer fazer com os registros Se eu entender a sua ideia posso te dar uma sugestão melhor
  19. Acho que o que voce esta querendo é isso VAR CONT : INTEGER; begin cont := 0; With Dbgrid1 do Begin if SelectedRows.Count = 0 then begin MessageDlg('OPERAÇÃO ANULADA! '+ #13 + #13 + 'SELECIONE OS REGISTROS.' , mtInformation, [mbOK], 0); DBGrid1.SetFocus; Exit; end; end; for cont:= 0 to Pred(DBGrid1.SelectedRows.Count) do DBGrid1.Datasource.Dataset.Bookmark:= DBGrid1.SelectedRows[cont]; end; OBS: Voce pode armazenar o ultimo RecNo do registro, quando o bookmark chegar ao fim da seleção abraço
  20. Voce vai encontrar a resposta em um desses links https://www.google.com.br/search?q=como+usar+bookmarks+delphi&ei=932eYNSqKeXK1sQPs5WeqAQ&o que=como+usar+bookmarks+delphi&gs_lcp=Cgdnd3Mtd2l6EANQAFgAYJETaABwAngAgAEAiAEAkgEAmAEAqgEHZ3dzLXdpesABAQ&sclient=gws-wiz&ved=0ahUKEwiUgvKspsnwAhVlpZUCHbOKB0UQ4dUDCA0&uact=5 ou https://forum.scriptbrasil.com.br/topic/188744-recuperar-bookmark/ abraço
  21. É um ClientDataSet virtual O limite é seu espaço em disco ou o máximo de memoria do computador ClientDataSet da erro de 'Insufficient memory for this operation Quando no CDS é atingido o limite esse erro ocorre OBS: voce pode usar o componente ZipMaster para o delphi e compactar os arquivos abraço
  22. Jhonas

    erro de conexao com banco

    O acesso a tabela foi negado ... verifique as configurações de acesso, previlégios ou ainda o seu firewall
  23. ' WHERE LOGIN= : NUSERX AND DATEREGISTER= : NDATE';
  24. Jhonas

    privilégios de usurio

    Possivel resposta para o problema https://www.diegomacedo.com.br/administracao-de-usuarios-e-privilegios-no-banco-de-dados/
×
×
  • Criar Novo...