Progr'amador

Olá XdogX, você já leu as Regras do Forum?

Olá, faz assim: Query1.close; Query1.sql.clear; Query1.sql.add('select * from Tabela where Campo Like '+#39+Edit1.Text+'%'+#39); Query1.open; Abs. Progr'amador.

Olá, O bom seria se tivesse chave primaria, porque seria aconselhado usar um campo onde os valores não se repetem, pra não sofre o risco de apagar rigistros indesejados, a não ser que mesmo sem chave primaria você tenha um campo desse, tipo assim: IBQuery.Close; IBQuery.Sql.Clear; IBQuery.Sql.Add('Delete From Tabela Where Campo = '+#39+Edit1.text+#39); IBQuery.ExecSql; ----- Abs. Progr'amador.

Olá, Tem varios erros ae! Tenta assim: procedure TFormMovDescricao.BitBtn1Click(Sender: TObject); var Inicial,Final:String; begin Inicial := MaskEdit1.Text; Final := MaskEdit2.Text; FormRelMovimentacao := TFormRelMovimentacao.Create(Self); With dados.QueryMovimentacao do begin close; sql.Clear; SQL.Add('SELECT Mov_Descricao,Mov_Tipo, Sum(Mov_Quantidade)Mov_Quantidade,Mov_Grupo, Mov_Data'); SQL.Add('FROM Movimentacao'); SQL.Add('WHERE Mov_Data>=:pInicial and Mov_Data<=:pFinal'); dados.QueryMovimentacao.SQL.Add('GROUP BY Mov_Descricao,Mov_Tipo, Mov_Grupo, Mov_Data'); dados.QueryMovimentacao.SQL.Add('ORDER BY Mov_Descricao'); dados.QueryMovimentacao.ParamByName('pInicial').AsDate := StrToDate(Inicial); dados.QueryMovimentacao.ParamByName('pFinal').AsDate := StrToDate(Final); dados.QueryMovimentacao.Open; FormRelMovimentacao.rptRel.Preview; end; end; ------------------- Se ocorrer algum erro, posta ae o erro tambem, Ok! Abs. Progr'amador.

Olá, Eu uso QuickReport sem problemas!!! Abs. Progr'amador.

Olá, você pode usar o RecorCount tambem, tipo: QRLAbelTotal.Caption := IntToStr(Query1.RecordCount); Abs. Progr'amador.

Olá, Agora eu num entendi direito, esse total sai em outro Band? tipo summary? De qualquer forma, o código é o mesmo. Abs. Progr'amador.

Olá Guilherme, Eu acho que endenti sim, vê se é isso: Crie uma variável tipo: Var i : Integer; No OnCreate do Relatorio coloque: i := 0; No evento BeforePrint do Detail coloque: i := i + 1; QRLabelItem.Caption := IntToStr(i); Abs. Progr'amador.

Olá, desculpe a demora! O fato de que Mov_Registro, num quer dizer que seja necessário estar na Select, dependendo da situação, então ver se isso serve pra vc, acho que você esquecei a Mov_quantodade... Ae vai: With dados.QueryMovimentacao do begin Close; Sql.Clear; Sql.Add('SELECT Mov_Descricao, Mov_Grupo, Mov_Tipo, Mov_Data, Sum(Mov_Quantidade)Mov_Quantidade'); Sql.Add('FROM Movimentacao'); Sql.Add('WHERE Mov_Data Between :pInicial and :pFinal'); dados.QueryMovimentacao.SQL.Add('GROUP BY Mov_Descricao, Mov_Grupo, Mov_Tipo, Mov_Data'); dados.QueryMovimentacao.SQL.Add('ORDER BY Mov_Descricao'); etc, etc... End; Abs. Progr'amador.

Olá, Nunca usei esse IB, mas tenta usar parametros, tipo assim: IBQuery3.SQL.Text:=('select * from tb_fatura where sequencial=' + LABEL18.Caption + ' and dataini<= :dataIni and datater >= :dataTer and faturafechada = ''A'' '); IBQuery3.ParamByName('dataIni').AsDate := DateTimePicker1.DateTime; IBQuery3.ParamByName('dataTer').AsDate := DateTimePicker1.DateTime; Abs. Progr'amador.

É isso ae! Deletados!!!!!

Olá Paulo, O Capablanca saiu sim, to sozinho por enquanto. Abs. Progr'amador.

Olá, Declade ela no Var tipo assim: --------------- var Form1: TForm1; Variavel : Tipo; implementation {$R *.DFM} --------------- Abs. Progr'amador.

Olá Diabloline, Desculpe a demora, é que estou com sérios problemas pra acessar a SB. Me diga: Qual são os campos que realmente serão necessários que saia no seu relatório? Abs. Progr'amador.

Olá galera, Tenho estado meio ausente, estou com proplemas pra acessar o site da SB e entre outros, ainda não sei o que é o problema. Pra entender melhor o problema ta nesse tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=46771 Espero o mais breve esta resolvendo isso. Abs. Progr'amador

Como assim? você quer abrir uma pagina html dentro do form? ou abrir o intenet explorer com uma pagina qualquer? Abs. Progr'amador.

Afinal, o que você ta querendo fazer? Num consegui enteder essa sua select com tanto WHERE!!! Abs. Progr'amador.

Olá, nesse caso você tera que agrupar todos os campos exceto o campo 'quantidade', tipo assim: GROUP BY Mov_Descricao, Mov_Registro, Mov_Grupo, Mov_Tipo, Mov_Cliente, Mov_Data Obs: pra sua select da certo, esses campos agrupados devem ter resultados iguais, caso contrario o resultado de sua select pode não ser o resultado esperado. Abs. Progr'amador

Olá, Não existe descompilador de delphi, que traga o código fonte, o form com todos os componetes, essas coisas, o máximo que já vi trazer o dfm do form em forma de texto. E se existesse seria um problemão pra quem vive disso como eu, eu num ia quer os outros descompilando meus programas, ta certo que você num ta querendo pra isso, mas de qualquer forma se for criado algo desse tipo com certeza será usado pra fazer o mau. Por isso mesmo que eu soubesse de alguma coisa desse tipo, jamais falaria, concorda comigo? Abs. Progr'amador.

Então resolvido! certo? Fechando... Abs. Progr'amador

Olá, eu errei, inclusive já corrigi o tópico, na verdade ficaria assim: label4.Caption:=FloatToStr(ZQueryBaixaVenda.FieldByName('quantidade').AsFloat); No seu código eu só num entendi uma coisa, o uso disso: DataCliente.DMcliente. Abs. Progr'amador.

Olá, "explicar códigos" sou péssimo nisso!! Hide, ta ocultando o Form de Login, senão ele ficaria aparecendo por traz do form principal quando você movimentasse o form princ. É só pra isso. A num ser que você consiga fecha-lo apos efetuar o login, coisa que eu não consegui nesse tipo de login. Abs. Progr'amador.

Olá rjcerri, você pode usar o while na query tambem, tipo assim: var qtdade : Real; begin ZQueryBaixaVenda.SQL.Clear; ZQueryBaixaVenda.SQL.Add('select codigoproduto,descricao,cliente,quantidade from baixavenda where dataent between :per1 and :per2 and cliente=:nome and codigoproduto=:cod'); ZQueryBaixaVenda.ParamByName('per1').AsDateTime:=strtodatetime(maskedit1.Text); ZQueryBaixaVenda.ParamByName('per2').AsDateTime:=strtodatetime(maskedit2.Text); ZQueryBaixaVenda.ParamByName('nome').AsString:=edit2.Text; ZQueryBaixaVenda.ParamByName('cod').AsInteger:=strtoint(edit1.Text); ZQueryBaixaVenda.Open; qtdade := 0; ZQueryBaixaVenda.First; while not ZQueryBaixaVenda.EOF do begin qtdade := qtdade + ZQueryBaixaVenda.FieldByName('quantidade').Value; ZQueryBaixaVenda.Next; end; label4.Caption := FloatToStr(qtdade); label6.Caption := ZQueryBaixaVenda.FieldByName('descricao').AsString; end; ou você pode usar o "Select Sum" como o pdelphi falou, so que pra isso você precisara usar o "Group by" tambem, tipo assim: var qtdade : Real; begin ZQueryBaixaVenda.SQL.Clear; ZQueryBaixaVenda.SQL.Add('select codigoproduto, descricao, cliente, sum(quantidade)quantidade from baixavenda where dataent between :per1 and :per2 and cliente=:nome and codigoproduto=:cod Group By codigoproduto ,descricao ,cliente'); ZQueryBaixaVenda.ParamByName('per1').AsDateTime:=strtodatetime(maskedit1.Text); ZQueryBaixaVenda.ParamByName('per2').AsDateTime:=strtodatetime(maskedit2.Text); ZQueryBaixaVenda.ParamByName('nome').AsString:=edit2.Text; ZQueryBaixaVenda.ParamByName('cod').AsInteger:=strtoint(edit1.Text); ZQueryBaixaVenda.Open; label4.Caption:=FloatToStr(ZQueryBaixaVenda.FieldByName('quantidade').AsFloat); label6.Caption:= ZQueryBaixaVenda.FieldByName('descricao').AsString; end; Abs. Progr'amador.

Olá, bom, pra encontrar o compilador do delphi, basta você abrir o delphi e precionar F9. ou então selecione a opção Run no menu Run. Abs. Progr'amador.

Olá, nesse caso, pra usar o GROUP BY, você tera que especificar os campos da tabela na select em vez de usar o asteristico (Select * ...) tipo assim: Query1.Sql.Add('Select Codigo, Descricao, Grupo, Sum(Quantidade)Quantidade, Tipo'); Quais são os campos de você quer mostrar no relatório? Abs. Progr'amador.