Jhonas

Se voce estiver usando uma query não tem problema mesmo que ela seja complexa ou lenta, pois estará trabalhando com uma cópia do banco de dados. RemObjects SDK com suporte a Delphi 2009 e Lazarus A nova versão (5.0.33) do RemObjects SDK, lançada no último dia 29, traz suporte ao Delphi 2009, além de suporte a IDE gratuita Lazarus, do Free Pascal. No caso do Delphi 2009, o instalador não traz as versões compiladas dos pacotes e units pois a versão final do Delphi 2009 ainda não foi liberada. Mas ele traz todo o código fonte compatível para que seja utilizado quando a nova versão estiver disponível. http://www.remobjects.com/free.aspx abraço

Alberto ... a programação padrão do leitor de código de barras é fazer leitura do codigo EAN13, para que ele possa fazer leituras de outros códigos, voce deve usar o manual de programação que acompanha o aparelho. Neste manual existem figuras de outros códigos de barras, ou seja, toda a programação do aparelho é feito através de uma sequencia de códigos de barras e não de software. No manual voce encontrará a programação do código de barras 2 de 5, para que ele possa ler esse tipo de código OBS: O leitor do banco já é programado para fazer a leitura deste código abraço

porque no win 7 não tem algumas configuraçoes que o cara falou lá! O Win 7 ainda é uma versão Beta... ainda não está finalizada pela microsoft Vai funcionar. Eu costumo trabalhar com uma cópia para cada cliente, pois além de diminuir o tráfego de rede, a aplicação cliente estará usando os recuros da própria maquina e não os recursos da máquina do servidor. OBS: Voce não tem deixar necessariamente no DM ... pode ser em qualquer Form ... ( eu uso no Form do Menu ) abraço

Um exemplo mais simples function Idade(DataAniv:TDate; DataAtual:TDate): double; Var Data: TDateTime; begin Data := DataAtual - DataAniv; Result := Data; end; procedure TForm1.Button1Click(Sender: TObject); var anos : real; begin anos := Idade(strtodate(Edit1.Text),now); anos := anos / 365.6; showmessage('A idade é = ' + floattostr(trunc(anos))); end; Neste exemplo foi criada uma função para calcular a diferença de dias entre duas datas ( a data de aniversario e a data atual ) com o numero obtido em dias, basta dividir por 365.6 dias do ano, e o resultado será quantos anos foram decorridos OBS: Isso é só para voce perceber a diferença entre uma lógica e outra abraço

// Retorna a idade Atual de uma pessoa a partir da data de nascimento function IdadeAtual(Nasc : TDate): Integer; Var AuxIdade, Meses : String; MesesFloat : Real; IdadeInc, IdadeReal : Integer; begin AuxIdade := Format('%0.2f', [(Date - Nasc) / 365.6]); Meses := FloatToStr(Frac(StrToFloat(AuxIdade))); if AuxIdade = '0' then begin Result := 0; Exit; end; if Meses[1] = '-' then Meses := FloatToStr(StrToFloat(Meses) * -1); Delete(Meses, 1, 2); if Length(Meses) = 1 then Meses := Meses + '0'; if (Meses <> '0') And (Meses <> '') then MesesFloat := Round(((365.6 * StrToInt(Meses)) / 100) / 30.47) else MesesFloat := 0; if MesesFloat <> 12 then IdadeReal := Trunc(StrToFloat(AuxIdade)) // + MesesFloat; else begin IdadeInc := Trunc(StrToFloat(AuxIdade)); Inc(IdadeInc); IdadeReal := IdadeInc; end; Result := IdadeReal; end; procedure TForm1.Button1Click(Sender: TObject); begin showmessage('A idade é = '+ inttostr(IdadeAtual(strtodate(Edit1.text)))); end; abraço

/ / Alterar a velocidade do mouse para o novo valor e atualização WIN.INI. SystemParametersInfo(SPI_SETMOUSE, // set mouse information SystemParametersInfo (SPI_SETMOUSE, / / conjunto de informações rato 0, // not used 0, / / não utilizados @MouseInfo, // mouse information @ MouseInfo, Informação / mouse / SPIF_UPDATEINIFILE); // update win.ini SPIF_UPDATEINIFILE); / / win.ini actualização abraço

voce tem que deixar um programa rodando em segundo plano, verificando a conexão da rede de tempos em tempos se a conexão for interrompida, voce coloca o comando para reiniciar o micro. este programa pode ser feito em delphi, vb, visual C++ ou outra linguagem abraço

Veja neste endereço: http://www.activedelphi.com.br/print.php?sid=63 abraço

Na verdade seria somente isso mesmo. Como voce deve saber, o leitor de codigos de barras está ligado juntamente com o teclado ... dessa maneira quando voce usa o leitor, seria o mesmo que estar digitando no teclado os numeros. Se voce abrir o word em um documento em branco e depois usar o leitor, voce terá que ver os numeros lidos pelo leitor. Se voce não possui um leitor, tente obter um emprestado somente para fazer o teste. O leitor não necessita de nenhuma instalação de software no micro e ele vem com um cabo para plugar o leitor e o teclado juntos. Isso porque ninguém limpa a lente do leitor.... quando a lente está suja ( poeira acumulada ) ele não consegue ler o código O Leitor do banco utiliza entrada USB Se voce já tem o componente, é só definir os numeros nele. Outras Fontes: http://www.planetadelphi.com.br/dica/6185/...e-barras-2-de-5 abraço

Verifiquei depois que a largura não era de 103mm conforme o manual. A lagura da barra pode dar problema, na altura não .... Faça um teste usando o word. Abra o word, pegue o codigo de barra e passe pelo leitor e veja no documento do word qual é a resposta da leitura se não for a mesma, voce pode codificar o leitor, ou alterar a fonte do código de barra abraço

Veja neste endereço: http://www.mail-archive.com/delphi-br@yaho...r/msg17465.html abraço

Tabela escaneada é uma figura ... se quiser trabalhar com os valores, a tabela deverá ser escaneada como texto mas a melhor maneira seria voce usar os componentes Excel da paleta Servers do delphi abraço

Pesquise no forum pela palavra Select ou Inner Join ou QuickReport abraço

Nem sempre ... por exemplo: se voce definir uma variavel do tipo integer e não inicializa-la com um valor, ela pode assumir um valor ( lixo ) qualquer. Para maior compreensão sobre isso, veja no help do delphi ( F1 ) OBS: para evitar dores de cabeça no seu projeto, inicialize todas as variaveis que voce for usar abraço

Amigo .. o que te passei é um exemplo usando os componentes IBQuery, DataSetPovider, ClientDataSet e DataSource Se voce estiver usando outros componentes, a lógica seria a mesma .... voce deve adaptar o código as suas necessidades .. ok ? abraço

Voce pode definir e inicializar as variaveis dessa maneira: exemplo: var numero : integer; s : string; begin numero := 0; s := ''; end; ou var numero : integer = 0; s : string = '';

qual é o nome do arquivo htm que contem a assinatura ? é só descobrir o nome e anexá-lo ao email abraço

. Porque não consigo digitar nada em um DBComboBox Porque existem duas maneiras de se fazer isso: Na primeira voce preenche a propriedade Items do DBComboBox com os itens que voce quer... quando selecionar um item da lista o mesmo será atribuido para o campo da tabela depois do clique do mouse Na segunda, basta digitar no DBComboBox e o valor será atribuido para o campo da tabela, depois de teclar um < Enter > procedure TForm1.DBComboBox1Click(Sender: TObject); begin // PEGAR UM ITEM DA LISTA E ATRIBUIR AO CAMPO ClientDataSet1.Edit; ClientDataSet1MARCA.Value := DBComboBox1.Items.Strings[DBComboBox1.ItemIndex]; ClientDataSet1.Post; ClientDataSet1.ApplyUpdates(-1); end; procedure TForm1.DBComboBox1KeyPress(Sender: TObject; var Key: Char); begin // PEGAR O TEXTO DIGITADO E ATRIBUIR AO CAMPO if key = #13 then begin ClientDataSet1.Edit; ClientDataSet1MARCA.Value := DBComboBox1.Text; ClientDataSet1.Post; ClientDataSet1.ApplyUpdates(-1); end; end; abraço

Veja se é isto que está querendo uses shellapi; procedure TForm1.Button1Click(Sender: TObject); begin ShellExecute(handle, 'open',Pchar('explorer.exe'),Nil, Nil, SW_SHOWNORMAL); end; abraço

Pode até ter, teria que fazer alguns testes para saber, mas agora estou sem tempo .... tenho outros projetos para corrigir. Veja se voce consegue alguma coisa abraço

O InstallShield que acompanha Versões posteriores ao delphi 3. http://terrabrasil.softonic.com/ie/12648/I...ld_Professional abraço

Veja a diferença: AssignFile(F, dmempresa5.tabempresaimpressora.Text); Rewrite(F); AssignFile(F,'LPT1'); ReWrite(F); abraço

Tem vários programas que fazem isso ... não é necessário usar o delphi http://home.eunet.no/~pnordahl/ntpasswd/ abraço

O programador da página deve ter alterado o código para evitar esse tipo de coisa ... se voce tiver acesso ao codigo fonte no servidor poderá altera-la novamente. abraço

A assinatura está em texto ou em figura ?