一个小问题，请大家帮忙(0分)

3

3897113blueappl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-18

• #1

基本思想是这样，我有一个汽车销售系统，其中分期付款客户档案中有一字段每月付款日期，
我想做一个判断，当每月付款日期等于系统当前日期时，就会出现一个提示，说，有客户到
了付款时间了我写语句是这样的
if adoquery1.FieldByName('gcr_myhkrq').AsDatetime=strtodatetime(FormatDateTime
('yyyy-mm-dd',Date)) then
showmessage('有客户到了付款时间，请查对，谢谢')；这样它就检查我刚输入的记录，
而以前输入的不检查，这是为什么，另外，是在adoquery1的那个属性中写，

 

3

3897113blueappl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-18

• #2

大家帮帮忙啦，十分感谢

 

S

sailorboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-18

• #3

多帖一点出来看一下

 

D

dreamliu2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-18

• #4

AdoQuery.open;
while not AdoQuery.eof do
begin
if adoquery1.FieldByName('gcr_myhkrq').AsDatetime=strtodatetime(FormatDateTime
('yyyy-mm-dd',Date)) then
showmessage('有客户到了付款时间，请查对，谢谢')；
AdoQuery.next
end;

 

L

lanbing1400

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-18

• #5

AdoQuery.open;
AdoQuery.first;
while not AdoQuery.eof do
begin
if adoquery1.FieldByName('gcr_myhkrq').AsDatetime=strtodatetime(FormatDateTime
('yyyy-mm-dd',Date)) then
showmessage('有客户到了付款时间，请查对，谢谢')；
AdoQuery.next
end;

 

S

sailorboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-19

• #6

up

 

D

delphi?

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-19

• #7

[][][][!][^][?]