"Nesse Tutorial estarei ensinando a fazer pesquisa de datas so pelo mes ou pela data completa, um codigo muito importante em um sistema com certeza todo sistema precisa realizar uma consulta por data, seja em relatorios, ou em uma outra tela qualquer de seu sistema."Primeiro coloque 2 Maskedit ou DateTimePicker em seu sistema,declare a uses DateUtils, e pode colocar o seguinte codigo em um buttonSo pelo mesTABELA.Close;TABELA.SQL.Clear;TABELA.SQL.Add(' Select *');TABELA.SQL.Add(' From tabela where (DatePart(month, campo) * 100 + DATEPART(day, campo) between :Dataini and :Datafim)');TABELA.Parameters.ParamByName('dataini').Value := MonthOf(DateTimePicker1.Date) * 100 + DayOf(DateTimePicker1.Date);TABELA.Parameters.ParamByName('datafim').Value := MonthOf(DateTimePicker2.Date) * 100 + DayOf(DateTimePicker2.Date);TABELA.open; Pela data completaTABELA.Close; TABELA.SQL.Clear; TABELA.SQL.Add(' Select *'); TABELA.SQL.Add(' From TABELA where CAMPO between :dataini and :datafim'); TABELA.Parameters.ParamByName('dataini').Value := StrToDate(MaskEdit1.Text); TABELA.Parameters.ParamByName('datafim').Value := StrToDate(MaskEdit2.Text); TABELA.open; Bom pessoal era isso que eu tinha para compartilhar com voces, qualquer duvida pode comentar ai que estarei ajudando no que puder, ate a proxima postagem. "Olhando no site linha de Codigo um outro otimo site para Delphi, achei este tutorial entao postei aqui para voces pois achei muito interessante e funcional"Neste artigo vou utilizar Banco de Dados MySQL, mas nada impede que se possa usar outros tipos (Interbase/FireBird ou ate mesmo o velho Paradox e Dbase).Estrutura das TabelaTabela usersInclua alguns registros para teste.Definindo um Data ModuleNo Delphi crie uma nova aplicacao e em File->New->Other escolha Data Module, salve o nosso Data Module como Modulo e na propriedade Name digite Dm.Agora vamos a paleta de componentes na pagina dbExpress e inclua um SQLConnection e um SQLQuery. Faca as seguintes alteracoes nos componentes.SQLConnection1Configure uma conexao MySQL.Mude as Propriedades:LoadParamOnConnect = TrueLoginPrompt = FalseConnected = TrueSQLQuery1Name = SqUsersSQLConnection = SQLConnection1SQL = select * from users order by loginActive = TrueAdicione todos os Campos ao SQLQuerySeu Data Module deve esta como mostrado abaixo.Configurando o FormularioNo form1 vamos incluir um ListView e ImageList (ambos da pagina Win32) . E mude as propriedades como mostrado abaixo.ListView1GridLines = TrueSmallImages = ImageList1RowSelect = TrueViewStyle = vsReportClique duas no Listview e inclua tres colunas. Conforme mostrado abaixo.Vamos muda as propriedades:0 TListColumnCaption = LoginWidth = 1501 TListColumnCaption = Nome do UsuarioWidth = 2502 TListColumnCaption = NivelWidth = 55Alignment = taCenterAgora nossas colunas estarao assim.Agora clique duas vezes no ImageList1 e escolha os icones que serao exibidos.Vamos usar a imagem 0 para usuarios com Nivel igual A e a imagem 1 para usuarios com Nivel O.Criando o procedimentoAgora vamos criar o procedimento responsavel por mostrar os dados da tabela no ListView.No editor de codigo na sessao public vamos declara o procedimento CriarLista e na sessao implementation adicione nosso Data Module (Modulo). Conforme mostrado abaixo.Agora vamos ao codigoprocedure TForm1.CriarLista;varListItem: TListItem; // Criamos uma variavel para guarda os itens do Listviewbegin// Limpa o Conteudo Existente no ListViewListView1.Clear;// Posicionamos no Primeiro RegistroDm.SqUsers.First;while not Dm.SqUsers.Eof dobegin// Adicionamos um Item ao ListViewListItem := ListView1.Items.Add;// Verifica qual o Icone deve ser apresentadoif Dm.SqUsersnivel.Value = "A" thenListItem.ImageIndex := 0elseListItem.ImageIndex := 1;// Adicionamos dados a Coluna LoginListItem.Caption := Dm.SqUserslogin.Value;// Adicionamos a Coluna Nome do UsuarioListItem.SubItems.Add(Dm.SqUsersnome_usuario.Value);// Adicionamos a coluna NivelListItem.SubItems.Add(Dm.SqUsersnivel.Value);// Mudamos para o proximo registroDm.SqUsers.Next;end;//Seleciona a primeira linha do ListView se existir dados na tabelaif Dm.SqUsers.RecordCount > 0 thenListview1.ItemIndex := 0;end;Agora no Evento OnShow