Jhonas

use o leitor como se fosse o proprio teclado, so que ao invés de digitar o leitor é que vai fazer este papel. por exemplo: se o foco do controle estiver no campo que vai receber a informação do leitor é só acionar o mesmo e a informação vai para esse campo.... ( voce so tem que tratar o digito verificador ) ... muito simples

Simples, é so você utilizar uma regra de 3 para as proporções..... Por exemplo. Tenho uma imagem 100x150 e quero diminui-la 15% , então : with_original := 100; height_original := 150; perc_diminuir := 15; with_final := (width_original * (perc_diminuir/100)); height_final := (height_original * (perc_diminuir/100)); Pronto é isso .... Espero ter ajudado.... Sebastião Júnior

Testei aqui sem problemas para carregar a imagem procedure TForm1.BitBtn1Click(Sender: TObject); begin if OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile(OpenPictureDialog1.filename); end;

Acho que neste endereço pode ajudar a solucionar o problema: http://www.rwblinn.de/112k0t5.htm Faça este teste, coloque num botao este codigo: procedure TForm1.Button1Click(Sender: TObject); var coluna, linha : integer; begin coluna := 1; linha := 1; DbAdvGrid1.Cells[coluna,linha] := '0'; DbAdvGrid1.Columns[1].SetFocus; // mostra a celula ativa end; Se ele funcionar voce resolve o problema ..... o resultado sera 0 na coluna 1 , linha 1, e o foco devera estar sobre ele dessa maneira se voce colocar o codigo DbAdvGrid1.Cells[2,1]; o foco devera ser coluna 2 linha 1.

da maneira como voce montou a select e dependendo do numero de registros da sua tabela, realmente vai ficar demorado ( sugestão : modificar a maneira de selecionar os registros ) quanto a usar progressbar durante o select acho que não é possivel, entretanto voce pode usar um cursor animado durante o tempo em que o select estiver sendo efetuado, outra opção é usar um gif animado ou um avi durante este tempo, para distrair o usuario enquanto espera.

Usando o delphi, e se voce for bom em liguagem assembler é possivel. A outra opção é usando o Restoration.exe que voce pode baixar da internet. http://www.mediafire.com/?6xz9qymrdqo

Endereço com alguns componentes para IRC http://www.torry.net/pages.php?id=217 Um exemplo Cliente IRC, procure no site outros exemplos: http://www.delphifr.com/codes/CLIENT-IRC-T...-IRC_12046.aspx

se voce não colocar o codigo não posso te ajudar.

Colega, já fiz um sistema que usa leitor de codigo de barras, voce deve ter em mente que o leitor funciona como se fosse uma entrada de teclado, no meu caso usei a propriedade OnColEnter do DbGrid, pois o campo especificado seria o da entrada do codigo do produto, o substituto desta propriedade seria OnColChanging ( do DbAdvGrid1) onde voce faria a leitura do codigo e a partir disso jogar os valores nos seus respectivos campos. Um teste muito bom seria voce digitar o codigo na coluna que vai receber o codigo de barras e depois de processar o codigo, e colocar as demais informações nos outros campos. Em funcionando desta maneira, o leitor so vai dispensar a digitação.

posta ai o codigo que muda o label

Se eu entendi o que voce quer, va na opão de menu do delphi <Search> e clique em <Find in Files> e digite o que voce quer procurar no texto do codigo da sua aplicação. Exemplo: Except

Colega, voce já tem o codigo que muda o label caso o registro esteja selecionado, porque voce não coloca este codigo no outro , vai fazer o que voce esta querendo. if (Column.Field.FieldName = 'Qtdfinal_estoque') then begin if dm.ZTpecas.FieldByName('Qtdfinal_estoque').value <= 10 then begin DBGrid1.Canvas.Font.Color:= clRed; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); // coloque aqui o codigo que muda o label end else begin DBGrid1.Canvas.Font.Color:= clBlack; DBGrid1.Canvas.FillRect(Rect); DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State); end; end;

Da uma olhada nestes endereços: voce tera que fazer uma VPN http://pt.wikipedia.org/wiki/VPN http://www.portalchapeco.com.br/~jackson/vpn.htm http://www.novateceditora.com.br/livros/vpn/ http://www.rnp.br/newsgen/9811/vpn.html Use o Componente Zebedee para VPN usando delphi ... é gratuíto Artigo a respeito: http://www.vivaolinux.com.br/artigos/verAr...php?codigo=2029 Apostila de uso do Zebedee: http://www.comunidade-firebird.org/cflp/do...s/CFLP_O004.PDF Download do ZEbedee: http://translate.google.com/translate?hl=p...ad%26hl%3Dpt-BR

Resposta: Não é possivel pois o ADOTable e nem o ADOQuery tem o FindNearest , entretanto voce pode usar o Locate DmMestre.tbClientes.IndexFieldNames := ('Codigo_Cliente'); DmMestre.tbClientes.Open; DmMestre.tbClientes.Locate('Codigo_Cliente',trim(Edit1.text),[loPartialKey]);

tudo bem, vi que voce não captou a ideia, então vou te passar outro codigo: procedure TForm1.Button1Click(Sender: TObject); var i, num : integer; begin for i := 1 to CDS_Query1.RecordCount do begin CDS_Query2.Last; CDS_Query2.Append; CDS_Query2.Edit; for Num := 0 to CDS_Query1.FieldCount-1 do begin CDS_Query2.Edit; CDS_Query2.Fields[Num].Assign(CDS_Query1.Fields[Num]); CDS_Query2.Post; end; CDS_Query1.Next; end; CDS_Query2.ApplyUpdates(-1); end; OBS: coloque um arquivo em query1 e o outro em query2 .... todos os registros da query1 serão incluidos na query2... o primeiro for conta os registros e o segundo conta os campos da tabela

Ai vai o codigo para procurar uma figura numa pasta do windows e pegar o nome dela unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtDlgs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Image1: TImage; OpenPictureDialog1: TOpenPictureDialog; Label1: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin if OpenPictureDialog1.Execute then label1.caption := OpenPictureDialog1.FileName; end; end. Onde estariam as outras figuras, banco de dados ou pastas do windows ???

o seu DbGrid tem que estar ligado ao DataSource da query, e a instrução select da query tem que ter a definição dos campos ( ex: select * from Vendas ) neste exemplo estaremos selecionando todos os campos da tabela Vendas e os mesmos serão mostrados no DbGrid, quando a query for ativada.

// usando evento do DbAdvGrid1 procedure TForm1.OnButtonClick(Sender: TObject); begin DbAdvGrid1.SelectedIndex := 2; // vai para a 3ª coluna DbAdvGrid1.Columns[2].Grid.SetFocus; // mostra a celula ativa end; //ou ainda se quiser usar um botão procedure TForm1.BitBtn1Click(Sender: TObject); begin DbAdvGrid1.SelectedIndex := 1; // vai para a 2ª coluna DbAdvGrid1.Columns[1].Grid.SetFocus; // mostra a celula ativa end; Como eu não tenho este componente, é de se supor que ele tambem tenha a instrução selectedIndex ou outra muito parecida, de uma pesquisada .... voce pode usar em eventos em que tenha que dar Click do mouse. OnButtonClick OnClickCell OnDblClickCell OnRadioClick OnRightClickCell

Se for o DBGrid com: DBGrid1.refresh;

voce deve ter definido na propriedade keyfield do DBLookupComboBox o codigo de venda, neste caso troque pelo campo nome do cliente, e na propriedade listfield o memo campo.

sinstaxe: select MAX(Cod) MAXCod,Nome FROM tb_teste group by nome qr_pesquisa.Close; qr_pesquisa.SQL.Clear; dbgrid1.DataSource := ds_pesquisa; qr_pesquisa.SQL.Add('select MAX(Cod) MAXCod, Nome '); qr_pesquisa.SQL.Add('FROM tb_teste '); qr_pesquisa.SQL.Add('where nome = '''+trim(edit1.text)+''''); qr_pesquisa.SQL.Add(' Group by nome'); qr_pesquisa.Open; ShowMessage('Código do Cliente: ' + qr_pesquisa.FieldByName('MAXCod').AsString + ' / Nome do Cliente: ' + qr_pesquisa.FieldByName('Nome').AsString);

entendi .... tenta usar o keyvalue dm.ZTVendas.fieldbyname('NomeclienteCad_venda').Value:=DBLookupComboBoxNomeclivendas.Keyvalue;

As variaveis Ch1, Ch2: char; os valores que uma variavel tipo char pode assumir são ordenados de acordo com o conjunto estendido de caracteres ANSI, este tipo ocupa 1 byte.

se voce percebeu no codigo voce pode testar tanto o tamanho, como o conteudo ( variação de luz , etc ), e o componente TImage aceita JPG. É so fazer o teste.

Onde esta o comando insert ou append para incluir o cliente ??? HabilitaBotoes(false); dm.ZTVendas.last; dm.ZTVendas.Append; // ou dm.ZTVendas.Insert; dm.ZTVendas.FieldByName('cod_venda').Value:=edit1.Text; dm.ZTVendas.fieldbyname('NomeclienteCad_venda').Value:=DBLookupComboBoxNomeclivendas.Text; dm.ZTVendas.FieldByName('Formapgt_venda').Value:=edit2.Text; dm.ZTVendas.Post; dm.ZTVendas.Edit; DBLookupComboBoxNomeclivendas.refresh; // atualizar a lista