Delphi执行sql server普通查询(2)

3．用CommandText属性查询数据并进行统计
在对数据进行查询的时候，也可以用TADODataSet组件的CommandText属性对数据进行查询，在用CommandText属性进行重复查询时，使用TADODataSet组件的Active属性停止该组件运行，并向CommandText属性中输入相应的SQL语句。在对查询的结果进行统计时，只需要使用相应的函数并对其字段设置别名即可。
下面用Filter属性对数据表中的数据进行查询。
操作步骤如下：
（1）运行Delphi，在窗体中添加TTable、TEdit、TComboBox、TDataSource、TButton和TDBGrid等组件。
（2）主要程序代码如下：
对查询的信息进行统计及求和。
procedure TForm1.Button1Click(Sender: TObject);
begin
ADODataSet1.Active := False;
ADODataSet1.CommandText := 'select Count(姓名) as 人数, Sum(数学) as 数学总成绩,
sum(语文) as 语文总成绩,sum(英语) as 英语总成绩 from MR_Student where '+ComboBox1.Text+ComboBox2.Text+ ''''+Edit1.Text+'''';    //对查询的结果进行统计及求和
ADODataSet1.Active := True;
DataSource1.DataSet := ADODataSet1;
DBGrid1.DataSource := DataSource1;
end;
4．对查询后的数据进行排序
在对数据进行查询后可以按一定的顺序进行排序，可以使用SQL语句ORDER BY，后面可跟多个字段名，每个字段名后面用逗号分隔，在字段的后面可以用ASC参数指定为升序，用DESC参数指定为降序。
例如，对查询结果进行升序排列。
Select * from MR_Student where 数学>60 order by 数学 ASC
例如，对查询结果进行降序排列。
Select * from MR_Student where 数学>60 order by 数学 DESC
下面对查询后的语句进行升序或降序的排序。
操作步骤如下：
（1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TEdit、TComboBox、TDataSource、TButton和TDBGrid等组件。
（2）主要程序代码如下：
with ADOQuery1 do
begin
close;
SQl.Clear;
SQl.Add('Select * from MR_Student where '+ComboBox2.Text+ComboBox3.Text+Edit1.Text+' order by '+Str1+Str2);    //用order by对查询后的语句进行排序
open;
end;