-
Total de itens
9.657 -
Registro em
Posts postados por Jhonas
-
-
Achei que voce estava usando o Delphi.
Qual linguagem de programação voce está usando ?
-
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
abraço
-
Use o MYSQL Front para verificar o seu banco de dados
abraço
-
Amigo, caso não tenha percebido, as instruções tambem se aplicam ao MYSQL
Tem outros links que voce pode ver
abraço
-
Use o MysqlFront ... vai te ajudar muito nessa tarefa
abraço
-
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
-
-
Verifique quais são os valores passados
WHERE cpf=@cpf
-
-
-
tente
ZConnection1.Properties.Add('Codepage=WIN1252');
ou veja nesses links
abraço
-
ok... nesse caso voce deve trocar o software da balança
Veja nesses links
-
veja os links
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
-
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
-
Vai encontrar a solução em um dos links
-
Veja nesses links
Voce vai encontrar o que procura em um deles
abraço
-
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
-
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
-
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
-
Voce vai encontrar a resposta em um desses links
ou
https://forum.scriptbrasil.com.br/topic/188744-recuperar-bookmark/
abraço
-
É 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
-
O acesso a tabela foi negado ... verifique as configurações de acesso, previlégios ou ainda o seu firewall
-
' WHERE LOGIN= : NUSERX AND DATEREGISTER= : NDATE';
-
Possivel resposta para o problema
https://www.diegomacedo.com.br/administracao-de-usuarios-e-privilegios-no-banco-de-dados/
Captura de dados web para GoogleSheets quando não funciona IMPORThtml, nem IMPORTxml, nem GoogleFINANCE
em Tutoriais & Dicas - HTML, XHTML, CSS
Postado
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