我的程序主要是要统计和当前日期相等的记录的总数。但是程序好像总是得出的是当前数据库里面所有的记录。请各位大大帮我看看那。


[code delphi]
function TForm1.DataRecord: Integer;
var index,today:integer;
begin
today:=0;
for index := 0 to ABSTable1.RecordCount - 1 do
if DateToStr(ABSTable1.FieldByName('提醒日期').AsDateTime) <>'' then
if DateToStr(now)=DateToStr(ABSTable1.FieldByName('提醒日期').AsDateTime) then
today:=today 1;
result:=today;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ABSTable1.Refresh ;
StatusBar1.Panels.Items[1].Text :='今天您有' inttostr(datarecord) '条消息';
end;
[/code]

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

編輯記錄

我又重新改了一下代码，还是不对，这次显示为0条了，但是我数据库的确是应该有一条。是不是我的这个datarecord函数的位置放的不对？难道不应该放在FORM的oncreate事件下？

[code delphi]
function TForm1.DataRecord: Integer;
var index,today:integer;
begin
today:=0;
for index := 0 to ABSTable1.RecordCount - 1 do
if DateToStr(ABSTable1.FieldByName('提醒日期').AsDateTime) <>'' then
if FormatDateTime('yy:nn:dd',now)=FormatDateTime('yy:nn:dd',ABSTable1.FieldByName('提醒日期').AsDateTime) then
today:=today 1;
result:=today;
end;
[/code]

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

yy:mm:dd

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

應該是 if FormatDateTime('yy:mm:dd',now)=FormatDateTime('yy:mm:dd',ABSTable1.FieldByName('提醒日期').AsDateTime) then 才對

===================引 用 zhouying82 文 章===================
我又重新改了一下代码，还是不对，这次显示为0条了，但是我数据库的确是应该有一条。是不是我的这个datarecord函数的位置放的不对？难道不应该放在FORM的oncreate事件下？

[code delphi]
function TForm1.DataRecord: Integer;
var index,today:integer;
begin
today:=0;
for index := 0 to ABSTable1.RecordCount - 1 do
if DateToStr(ABSTable1.FieldByName('提醒日期').AsDateTime) <>'' then
if FormatDateTime('yy:nn:dd',now)=FormatDateTime('yy:nn:dd',ABSTable1.FieldByName('提醒日期').AsDateTime) then
today:=today 1;
result:=today;
end;
[/code]

------
先查HELP
再查GOOGLE
最後才發問

沒人有義務替你解答問題
在標題或文章中標明很急
並不會增加網友回答速度

Developing Tool:
1.Delphi 6
2.Visual Studio 2005
3.Visual Studio 2008
DBMS:
MS-SQL

试过了，还是不对，数据库里面有2条记录，其中一条记录是今天的，另外一条不是，是不是这个函数的位置放的不对，是不是要在FORM的ONCREATE里面，还是TABLE的某个事件中？

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

知道问题所在了。
忘了添加
ABSTABLE1.FIRST;
ABSTABLE1.NEXT;
了，使循环语句始终都在第一条。不过还是要感谢各位大大的帮助。

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