Vivendo&Aprendendo

cara no delphi 7 tem o xpmanifest que deixa no lugar do cinza ele coloca branco falou

cara o unico código por enquanto é esse... O caso é o seguinte: É uma tabela de frequencia, onde tenho que buscar os cados na tabela de membros e registrar na tabela de frequencia os dados: data, codigo de barras do membro, nome do membro. É isso. Será q pode me ajudar? Qualquer coisa conecta no MSN ai q passo os arquivos. Alexandre

Deu o seguinte erro quando mandei ler o código de barras: As alterações para a tabela não foram satisfatórias já que criaram valores duplicados no indice, chave primária ou relação. O q é isso? Alexandre

Galera Estou utilizando o leitor de código de barras e quero que o edit que está recebendo o código faça uma busca na tabela, se encontrar o código igual ele complete os campos abaixo com as informações referentes ao código e se não existir o código ele de uma mensagem. Estou usando o seguinte código mas não esta dando certo, ele da erro e só digita um caractere no edit (só o primeiro digito do código). If (ADOMembros.Locate('CodBarras',EdtCodigo.Text,[LoPartialKey])) Then Edtmembro.Text := ADOMembrosNome.Value else Application.MessageBox('Membro não Cadastrado!','Atenção',mb_IconExclamation +mb_ok); Como faço isso? Alexandre

Progr'amador Deu certo cara agora ele leu todos os digitos (11). Valeu pela dica... Qualquer coisa eu posto + duvida Alexandre

beleza mudei ... mas ai a numeração continua com 11 digitos né? Alexandre

cara to usando o código de barras da seguinte forma: quando salvo o registro ele captura o cpf do cara e esse numero se torna o código de barras; Para imprimir, imprimo pelo delphi mesmo, estou usando o componete RlDBBarcode do FortesReports; o componente traz os 11 digitos mas o leitor só le 10; V&A

O outro post foi fechado antes de eu postar a nova dúvida então vai ela ai: O leitor esta lendo somente 10 digitos mas o meu código de barras é o CPF do membro, como faço para ele ler todos os 11 e não somente 10? Alexandre

Meu amigo eu já tenho o leitor (COMPREI UM DA BEMATECH), só queria saber como fazia para comunicar ele com o delphi... Progr'amador valeu pela dica ai cara deu certinho pra mim... Mas a outra duvida é: O meu código de barras é o CPF do cliente mas ele só ta lendo 10 caracteres e não 11, como faço para ler todos? Alexandre

Olá galera ... Preciso saber como faço para que a minha aplicação receba as informações que estão em um código de barras ... esse código será lido por um leitor óptico e o código deverá aparecer em um edit. Alguém ai pode me ajudar com isso? V&A

velho tenta fazer isso usando o LOCATE... não se é isso que pretende mas ele filtra legal os registros... AdoTable1.Locate(CAMPO_NO_BD',Edit1.text,[loCaseInsensitive]); ou AdoTable1.Locate(CAMPO_NO_BD',Edit1.text,[loPartialKey]); Declare na Uses o nome DB Espero ter ajudado. V&A

Ta ai amigão: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var cValor : Char; begin if ( Key in ['.',','] ) then begin Key := #44; if Pos(Key,cValor) <> 0 then Begin Beep; Key := #0; End; End; if not ( Key in ['0','1','2','3','4','5','6','7','8','9',',',#8,#7] ) then Begin Beep; Key := #0; End; end; coloque isso no ONKeyPRess do edit falou V&A

Se o problema é que o botão de RUN está inativo tente fazer o seguinte... Clique em fiel e depoi Close All... e depois em file novamente e new application Não sei se é isso mas tenta ai falou V&A

A chave é inserida no comando: Aqui você escolhe a chave registro.RootKey:=HKEY_LOCAL_MACHINE; aqui você abre a chave registro.OpenKey(('Software\Microsoft\Windows\CurrentVersion\Run'), true); e aqui você atribuios valores para a chave onde FORM1.CAPTION é o valor que será gravado registro.WriteString('Chave', Form1.Caption); aqui fecha a chave registro.CloseKey; e aqui libera o registro registro.Free; VOCÊ DEVE TIRAR OS COMANDOS DE DENTRO DAS CHAVES { } espero ter ajudado qualquer duvida posta ai falou V&A

Tenta assim: ADOQuey.Close; ADOQuey.SQL.Clear; ADOQuey.SQL.Add('Select * From TABELA'); ADOQuey.SQL.Add('Where CAMPOLike :pCod '); ADOQuey.SQL.Add('Order By CAMPO); ADOQuey.Parameters[0].Value := Edit1.Text + '%'; ADOQuey.Open; falou qualquer coisa posta ai V&A

cara ele da um erro no comando FindWindow... porque isso? falou V&A

Olá Faça isso no OnClick do Botão... e adicione na clusula USES o nome REGISTRY procedure TForm1.Button1Click(Sender: TObject); var registro: TRegistry; begin {registro:=TRegistry.Create; registro.RootKey:=HKEY_CURRENT_USER; registro.OpenKey(('Software\MeuNome\MeuPrograma\1.0'), true); registro.WriteString('Chave', Form1.Caption); registro.CloseKey; registro.Free; } end; isso gravará a chave no registro e para ler essa chave use: procedure TForm1.FormCreate(Sender: TObject); var registro: TRegistry; Reg : String; begin registro:=TRegistry.Create; registro.RootKey:=HKEY_CURRENT_USER; try registro.OpenKey(('Software\MeuNome\MeuPrograma\1.0'), false); Reg := registro.ReadString('Chave'); //Form1.Top:=registro.ReadInteger(‘Top’); registro.CloseKey; except end; registro.Free; end; Qualquer duvida posta ai... falou Alexandre - V&A

Amigão você pode usar a opção CharCase dos edits e cadastrar tudo maiusculo no banco CharCase = UpperCase falou Alexandre

Essa converte Bmp para Jpeg, testa ai e ve se converte para ICON, é só mudar alguns comandos... tipo alterar de jpeg para icon. cara tente dessa forma: Obs : não testei ainda falou Alexandre

cara vlw pela dica e pelo código, agora para procurar dentro das pastas você disse: Para varrer as sub-pastas, você terá que implementar recursividade neste código. Desculpe a encheção mas como é isso? Alexandre

cara ainda não conheço aquelas funções para fazer isso... será que pode me ajudar... falou Alexandre

Olá Carla Existe as propriedades CharCase onde ecNormal aceita qualquer tipo tanto maiusculo com minusculo; ecLowerCase aceita somente minusculo e ecUpperCase aceita somente maiusculo espero ter ajudado... caso não posta ai Alexandre

Não entendi será que pode me explicar melhor... falou Alexandre

E ae galera... Como faço para procurar por um arquivo em todo o HD... tipo a pesquisa do windows mas pelo DELPHI... tipo assim tenho um arquivo que quero encontrar, poid não sei onde ele se encontra então pesquiso em todo o HD e quando ele encontrar me fornece uma mensagem indicando onde esta o arquivo. falou Alexandre

Foi mal Progr'amador o mérito é todo seu e não s3c eu confundi os nomes me desculpa pela falha... rsrsrsrs falou Alexandre