请问遍历table表的方法有哪些，如何数据统计实现？(50分)

P

pan369

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-14

• #1

我要做一个学生期末考试成绩的统计程序，我用table,在统计成绩如：及格率、优秀率
等数据时，不知道如何遍历table,表，
本来我用with table1 do 好像不行，请问为什么
问一下遍历table的方法有哪些，如何实现啊？

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-14

• #2

table.first;
while not table.eof do
begin
......
table.next;

end;

 

P

pan369

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-14

• #3

请问我要统计语文（yuwen)的及格率(>=60)，这样行么：
procedure TForm3.N8Click(Sender: TObject);
var
i:integer;

begin
i:=0;
form1.table1.First;
while not form1.table1.eof do
begin
if yuwen.value>=60 then
i:=i+1;
form1.table1.next;
end;
edit1.text:=inttostr(i);
end;

 

W

wangfei1234567

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-18

• #4

你可以用TQUERY来做的。
QUERY1.CLOSE;
QUERY1.SQL.CLEAR;
QUERY1.SQL.ADD('SELECT COUNT(*) FROM TABLE1 WHERE YUWEN>=60');
QUERY1.OPEN;

 

P

pan369

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-09

• #5

多人接受答案了。

 

M

mlzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-10

• #6

使用table的filter属性，然后用
with table1 do
begin
first;
while not eof do
begin
...
next;
end;
end;
或者象楼上说的，用TQUERY。（推荐）