Delphi如何分类统计？(100分)

I

icoy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-27

• #1

我做一个人事管理，想知道男职工、女职工人数，大学、高中、
学历人数，工程师人数、高级工程师人数...总之一大堆

另外，统计大学学历总工资、高中学历总工资，工程师总工资....

怎么做？我可不像一次一次打开数据集然后用Count。

如果我用Select语句的话，如何把人数传递出来？用TQuery的Params么？

 

烂

烂泥

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-27

• #2

有SQL好象没什么问题吗？

 

C

Crab

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-27

• #3

用Query来做，如：Select count(*) numbers from table1
where field1 = '工程师'
然后在程序中打开它:
query1.open;
if not query1.eof then x := query1.fieldbyname('numbers').AsInteger

 

I

icoy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-28

• #4

Grab,
if not query1.eof then x := query1.fieldbyname('numbers').AsInteger
^^^^^^^^^^
这是什么？

我用了"select count(*) INTO :abc from table1 where field1='工程师'"
abc是TQuery的Params里的相应参数为什么不行？报告说SQL语句有错。

 

0

0738

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-28

• #5

query1.sql.text := 'select count(*) as mycount from table1 where field1="工程师"' ;
query1.open;
query1.fieldbyname('mycount').asinteger 就是结果

如果想利用参数输出的话，应该写存储过程，直接在tquery中用输出参数
好像很少吧

 

Y

yubo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-28

• #6

query1.SQL.Clear;
query1.SQL.Add('select 学历总工资、高中学历总工资，工程师总工资 from Talbe1');
query1.Open;
query1.FetchAll;

query1.RecordCount 为数量.数据量大不推荐使用---慢.

 

I

icoy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-30

• #7

多人接受答案了。