怎样在程序里加个自动提示功能。。。

Question

想在程序里加个自动提示功能应该怎样做呀。如提示本月有谁生日之类的
即当记录的时间为当前月份，在程序打开时就提示。。
思路应该怎样做或可以给个例子吗
另我用ADO的表添加记录，当POST后再用ADOQUERY表查询显示最新的所有记录，，
但是当添加一条记录后，为何要查询几次后才能显示得到记录
刚学DELPHI，所以谢谢各位高手指点下问题解决后马上结贴谢谢！

Answer 1

1、每当软件启动的时候，检查数据库。然后把时间取出来跟系统时间对比。要是有哪条记录的月份等于系统时间的当前月。那么就提示。
2、你在Post后更新一下数据库。然后再重新显示。应该没问题的。或者把数据库先关掉。然后再打开。

Answer 2

1、可以在程序的启动部分增加一个函数，用来判断系统的日期是否和当前的数据库里的记录一致就可以了。
过程函数可以这样写：
  Procedure Get_Birthday;
  var s:string;
  begin
    s:=Formatdatetime('MM',Now);
    //--------
    根据S进行查询
    //----------
  end;2、增加记录后AdoQuery1.Requery;或者干脆不用Post直接用SQL语句写，然后刷新。

Answer 3

procedure TForm1.FormShow(Sender: TObject);
var
m:string;//当前月份
bday:TDateTime;
begin
  m:=FormatDateTime('mm',Date());  //取得当前月份为10
  ADOQuery1.First;
  while not ADOQuery1.Eof do
  begin
  bday:=ADOQuery1.FieldValues['birthday'];  //取得生日
  if m=FormatDateTime('mm',bday) then
  ShowMessage('本月有'+ADOQuery1.FieldValues['name']+'的生日');
  ADOQuery1.Next;
  end;end;
//表中name为姓名字段,birthday为生日（日期时间型）字段
//ADOQuery1连接至此表