ช่วยหน่อยครับ ขอโค้ด เช็คว่าวันที่นี้เราขายอะรัยไปมั้งอะครับ มันสำคัญมากอะครับ

*ผมบันทึกข้อมูลลงฐานข้อมูลประมาณนี้อะครับ
*แล้วผมอยากทราบว่าในวันที่หรือเดือนนี้เราขายอะไรไปบ่างอะครับ
begin
with data do
begin
try
data.Insert;

FieldByName('s1_name').AsString := txtname.Text; //ชื่อสินค้า
FieldByName('s1_number').AsString := txtnumber.Text; //จำนวนที่ขาย
FieldByName('s1_salesprice').AsString := txtsalesprice.Text; //ราคาต่อหน่วย
FieldByName('s1_sumprice').AsString := txtsumprice.Text;//ราคารวม
FieldByName('s1_total').AsString := txttotal.Text;//ยอดทั้งหมด
FieldByName('s1_day').AsString := datetostr(datetimepicker1.Date); //วัน
FieldByName('s1_time').AsString := TimetoStr(now);//เวลา

data.Post;
data.Refresh;

Messagedlg(' เพิ่มสินค้า ',mtConfirmation,[mbOk],0);
//cmdClearClick(Sender);
//txtname.SetFocus;
//cmdClear.Enabled :=False;

Except
cancel;
//messagedlg('เพิ่มไม่ได้',mtError,[mbOk],0)
end;
end;

end;