Pirambu!

é mais ou menos isso, mas a intensão seria no caso de uma lan house, e não do amigo do lago. seria compricado.

Como eu posso fazer para Desabilitar e Habilitar o Mouse e o Teclado de um PC em rede.

Deu Certo, Obrigado pela Dica, Abraço.

Como Eu posso Colorir as linhas do DBgrid, sendo linha sim outra não?

Cara não sei se entendir direito, mais não seria o EditMask que estar configurado para utilizar os pontos. Ver se é isso?

Micheus, eu até pensei em usar o FindKey, mais pensava que só funcionava se a tabela tiver-se apenas uma chave primaria ( * ), conseguir usar uma query onde faço a consulta do codped assim With query1 do begin close; sql.clear; sql.add('select codped'); sql.add('from tabela1'); sql.add('where codped = :ID'); params.parambyname('ID').values := StrToInt(Dbedit1.text); open; if query1.IsEmpty then ... mais deve ter uma maneira mais simples.

na tabela PARADOX estar assim: codigo1 / + / * codped / I / * Quantidade / N o campo grifado é o que eu quero controlar, assim, eu tenho um pedido com vários itens, então na tabela fica assim codigo1 - codped - quantidade 1 - 15 - 120 2 - 15 - 135 3 - 15 - 34 mais quando eu for lançar outro pedido, deve verificar se o pedido que estar sendo informado já estar na tabela.

preciso verificar um valor na tabela antes de adicionar, para não haver duplicidade, na tabela já existe duas key.

valeu Micheus, é isso mesmo. Obrigado.

Eu tenho um dbgrid com tres colunas, como eu faço para clicar no titulo da coluna em cima e a coluna ficar em ordem alfabetica.

Micheus, deu certo. :D funcionou direitinho, ficou ótimo. Espero um dia porder ajudar. Obrigado Micheus!

procedure TForm1.BBconfirmarClick(Sender: TObject); begin if edit1.Text = '' then begin showmessage('Não há valor para Consulta'); exit; end; with query1 do begin close; sql.Clear; sql.Add('Select pedidoID,produtoID, quantidade'); sql.Add('From Pedidos'); sql.Add('Where pedidoID =:ID'); parambyname('ID').Value := StrToInt(edit1.Text); open; end; with query2 do begin sql.Clear; sql.add('INSERT INTO itensprocessamentopedido(pedidoID,produtoID,quantidade)'); sql.Add('values(:pedidoID,:produtoID, :quantidade)'); end; while not query1.Eof do begin query2.ParamByName('pedidoID').Value := query1.fieldbyname('pedidoID').Value; query2.ParamByName('produtoID').Value := query1.fieldbyname('produtoID').Value; query2.ParamByName('quantidade').Value := query1.fieldbyname('produtoID').Value; query2.ExecSQL; query1.Next; end; edit1.SetFocus; end; Micheus, valeu pela parciência, mais deu um erro " Tipey mismatch in expression" na tabela que vai receber as informações existem mais campos elem dos 'PedidoID, ProdutoID,quantidade', então eu criei uma tabela apenas com estes campos e deu o mesmo erro. será que falta algo no codigo SQL?

Oi Micheus, valeu pela força e desculpa ter demorado a responder, eu tentei fazer da forma que você indicou, mais deu um erro, não entra o registro, Query1 : parameter " pedidoID' not Found, adicionei duas query ao form : query1 e query2 ficou assim: procedure TForm1.BBProcessarClick(Sender: TObject); begin if edit1.Text = '' then begin showmessage('Não há valor para Consulta'); exit; end; with query1 do begin close; sql.Clear; sql.Add('Select pedidoID,produtoID, quantidade'); sql.Add('From Pedidos'); sql.Add('Where pedidoID =:ID'); parambyname('ID').Value := StrToInt(edit1.Text); open; end; with query2 do begin sql.Clear; sql.add('INSERT INTO itensprocessamentopedido(pedidoID,produtoID,quantidade)'); sql.Add('values(:produtoID,:quantidade)'); end; while not query1.Eof do begin query1.ParamByName('pedidoID').Value := query1.fieldbyname('pedidoID').Value; query1.ExecSQL; query1.Next; end; edit1.SetFocus; end; então eu fiz apenas até o primeiro WITH e filtrou certinho, e não entendir o porquer da mensagem,

KIKO: tentei usando Sql. mais não compilou, parcando na linha do params.ParamByName eu coloque assim: with query1 do begin close; sql.Clear; sql.Add('select * from pedidos'); sql.Add('where pedidoid =:ID'); params.ParamByName('ID').Value := tableprocessamentoPedidosPedidoID.Value; open; while not(eof) do with query3 do begin close; sql.add('insert into itensprocessamentopedido(produtoID, quantidade)'); SQL.Add('VALUES(:produtoID,:quantidade)'); params.ParamByName('produtoID').Value := '2'; params.ParamByName('quantidade').Value := '3'; execSQL; end; end; mais estar dando erro, e informa esta mensagem: TIPE MISMATCH IN EXPRESSION

Vagner: da forma que você mostrou ele adiciona apenas um registro, no meu caso preciso adicionar todos os registro que forem filtrados: tentei usar if not isEmpty then while not(Query2.Eof)do begin tableItensProcessamento.Append; TableItensProcessamentoPedidoID.Value := Query2PedidoID.Value; TableItensprocessamentoProdutoID.Value := Query2ProdutoID.Value; TableItensProcessamentoQuantidade.Value := Query2Quantidade.Value; end; TableItensProcessamento.Post; mais não funcionou,

Desculpe pela demora. Cara tentei mais deu um erro, acho que é na chave prim. então tirei todas as chaves da tabela que vai receber os dados , dei o mesmo erro. coloquei assim os codigos: with query1 do begin close; sql.Add('select * from pedidos'); sql.Add('where pedidoid =:ID'); params.ParamByName('ID').Value := tableprocessamentoPedidosPedidoID.Value; open; while not(eof) do with query2 do begin close; sql.Add('insert into itensprocessamentopedido'); e tentei assim : sql.Add('insert into itensprocessamentopedido(produtoID, quantidade'); open; end; end; das duas forma deu erro,

Vou explicar melhor, tenho uma query que faz um filtro de uma tabela, e quero que os itens filtrados seja incluidos em uma outra tabela

eu estou tenho uma tabela que contem os pedidos(numero Pedido, produto, quantidade) onde é usada apenas como consulta, e outra como processamento de Pedidos(pedidos, produto, quantidade), eu preciso usar um "edit.Text" para informar um número do pedido, então, estou usando uma query para fazer o filtro na "tablePedidos" até ai tudo bem, só que o DBGrid estar ligado a "TableProcessamentoPedido" que deve ser incluido todos os registro filtrados na "TablePedidos", eu tentei assim: O Dbgrid ligado a Query1 que com o codigo abaixo incluir os registro da "TablePedidos" na "TableProcessamentoPedidos": INSERT INTO ProcessamentoPedido(PedidoID,produtoID,quantidade) SELECT pedidos.pedidoID, pedidos.ProdutoID, pedidos.Quantidade FROM pedidos;mais não funcionou,

Cara, como ficou seu codigo SQL e onde você usou o codigo?

Micheus, Funcionaou direitinho como eu estava querendo, ficou assim: Na Query1(QryEntradaPA): SELECT itensEntradaPA.FichaTecnicaID, SUM ( ItensEntradaPA.Quantidade)AS TotalEntrada FROM itensEntradaPA WHERE fichatecnicaID = :ID GROUP BY itensEntradaPA.FichaTecnicaID; no parametro "ID" ficou como Integer; o mesmo para ItensSaidaPA. no Código ficou: QryEntradaPA.ParamByName('ID').Value := TableITensPedidosFichaTecnicaID.Value ; QrySaidaPA.ParamByName('ID').Value := TableITensPedidosFichaTecnicaID.Value ; QryentradaPa.Open; QrySaidaPA.Open; TableitensPedidosSaldo.AsFloat := QryEntradaPATotalEntradaPA.AsFloat- QrySaidaPATotalSaidaPA.AsFloat; TableItensPedidosNecProducao.AsFloat := TableItensPedidosQuantidade.AsFloat - TableitensPedidosSaldo.AsFloat ; QryEntradaPA.Close; QrySaidaPA.Close; Obrigado em Micheus, Boas Festas

Micheus eu consigo parametrizar assim: Na query1: select SUM (entradaPA.Quantidade) AS TotalEntrada FROM entradaPA WHERE cast( fichatecnicaID AS VARCHAR(10)) LIKE :N e no codigo: Query1.Close; query1.paramt[0].value := Edit.text +'%'; Query1.Open; Mais não sei com usar no DBgrid que estar ligado a TableItensPedidos mesmo tendo um campo de calculo " SaldoPA ".

Micheus é isto mesmo, apenas estava tentando formas diferentes, tentando chegar ao mesmo ponto, vou responder no outro tópico.

Cara valeu pelas dicas, vou tenta, dassim que poder te dou um retorno.

é cara talvez não seja a forma correta de trabalhar informações dentro do DbGrid, mais ele mostra a quantidade talvez seja por este motivo que não esteja dando certo, Micheus se conhecer uma forma mais viavel manda ai, pois tentei no desespero.

Micheus, eu sou um novato no assunto de Delphi , você poderia me da uma explicação sobre campos calculados e ReadOnly