AllNet

Olá pessoal, tenho um checkbox e um textinput, este último com a propriedade visible=false. Como faço para quando eu marcar o checkbox o textinput ficar true, e quando desmarcar o checkbox voltar para false. Obrigado.

procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception); begin if Pos(UpperCase('could not translate host name'), UpperCase(E.Message))>0 then begin ShowMessage('Impossível conectar com o banco de dados informado.'); end else begin raise Exception.Create(E.Message); end; end; funcionou perfeitamente. :rolleyes: :rolleyes: :rolleyes: vlw Jhonas.

intenderam minha pergunta?

Olá pessoal, estou usando em meu sistema o componente Zeos Access para conectar com o postgre, e na tela de login tem a opção para trocar o endereço do servidor. dm.ZConnection1.HostName:= edtHost.Text; Porem se eu tentar conectar com um endereço invalido, da um erro no programa. a questão é: Como eu faço para que quando der este erro, apareça uma mensagem feita por mim, tipo: Impossivel conectar com o banco de dados. Obrigado.

uses ExtActns, ... type TfrMain = class(TForm) ... private procedure URL_OnDownloadProgress (Sender: TDownLoadURL; Progress, ProgressMax: Cardinal; StatusCode: TURLDownloadStatus; StatusText: String; var Cancel: Boolean); ... implementation ... procedure TfrMain.URL_OnDownloadProgress; begin ProgressBar1.Max:= ProgressMax; ProgressBar1.Position:= Progress; end; function DoDownload; begin with TDownloadURL.Create(self) do try URL:='http://z.about.com/6/g/delphi/b/index.xml'; FileName := 'c:\ADPHealines.xml'; OnDownloadProgress := URL_OnDownloadProgress; ExecuteTarget(nil); finally Free; end; end; { Note: URL property points to Internet FileName is the local file } Obrigado Jhonas.

olá pessoal, como eu faço para fazer download e salvar no computador tudo ao mesmo tempo, ou seja, sem abrir aquela janela para salvar o arquivo. salvar o arquivo em um local onde será definido no delphi mesmo. Obrigado.

vlw pela ajuda pessoal. <? $hoje = date("d-m-Y"); $data = "14-08-2008"; $dif = strtotime($data) - strtotime($hoje); $final = ($dif / 86400); $final1 = floor($final); echo "$final1"; ?>

aew galera, eu já tinha procurado no forum, e o que eu quero é pegar uma data e diminuir por outra data e ter o resultado em dias. O ikkinet deu uma resposta, mais eu não entendi.

olá pessoal, tenho uma variavel com uma data (01/01/2008), e outra varial com outra data (30/01/2008). Como eu faço para saber a diferença entre as duas datas, em dias? 01/01/2008 30/01/2008 = 29 dias. Obrigado.

é isso mesmo, vlw Joao Paulo e Jhonas.

olá Jhonas, eu coloquei este código: procedure MouseCell(Grid: TStringGrid; var Coluna, Linha: integer); var Pt: TPoint; begin GetCursorPos(Pt); Pt := Grid.ScreenToClient(Pt); if PtInRect(Grid.ClientRect, Pt) then Grid.MouseToCell(Pt.X, Pt.Y, Coluna, Linha) else begin Coluna := -1; Linha := -1; end; end; procedure TfrmProcurarCliente.StringGrid1DblClick(Sender: TObject); var Coluna, Linha: integer; begin MouseCell(StringGrid1, Coluna, Linha); if (Coluna >= 0) and (Linha >= 0) then Caption := 'Coluna: ' + IntToStr(Coluna) + ' - ' + 'Linha: ' + IntToStr(Linha) else Caption := 'O mouse não está no StringGrid'; end; porém ele mostra a linha e a coluna, e eu queria que ele pegase os dados dentro da linha ou coluna. Obrigado.

Bom dia pessoal, tenho em em form uma striggrid, e no evento onshow do form o seguinte codigo: begin StringGrid1.cells[0, 0]:= ' Pedido'; StringGrid1.cells[1, 0]:= 'Data'; lbNome.Caption:=''; dm.ZQuery1.SQL.Clear; dm.ZQuery1.SQL.Add('SELECT codpedido, data'); dm.ZQuery1.SQL.Add('FROM pedidos'); dm.ZQuery1.SQL.Add('WHERE cliente = :cliente AND status = "T"'); dm.ZQuery1.ParamByName('cliente').AsInteger := StrToInt(frmRelatorioPedido.edtCliente.Text); dm.ZQuery1.Open; while not dm.ZQuery1.EOF do begin StringGrid1.rowcount := StringGrid1.rowcount + 1; StringGrid1.cells[0, StringGrid1.rowcount -2 ]:= trim(dm.zquery1.fieldbyname('codpedido').asstring); StringGrid1.cells[1, StringGrid1.rowcount -2 ]:= trim(dm.zquery1.fieldbyname('data').asstring); dm.zquery1.next; end; dm.ZQuery1.Close; end; isto para quando abrir o form aparecer os pedidos do tal cliente. minha dúvida é como fazer para selecionarmos uma linha da stringgrid e quando clicar nesta linha, ou dar um enter nesta linha, eu pegar o código do pedido (codpedido)? Fui claro? Obrigado.

Olá pessoal, uso o Zeos Access para conectar o delphi ao mysql, faço isso aqui na minha maquina, como deva fazer para me conectar ao banco de dados mysql do meu site??? Obrigado.

è isso mesmo, Valeu Renato.

aew galera não entendi nenhum dos dois exemplos.

minha tabela tem um campo chamado valor, do tipo decimal. eese campo quarda os valores dos cheques cadastrados. preciso somar esse valores de todos os cheques cadastrados. mysql.

pessoal quero verificar se a senha é igual a confirmação da senha. //comparar senha(verificar se as senha estao iguais) senha1 = d.senha.value.copy; senha2 = d.senha2.value.copy; if (senha1 != senha2) { alert("Senhas diferentes!"); d.senha.focus(); return false; } porque não funciona?

Olá pessoal, tenho um Database com algumas tabelas e informaçoes dentro destas tabelas, como faço para salva-las em um arquivo e depois como faço para carregar em outro computador. Obrigado.

Obrigado Graymalkin.

Olá pessoal, estou tentando baixer o postgresql, mais a quando eu descompacto a pasta não tem nenhum instalador ali dentro, so um monte de arquivos sem extenssão e outras pastas. Obrigado.

Olá pessoal, atualmente estou aprendendo a mexer no delphi, então decidi tambem aprender a mexer com banco MYSQL. Até que já da para o gasto, mais agora quero prender a mexer no banco sql e tal. tenho instalado em minha maquina o MYSQL server 5.0, e uso o MySQL Command Line Client para criar as tabelas e tal. Agora gostaria de saber qual o banco SQL devo instalar, e qual gerenciador devo usar para criar as tabelas, assim como no MYSQL, que é por comandos. Grato a todos.

olá João Paulo, é isso ai funcionou certinho... Muito obrigado pela ajuda, e obrigado tambem ao micheus.

Olá Micheus, não consegui fazer por esses exemplos, então não estou mais usando mais os componentes do data controls, agora para inserir os dados eu coloquei o seguinte código em um botao: zQuery1.Active := False; zQuery1.SQL.Clear; zQuery1.SQL.Add('insert into dados (nome, cidade) values ('+''''+edit1.Text+''''+','+''''+edit2.Text+''''+') '); zQuery1.ExecSQL; tentei usar o select from para a consulta mais não consegui. Obrigado.

Olá pessoal, estou usando o componente zeos access para conectar ao mysql, e na tela de cadastro uso o DBNavigator, com os botoes desativados, exceto o nbpost, para ter o botao de cadastro. O que devo fazer para quando eu clicar no botao de cadastro, primeiro ele ver se eu já fiz esse mesmo cadastro. Ou seja, não deixar eu cadastrar duas vezes a mesma pessoa. Grato.

não intendi nada, será que alguém tem alguma coisa mais "simples"???? Obrigado ai Jhonas.