Ir para conteúdo
  • Cadastre-se

Valtran Silva

Membros
  • Total de ítens

    18
  • Registro em

  • Última visita

Tudo que Valtran Silva postou

  1. Como Funciona, se mencionou a respeito vai saber, manda ai?
  2. Bom Dia. Valeu por responder amarildo. Se tem infelizmente não conheço, mais irei pesquisar mais para ver se acho. Mais tipo você sabe me informar a lógica da Foto no (BD)?
  3. Salvar foto no Banco De Dados 03/12/2018 Delphi Galera é o seguinte, tô a muito tempo tentando aprender a Gravar uma foto no Banco de Dados mais não tive sucesso. pesquisei muito na internet, mais o problema que o que Domina é Função SQL. Não costumo trabalhar com função SQL. Uso Banco de Dados "FIREBIRD", Junto IBTABLE1, uso ele porque acho mais fácil e e o que aprendi na FAcu. Mais não teria problema nenhum em mudar um dia para SQL. Mais hoje preciso da ajuda de alguém voltado para minha realidade. 1º. Como funciona a lógica Disso. Eu gravo a foto, e Depois eu Busco Do Banco de Dados? 2º Eu tenho um cadastro de clientes com uma "DBImage" ja está setado com os valores do Grid. Quero que para cada cadastro que eu selecionar ou apenas rolar com o mouse no Grid, mude a foto automaticamente, só isso. Alguém poderia, me dar uma idéia de como funciona a lógica disso tudo?????? Não adianta pedir código, porque não tenho nenhum, estou pedindo do zero! Valeu por me ajudar
  4. Exempllo: No código "Salvar" Ibtable1.insert; Ibtable1.fieldbyname('Nome').ASString:=Edit1.text; Ibtable1.post; Beleza aqui e só um exemplo mais o cadastro e bem completo. O que acontece, o código que eu tinha antes ficava declaro acima do "INsert" o que esse código fazia, se declarava uma variavel "COD" e o Edit1.text, recebia a variavel CODI! então toda vez que eu salvava um novo cadastro, o registro gerava automaticamente sem o usuário precisar colocar nada. Infelizmente não me lembro na epoca como eu fiz mais funcionava perfeitamente, inclusive eu usava em todas as telas de cadastro. Sem precisar mexer em Banco de dados ou tabela. Só montava o Banco de Dados. È o código fazia tudo sozinho. Espero ter explicado de uma forma coerente.
  5. Bom Dia, Valeu Amarildo ! Estou usando o Firebird, como converto isso para minha realidade? Eu trabalho só com IBTAble!! Uma vez numa aplicação que eu fiz, tinha esse código, mais meu pc deu pau e perdi os arquivos. mais fazia uma variavel, e o Edit que o que vai receber a sequência de números, por sequência. 1 2 3 4 e assim por diante. A cada cadastro ele adiciona automaticamente no Grid. Por incrível que pareça não encontrei nada em vídeos ou artigos que me ajudasse com minha realidade que desenvolvo, SE você poder me dar uma ajuda nisso!
  6. Pessoal, Tenho cadastro de clientes, quero que gere o Registro do cadastro Aumaticamente. Tinha esse código mais acabei perdendo, e não me lembro como faz o contador dos registros. Uso, Ibtable1
  7. Então pessoal, quero ver como fazer uma aplicação que faz a conecção dos arquivos do celular no Computador, tem como ? Qual e a melhor forma de fazer isso?
  8. De tanto quebrar a cabeça aqui consegui resolver, rs... Obrigado galera pela ajuda.
  9. NomeDoArq := 'C:\1234\TV.txt'; // Arquivo Na Pasta escolhida AssignFile(Arquivo,NomeDoArq); //reset(Arquivo); //Readln(Arquivo,linha); ///////////////////////////////////////////// if fileExists(NomeDoArq) then begin Append(Arquivo) // se existir, apenas adiciona linhas } end else RewRite(Arquivo); // cria um novo se não existir } try Writeln(Arquivo, DateToStr(Now)); // data atual do micro finally CloseFile(Arquivo); end; Código correto agora
  10. Realmente o que está dando o erro, if Strtodate(linha) > now then // begin Showmessage('Data do computador errada, acerte a data para que funcione o programa "Assistir TV Online!!'); Application.Terminate; e essa parte do código
  11. Posso estar Equivocado nessa lógica desse código! Mais alguém pode me ajudar? Tipo quero que ele crie o Arquivo TXT dentro da pasta especificada, caso não tenha o arquivo. Mais guarde a Data atual Do Pc, lá dentro. A Lógica e que quando o programa for instalado em qualquer computador, ele armazene a data do pc, no arquivo txt
  12. Bom Dia. Opa Desculpa, Tipo ele vai verificar se o arquivo na pasta C:// Tv Existi ai ele vai criar. Se já existir ele só vai adicionar linhas. No Caso, ele adiciona a Data Atual Do Pc, Que esta armazenado na variavel arquivo. WriteLn(arquivo,datetostr(now)); // data atual do micro o erro deve que e nessa linha aqui, mais não sei como converter Arquivo esta declaro como TexFile
  13. NomeDoArq := 'C:\1234\TV.txt'; AssignFile(Arquivo, NomeDoArq); if FileExists(NomeDoArq) then Append(arquivo) { se existir, apenas adiciona linhas } else ReWrite(arquivo); { cria um novo se não existir } try WriteLn(arquivo,datetostr(now)); // data atual do micro finally CloseFile(arquivo) ; end; if Strtodate(linha) > now then // begin Showmessage('Data do computador errada, acerte a data para que funcione o programa "Assistir TV Online!!'); Application.Terminate;
  14. Caraca mano muito obrigado, funcionou corretamente, me ajudou muito. Gostaria que você me explicasse como funciona esse código.
  15. Deixa explicar, tenho 2 Forms . O primeiro e um ProgressBar que quando chega a 100% chama o form2, até ai beleza. Só que quero que quando abra o Form 2, a aplicação fique "Ativa" na barra de tarefas, igual a qualquer outro programa que e aberto no windows. Engraçado que ela como e de costume só fica aberta no primeiro form quando está carregando a Barra Progresso, Depois Ele Não fica mais ativa. Não sei se pode ser esse Form1. HIDE. Espero que vocês possam me ajudar, Já pedi ajuda em 3 fórum, e mandei até em grupo de programadores mais ninguém soube me passar a solução Estou usando esse código simples aqui. procedure TForm1.Timer1Timer(Sender: TObject); begin ProgressBar1.Position := ProgressBar1.Position + 10; if (ProgressBar1.Position = 100) then begin Form2.Show ; Timer1.Enabled:= false; Form1.Hide;
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.