这是我在大富翁的第二个贴子，请不要打击我!(50分)

O

okzjq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #1

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1331189
这里我在大富翁的第一个贴子，只有一个朋友回了“有意思”，下面是我的问题：

用TADOQuery连接本地数据库，在ADOQuery中添加了一个calculated field，设置
　Query.FieldByName('NO').AsInteger:=Query.RecNo;
程序开始运行时，第一条记录显示－1，其余显示正确，当Query.Last时，最后一条记录
也是显示－1，其余显示正确。

后来我变一种方法：
Query.FieldByName('No').AsInteger:=abs(Query.RecNo);
if Query.Eof then
begin
Query.FieldByName('No').AsInteger:=Query.RecordCount;
end;

可当Query.first是，No的值却为Query.RecordCount!!!
请问怎样判断当前记录是最后一条记录？

 

哈

哈利波特

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #2

i:=1;
query.open;
while not query.eof do
begin
query.fieldbyname('no').asinteger:=i;
inc(i);
query.next;
end;

 

T

twos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #3

Query.RecNo一般是不正确，这个属性最好不要用
如果Query.RecordCount有问题，可以query.last; Query.first;这样，一般Recordcount就正确了
Query.eof=true则是最后一条
query.bof=true则是第一条
Query.bof and query.eof 则结果集是空集

 

O

okzjq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #4

to 哈利波特：你和办法我试了，但也有问题!程序运行时，显示前面5条记录，序号为1--5，
但我执行 Query.Last后，最后几条记录的序号为6--10，即中间的记录没有分配到序号!!

to twos: Query.RecordCount没问题，Query.Last,Query.first,不是procedure嘛，能用来
判断当前记录是否为最后一条记录嘛？我上面的意思是说，上面程序运行后，当执行
query.first后，No字段却显示为记录的总数而不是一？

 

王

王公子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #5

你的开发环境是什么，还有你的ADO的版本是什么?

 

S

smokingroom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #6

在面向數據集的Database中, 記錄號是沒有什麼意義的.

 

T

twos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #7

你的意思我不懂
不过访问本地据库，直接使用BDE好了
我认为如果直接使用BDE，你说的问题应该不会有
如果要修改结果集，Query.RequestLive设为True,首先Edit,然后修改，然后post

 

O

okzjq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #8

我用Delphi6+access2000数据库，

 

O

okzjq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #9

我用win2K+Delphi6+access2000数据库，

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #10

First是到第一条记录之前，但显示的是第一条记录
Last正好相反，你看TDBNavigator的按钮就知道了，DELPHI也不知道当前记录是不是
第一条，只有向上滚到没有记录了才把First变灰！

 

C

CuteCat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #11

顶楼的里面有一个错误，
当Eof为true时，record_no一定是－1，代表没有记录了，
同样Bof为true时也一样。
也就是说当Eof或Bof时，当前记录的指针已经指向了最后（或最前）一条记录
的后面（或前面），而不是最后一条记录，自然记录号就是－1了。

 

L

lczhuohuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #12

对,上面说的对,这里要明确数据集和游标的概念

 

C

CuteCat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #13

只有当游标的位置是useclient时，record_no才有效

 

O

okzjq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #14

to CuteCat:
怎样判断游标的位置是否在UseClient呢？能否给些程序说明下，谢谢!

 

T

tyzytyz_cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #15

就是要序号是吧,再简单不过的代码,在D5下运行没问题
procedure TForm1.Query1CalcFields(DataSet: TDataSet);
begin
query1no.Value:= query1.RecNo;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
query1.close;
query1.open;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
query1.first;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
query1.last;
end;

 

B

base7

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #16

你下一个问题的标题是:
"这是我在大富翁的第三个贴子，请不要打击我!"?

 

B

BDFan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #17

Access 2000 肯定不支持 RecNo 属性

 

白

白海森

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #18

Access 2000 肯定支持 RecNo 属性,但有时RecNo的值不对。

 

C

Claudia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-19

• #19

你并没有说明你的真正需求是什么，而是提出你实施你的方案时遇到的问题，
事实是应有另外的方案来解决你的问题，而你选择的方案根本就行不通；

正如CuteCat所说，RecNo和RecordCount只有当游标的位置是useclient时才有效；
说说你到底要做什么；

 

O

okzjq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-20

• #20

多人接受答案了。