Jump to content
Fórum Script Brasil

Progr'amador

Veteranos
  • Content Count

    1210
  • Joined

  • Last visited

Community Reputation

0 Neutro

5 Followers

About Progr'amador

  • Birthday 08/17/1979

Contatos

Perfil

  • Gender
    Male
  • Location
    Porto Velho

Recent Profile Visitors

4517 profile views
  1. 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.
  2. 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!
  3. 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]
  4. 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!
  5. 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..
  6. 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
  7. 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
  8. 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
  9. 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
  10. 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
  11. 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
  12. Olá, veja se isso te ajuda: ShellListView1.SelectedFolder.DisplayName Abs. Progr'amador
  13. 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
×
×
  • Create New...