Ir para conteúdo
Fórum Script Brasil

papaicleber

Membros
  • Total de itens

    13
  • Registro em

  • Última visita

Tudo que papaicleber postou

  1. Dados.QryConsLanGas.ParamByName('Escola').AsString:= Edit1.Text; ficaria assim Dados.QryConsLanGas.ParamByName('Escola').AsString:= '%'+Edit1.Text+'%'; abraço Olá Amigo.. Desculpa, não sei o que tem esse código, mas não funciona. Se coloco dessa forma, ele não retorna nenhum dado. e se coloco só o nome do campo (Edit1.text) ae ele traz, mas tenho que colocar o nome inteiro. O que pode ser? Abraços Boa Noite Problema do Qry REsolvido Graças a Deus e a sua ajuda, muito obrigado. Mas Agora o problema é outro: :blush: Montei um relatório onde o meu QuickReport está ligado na Qry anterior, e quando dou o comando: Frm.QuickReport.Preview; Dá um erro danado de Access Violation, O que pode ser Amigo? Como resolvo isso, já li inumeros materias sobre o quick mas esse problema não to conceguindo resolver. Obrigado Cleber
  2. dentro da query não existe esse parametro Dados.QryConsLanGas.ParamByName('Situacao').AsString := 'COMANDA'; abraço Olá, Boa Noite Caro Jhonas Muito Obrigado pelas dicas.. Caso encerrado. Abraços
  3. abraço Desculpe amigo, ou eu sou muito tanso,.... mas ainda está arredondando no segundo digito. EX: 3,045 ele faz 3,05 e preciso que ele reaomente fique 3,045. Não sei se fio claro. Abraços
  4. Dados.QryConsLanGas.ParamByName('Escola').AsString:= Edit1.Text; ficaria assim Dados.QryConsLanGas.ParamByName('Escola').AsString:= '%'+Edit1.Text+'%'; abraço Olá Amigo.. Desculpa, não sei o que tem esse código, mas não funciona. Se coloco dessa forma, ele não retorna nenhum dado. e se coloco só o nome do campo (Edit1.text) ae ele traz, mas tenho que colocar o nome inteiro. O que pode ser? Abraços
  5. :angry: Boa Noite Pessoal Só está faltando uma coisa que eu não sei o que, mas tenho certeza que alguém com um pouco mais conhecimento que eu poderá me dizer. A questão é a seguinte: Na Minha Qry tenho o seguinte comando: Select * From TBGas where DataGas BetWeen :DataIni and :DataFim and Situacao= :Situacao and NomeEscola= :Escola Até tudo bem: Eu Acho! Então no meu Form de consulta tenho o seguinte: Um Radio Buton com o seguinte comando: begin inherited; IF DS.DataSet.Active = True Then Begin If RGSituacao.ItemIndex = 0 Then Begin Dados.QryConsLanGas.ParamByName('Situacao').AsString := 'PEDIDO' end else Begin If RGSituacao.ItemIndex = 1 Then Begin Dados.QryConsLanGas.ParamByName('Situacao').AsString := 'PLANILHA' end else Begin If RGSituacao.ItemIndex = 2 Then Begin Dados.QryConsLanGas.ParamByName('Situacao').AsString := 'COMANDA' end; end; end; end; end; Isso Funciona. Mas O Problema está no seguinte comando do BtnButon: begin inherited; If DS.DataSet.Active = true then begin Dados.QryConsLanGas.Close; Dados.QryConsLanGas.ParamByName('DataIni').AsDate := FrmConsLanGas.DTPIni.Date; Dados.QryConsLanGas.ParamByName('DataFim').AsDate := FrmConsLanGas.DTPFim.Date; If Edit1.Text <> '' Then Begin Dados.QryConsLanGas.ParamByName('Escola').AsString:= Edit1.Text; end; end; Dados.QryConsLanGas.Prepare; Dados.QryConsLanGas.Open; end; Esse comando funciona muito bem, se eu colocar o nome correto no edit, porém estou com dificudade se tento bucar parte do nome ou todos. alguém pode me ajudar? Cleber
  6. se os dados estiverem em tabelas diferentes , procure no forum referencia entre tabelas ou veja a clausula select usando UNION ou JOIN abraço :rolleyes: Olá meu amigo Jhonas, Só você pode me ajudar nesse dificil dilema que estou passando. Estou com uma consulta (código abaixo), que só da certo para uma pesquisa, uma condição, mas preciso para todos os filtros, ou apenas o que estiver sido preenchido. Porfavor me ajude, e me diga o que tem de errado, e como melhorar!! begin inherited; If DS.DataSet.Active = true then begin Dados.QryConsLanGas.Close; Dados.QryConsLanGas.ParamByName('DataIni').AsDate := FrmConsLanGas.DTPIni.Date; Dados.QryConsLanGas.ParamByName('DataFim').AsDate := FrmConsLanGas.DTPFim.Date; Dados.QryConsLanGas.ParamByName('Escola').AsString:= FrmConsLanGas.edit1.Text; Dados.QryConsLanGas.Prepare; Dados.QryConsLanGas.Open; end; end; procedure TFrmConsLanGas.FormCreate(Sender: TObject); begin inherited; DS.DataSet := Dados.QryConsLanGas; end; procedure TFrmConsLanGas.RGSituacaoClick(Sender: TObject); begin inherited; If DS.DataSet.Active = TRue then begin if RGSituacao.ItemIndex = 0 then begin Dados.QryConsLanGas.ParamByName('Situacao').AsString := 'PEDIDO' end else begin if RGSituacao.ItemIndex = 1 then begin Dados.QryConsLanGas.ParamByName('Situacao').AsString := 'PLANILHA' end else begin if RGSituacao.ItemIndex = 2 then Begin Dados.QryConsLanGas.ParamByName('Situacao').AsString := 'COMANDA'; end; end; end; end; end; end. Um Abraço Cleber :o
  7. :rolleyes: Olá pessoal, Estou desenvolvendo um sistema, e nele preciso fazer calculo do tipo 3,0769, porem o delphi está calculando esses campos arredondados. alguém sabe me dizer como posso fazer para calcular com mais casas decimais? Obrigado a todos Cleber :wacko:
  8. :rolleyes: Muito Obrigado. Como eu pude não prestar atenção nesse pequeno detalhe. Isso me ajudou muito. Só mais uma questão. como eu posso fazer para quando eu clicar no botao que traz a tabela de equipamento ele já reconhecer o codigo da escola e trazer os equipamentos filtrados. Tem como? Obrigado por tudo. :rolleyes:
  9. :blush: Olá amigo. Eu bem que tinha tentado essa alternativa, mas é que nas propriedades da Qry não tem essa bendita ReadOnly. Tem apenas: Param, RequestLive, SessionName, Sql, Tag.. O que eu faço agora? Por que não aparece a propriedade ReadOnly? Ai meu Deus, meus amigos me deem uma luz, por favor! :unsure:
  10. :wacko: Olá Pessoal, Sou novato por aqui, Estou desenvolvendo um sistema de controle de manutenção e estou com um serio problema, é o seguinte: Tenho um form onde vai ser lançado os pedidos de manutenção, e para isso tem campos como nome da escola, equipamento, onde escola e equipamentos são tabelas diferentes. Até ae tudo bem, pois em um botão, quando acionado chama outro form de consulta para escola, seleciono a mesma no grid clico em ok e esse dado vai para o form de lançamento bonitinho. O Problema depois que clico no botão de consulta do equipamento, pois nessa consulta uso um Qry com o seguinte comando e parametro: Select * From TBManu where NomeEscola =:PEscola Até ae tudo bem, No form digito o nome da escola no Edit e ele seleciona todos os equipamentos que tem nessa escola. Agota eu preciso que quando de um Ok, ele pegue esse dado equipamento selecionado e jogue nos campos DBedits do form Lançamentos de manutenção. Ele da um erro que diz que o "Qry : Cannot Modify a Read-Only DataSet" alguém por obsequio pode me ajudar a desvendar esse misterio. É muito importante. Obrigado. Cleber
  11. <_< Olá pessoal, Tenho um banco em Firebird, e fiz as devidas conexoes com o Delphi 7, só que quando vou rodar o sistema ele não trás o modo de inserção, tão pouco consigo abrir a tabela. alguém sabe dizer porque? alguém pode me ajudar? Grato Cleber
  12. :blink: Olá pessoal, Estou com problemas para fazer conexao de um banco que eu criei em firebird 2.0 com o IBExpert, só que não consigo conectar com o Delphi 7, sempre diz "unvaiable database". Já entei usar o Zeos, DbExpress, Ibo. alguém pode me ajudar??? Cleber
  13. TEnho um serio problema! TEnho um banco em paradox, Preciso Calcular campos de tabelas diferentes Ex: TbFornecedores Campos: (CodFornecedor, Fornecedor, ValorP13, ValorP45) TbSoliGas Campos: (CodFornecedor, QtdadeP13, QtdadeP45, PesoTotalP13, PesoTotalP45, ValorTotalP13, ValorTotalP45) Preciso fazer o seguinte: Se CodFornecedor da TbSoliGas for Igual ao CodFornecedor da TbFornecedores então ValorTotalP13 da TBSoliGas é igual a PesoTotalP13 da TbSoliGas * ValorP13 da TBFornecedores alguém Pode me Ajudar Estou Desesperado. Obrigado PapaiCleber
×
×
  • Criar Novo...