Ir para conteúdo
Fórum Script Brasil

Progr'amador

Veteranos
  • Total de itens

    1.130
  • Registro em

  • Última visita

Tudo que Progr'amador postou

  1. Olá pessoal, tudo beleza, , Tenho um problema com a questão de acentuação quando utilizo SQLite com Zeus7 que já tentei de corrigir de todas as formas, mas não obtive êxito, tipo, quando tem um valor "Ação" ele grava "Ação", por exemplo. Até usei uma versão mais atual do zeus que resolveu o problema, mas o componente tem um certo bug na exibição por exemplo num dbgrid quando é um campo que você modificou no código, tipo quando se faz uma concatenação, mas o fato que o problema não é esse, queria saber se tem alguma forma de usar tipo um charset ou outra forma que funcione de fato. Até fiz um post um tempo atrás, mas não obtive êxito, então estou postando novamente pra quer quem sabe alguém já encontrou uma solução. Utilizo o Delphi 2010 Ou alguém poderia me indicar algum outro componentes dataset (Free rsrs) que funcione bem com SQLite. link do outro tópico: Grato, Abs
  2. já tentei aplicar ao meu codigo mas não funcionou corretamente, porque na vdd tem que ser tudo em tempo de execução. a alimentação do RichEdit é feito num loop de uma query.
  3. Boas galera, fiquei muito tempo sem programar e to voltando mas muita coisa não lembro mais rsrs To com uma duvida sobre o RichEdit, já testei uns codigos que pesquisei mas não funcionou corretamente, seguinte: tenho um RichEdit que é preenchido em tempo de execução com informações de uma tabela, gera uma especie de lista com uma numeração que também vem no banco, assim: 1) asdadfasdfasdfasdfasdfasdfa 2)sdfgsdfgsdfgsdfgsdfgsdfgsdfg 3)afasdfasdfasdfasdfasdfasdfaa a duvida é, como fazer pra que esses números fiquem com outra formatação, exemplo: 1) asdadfasdfasdfasdfasdfasdfa 2) sdfgsdfgsdfgsdfgsdfgsdfgsdfg 3) bafasdfasdfasdfasdfasdfasdfaa pra alimentar RichEdit to fazendo um While na query assim: RichEdit1.Add(qryListaID.AsString+') '+qryListaHistorico.AsString); Valeu!
  4. Valeu Jhonas Consegui aqui.. Na verdade é que tava tentando usar no evento onButtonClicked, mas ai testei no evento onClick e funcionou perfeitamente. Valeu ai. [RESOLVIDO]
  5. Boa Tarde, Já tentei algumas funções, já pesquisei na net mas também não encontrei o que preciso. tenho um TButtonGroup com vários botões e no evento onButtonClicked, queria uma função que retorne o caption do botão clicado. Abs!
  6. Boa Tarde Pessoal, Seguinte, utilizo o Delphi 2010 e por acidente instalei um tal de IDE Fix Pack 5.96, e agora não tá mais compilando nenhum projeto... e não estou conseguinte "desinstalar" esse cara ai. Segue as imagens ai... o Delphi abre apos clicar no OK.. os projetos abrem.. só não ta compilando Se alguém puder me ajudar ai... ficaria grato..
  7. boa Tarde pessoal, quero fazer uns cálculos aqui usando VB com excel, por exemplo: tenho os valores nas colunas A, B e C, e quero um resultado na coluna D = A+B-C, sendo que vai da linha 2 ate 20. mas preciso que na hora que eu alterar qualquer valor dessas Campos, (A. B, C) já faça o calculo automaticamente na D, sem uso de botão tentei fazer assim mas fica dando loop infinito. Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Double For i = 2 To 20 Cells(i, "D").Value = Cells(i, "A").Value + Cells(i, "B").Value - Cells(i, "C").Value Next i End Sub
  8. Olá pessoal, fazia tempo que não aparecia por aqui, mas aqui estou com probleminha que ta enchendo o saco e não estou conseguindo resolver, já fiz várias buscas pela solução mas não encontrei nenhuma que resolvesse meu problema, é o seguinte: To usando o Delphi2010 com banco SQLite e Zeus pra conectar o banco, o quando eu gravo um registro por exempro: "Ação" ele grava "Ação" já utilisei diversas opções de CHARSET no ZConnection, mas nada resolveu. Help! Valeu galera! Abs Progr'amador
  9. Olá, você pode usar um QRBand na propriedade BandType = rbDetail e num esquece de setar no DataSet do seu QuickReport a Query utilizada. Abs. Progr'amador
  10. Olá, nunca trabalhei com o InterBase, mas tem o IBUpdateSQL, que você liga direto num IBQuery e acho que tambem da pra usar no IBDataSet (é que to sem o delphi agora e não lembro) , e permite você fazer manipular isso. Abs. Progr'amador
  11. Ola Jhonas, só fazer umas correções ae no seu código, na verdade são 4 aspas e não 3: begin with dm.q_pag_prop do begin Close; SQL.Clear; SQL.Add('select * from tbl_pag_prop where id_prop = ' +''''+DBEdit1.Text+''''+''); SQL.Add('AND subcodigo = ' + QuotedStr(DBEdit33.Text)); Open; aqui faltou um parentese no final na primeira linha do SQL.Add, ficando assim: begin with dm.q_pag_prop do begin Close; SQL.Clear; SQL.Add('select * from tbl_pag_prop where id_prop = ' + QuotedStr(DBEdit1.Text)); SQL.Add('AND subcodigo = ' + QuotedStr(DBEdit33.Text)); Open; outra forma é essa: begin with dm.q_pag_prop do begin Close; SQL.Clear; SQL.Add('select * from tbl_pag_prop where id_prop = ' +#39+DBEdit1.Text+#39+''); SQL.Add('AND subcodigo = ' +#39+DBEdit33.Text+#39+''); Open; Abs. Progr'amador
  12. Olá, seria algo +ou- assim: use uma query com a seguinte string no SQL: insert into confiabilidade values (:campo) e depois: var i: integer; begin for i:=0 to ComboBox1.Items.Count-1 do begin query1.Params.ParamValues['campo'] := ComboBox1.Items.Strings[i]; query1.ExecSQL; end; end; Abs. Progr'amador
  13. Olá, veja se isso te ajuda: ShellListView1.SelectedFolder.DisplayName Abs. Progr'amador
  14. Olá, tenta assim: quando tiver que trazer todos os itens , utilize: sdsVendaItem.Open; sdsVendaItem.Params.ParamByName('PRODUTOID').Value := null; sdsVendaItem.Open; e quando escolher o item: sdsVendaItem.Open; sdsVendaItem.Params.ParamByName('PRODUTOID').Value := 10; sdsVendaItem.Open; Abs. Progr'amador
  15. Olá, veja: Qry.Parameters.ParamByName('Soma').Value:=Qry.FieldByName('qrySoma').AsFloat; Primeiro você tentando alimentao o parametro Soma de um campo pra própria query que você ta tentando execultar. qrySoma é realmene um campo da tabela? ae depois você fez isso: Qry.FieldByName('qrySoma').value := Qry.FieldByName('Soma').ASfloat; - algo completamente errado. confesso ainda não entendi nada do que realmente você ta querendo. pra abrir a query deveria ser algo assim: procedure TfrmPesquisa.SpedSomaClick(Sender: TObject); Var TOTAL, vSoma:Double; qrySoma:String; begin vSoma := blablabla; //aqui você vai usar como parametro TOTAL:=0; Qry.Close; Qry.SQL.Clear; Qry.SQL.Add('select * from Receita where Soma =:Soma'); Qry.Parameters.ParamByName('Soma').Value:= vSoma; Qry.Open; end; Abs. Progr'amador
  16. Olá, você quer fazer um Update mesmo, ou quer fazer funcionar esse Insert que você postou? Abs. Progr'amador
  17. Olá Lauro Pogozelski, referente ao erro, é porque você ta usando um parametro (pSoma) que não existe em sua query (SELECT). outra coisa, você nunca deve inserir valor num DBTExt, DBEdit, etc... e sim no campo do seu DataSet a qual esta ligado esse DBText, exemplo: Query1.FieldByName('nomeDoCampo').value := Qry.FieldByName('TOTAL').ASfloat); o restante num entendi bem o que você quer direito. Abs. Progr'amador
  18. Olá brunoxyz, Não me leve a mal, mas a intenção do fórum não é essa, você ta pedindo pra alguém fazer o trabalho pra você. Vale a pena você fazer uma pesquisa na NET por apostilas, em busca da resposta, até mesmo pra fins de conhecimento. Mas em todo caso, se alguém se sentir no desejo de responder....o tópico continua. Abs. Progr'amador
  19. vixi, tão se esgotandos meus cartuchos! ^_^ Deste de o inicio tinha um erro bobo no código (falta de atenção). O parametro valor2 recebia o valor do edt_valor1.text que seria o valor antigo, e o parametro valor recebia o novo valor, ou seja, tava invertido, já que eu estava utilizando o valor2 para atualizar os regtistros. De qualquer forma ae vai mais um modo, que é até mais simples. var valor : real; id, parcIni, parcFim : string; begin id := f_cad_inquilinos.DBEdit1.text; valor := StrToFloat(edt_valor2.text); // aqui é o novo valor parcIni := edt_par.text; // aqui seria a parcela DE --formato: 00/00 parcFim := edt_ate.text; //aqui seria a parcela ATE --formato: 00/00 with dm do begin // filtra o ID e o intervalo das parcelas a serem alteradas. cds_pag_inq.Filtered := False; cds_pag_inq.Filter := 'id_inq='+id+' and parcelas >= '+QuotedStr(parcIni)+' and parcelas <= '+QuotedStr(parcFim); cds_pag_inq.Filtered := True; cds_pag_inq.First; while not cds_pag_inq.Eof do begin cds_pag_inq.Edit; cds_pag_inqValor.Value := valor; cds_pag_inq.ApplyUpdates(-1);// atualizar o registro cds_pag_inq.Next; end; cds_pag_inq.Filter := ''; cds_pag_inq.Filtered := False; end; end; se não de certo, ae temos que mudar o esquema, adicione outra query pra execultar um UPDATE nesses registros dessa forma: qryUpdate.SQL.Close; qryUpdate.SQL.Clear; qryUpdate.SQL.Add('update NomeDaTabela set valor = '+QuotedStr(FloatToStr(valor))); qryUpdate.SQL.Add('where parcelas >= '+QuotedStr(parcIni)+' and parcelas <= '+QuotedStr(parcFim)+''); qryUpdate.SQL.Add(' and id_inq='+QuotedStr(id)); qryUpdate.SQL.ExecSQL; Se dê erro você fala, é que to um pouco ocupado e fiz com muito pressa. Abs. Progr'amador
  20. Ok, Então tente essa loucura ae: :rolleyes: var valor, valor2 : real; a, b, i, x : integer; valor2Ini, valor2Fim, ttparc, id : string; parc_alt: array[1..100] of String; function StrZero(Valor:string; QtdZero:integer):String; var I,Tamanho:integer; aux: string; begin aux:=Valor; Tamanho:=length(Valor); Valor:=''; for I:=1 to QtdZero-tamanho do Valor:=Valor+'0'; aux:=Valor+aux; StrZero:=aux; end; begin id := f_cad_inquilinos.DBEdit1.text; valor2 := StrToFloat(edt_valor1.text); // aqui é o valor antigo valor := StrToFloat(edt_valor2.text); // aqui é o novo valor valor2Ini := edt_par.text); // aqui seria a parcela DE valor2Fim := edt_ate.text); //aqui seria a parcela ATE a := StrToInt(Copy(valor2Ini,1,pos('/',valor2Ini)-1)); b := StrToInt(Copy(valor2Fim,1,pos('/',valor2Fim)-1)); ttparc := Copy(valor2Ini,pos('/',valor2Ini)+1,2); x := 0; for i:=a to b do begin inc(x); parc_alt[x] := StrZero(IntToStr(i),2)+'/'+ttparc; end; with dm do begin cds_pag_inq.Filtered := False; cds_pag_inq.Filter := 'id_inq='+id; cds_pag_inq.Filtered := True; for i := 1 to x do begin if cds_pag_inq.locate('parcelas',parc_alt[i],[]) then begin cds_pag_inq.Edit; cds_pag_inqValor.Value := valor2; cds_pag_inq.ApplyUpdates(-1);// atualizar o registro end; end; cds_pag_inq.Filter := ''; cds_pag_inq.Filtered := False; end; end; Abs. Progr'amador.
  21. Olá MagoDanger, Estranho, colocando somento os numero (3 e 6) deveria funcionar. você já fez o teste, debugando se entra esse IF, quando chega nesse intervalo de valores ? if (i >= valor2Ini) and (i <= valor2Fim) then cds_pag_inqValor.Value := valor2 pode ser algum falha no momento da gravação do registro. Abs. Progr'amador
  22. Olá Mario Henrique, vê se isso te ajuda: http://www.icert.com.br/gestor/tutoriais/c...rk-request.html Abs. Progr'amador
  23. Olá MagoDanger, Ok, então vamos usar o campo da tabela. mas só verifica se ta correto o nome do campo que usei no código: cds_pag_inqparcelas.Value var valor, valor2 : real; id : string; valor2Ini, valor2Fim, i : integer; begin i := 0; id := f_cad_inquilinos.DBEdit1.text; valor2 := StrToFloat(edt_valor1.text); // aqui é o valor antigo valor := StrToFloat(edt_valor2.text); // aqui é o novo valor valor2Ini := StrToInt(edt_par.text); // aqui seria a parcela DE valor2Fim := StrToInt(edt_ate.text); //aqui seria a parcela ATE with dm do begin cds_pag_inq.Filtered := False; cds_pag_inq.Filter := 'id_inq='+id; cds_pag_inq.Filtered := True; cds_pag_inq.First; while not cds_pag_inq.Eof do begin i := StrToInt(Copy(cds_pag_inqparcelas.Value,1,pos('/',cds_pag_inqparcelas.Value)-1)); cds_pag_inq.Edit; if (i >= valor2Ini) and (i <= valor2Fim) then cds_pag_inqValor.Value := valor2 else cds_pag_inqValor.Value := valor; cds_pag_inq.ApplyUpdates(-1);// atualizar o registro cds_pag_inq.Next; end; cds_pag_inq.Filter := ''; cds_pag_inq.Filtered := False; end; end; Abs. Progr'amador ;)
×
×
  • Criar Novo...