Kikonanet

Olá, Suponha que você tenha um MainMenu com alguns ítens. Nesse exemplo, ele pega o evento onclik do 1º Menu e 1º opção do menu. No código do botão você coloca: MainMenu1.Items[0].Items[0].Click; Abs. Kiko

A função DaysBetween retorna um valor inteiro (integer) seria assim: Edit1.Text := IntToStr(DaysBetween(21/05/2000,21/05/2005)); Obs.: Se eu não me engano usa-se assim: DaysBetween(21/05/2005,21/05/2000) Abs. Kiko

Olá, Use a função DaysBetween (Declare no Uses DateUtils) Abs. Kiko

Olá, Faz o seguinte: - Coloca um Form na sua Aplicação e dentro do seu form, insira: QuickRep, QrBand, QrBandSubDetail, QRLabel (Para os nomes dos campos) e QRDBText (Para os dados); - No QrBand você coloca os QRLabel's; - NO QrBandSubDetail você coloca os QRDBText e nos QRDBText você seta as propriedades DataSet (Query1) e DataField (Campo na tabela). Agora no botão que vai chamar o relatório coloque: with Query1 do begin Close; SQL.Clear; SQL.Add('SELECT * FROM Tabela'); SQL.Add('WHERE Nome Like'+QuotedStr(Edit1.Text)); Open; end; Form.QuickRep.Preview; qualquer coisa posta ae. Abs. Kiko

Ok. Fechando... qualquer coisa você me manda uma MP para reabrir o tópico! Abs. Kiko

Coloca o código na propriedade SQL da Query. Abs. Kiko

Ele não apaga o conteúdo do Edit só coloca o cursor. Ex: Edit1.SetFocus; Edit1.SelStart:=0; // Start a partir do primeiro caracter!!! Não entendi essa sua pergunta! Abs. Kiko

você está usando Query?

Como assim botões já pronto?? você quer dizer as imagens?? Abs. Kiko

Olá Darlan, Existe um componente chamado VCLSkin que tem uns skins show de bola! Abs. Kiko

Olá, Você pode usar uma Query para pesquisar no ADO (ADOQuery) e no Paradox (Query) Exemplo: with Query1 do begin Close; SQL.Clear; SQL.Add('SELECT * FROM Tabela'); SQL.Add('WHERE Nome Like'+QuotedStr(Edit1.Text)); Open; end; Pra você criar um relatório você pode usar o Quick Report ou Rave. Na seção de dicas tem um exemplo de como criar um relatório usando Quick Report. http://scriptbrasil.com.br/forum/index.php...=30#entry266338 qualquer. coisa posta ae. Abs. Kiko

Olá, Quando você usa Edit1.Setfocus, você está chamando um procedimento (método) do TEdit (Classe). No caso Setfocus só vai colocar o cursor no Edit1, não vai retornar nenhum valor. Ex: Neste exemplo o Método LimpaCampos da Classe TForm1, só vai limpar o conteúdo dos Edits! procedure TForm1.LimpaCampos; begin Edit1.Text:''; Edit2.Text:''; Edit3.Text:''; Edit4.Text:''; end; Espero ter ajudado. Abs. Kiko

Olá, Dê uma procurada nestes sites. Na parte de códigos fontes! Active Delphi http://www.delphi.eti.br/ Abs. Kiko

Olá Tiago, você pode usar Distinct Ex: select Distinct(estado) from Tabela_Cidades Ele não te mostrará os estados repetidos Abs. Kiko

Olá, Declare no Uses Printers procedure ImprimeMemo(Conteudo: TStrings); var MemoFile :TextFile; P :Integer; begin Assignprn(MemoFile); Rewrite(MemoFile); for P := 0 to Conteudo.Count-1 do Writeln(MemoFile,Conteudo.Strings[P]); CloseFile(MemoFile); end; Para chamar ImprimeMemo(Memo1.Lines); Abs. Kiko

Olá Thiago, Tem uma função chamada MouseCoord que pega as coordenadas das células e colunas do DBGrid. você pode colocar no evento OnMouseMove do DBGrid e pegar as coordenadas. var Coord:TGridCoord; begin Coord:=DBGridBusca.MouseCoord(X,Y); Label1.Caption:='X:'+IntToStr(Coord.X)+' Y:'+IntToStr(Coord.Y); end; Dê uma olhadinha no help do Delphi... Abs. Kiko

Olá, Dê uma olhada nestes sites: http://www.activedelphi.com.br/ https://www.scriptbrasil.com.br/?class=1.2&...o=203&geral=667 E dê uma olhada tmb no tópico links. http://scriptbrasil.com.br/forum/index.php?showtopic=52637 Alguns sites você terá que se cadastrar. Abs. Kiko

Olá, Veja se te ajuda! Procedure Grava_Imagem_JPEG(Tabela:TTable; Campo:TBlobField; Foto:TImage; Dialog:TOpenPictureDialog); var BS:TBlobStream; MinhaImagem:TJPEGImage; Begin Dialog.InitialDir := 'c:\temp'; Dialog.Execute; if Dialog.FileName <> '' Then Begin if not (Tabela.State in [dsEdit, dsInsert]) Then Tabela.Edit; BS := TBlobStream.Create((Campo as TBlobField), BMWRITE); MinhaImagem := TJPEGImage.Create; MinhaImagem.LoadFromFile(Dialog.FileName); MinhaImagem.SaveToStream(BS); Foto.Picture.Assign(MinhaImagem); BS.Free; MinhaImagem.Free; Tabela.Post; DBISaveChanges(Tabela.Handle); End; End; procedure TForm1.Button1Click(Sender: TObject); begin Grava_Imagem_JPEG(TbClientes,TbClientesCli_Foto, Image1, OpenPictureDialog1); // TbClientes é o nome de alguma Tabela // TbClientesCli_Foto é um variavel da tabela do tipo Blob // Image1 é um componente // OpenPictureDialog1 é o componente para abrir a figura end; Obs: Eu não testei esse código Abs. Kiko

Olá, Esse VAR na frente da variável, significa que essa variável vai retornar algo. Pode ser inteiro, string, boolean ... Depende do tipo que ela é... Abs. Kiko

Olá, Você pode usar progressbar1.refresh; // faz o mesmo! Se você não achar, eu te envio por email. Abs. Kiko

Olá, Use para incrementar progressbar1.position:=progressbar1.position+1; Speedbar é um componente do RxLib.... Abs. Kiko

Olá, Adicione panel na StatusBar (propriedade Panels). - Ajuste a propriedade do panel conforme abaixo: Style = psOwnerDraw Width = 150 - Coloque uma ProgressBar no form e mude sua propriedade Visible para false. - No evento OnDrawPanel da StatusBar digite o código abaixo: procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar; Panel: TStatusPanel; const Rect: TRect); begin if Panel.Index = 0 then begin { Ajusta a tamanho da ProgressBar de acordo com o tamanho do painel } ProgressBar1.Width := Rect.Right - Rect.Left +1; ProgressBar1.Height := Rect.Bottom - Rect.Top +1; { Pinta a ProgressBar no DC (device-context) da StatusBar } ProgressBar1.PaintTo(StatusBar1.Canvas.Handle, Rect.Left, Rect.Top); end; end; qualquer coisa posta ae. Abs. Kiko

Olá, Me passa seu email, pois eu tenho um exemplo aqui! Abs. Kiko

Olá, Coloque o código no Evento OnCellClick do Grid 1... Insira 2 Querys e 2 Grids (Cada um com DataSource diferente)... você tem q ter um campo ID. var k, Id:string; begin // Grid 1 k:=DBGrid1.Fields[0].Text; // você pega o ID do campo no Grid 1 if k <> '' then begin with ADOQuery2 do begin Close; SQL.Clear; SQL.Add('SELECT * FROM Tabela1 WHERE Id='+k+''); // Ficar Atento!!! Open; //Salva nas variaveis os valores do registro pesquisado Id:=FieldByName('Id').AsString; end; end; // Grid 2 if Id <> '' then begin with ADOQuery2 do begin Close; SQL.Clear; SQL.Add('SELECT * FROM Tabela1 WHERE Id='+Id+''); // Ficar Atento!!! Open; end; end; end; qualquer coisa posta ae. Abs. Kiko

Olá Beto, você pode usar os componentes Zeos, ou DbExpress para se conectar com MySQL http://activedelphi.com.br/modules.php?op=...=article&sid=54 http://activedelphi.com.br/modules.php?op=...=article&sid=89 Para download do Zeos: http://sourceforge.net/projects/zeoslib/ http://www.activedelphi.com.br/forum/viewtopic.php?t=41193&sid=51a01860580c908812b6293662272061 qualquer coisa posta ae. Abs. Kiko