Vivendo&Aprendendo

Ok Jhonas, mais uma vez obrigado pelas informações. Não pensei em usar base de dados, apenas uma planilha do excel, pois são poucas informações, apenas uns 8 campos com alguns dados. O exe ira ser disponibilizado para diversas pessoas, e elas usarão para fazerem um base de calculo com os dados que estarão nessa planilha. Esses dados mudarão apenas uma vez por ano e dai eu mesmo entraria na nuvem e alteraria essas informações que já estariam prontas para usarem novamente. Por isso não pensei em usar banco de dados. Fazendo com mysql ou outras bases eu tenho noção de como é, mas pensei em usar o excel mesmo pela qtde pequena de informações. Será que dá?

Olá Jhonas, muito obrigado pela atenção. Não sei se eu expliquei direito ou se não consegui entender sua resposta. O que eu preciso é apenas ler um arquivo do excel que está no OnDrive. Se eu conseguir trazer ele para a stringgrid como fiz com o arquivo local já resolve meu problema. Esse é o caminho mesmo? Outra coisa, pensei em conectar o delphi com esse arquivo usando o componente Zeos ou outro parecido. Será que da certo? Caso sim pode me dar uma direção.

Olá pessoal. Fiz minha aplicação buscar a planilha do excel no próprio pc e trazer os dados para uma stringrid. Está tudo beleza até aqui, mas preciso que essa planilhe fique na nuvem (OneDrive) e de la buscar as informações dela e apenas mostrar na aplicação. Não terá inserção de dados, alteração, exclusão,... nada disso, apenas consulta das informações. Como posso fazer isso?

Olá Jhonas! Obrigado pela dica. Será que este componente funciona em delphi 7?

Olá pessoal, depois de muito tempo volto pro forum. Estou precisando fazer meu sistema enviar um arquivo pro OneDrive (diretamente pelo sistema no delphi) sem instalar o OneDrive na máquina. É mais ou menos assim: Tem a aplicação instalada em várias cidades e preciso que me enviem backup's, já fiz um jeito de abrir algumas planilhas pelo excel online por dentro do delhpi e agora preciso enviar um arquivo para a conta geral do OneDrive. Entenderam? Alexandre

Olá Patropi, muito obrigado pela ajuda, mas não é bem isso que preciso. O percentual eu fiz, mas agora preciso o seguinte: Tenho umas colunas C, E e G da linha 8 até 35 com valores em moeda e na célula I4 o valor pré-definido do salário. Quero clicar em qualquer célula da minha coluna C e na célula A1 aparecer o percentual, ou seja o valor de C dividido pelo valor de I4. Acredito que para isso a fórmula deverá capturar a célula ativa que acabei de clicar e isso vai mudar sempre que clicar em outra célula de minha coluna.

Pessoal preciso de uma fórmula para a seguinte questão, tenho uma planilha de valores monetários e quero clicar em uma célula que tenha por exemplo R$ 400,00 e em outra aparecer o percentual que esse valor se refere ao meu salário que está em outra célula. Exemplo: A1 = Meu salário B1 = Conta de 400,00 C1 = Quando eu clicar em B1 ele calcula quanto esse valor se refere em percentual ao meu salário Abraço

Olá Jhonas Ocorre o seguinte erro ao executar o programa: Project Project1.exe raised exception class EMCIDeviceError with message O arquivo especificado não foi encontrado. Verifique se o caminho e o nome do arquivos estão corretos. Mas já verifiquei o caminho e o nome do arquivo que ele pede para criar e estão todos corretos. Aguardo

sim

Olá pessoal Gostaria de saber como faço para gravar audio pelo delphi sem precisar dar rec. Tipo automáticamente, quando abrir o programa já começar a gravar e depois quando fechar ele savar um arquivo no hd com esse audio. Grato

Resolvido with ADOQuery1 do begin Close; SQL.Clear; SQL.Add('Select H.* From Historico H'); SQL.Add('Where Exists (Select Aluno, Disciplina, Count(Disciplina)'); SQL.Add('From Historico'); SQL.Add('Where Aluno = H.Aluno and Disciplina = H.Disciplina'); SQL.Add('Group by Aluno, Disciplina'); SQL.Add('Having Count(Disciplina) > 1)'); SQL.Add('Order By Aluno, Disciplina'); Open; end;

Acredito que estamos quase lá, mas eu não posso entrar com a informação PORTUGUÊS por exemplo, pois existem mais de 40 disciplinas. Abraço

Vamos lá! Em minha tabela (HISTORICO) tenho vários dados, entre eles Nome e Disciplina (que são os dados que não podem ser repetidos). Por exemplo: NOME DISCIPLINA MARIA------ PORTUGUÊS JOÃO--------PORTUGUÊS JOSÉ--------PORTUGUÊS MARIA------ PORTUGUÊS Levando em consideração que nesta tabela existem centenas de registros de alunos eu preciso filtrar sem entrar com nenhuma informação, tipo nome do aluno ou disciplina, todos os alunos que tenham feito a mesma disciplina mais de uma vez. Neste caso a consulta deveria me mostrar apenas os dois registros da MARIA pois é o mesmo aluno e a mesma disciplina. É isso ai. Abraço

Agora eu posso me explicar melhor... Me desculpe a ignorância. Eu não posso entrar com a informação "AZUL" por exemplo. teria que ser apenas por meio de comandos, sem colocar informações nenhuma para filtrar. Abraços

Muito obrigado Jhonas, mas infelizmente ou eu ou você não estamos nos expressando bem, pois eu não posso entrar com nenhuma informação, os dados são inumeros tanto alunos como disciplinas... mas tudo certo vou ver o que posso fazer. Valeu Abraços

Certo Jhonas, mas eu preciso que todos os alunos e matérias iguais sejam mostradas sem entrar com nenhuma informação, tipo eu apenas clicar no botão e ele me dar o relatório de todos os registros repetidos. Aguardo... Abraços

Olá pessoal Como eu faço para em uma sql mostrar apenas os registros iguais de uma tabela. Grato

Pessoal consegui fazer da seguinte forma: ADOItensSaidas.Close; ADOItensSaidas.SQL.Clear; ADOItensSaidas.SQL.Add('SELECT Distinct(ItensSaidas.CodigoSaidas), Saidas.Codigo, Saidas.DataSaida,'); ADOItensSaidas.SQL.Add('Saidas.NPedido, Saidas.Cliente, Saidas.SolicitadoPor, Saidas.FormaPgto, Saidas.TipoPgto,'); ADOItensSaidas.SQL.Add('Saidas.DataVencimento, Saidas.ValorRecebido, Saidas.Desconto, Saidas.Desconto2, Saidas.Troco,'); ADOItensSaidas.SQL.Add('Saidas.ValorTotalNF, Saidas.TotalComDesconto, Saidas.TipoDesconto, Saidas.TotalItens, Saidas.ValorRestante,'); ADOItensSaidas.SQL.Add('Saidas.TotalDesconto, ItensSaidas.CodigoSaidas, ItensSaidas.CodProduto, ItensSaidas.Descricao,'); ADOItensSaidas.SQL.Add('ItensSaidas.Placa, ItensSaidas.LocalPlaca, ItensSaidas.Cidade,'); ADOItensSaidas.SQL.Add('ItensSaidas.ValorUnit, ItensSaidas.ValorTotalProduto, ItensSaidas.NAutorizacao, ItensSaidas.Tarjetas,'); ADOItensSaidas.SQL.Add('ItensSaidas.Visivel, ItensSaidas.Produto'); ADOItensSaidas.SQL.Add('FROM Saidas INNER JOIN ItensSaidas ON Saidas.Codigo = ItensSaidas.CodigoSaidas'); ADOItensSaidas.SQL.Add('Where CodProduto Like :pPla '); ADOItensSaidas.SQL.Add('Order By Codigo'); ADOItensSaidas.Parameters[0].Value := EdtBusca.Text + '%'; ADOItensSaidas.Open; CS := ADOItensSaidasCodigoSaidas.Value; DmDados.Saidas.Close; DmDados.Saidas.SQL.Clear; DmDados.Saidas.SQL.Add('SELECT * FROM Saidas'); DmDados.Saidas.SQL.Add('Where Codigo Like :pCod '); DmDados.Saidas.SQL.Add('Order By Codigo'); DmDados.Saidas.Parameters[0].Value := IntToStr(CS) + '%'; DmDados.Saidas.Open; Faço a busca pelo código do produto vendido por exemplo na tabela Itens ai ela me retorna o produto no 2º Grid. Uso CS que é uma variável Integer que recebe o Código da venda da tabela Itens e depois filtra a tabela vendas por este codigo para mostrar a venda no 1º Grid. Agora funcionou, mas ainda acho que é uma "gambiarra" porém funcional. Não entendi muito bem a explicação de vocês, mas agradeço e muito. Abraços

Olá Micheus e os demais... Não sei se eu expliquei de forma errada, ou se você entendeu de forma equivocada. Isso ai que você explicou em seu post eu já fiz. A tela está totalmente funcional, com os grid e relacionamentos funcionando. Tudo certo. No 1º grid mostro as vendas e no segundo os itens (produtos) desta venda, tudo ok. O problema aparece quando desejo consultar uma venda (por cliente, por exemplo) ai o grid de vendas que estava certo (mostrando as vendas de forma correta) começa a me mostrar vendas duplicadas (conforme o número de produtos que a venda consulta contém). Por exemplo: Se eu busco uma venda pelo nome do cliente Alexandre ai o grid de venda me mostra todas as vendas desses cliente, porém cada venda é duplicada conforme o número de registros que ela contém na tabela de itens. Tudo está funcionando só preciso corrigir esta parte da consulta. É isso ai. Abraços Alexandre

Olá Eder... Eu preciso apenas efetuar uma busca em um edit por cliente e no grid abaixo aparecer a venda daquele cliente e em outro grid os produtos da venda selecionada no grid. Mas ele duplica as vendas. Como eu faço para deixar da forma que você citou acima? Abraços

Olá Jhonas... é exatamente dessa forma que está montada minha tela (dois grids um para vendas e o outro para os itens da venda) porém quando eu faço uma busca por cliente por exemplo ele duplica os registros no grid de venda e no grid de itens da venda fica normal. O que posso fazer para mudar isso, ou seja, para quando fazer uma busca ele apenas mostrar a venda requerida e não duplicar ela? Abraço

Olá pessoal... Depois de algum tempo estou de volta... Tenho uma busca em meu sistema que faz relação em duas tabelas (Saidas e ItensSaidas). Estou usando a seguinte instrução sql para esta busca: DmDados.Saidas.Close; DmDados.Saidas.SQL.Clear; DmDados.Saidas.SQL.Add('SELECT Distinct(ItensSaidas.CodigoSaidas), Saidas.Codigo, Saidas.DataSaida,'); DmDados.Saidas.SQL.Add('Saidas.NPedido, Saidas.Cliente, Saidas.SolicitadoPor, Saidas.FormaPgto, Saidas.TipoPgto,'); DmDados.Saidas.SQL.Add('Saidas.DataVencimento, Saidas.ValorRecebido, Saidas.Desconto, Saidas.Desconto2, Saidas.Troco,'); DmDados.Saidas.SQL.Add('Saidas.ValorTotalNF, Saidas.TotalComDesconto, Saidas.TipoDesconto, Saidas.TotalItens, Saidas.ValorRestante,'); DmDados.Saidas.SQL.Add('Saidas.TotalDesconto, ItensSaidas.CodigoSaidas, ItensSaidas.CodProduto, ItensSaidas.Descricao,'); DmDados.Saidas.SQL.Add('ItensSaidas.Placa, ItensSaidas.LocalPlaca, ItensSaidas.Cidade,'); DmDados.Saidas.SQL.Add('ItensSaidas.ValorUnit, ItensSaidas.ValorTotalProduto'); DmDados.Saidas.SQL.Add('FROM Saidas INNER JOIN ItensSaidas ON Saidas.Codigo = ItensSaidas.CodigoSaidas'); DmDados.Saidas.SQL.Add('Where Cliente Like :pCli'); DmDados.Saidas.SQL.Add('Order By Codigo'); DmDados.Saidas.Parameters[0].Value := EdtBusca.Text + '%'; DmDados.Saidas.Open; Onde DmDados é o meu Data Module. Nesta busca ele deve relacionar as duas tabelas e me mostrar as vendas e produtos daquela venda em dois grids diferentes. Até ai tudo ok. O meu problema é que quando resolvo filtrar ou seja, quando uso essa sql ai ele pega a venda e duplica ela pelo número de produtos que esta venda tem. Tipo se a venda código 1 tiver 4 produtos ele repete a venda 1 quatro vezes no grid. Já coloquei o Distinct mas não funciona, acho que pelo motivo da tabela ItensSaidas não ter os campos todos iguais. Por favor alguém ai me ajude. Grato Alexandre

Olá Crie uma variável global na tela de login e depois de verificar o usuário e a senha adicione este If: Tentativas := Tentativas + 1; If Tentativas = 3 Then begin Application.MessageBox('Número de Tentativas excedidas!'+#13+#13 + 'Consulte o administrador do sistema.','Aviso!', MB_ICONERROR + MB_OK); Application.Terminate; end; Eu utilizo desta forma... Abraços

ok MrMalj, desculpe pela falta de informações... O meu problema é o seguinte: tenho duas tabelas (Disciplinas e Historico do Aluno) na tabela disciplina salvo o codigo e a descrição dela e na Histórico salvo a disicplina, código dela, aluno, etc. Preciso saber qual disciplina este aluno ainda não fez, por isso a idéia de comprar as duas tabelas. Se o aluno 1 fez a matéria 1 e 3 a consulta deverá mostra a matéria 2. Abraços Alexandre

Olá galera Preciso de uma consulta que compare duas tabelas e me mostre os registros que não tem nas duas. Grato Alexandre