在Delphi中使用日期选择器用于数据库查询，用户搜索满足选定日期条件中的数据，使用日期选择器可很好的提高日期格式的准确性，避免数据库出错和查询不到数据的情况，本例的运行效果请参见测试截图。相关代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var mydate:tdatetime;
Begin
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add('Select * From xsd where 录入日期 =:a');
ADOquery1.Parameters.ParamByName('a').Value :=FormatDateTime('yyyy-MM-dd',DateTimePicker1.Date);
ADOquery1.Open;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
