███Delphi access数据库 提醒功能怎么实现？请高手赐教，小弟不甚感激！████

Question

本帖最后由 wallyhost 于 2012-05-11 13:39:11 编辑

Answer 1

如果是本地存储就TIMER呢，如果是服务器就心跳，当然能主动推送是最好了（最难的吧）。

Answer 2

ACCESS也只能在本机实现的，再加上一个TIMER事件获取“当前日期”再在数据库中查询这个日期
如果有就显示到相应控件（label1）中即可
要是想以服务器方式读取的话，那就尽量用MSSQL，MYSQL，ORACLE之类的网络数据库了

Answer 3

在timer空间写下大概是如下代码
//读取数据库，
Query2.close;
Query2.SQL.Clear;
Query2.SQL.add('select 日期,提醒内容 from 表格名称);
Query2.Prepared;
Query2.Open;
while not Query2.Eof do
begin
   if strtodate(trim(Query2.Fields[0].AsString))>date(now-5) then
begin
showmessage(trim(Query2.Fields[1].AsString));//显示该行提醒内容
不知道你用的是什么表格，在这行改变此表格此行的颜色
end;思路是这样，具体代码你再测试下
 Query2.Next;
end; 

Answer 4

这个要看你的程序是一直运行着，还是每天都会打开多次，如果是一直运行着的话就用类似定时器的方式，如果只每天都要打开多次的话，那就在每次打开某个窗口的时候查询一下，如果又满足要求的结果，就做个提示窗口显示出来，这样不至于每时每刻都要OnTime事件去查询。

Answer 5

我是ADO连接的，不是BDE，不是parodox数据库，是Access数据库。TQuery1无法连接.mdb数据库。调试失败。

Answer 6

很简单的东西，用Timer即可你的数据是按天来提示的，所以
登陆软件时，查询1次;其它时候计时,Trimer到0点时再查询1次，没必要每秒都去查询

Answer 7

1.用SQL中dateadd函数实现 
2.假如你用的是DBGRID，在DrawColumnCell事件中处理，来实现背景黄或红

Answer 8

是程序运行的时候提醒吧 
 设一个全局变量 iISReminder 
每当程序刚运行时 获取系统时间 与你要查数据库记录的时间
取时间差 
如果 差5天以内 bISReminder =1
过期 =2  正常=0
然后根据 bISReminder 值 显示提示信息 或 设置显示的单元格的颜色如果是多条信息 即根据需要 设置个全局数组保存各个 bIsReminder值