打开了一个FORM2，想通过筛选，重复不断的显示当天，数据表符合规定的记录。具体的代码如下，不过好像不能正常运行啊，大大们可否帮我看看
table1,table2都连接同意数据库。

[code delphi]
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Label1.Caption :=FormatDateTime('HH:mm',form1.ABSTable2.FieldByName('提醒时间').Asdatetime) ;
label2.Caption :=Form1.ABSTable2.FieldByName('提醒内容').AsString ;
form1.ABSTable1.Refresh ;
if (Form1.ABSTable2.eof) then
begin
if (FormatDateTime('yyyy-MM-dd',now)=FormatDateTime('yyyy-MM-dd',form1.ABSTable2.FieldByName('提醒日期').AsDateTime))
or (formatdatetime('ddd',now)=form1.ABSTable2.FieldByName('提醒周期').asstring) or
(FormatDateTime('MM-dd',Now)=FormatDateTime('MM-dd',Form1.ABSTable2.FieldByName('提醒月份').AsDateTime))
or (DateToStr(Form1.ABSTable2.FieldByName('提醒时间').AsDateTime) <>'') then
begin
if (Form1.ABSTable2.FieldByName('提醒日期').AsString = '' ) and (form1.ABSTable2.FieldByName('提醒周期').asstring='') and
(DateToStr(Form1.ABSTable2.FieldByName('提醒时间').AsDateTime) <>'')and(form1.ABSTable2.FieldByName('提醒月份').Asstring='') then
Form1.ABSTable2.first;
end
else
Form1.ABSTable2.next;
end;
//end;
[/code]

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

幫你排一下   因為我看起來好雜  希望你不會介意

當然我也想知道這個的結果啦 哈哈

相信熱心的ktop會員們會回覆你的~~~ 加油@@

===================引 用 zhouying82 文 章===================
打开了一个FORM2，想通过筛选，重复不断的显示当天，数据表符合规定的记录。具体的代码如下，不过好像不能正常运行啊，大大们可否帮我看看
table1,table2都连接同意数据库。

[code delphi]
procedure TForm2.Timer1Timer(Sender: TObject);
begin
Label1.Caption :=
FormatDateTime('HH:mm',form1.ABSTable2.FieldByName('提醒时间').Asdatetime) ;

label2.Caption :=
Form1.ABSTable2.FieldByName('提醒内容').AsString ;

fForm1.ABSTable1.Refresh ;

if (Form1.ABSTable2.eof) then
begin
if (FormatDateTime('yyyy-MM-dd',now) =
FormatDateTime('yyyy-MM-dd',form1.ABSTable2.FieldByName('提醒日期').AsDateTime)) or

(FormatDatetime('ddd',now) =
Form1.ABSTable2.FieldByName('提醒周期').asstring) or

(FormatDateTime('MM-dd',Now) =
FormatDateTime('MM-dd',Form1.ABSTable2.FieldByName('提醒月份').AsDateTime)) or

(DateToStr(Form1.ABSTable2.FieldByName('提醒时间').AsDateTime) <>'') then
begin
if (Form1.ABSTable2.FieldByName('提醒日期').AsString = '' ) and
(Form1.ABSTable2.FieldByName('提醒周期').asstring='') and
(DateToStr(Form1.ABSTable2.FieldByName('提醒时间').AsDateTime) <>'') and
(Form1.ABSTable2.FieldByName('提醒月份').Asstring='') then
Form1.ABSTable2.first;
end
else
Form1.ABSTable2.next;
end;
//end;
[/code]

------
尋找對的人，對的方法，對的態度跟對的環境

編輯記錄

這程式設計方法還有討論的空間, 開table 用timer 往下一筆來跑, timer 的速度設多少? 使用者要多久才能刷新一輪? 開table 每一筆資料都跑if then else 會不會大部分時間都在跑沒用的資料, table 如果很大, 整個邏輯是否能符合需求 ....這設計架構本身有問題, 時間單位有月,周,日,時,分, 然後用TIMER 去跑 DataSet.next ?

------
額有朝天骨,眼中有靈光

不是啊，就是先通过FILTER属性挑选当日的条目，在进行显示啊。

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !

果然是一門很深的學問 = =""

學習.....

另外跟小傑克大大請安 好久不見~~~

近來可好^^

------
尋找對的人，對的方法，對的態度跟對的環境