Progr'amador

De uma olhada nesse tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=35489

MEU AMIGO você ESTÁ MAL INFORMADO, REALMENTE EXISTE DESCOMPILADOR SIM, MAS ATÉ ONDE EU SEI ESSES DESCOMPILADORES NÃO MOSTRA OS FONTES E SIM OS FORMS (dfm), SOMENTE. você GOSTARIA QUE alguém PEGASSE O FONTE DO SEU PROGRAMA???

Que componente você está usando pra abrir essas tabelas?

dê um close, e um open, no componente que traz a sua tabela.

Ola galera, Gostaria de usar banco de dados access com delphi, por onde começo? como fazer essa ligação?

Olá Raphael. Na verdade você tera que criar parametros na em sua "select" (Query) para receber os valores dos DBEdt's, tipo assim: na opção string do componente TQuery coloque: insert into tbl_xxx (nome, endereco) values (:nome, :endereco) e num buttom(por exemplo) o código abaixo: Query1.Prepare; Query1.ParamByName('nome').AsString := DBEdit1.Text; Query1.ParamByName('endereco').AsString := DBEdit2.Text; Query1.ExecSQL; Query1.UnPrepare; Espero ter te ajudado, Falow!!!

como você está execultando essa função? coloque o código que você está usando.

Ola hencker, Não sei a forma que os grandes programadores fazem isso, mas aqui vai a minha dica. como sempre digo: *** o importante é o resultado *** ai vai: no meu relatório tenho QRBand = rbTitle, QRGroup, e QRBand = rbDetail(QRBandItem). adicionei uma variavel (var x: string;), no evento AfterPrint do QRGroup1: x := 'N'; e no evento BeforePrint do QRBandItem (onde são exibidos os registros) coloque: if x = 'S' then begin QRBand4.Color := clSilver; x := 'N'; end else if x = 'N' then begin QRBand4.Color := clWhite; x := 'S'; end; espero ter te ajudado, falow!!!

Ola Corposemalma, realmente essa impressora não aceita impressão direta, o que devo fazer pra imprimir ?

na verdade estou mandando direto pra porta, do mesmo jeito que faço com a Zebra, ai vai o código pra explicar melhor o que tou fazando: procedure TForm1.Button1Click(Sender: TObject); begin FmImpresEtiqueta1.QrMemo1.lines.Add('00220'); FmImpresEtiqueta1.QrMemo1.lines.Add('M3000'); FmImpresEtiqueta1.QrMemo1.lines.Add('f260'); FmImpresEtiqueta1.QrMemo1.lines.Add('L'); FmImpresEtiqueta1.QrMemo1.lines.Add('H20'); FmImpresEtiqueta1.QrMemo1.lines.Add('SB'); FmImpresEtiqueta1.QrMemo1.lines.Add('D11'); FmImpresEtiqueta1.QrMemo1.lines.Add('Q0001'); FmImpresEtiqueta1.QrMemo1.lines.Add('1G1204000080305D' + vcodpro + ''); FmImpresEtiqueta1.QrMemo1.lines.Add('141200000650050' + vnomepro + ''); FmImpresEtiqueta1.QrMemo1.lines.Add('1Y2202500030010SG'); FmImpresEtiqueta1.QrMemo1.lines.Add('153214000040030' + vvalor + ''); FmImpresEtiqueta1.QrMemo1.lines.Add('153214000060200'); FmImpresEtiqueta1.QrMemo1.lines.Add('412114000180390' + vdata + ''); FmImpresEtiqueta1.QrMemo1.lines.Add('E'); FmImpresEtiqueta1.quickrep1.print; end; desde já, obrigado pela sua atenção Corposemalma.

estou usando o drive da propria datamax, porta COM1. Usando o clipper ela imprime legal e de clipper não entendo nada, ouvi por auto, que pra usar essa impressora no delphi é preciso de um componente. (não tenho certeza disso).

Olá pessoal alguém sabe com imprimir etiquetas na impressora Datamax usando QRMemo no QReport, com a impressora Zebra imprime legal, mas com a Datamax não sai nada. Alguém ai sabe o porque disso????

procedure TForm1.Button1Click(Sender: TObject); Var F:TextFile; Begin AssignFile(f,'c:\arquivo teste.txt'); Rewrite(f); Write(f,Edit1.text); Closefile(f); End;

essa código que você está usando é pra contar palavras, pra contar letras use esse: function WordsCount( s : string ) : integer; var ps: PChar; nSpaces,n,o : integer; begin n := 0; o := 0; s := s + #0; ps := @s[ 1 ]; while( #0 <> ps^ ) do begin while((' ' = ps^)and(#0 <> ps^)) do begin inc( ps ); inc(o); end; nSpaces := 0; while((' ' <> ps^)and(#0 <> ps^))do begin inc(nSpaces); inc(ps); inc(o); end; if ( nSpaces > 0 ) then inc( n ); end; Result := o; end;

COMO ASSIM? SOMENTE UMA LINHA?, SEU ARQUIVO TEM VARIAS LINHAS É você SÓ QUER ENVIAR UMA LINHA PRA TABELA? É ISSO???

Ola amigo, ai vai a minha dica: procedure TForm1.Button1Click(Sender: TObject); var formalinha : array[1..100] of String; f : TextFile; linha : String; i : Integer; begin AssignFile(f,'c:\nome_arquivo.txt'); Reset(f); i := 0; While not eof(f) do begin i := i + 1; Readln(f,linha); formalinha[i] := linha; End; Closefile(f); end; Obs: na variável do Formalinha : array[1..100] or string; esse valor onde eu coloquei '100', aconselho que coloque sempre um valor bem auto, porque se o número de linhas do seu arquivo for MAIOR que esse valor vai dar ERRO. Ok!!!

OKÊ!!! Dê um duplo cloque na opção 'Color' do Object Inspector do componente que você quer colorir..., Eu acho que é o sufuciente pra se ter a cor desejada

so é você colocar no DataSource dos DBEdit's o mesmo DstaSource que você colocou no DBGrid1, e no DataField coloque os respectivos compos... Foi o que eu intendi

HeHeHeHe!!! e num é que eu consegui!!! var FormaLinha, Formalinha1, virgula : String; P1,pos1 : Integer; begin FormaLinha := FormatFloat('00.00',Query1.FieldByName('VL_PRODUTO').Value); P1 := Pos('.',FormaLinha); P1 := P1 + 1; Formalinha1 := Copy(Formalinha, P1, length(formalinha)); pos1 := Pos('.',FormaLinha); pos1 := pos1 - 1; Virgula := Copy(Formalinha,1,pos1); Formalinha := Virgula + FormaLinha1; Linha1 := Linha1 + FormaLinha; end; AutoResolvido...

então tá, ai vai: na uses da unit : ClipFn32; var FmGeraArqNutri: TFmGeraArqNutri; ArqTxt : TextFile; Linha1 : AnsiString; ------------------------------------------- procedure TFmGeraArq.CriaArquivo(FileName : String); var Linha : String; Num_Linha : Integer; Num_Linha1 : String; begin {$I-} Num_Linha := 0; AssignFile(ArqTxt, Alltrim(EditLocal.Text) + '\NUTRI.TXT'); Rewrite(ArqTxt); {$I+} if (IOResult <> 0) then MessageBox(handle,PChar('Houve um erro na criação do'+chr(13)+'Arquivo : NUTRI.TXT'),'ATENÇÃO',MB_OK or MB_ICONEXCLAMATION) else begin Query1.First; Num_Linha1 := inttostr(Num_Linha); While not Query1.Eof do begin CriaLinha(Linha); Linha1 := ''; Query1.Next; end; end; CloseFile(ArqTxt); end; --------------------------------------------------- procedure TFmGeraArq.CriaLinha(Linha : String); var FormaLinha, Formalinha1 : String; begin FormaLinha := Query1.FieldByNAme('CAMPO1').AsString; Formalinha := strzero(FormaLinha,4); Linha1 := Linha1 + FormaLinha; FormaLinha := Query1.FieldByNAme('CAMPO2').AsString; Linha1 := Linha1 + FormaLinha; FormaLinha := Query1.FieldByNAme('CAMPO3').AsString; Formalinha := strzero(FormaLinha,2); Linha1 := Linha1 + FormaLinha; //ETC, ETC, ETC, Writeln(ArqTxt, Linha1); end; ------------------------------------- pra execultar essas procedures: procedure TFmGeraArq.BitBtn1Click(Sender: TObject); begin Query1.Close; Query1.Open; if Query1.RecordCount>0 then CriaArquivo('NUTRI.TXT'); end; Ok! só que agora estou com problemas nos campos de tipo Number por causa do ponto. coloquei neste tópico: Problemas Com O Campo Tipo Number da tabela, com arquivo txt

O meu problema é o seguinte: tenho alguns campos na minha tabela no tipo Number(3,1) e Number(4,4), que trazem valores +- assim: 15.0; 0.1; 7.09 nesse formato -->> (00.0 ; 00.00) e criei uma variavel (FormaLinha) de tipo String que recebe esses valores, só que preciso IGNORAR esse ponto(.) na variavel assin: 150; 001; 0709 obs: os valores 15.0 e 0.1 e do formato 00.0; e 7.09 do formato 00.00. espero que tenham entendido. ajudem-me por favor!!!

Resolvido.

tenho uma tabela por exemplo: Tabela1, campos: campo1, campo2, campo3 como faço pra enviar todos os dados desse tabela para um arquivo txt.

você pode colocar um if dentro do while: tabelatotal.first; while not tabelatotal.eof do begin if tabelatotal.fieldbyname('data').AsDate = tabelavenda.fieldbyname ('data').AsDate then begin tabelatotal.fieldbyname('quantidade').asinteger := tabelatotal.fieldbyname('quantidade').asinteger - tabelavenda.fieldbyname ('quantidade')asinteger; end; tabelatotal.next; end; foi o que eu entendi...