我要使查詢出來的結果在dbgrid上顯示,關在edit上顯示所查詢出來的記錄個數.
如我要在employee表中查出(性別)employee_sex等於"女"的職員及人數.
結果應是
employee_id employee_name employee_sex
g047 王紅艷 女
g050 許龍英 女
g052 麥群英 女
g089 王偉 女
s078 皺利軍 女edit1.text=5請問怎麼實現.select employee_id,employee_name,employee_sex
from employee
where employee_sex='女'
這樣可以查出以上記錄,可怎麼統計人數,而且怎麼把統計出來的人數放到edit中.
如我要在employee表中查出(性別)employee_sex等於"女"的職員及人數.
結果應是
employee_id employee_name employee_sex
g047 王紅艷 女
g050 許龍英 女
g052 麥群英 女
g089 王偉 女
s078 皺利軍 女edit1.text=5請問怎麼實現.select employee_id,employee_name,employee_sex
from employee
where employee_sex='女'
這樣可以查出以上記錄,可怎麼統計人數,而且怎麼把統計出來的人數放到edit中.
from employee
where employee_sex='女'
Group By employee_id,employee_name,employee_sex这时,每条记录的RecCount值都为5,你只要把该字段的值给Edit1就是了~================================================================
◆◆◆ CSDN查询助手,查询方便快捷 ◆◆◆ 下载地址:
http://CoolSlob.ifood1.com/Download/CSDNFinder.exe
http://CoolSlob.8u8.com/Download/Tools/CSDNFinder.Slob[更名为.exe即可]
写个简单的SQL语句一定会的是不是。至于统计记录数可以这样写:
procedure TForm.DataSource1DataChange(Sender: TObject;
Field: TField);
begin
Label10.caption:='当前记录:'+inttostr(frmDM.DataSourcePersonAdd.DataSet.RecNo);
Label11.caption:='记录总数:'+inttostr(frmDM.DataSourcePersonAdd.DataSet.RecordCount);
end;
reccount employee_id employee_name employee_sex
1 G047 王紅艷 女
1 G050 許龍英 女
1 G052 麥群英 女
1 G089 王偉 女
1 S078 鄒利軍 女你這個語句和我的下面的一樣,還是沒有統計到
select employee_id,employee_name,count(employee_sex)"employee_sex"
from employee
where employee_sex='女'
group by employee_id,employee_name
to:xiaoyan21(明月心) ,你完全偏題了,
to: CoolSlob() ,沒有統計到.
Field: TField);
begin
edit1.text=inttostr(DataSource1.DataSet.RecordCount);
end;就是在DataSource1的Change事件中,写这句话就行了。
select employee_id,employee_name,employee_sex
from employee
where employee_sex='女'
order by employee_id
compute count(employee_sex)
select Count(*) as RecCount
from employee
where employee_sex='女'
================================================================
◆◆◆ CSDN查询助手,查询方便快捷 ◆◆◆ 下载地址:
http://CoolSlob.ifood1.com/Download/CSDNFinder.exe
http://CoolSlob.8u8.com/Download/Tools/CSDNFinder.Slob[更名为.exe即可]
armu80830() :你也沒看懂題.
pandarus(莫愁前途無知己,天下誰人不識君) :謝謝你.不過你的結果怎麼放到edit中去呢?
select Count(employee_sex) as RecCoun
from employee
where employee_sex='女'
Query中的纪录数不就得了,其实 armu80830() 并不是没看懂你的题,而是你没领会他的意图edit.text:= IntToStr(query.RecordCount);