nilegor

Realmente, era apenas isso. kkk.. Obrigado.

Olá, estou com um pequeno problema, ao fazer um filtro por código retorna erro informando que a expressão terminou incorretamente. Porém não consegui achar uma forma de funcionar. Veja código abaixo : fEstoque.ClientDataSet_estoque.Filter := 'COD_PRODUTO>='''+(Edit_cod_inicial.Text+''''+ 'COD_PRODUTO<='''+Edit_cod_final.Text)+'''';

Vou testar, obrigado.

Olá Jhonas, não. Na verdade quero selecionar as colunas antes de gerar o arquivo de texto, para que quando o arquivo for gerado, já esteja com as colunas que foram selecionadas.

Olá amigos, estou gerando um relatório do qual contém as informações de todas as colunas do produto: código, cod_barras,descrição, preço etc. Gostaria de fazer um método de que o usuário escolhe-se quais campos vão sair no relatório. Meu código esta desta forma : #Código .... AssignFile ( arq, 'C:\Relatório.txt' ); Rewrite ( arq ); ClientDataSet_estoque.First; writeln(arq,'Código Cód. Barras Descrição'); writeln(arq,'------ ----------- ----------------------------------------'); while not ClientDataSet_estoque.Eof do begin Write( arq,AjustaStr(ClientDataSet_estoque.FieldByName('COD_PRODUTO').AsString,9)+ AjustaStr(ClientDataSet_estoque.FieldByName ('COD_BARRAS').AsString,15)+ AjustaStr(ClientDataSet_estoque.FieldByName ('DESCRICAO').AsString,42)); .... Ai então pensei de usar o componente CheckBox e fazer algo assim: #Código if CheckBox_codigo.Checked = true then begin writeln(arq,'Código'); writeln(arq,'------'); end else begin while not ClientDataSet_estoque.Eof do begin Write( arq,AjustaStr(ClientDataSet_estoque.FieldByName('COD_PRODUTO').AsString,9)); ... Mas desta forma não da certo, alguém poderia me orientar alguma forma que de certo de fazer isso? Obrigado pela atenção.

Gostaria de saber se é possível criar uma tela genérica de comandos SQL onde consiga inserir registros no banco de dados, atualizar ou até mesmo deletar registros. Preciso que a tela seja bem simples, apenas com um grid e um edit, no evento onKeyPress do Edit então eu iria colocar o código para que busca-se o comando do edit e coloca-se em um componente de banco de dados. Até então os componentes que utilizei para conectar com o banco de dados foi : SQLdataset, DataSetProvider e ClientDataSet ; Mas com estes componentes eu conseguiria fazer isso que preciso ou teria de usar outros componentes ? E de que forma faria isso ? Pois a dbGrid vai mostrar informações de todas as tabelas do banco (conforme o select inserido no edit), e os componentes que serão utilizados terão de manipular informações de todas as tabelas do banco e não apenas de uma tabela.

Alguém poderia me auxiliar a como colocar o dia da semana no meu DateTimePicker1 ?

Obrigado pela ajuda e pela explicação. Abraço.

Deu certo, obrigado Jhonas. Poderia só me esclarecer talvez qual foi a diferença de usar o 'Pchar' neste caso ?

Boa noite Jhonas, na verdade eu já havia testado colocando o ('confirme') no final, porem o mesmo erro persiste, por este motivo tentei tirar para ver se dava certo, mas não deu, independentemente se colocar o ('confirme') ou não, o erro prossegue igual. E usando MessageDlg não precisa colocar o ('confirme') no final da linha, e também com o MessageDlg funciona o código, porem preciso que seja Application.MessageBox. O que mais poderia ser sera que esta dando erro ? Agradeço sua atenção.

Jhonas, utilizando MessageDlg funciona perfeitamente, porem preciso que seja Application.MessageBox, e com o mesmo não funciona, imaginei que seria igual o código, porem acredito que tenha mudar algum detalhe. Verifique abaixo por gentileza como ficou : if Application.MessageBox('Deseja Apagar o Registro ?' +#13 +#13 + 'Código nº : '+ ClientDataSet_estoqueCOD_PRODUTO.AsString + #13 +#13 + 'Descrição: '+ClientDataSet_estoqueDESCRICAO.AsString, MB_ICONQUESTION+MB_YESNO) = ID_YES then begin ClientDataSet_estoque.Delete; ClientDataSet_estoque.ApplyUpdates(0); end; [dcc32 Error] ESTOQUE.pas(706): E2010 Incompatible types: 'PWideChar' and 'string'

Ao excluir um item do estoque, gostaria que me mostra-se a descrição do item a ser excluído junto com a mensagem de confirmação de exclusão. veja código abaixo : if Application.MessageBox('Deseja realmente excluir este Produto ?','Confirme', MB_ICONQUESTION+MB_YESNO) = ID_YES then begin ClientDataSet_estoque.Delete; ClientDataSet_estoque.ApplyUpdates(0); end; Como poderia então fazer com que apareça a descrição do item que foi selecionado para exclusão ? alguém poderia me ajudar ?

Certo, porém utilizando o select, também vou ter de inserir ele em um componente do banco de dados do qual esta em outro form. De que forma seria isso que me passou : "transportar a seleção desse form para o outro form com outros componentes de banco de dados" ?

Desculpa a ignorância mas o exemplo do qual me passou é com banco Mysql ? Compreendi em partes o exemplo, entendi que o CDS_Arq se refere ao ClientDataSet do form 1, mas e o Arq_IB ? Teria como usar um exemplo com os componentes que estou utilizando com Firebird ?

já fiz isso, o form estoque tem na uses o form de filtro e o form filtro tem na uses o form estoque, o problema realmente não é por isso. O que mais poderia ser ?

Deu certo jhonas, vou utilizar da maneira que me passou, obrigado.

Quando clico no botão OK do form filtro, da erro de acess violation. Código que esta no botão OK do form filtro: frmEstoque.ClientDataSet_estoque.Filtered := false; frmEstoque.ClientDataSet_estoque.Filter := 'data_cad>='''+DateToStr(DateTimePicker1.Date)+''''+ 'and data_cad<='''+DateToStr(DateTimePicker2.Date)+''''; frmEstoque.ClientDataSet_estoque.Filtered := true; neste caso, o erro acontece por que o ClientDataSet_estoque esta no form estoque, e não no form do filtro, então como eu teria de fazer nesse caso, pois não consigo trabalhar com nenhum componente do banco de dados que esta em outro form, no caso no form estoque. Poderia me ajudar ?

compreendi o exemplo, mas acho que não é exatamente o que preciso. Peço desculpas mas acredito que para dar certo o que preciso, eu teria de trabalhar com o evento onColEnter do dbGrid. E então ao abrir o Form do filtro, 'chamar' a condição inserida no evento onColEnter. Teria como trabalhar dessa maneira talvez?

Olá Jhonas, meu banco é Firebird 2.5. Olhei os sites pelo link que me passou, porem não consegui encontrar exatamente o que eu preciso. Eu vou fazer os filtros no form Ffiltros, sendo que o dbGrid ta no form Festoque. Preciso saber da 'condição' de qual campo do dbGrid esta selecionado ao abrir o Ffiltros, pois por exemplo, se algum campo da coluna código estiver selecionado, então ao abrir o Ffiltros o panel de filtro por código ficaria visivel. E assim funcionaria com todas as colunas da tabela, dependendo do que 'Estiver selecionado' deve ficar visivel seu respectivo panel ao abrir o Ffiltros.

Obrigado jhonas, deu certo. Abraço

Ola, tenho uma tabela com varias informaçoes, exemplo : descrição, preço, un.. Tenho um botão 'Filtrar', do qual abre um novo form, com varios panels, preciso saber como faço para que quando a culuna descrição por exemplo esteja selecionada, ao clicar no botão 'filtrar' fique visivel o panel_filtro_descricao no form de filtros, ou quando esteja selecionada a coluna preço e clicar no 'filtrar' fique visivel o panel_filtro_preco. Aguem poderia de ajudar ?

Tenho um pequeno problema em relação ao PopupMenu, pois coloquei uma posição fixa para ele : procedure TfPrincipal.Image5Click(Sender: TObject); begin PopupMenu1.Popup(555,149) end; Tenho varios botões em meu form principal, todos alinhados a esquerda; Tenho uma opção que deixa invisivel os botões, então a imagem onde faz o PopupMenu aparecer muda de lugar conforme habilito ou sesabilito alguns botões, sendo assim se eu colocar uma posição fixa para meu PopupMenu, ele não vai acompanhar minha imagem, teria como colocar na posição do PopupMenu algum comando para que ele acompanhe a 'imagem5' ?