大家请进来看看这段程序！小弟有问题求教！

Question

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Present:TDateTime;
  Year,Month,Day: Word;
  days: array[1..7] of string;begin
  Present:= Now;
  DecodeDate(Present,Year,Month,Day);
  Label1.caption:=InttoStr(Year)+'年'+IntToStr(Month)+'月'+InttoStr(Day)+'日';
  Label2.caption:=TimeToStr(Time);
  days[1] := '星期一';
  days[2] := '星期二';
  days[3] := '星期三';
  days[4] := '星期四';
  days[5] := '星期五';
  days[6] := '星期六';
  days[7] := '星期日';
  label3.Caption:=('今天是'+days[DayOfWeek(Present)])问题一：这样只能实现在days[1] := '星期一';里面固定录入内容，但是如何与数据库连接呢？
        通过数据库来随时修改时间，比如说我希望可以显示自己希望的内容。
问题二：如何实现在某月某日条件符合后就会自动开机提示days[1] := '星期一';的内容？并且只提示一次？
谢谢高手们！

Answer 1

1.看了半天还是看不出你想说什么?*&^*&^*&^
2.可以让程序一开机就运行,然后检测数据库与数据库中的数据对比如果有相同日期的内容就弹出提示~

Answer 2

不太懂你的意思 ,1,
var
  Tmp: TDateTime;
  Str : String;
begin
  Tmp := Now;
  case DayOfWeek(Tmp) of
    0:  Str := '日';
    1:  Str := '一';
    2:  Str := '二';
    3:  Str := '三';
    4:  Str := '四';
    5:  Str := '五';
    6:  Str := '六';
  end;
  Self.Caption := '星期' + Str;
end;2, 设为自动启动, 比如加入注册表都可以, 然后判断星期几并显示, 
   每天提示一次吗?  可以写注册表或外部配置文件