-
Total de itens
234 -
Registro em
-
Última visita
Tudo que valSistemasDelphi postou
-
(Resolvido) Instalar Componente No Delphi Tokio 10.2
uma questão postou valSistemasDelphi Delphi, Kylix
Instalei recentemente o Delphi Tokio 10.2, mais não veio com componentes para relatório. não encontro link para download desses componentes! alguém me ajuda ai? -
(Resolvido) Somar Valores de um campo no DbGrid
pergunta respondeu ao valSistemasDelphi de valSistemasDelphi em Delphi, Kylix
Resolvido -
A parte de somar consegui resolver... To Desenvolvendo um sistema para Restaurante! Controle De Mesas, a pessoa escreve qual mesa ela quer Fechar o pedido > O código e um filtro onde só vai aparecer a Mesa que ela Escolheu, Os valores somados aparecem em um Edit! Conclusão Quero que quando a pessoa fazer o Filtro No BD! Apareça no Edit Somente os Valores que ela Filtrou no Banco! Tem como solucionar isso! procedure TForm13.FormShow(Sender: TObject); var somar:Currency; begin Label3.Caption:= inttostr(Form13.IBTable1.RecordCount); Inherited; Somar:=0; With Ibtable1 do begin Ibtable1.DisableControls; Ibtable1.First; while not Ibtable1.eof do begin Somar:=(Somar + Ibtable1.FieldByName('Valor').AsCurrency); Ibtable1.Next; end; Ibtable1.EnableControls; Edit2.Text:=FormatFloat('#,#R$#0.00' ,Somar); Código que estou usando e está somando tudo e esse!!!!
-
(Resolvido) Adicionar Qtde Produto + Ele Mesmo
pergunta respondeu ao valSistemasDelphi de valSistemasDelphi em Delphi, Kylix
if Form9.Ibtable1.Locate('Produto',Form3.DbLookupcomboBox2.Text,[LopartialKey])then //if DbLookupComboBox2.Text = Form9.IBTable1.FieldByName('Produto').AsString then begin Form9.IBTable1.Edit; Vend := StrToFloat(edit3.Text); Prod := StrToFloat(Form9.Ibtable1Qtde.Text); Form9.Ibtable1Qtde.Text := FloatToStr(Prod+Vend); //esse é para somar no estoque(tbproduto), para diminuir troque o sinal de + para - Form9.IBTable1.ApplyUpdates; end else if DbLookupComboBox2.Text <> Form9.IBTable1.FieldByName('Produto').AsString then begin Form9.ibtable1.insert; Form9.IBTable1.FieldByName('Produto').AsString:=Form3.Edit6.Text; Form9.IBTable1.FieldByName('Preco_Venda').AsString:=Form3.Edit8.Text; Form9.IBTable1.FieldByName('Qtde').AsString:=Form3.Edit7.Text; Form9.IBTable1.FieldByName('Data_Venda').AsString:=Form3.Label3.Caption; //Form9.IBTable1.ApplyUpdates; Form9.IBTable1.ApplyUpdates; Fiz uma gambiarra, Quero opinião de quem tem mais tempo com programação!!! Está dando certo dessa forma!! Se ele localizar o produto no Banco, O Banco vai entrar em estado de edição!!! Caso contrário ele adiciona o produto que não tem no Banco.. E começa todo o processo novamente!!! -
Exemplo Quero que o Sistema Contabilize a Qtde que vendeu daquele certo produto!!! Fiz essa ganbiarra, mais ele não esta somando e sim jogando o valor por valor das Qtdes dentro do Banco!!!! if Form9.IBTable1.FieldByName('Produto').Value = DbLookupComboBox2.Text then if Form9.IBTable1.FieldByName('Qtde').Value <> '' then begin Form9.IBTable1.Edit; Form9.IBTable1.FieldByName('Qtde').Value := Form9.IBTable1.FieldByName('Qtde').Value + Form9.IBTable1.FieldByName('Qtde').Value; Form9.IBTable1.ApplyUpdates; Espero a ajuda De alguém!!
-
(Resolvido) Somar Valor Total automaticamente
pergunta respondeu ao valSistemasDelphi de valSistemasDelphi em Delphi, Kylix
já resolvido!!! -
Quero uma idéia, To Desenvolvendo um sisteminha De vendas Rápidas, Minha idéia e assim. 1º Escolho o cliente 2º Produtos e a Qtde! 3º O preço custo já vai cair automaticamente em um Edit. Quero que ele vai Somando o Total da venda desse cliente Automaticamente! E Depois fique Salvo no Banco De Dados, para que eu veja a relação de produtos daquele cliente. Alguém pode me dar umas idéias de como eu posso fazer isso.
-
(Resolvido) Mudar Projeto em Delphi Para Diretório C:/
uma questão postou valSistemasDelphi Delphi, Kylix
Tem como mudar o projeto de uma aplicação que foi salva do (Diretorio D:/) Para C:/ Do Windows ??? Porque quando instalo a aplicação em um pc que não tem esse diretório, aparece um erro, que o sistema não encontrou o caminho! -
(Resolvido) Sistema Com Serial Key ou etc....
pergunta respondeu ao valSistemasDelphi de valSistemasDelphi em Delphi, Kylix
show ! Deixa te perguntar, toda vez que coloco para salvar o arquivo txt no disco C:/ Da esse erro " File access Denied" já viu isso esse erro ? E quando eu coloco para salvar em um disco de partição do pc, dá certo. Será que é o Disco c:\ que ta bloqueando ? -
Quero saber como eu posso alterar a data de expiração de uma aplicação, sem ter que ficar entrando no Delphi e alterando a data em Código Fonte. Na verdade, não queria ter a opção de armazenar a Data, Dentro de um arquivo TXT, olhei em algumas Aplicações e não tem isso, de ficar guardando data em arquivo txt. No caso a data e guardada no Banco De Dados, e e feita uma comparação da Data?
-
(Resolvido) Sistema Com Serial Key ou etc....
pergunta respondeu ao valSistemasDelphi de valSistemasDelphi em Delphi, Kylix
Valeu, consegui, era erro na "Library vcl", antes ele tinha me dado opção para inslalar, no "firymonkey " Mais deixa te perguntar como consigo fazer uma unit própria para o TimeStop? -
(Resolvido) Sistema Com Serial Key ou etc....
pergunta respondeu ao valSistemasDelphi de valSistemasDelphi em Delphi, Kylix
Criei uma unit especifica com os códigos que você mencionou, e ao executar aparece esse erro O componente funciona consigo inserir no form e tudo, mais na hora que e executado o form acontece isso -
(Resolvido) Sistema Com Serial Key ou etc....
pergunta respondeu ao valSistemasDelphi de valSistemasDelphi em Delphi, Kylix
-
(Resolvido) Sistema Com Serial Key ou etc....
pergunta respondeu ao valSistemasDelphi de valSistemasDelphi em Delphi, Kylix
Acho que consegui!! rss... pior que deu certo, componente instalado, e disponível na paleta. Pergunta aquele código que você citou, no caso e criado as procedures especificas né? não entendi a parte do ano, year, porque e para vencer todo ano. no caso ele vai começar vencer de 2018 para frente, e isso? Não consegui também entender a parte da unit, tem que ter a unit especifica só para o componente. Pergunto porque na uses, está dando o erro [dcc32 Fatal Error] Unit1.pas(6): F2613 Unit 'mTimeStop' not found. -
(Resolvido) Sistema Com Serial Key ou etc....
pergunta respondeu ao valSistemasDelphi de valSistemasDelphi em Delphi, Kylix
Segui todo passo a passo para instalar o componente no Delphi, aparece a mensagem que foi instalado, mais ao procurar na paleta ele não está -
Eu já criei aqui um tópico mais ou menos com esse título. Mais agora quero saber como, funciona fazer um sistema usando como exemplo Serial Key ou uma ativação mais simples? Tipo qual a lógica para que funcione? O sistema, guarda a data de inicio, de instalação? E como funciona para que o usuário digitando determinado serial que o Desenvolvedor passar, o sistema aceite e libere. Conclusão: Quero saber como funciona a lógica de um sistema, que tenha que colocar ativação por exemplo todo ano? Exemplo você programar o sistema de alguma forma, que ele conte um ano e Depois apareça uma mensagem que o programa expirou, e tera que comprar a chave de ativação.
-
(Resolvido) Acessando Arquivo TXT, Dentro De uma pasta Winrar
pergunta respondeu ao valSistemasDelphi de valSistemasDelphi em Delphi, Kylix
ok jhonas valeu pela resposta -
Teria como acessar, um arquivo txt, dentro de uma pasta Winrar? NomeDoArq := 'C:\Teste1\1234.rar\TV.txt'; // Arquivo Na Pasta escolhida AssignFile(Arquivo,NomeDoArq); reset(Arquivo); Readln(Arquivo,linha); quero que o sistema acesse e lê as informações contidas dentro de um arquivo que esta com senha, no formato winrar. Teria como fazer isso. Infelizmente mesmo colocando o caminho do arquivo, o sistema dá erro " Invalid File Error" A lógica e porque criei um instalador para o sistema, e ele cria a pasta, mais com o arquivo já com senha, para o usuário não ter acesso.
-
Memo2.Lines.Clear; // Limpa o texto do memo memo2.Lines[memo1.Lines.count - 1]:= memo1.Lines[memo1.Lines.count - 1]+#13#10; Memo2.Font.Color := clred; // Pinta a linha de vermelho memo2.Lines.Add('Exemplo 1'); // Adiciona essa palavra na primeira linha //Memo2.Lines.Clear; Tenho um código para o memo, beleza até ai. Mais não quero que o texto fique muito longo em linha reta, quero que der para escrever o texto e tamanho que quiser tipo, pulando ele. Espero ter explicado direito
-
(Resolvido) Gerar Registros Automaticamente
pergunta respondeu ao valSistemasDelphi de valSistemasDelphi em Delphi, Kylix
Confesso que estava quase desistindo mais Depois de muito esforço consegui resolver o meu problema. Solução: 1º Criei um Button que o código dele serve para, armazenar o caminho Da Foto, para um campo, no Banco De Dados" com todos os fields da Tabela o usuário faz o cadastro primeiro e Depois escolhe a Foto. E Posta no Banco para gravar. 2º No Evento, DBGrid1DrawColumnCell . // Aqui ele permite mudar de fotos a cada registro atualizado. if IBTable1FOTO.Value <> '' then // Se o campo Foto for diferente de vazio begin foto.Visible:=true; foto.Picture.LoadFromFile(IBTable1FOTO.Text); end else foto.Visible:=false; 3º No FormCreat joguei este código. // Atualiza em tempo Real. if ibtable1foto.Value <> '' then begin foto.Visible:=true; foto.Picture.LoadFromFile(Ibtable1foto.Text); end else foto.Visible:=false; Espero ter sido Claro a respeito. Jhonas valeu parceiro pelas Dicas. \o/ -
(Resolvido) Gerar Registros Automaticamente
pergunta respondeu ao valSistemasDelphi de valSistemasDelphi em Delphi, Kylix
só e gerado um valor, quando eu cadastro um novo cadastro. Nesse caso será necessário uma rotina tipo +1, ou só para salvar um registro. O que você me diz -
(Resolvido) Gerar Registros Automaticamente
pergunta respondeu ao valSistemasDelphi de valSistemasDelphi em Delphi, Kylix
Jhonas valeu por responde, sempre dá esse erro, "Field (Registro) must have a value o que seria ? já tentei até inserir o registro, por meio de código, mais não deu certo. Fiz algumas pesquisas, conforme esse erro, vi o pessoal dizendo para Selecionar o Registro Da Tabela, e ir na propriedade "Required" para False, a ele abre o openDialog não dá o erro, mais não salva nada. Como se não tivesse nenhum código. -
(Resolvido) Gerar Registros Automaticamente
pergunta respondeu ao valSistemasDelphi de valSistemasDelphi em Delphi, Kylix
var MS :TMemoryStream; if Opd.Execute then begin FOTO.Picture.LoadFromFile(Opd.FileName); MS := TMemoryStream.Create; try FOTO.Picture.Graphic.SaveToStream(MS); (Form2.Ibtable1.FieldByName('Foto') as TBlobField).LoadFromStream(MS); finally MS.Free; end; end; Achei esse código na internet, mais ao salvar a imagem da erro "Invalid Class Typecast" -
(Resolvido) Gerar Registros Automaticamente
pergunta respondeu ao valSistemasDelphi de valSistemasDelphi em Delphi, Kylix
Jhonas agora deu certo, valeu pelo apoio ai. \o/. tenho só uma dúvida, a respeito de gravar foto no Banco de dados, não entendi até agora a lógica disso. To vendo muito vídeo a respeito, mais cada um tem uma forma de programar, então não dá pra focar. Mais quero saber qual é a lógica. Se a foto eu gravo primeiro. E depois com outro comando eu busco a imagem no Banco. Se poder me dar essa força ai pra mim aprender. Desculpa se outro assunto, case seja necessário crio em um novo tópico, valeu \o/ -
(Resolvido) Gerar Registros Automaticamente
pergunta respondeu ao valSistemasDelphi de valSistemasDelphi em Delphi, Kylix
Só estou com um problema quando chega no Registro 8, pula pro 10. Já coloquei open, close na tabela, REfresh, mais não resolveu