Darlan

Valeu pela ajuda pessoal vou baixar o componente para ver como funciona.. valeu capablanca,s3c, pela força.. Darlan

Bom dia pessoal Alguém saberia me dizer como eu faço para pegar o nome dos computadores que estão na minha rede, tem alguma funçao, ou talvez algum componente que faça isso? Darlan

Procedure Reindexar(DataBase : TDatabase; Tabela : TTable); var List : TStrings; i : Integer; begin try Database.Connected:=true; except Raise; Exit; end; List:=TStringList.create; session.GetTableNames(DataBase.aliasName, '', true, false,List); for i:= 0 to List.Count - 1 do begin if (Entidade2) then break; application.ProcessMessages; Tabela.close; Tabela.TableName:=List; Try Tabela.open; Check(dbiRegenIndexes(Tabela.Handle)); except Raise; end; end; List.Free; Database.Connected:=false; end; Para executar a rotina você pode Incluir quando sua aplicação esta sendo iniciada Adicionando a seguinte linha. No evento oncreate do Datamodulo Reindexar(Dados,Table1); //Dados Nome imposto por mim ao componente Database e Table1 o componente inserido na aplicação.

Era isso mesmo, obrigado deu certo... Darlan

Galera.. Gostaria de saber se tem como eu mover uma tela de um programa, clicando no corpo da mesma, hoje para mover uma tela preciso clicar na barra de títulos e arrastar para o local desejado, teria como eu arrastar esta tela clicando em qualquer parte dela...? Darlan...

Qual banco você usa, pois tipo, mysql e paradox, guardam as datas no formato, "mm, dd, aaaa"....os outros bancos não lembro qual formato guardam as datas... Darlan

Desta forma que eu te passei ele vai pegar no formato "mm,dd,yy".. Darlan...

você pode criar duas variáveis tipo sting; tmp1, tmp2: string dai com o copy você inverte as datas... tmp1 := copy(data_ini.Text,4,2)+'/'+copy(data_ini.Text,1,2)+'/'+copy(data_ini.Text,7,2); tmp2 := copy(data_fim.Text,4,2)+'/'+copy(data_fim.Text,1,2)+'/'+copy(data_fim.Text,7,2); Darlan

no o object inspector você vai ver um campo chamado char case, mude ele para Upper case Darlan

Bem usando query eu acho mais fácil ... você vai precisar do componente query, e de um edit para passar o campo que vai te retornar a consulta, geralmente é o código... no evento onexit do edit, você pode fazer a consulta.... query.close; query.sql.clear; query.sql.add('select nome from cliente where cod_cliente = "' Edit1.text"' '); query.open; Darlan

tente assim ShellExecute(GetDesktopWindow,'open',pchar('www.sua_pagina.com.br'),nil,nil,sw_ShowNormal); Darlan

Ele esta conseguindo conectar ao servidor? você pode usar o seguinte comando para verificar se conectou... if not NMSMTP1.Connected then raise Exception.Create('Erro de conexão'); Darlan

Bem você precisa da table, de um datasource e do campo do código, no caso o edit... você ativa a table, da dois cliques na mesma e coloca os campos no object inspector que vai apareçer, clica no campo que você vai validar, no caso o código, na aba Events, você vai ver onSetText, ali você coloca o código para a validação Darlan

Eu faço a seguinte verificação no onsettext do campo da tabela: procedure TForm1.Table1CodigoSetText(Sender: TField; const Text: String); begin Query1.close; Query1.SQL.Clear; Query1.sql.add('select codigo from tabela where codigo = '+text); Query1.Open; if not Query1.IsEmpty then begin showmessage('Código já inserido !'); Table1.FieldByName('codigo').AsString := ''; DBEdit1.SetFocus; end else Table1.FieldByName('codigo').AsString := text; end; assim ele compara se o código q esta na tela é igual a algum q já exista na tabela e não deixa inserir... Darlan

neste site, tem um tutorial sobre este assunto, talvez possa te ajudar http://www.linhadecodigo.com.br/dicas.asp?...ica=1095?=14 Darlan

Tente assim.....

Neste site tem... http://superdownloads.ubbi.com.br/download/i12405.html Falow

Ricardo, na palheta rxtools ( precisa do rxlib instalado) tem um componente chamado rxgradientecaption, com ele você pode mudar a cor, e até fazer um esquema de gradiente... Darlan

tente assim: procedure TfmLogin.Button1Click(Sender: TObject); begin Tabela.First; //Pula pro primeiro registro while not Tabela.Eof do //Enquanto não for o fim da tabela begin if edit1.Text = Tabela.fieldbyname('Login').asstring then begin if edit2.Text = Tabela.fieldbyname('Senha').asstring then begin form.show // abre sua aplicação fmLogin.Close; abort; //Para não aparecer a chamada de erro no final end else begin ('Senha inválida!') abort; end; end; Tabela.next; end; showMessage('Usuário não existe.'); //Se chegar no fim da tabela e não encontrar end; Falow

Opa... você esta usando query para fazer a pesquisa? Darlan

To usando o Drive......

coloque esta linha WinHelp(0, 'seuarquivo.hlp', HELP_CONTEXT, 1); falow...

+ - isso tipo o padrão para uma impressora é 60 linhas e 80 colunas, desde que não seja condensado não é?... o que eu to querendo, aumentar o meu numero de colunas para impressão, ou seja vou poder imprimir 132 colunas ao invéz de 80 que é o padrão, no cobol eu consigo fazer isso, mas no delphi não encontrei uma forma de setar este parâmetro ou existe uma outra forma de imprimir mais colunas no relatório? não sei se me entenderam...?

Provavelmente esta usando, você pode fazer assim na propiedade panels da statusbar, adicione um panel novo no event oncreate do formulário que esta a statusbar coloque StatusBar1.Panels[0].Text := 'Meu Programa'; Assim apareçerá " Meu programa" na barra de status... Falow

você esta usando o StatusBar?