(今天多次连不上,现在终于能够贴上来了。)
var a1,b1,c1,total: real;
begin
Query1.Close;
Queyr1.SQL.Clear;
Query1.SQL.Add('select count(字段) from 数据库名 where 字段 = A');
Query1.Open;
a1:=Query1.Fields[0].AsFloat;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select count(字段) from 数据库名 where 字段 = B');
Query1.Open;
b1:=Query1.Fields[0].AsFloat;
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select count(字段) from 数据库名 where 字段 =C');
Query1.Open;
c1:=Query1.Fields[0].AsFloat;
total:=a1+b1+c1;
//totol等于总记录数
a1:=(a1/total)*100;
b1:=(b1/total)*100;
c1:=(c1/total)*100;
MessageBox(0,Pchar(Format('A占总数的百分之%d, B占总数的百分之%d,
C占总数的百分之%d',[a1,b1,c1])),'',MB_OK);
end;