valSistemasDelphi
-
Total de itens
234 -
Registro em
-
Última visita
Posts postados por valSistemasDelphi
-
-
-
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
beginSomar:=(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!!!!
-
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
beginForm9.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!!
-
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.
-
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!
-
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?
-
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?
-
Criei uma unit especifica com os códigos que você mencionou, e ao executar aparece esse erro
6 horas atrás, Jhonas disse:Não sei o que voce fez de errado, mas tenho o componente instalado e funcionando na minha maquina
O componente funciona consigo inserir no form e tudo, mais na hora que e executado o form acontece isso
-
-
.thumb.png.21089674a9c33e77630e361d4aea397a.png)
Acho que consegui!! rss...
.thumb.png.2fbb62b5404e79fe2d60a064699b4ef2.png)
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.
-
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.
-
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
-
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/
-
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
-
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.
-
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);
finallyMS.Free;
end;
end;Achei esse código na internet, mais ao salvar a imagem da erro "Invalid Class Typecast"
-
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/
-
Só estou com um problema quando chega no Registro 8, pula pro 10.
Já coloquei open, close na tabela, REfresh, mais não resolveu
.png.70d0189c167a3e74c13cc8ea9aa47776.png)
.png.9a9051d1055249112e4772d97b13620e.png)
.png.9bf30683fabe53057de72b997a009e97.png)
(Resolvido) Instalar Componente No Delphi Tokio 10.2
em Delphi, Kylix
Postado
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?