claudyo

o codigo ta no evento onclick de um botao

uma coisa q eu não tinha dito antes, eu só preciso q esses dados sejam mostrados em duas grids não é necessario um report. Da forma q eu fiz ta retornando todos os dados da tabela detalhe, e qd eu configuro em tempo de projeto ai sim funciona certo. O q ta errado no codigo q te mostrei??? Abraço

obrigado pela atençao Jhonas. Ainda não achei nehuma duvida parecida com a minha, e não sei se me expressei bem. montar relatorios (simples) eu sei, também consigo fazer um masterdetail só q faço isso configurando as propriedades MASTERSOURCE, MASTERFIELDS e INDEXFIELDNAME em tempo de projeto, eu quero saber se é possivel passar esses valores em tempo de execuçao algo mais ou menos assim if rbtTelefone.Checked=true then begin cdscliente.Active:=false; cdsTel.Active:=false; cdsCliente.MasterSource:=dtsTel; cdsCliente.MasterFields:=cdsTel.fieldbyName('CLIENTE_ID_1').AsString; cdsCliente.IndexFieldNames:=cdsTel.fieldByname('CLIENTE_ID_1').AsString; with qryTel do begin Active:=false; Sql.Clear; Sql.Text:='SELECT CLIENTE.CLIENTE_ID, CLIENTE.NOME, CLIENTE.RG, CLIENTE.CPF, CLIENTE.LOGRADOURO, CLIENTE.NUMERO, CLIENTE.BAIRRO, CLIENTE.COMPLEMENTO, CLIENTE.OBSERVACAO, TELEFONES.TEL_ID, TELEFONES.CLIENTE_ID, TELEFONES.NUMERO '+ 'FROM (CLIENTE INNER JOIN TELEFONES ON CLIENTE.CLIENTE_ID = TELEFONES.CLIENTE_ID)'+ ' Where TELEFONES.NUMERO like :pTel'; Params[0].Value:=EdtTelefone.Text; Active:=true; end; end; cdscliente.Active:=true; cdsTel.Active:=true; end; claro q isso não funcionou, eu keria saber se o que eu to tentando é possivel e como se faz Abraços

Bom dia a todos é o seguinte, preciso fazer um masterdetail em runtime. Tenho a tabela telefones e a tabela cliente, e minha busca nessas tabelas seria tanto pelo nome do cliente qt pelo telefone, então to tentando setar o mastersource, masterfields e indexfieldname em runtime, mas não ta funcionando. A pergunta é: é possivel fazer isso e se possivel qual a maneira correta, porque já pesquisei e não achei nada q resolva meu problema.

meu caro douglas já experimentou fazer um master detail???da uma peskisada qualker duvida posta ai.. Abraço

vlw pela atençaoJhonas mas infelizmente minha duvida persiste pois tutoriais de como usar o installshield eu já tinha lido e até fiz um instalador, mas qd instalei em uma makina q não tem o delphi instalado ele não roda, aparece uma mens de erro q ta faltando bpl, vcls, rtls(a opçao build with runtime packages já estava desmarcada) e um outro erro q aparece uma parte de um comando sql( select * from alguma coisa).Enfim o que eu quero mesmo saber é o que exatamente devo colocar no pacote de instalaçao pra q rode em uma makina q não tenha delphi, se preciso instalar o access pra rodar o BD e se preciso instalar mais algum driver tipo odbc(markei essa opçao no installshield). Vlw Abraço

Ola a todos Bom minha duvida é a seguinte, fiz uma aplicaçao em D7 e agora to tentando fazer o instalador mas não sei o que exatamente devo adicionar alem do BD(Access2007) e do .exe, uso conexao via odbc. Tenho q add alguma dll, algum driver e como registro uma dll Qualker ajuda é bem vinda Obrigado Abraço a todos

Micheus obrigado pela atençao era isso mesmo q eu precisava vlw Abraços

Ola a todos,bom pessoal meu problema é o seguinte, preciso colocar um combobox em um formulario onde o usuaria vai escolher uma opçao, geralmente esse combox lista uma coluna de uma tabela, mas nesse combobox o usuario vai escolher a forma de pagamento quero sabe se existe alguma maneira de listar essas opçoes q não seja a partir de uma tabela. Andei peskizando e vi alguma coisa sobre hardCoded mas não achei nada parecido com o q eu preciso, alguém sabe como fazer isso??? Se puderem me ajudar com mais essa duvida fico grato Abraço a todos

Ola Gabriel Cabral, bom se entendi bem sua duvida, os campos q você quer mostrar nos Dbedits estao na mesma tabela q você esta mostrando no dbGrid, imagino q você tenha um edit pra informar o codigo do produto a ser peskizado então ficaria assim with dm.QueryBuscaForn do begin Close; SQL.Clear; SQL.Add('SELECT * FROM FINAFOR.dbf'); SQL.Add('WHERE FORCOD = :pCOD'); Parameters.ParambyName('pCOD').Value:=Edit1.text; Open; if not(IsEmpty) then begin frmCadForn.txtCadForn_CodForn.Text := dm.QueryBuscaForn.Fields[0].AsString; //e assim por diante com os outros campos.... end; end; Se não for isso poste com mais detalhes Abraço

Micheus, na query q uso pra inserir os dados coloquei na Propriedade Sql dela um 'Select * From Tabela', isso pode causar problema já q é uma query pra inserçao de dados e não de consulta?? Existe algum outro component pra inserir dados melhor q uma query?? porque depois de tantas tentativas começo a achar q essa query é q ta me dando problemas já q fiz td você me recomendou fazer e nada da certo. Abraços

Verifique na sua tabela o nome do campo em questao, só gera esse erro qd não encontra o campo na tabela, você deve te colocado o nome diferenta do q esta na tabela Espero q isso ajude Abraços

Ola Micheus, Infelizmente o erro persiste fiz como me sugeriu testei também fazendo algumas alteraçoes mas infelizmente o erro persiste, vou dar uma olhada em todo o codigo, revisar ele todo seguindo suas sugestoes pra ve se acho onde to errando e volto a postar resultados. Origado pela atençao Abraços

Micheus, o que acontece é q esse erro q te falei(imcompatibilidade entre TParameter e Procedure untyped pointer ou untyped parameter) aparece qd tento roda o programa(F9). não compila se eu chama a funçao InitParam, tive q tira ela pra roda. Agora um outro probleminha q eu acho q é simples, como se verifica se um DbLookupcombobox ta em branco eu até tinha feito e tinha dado certo mais deu um problema aki e não deu pra salva agora to tentando faze e não da certo. Faço assim f varisnull (cboCategoria.KeyValue) then begin Application.Messagebox('Escolha uma Categoria Para o Produto','Aviso',mb_IconInformation+mb_ok); cboCategoria.SetFocus; exit; end; e já tentei também assim if (cboCategoria.kevalue:= null then Mas em ambos os casos parece q essa linha é ignorada e da erro no banco por não ter uma categoria selecionada. Como faço isso?? Abraços

Os erros só vao mudando :D mas td bem assim vo aprendendo mais. Bom Micheus, agora é o seguinte, fiz o que me sugeriu só q agora da erro de imcompatibilidade entre TParameter e Procedure e na frente disso aparece untyped pointer ou untyped parameter. o que eu faço??? Abraços