统计数据库记录的问题 |
缺席
|
zhouying82
高階會員 ![]() ![]() ![]() ![]() 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
我的程序主要是要统计和当前日期相等的记录的总数。但是程序好像总是得出的是当前数据库里面所有的记录。请各位大大帮我看看那。
[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 ! 編輯記錄
taishyang 重新編輯於 2009-02-11 11:36:52, 註解 歸類成[問題]‧
|
zhouying82
高階會員 ![]() ![]() ![]() ![]() 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
我又重新改了一下代码,还是不对,这次显示为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 ! |
st33chen
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:15 回覆:591 積分:1201 註冊:2005-09-30 發送簡訊給我 |
|
eaglewolf
資深會員 ![]() ![]() ![]() ![]() ![]() 發表:4 回覆:268 積分:429 註冊:2006-07-06 發送簡訊給我 |
應該是 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 |
zhouying82
高階會員 ![]() ![]() ![]() ![]() 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
|
zhouying82
高階會員 ![]() ![]() ![]() ![]() 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |