关于sql server的问题,请高手指点(并且用了sqlserver后我的系统启动很慢)
//看这代码有什么不妥之处?
procedure TForm10.Button2Click(Sender: TObject);
begin
datamodule5.adoquery_xy.Close;
datamodule5.adoquery_xy.SQL.Clear;
datamodule5.adoquery_xy.SQL.Add('select distinct 系别,');
datamodule5.adoquery_xy.SQL.Add('sum(case 学历 when 教授 then 1 else 0) as 教授,');
datamodule5.adoquery_xy.SQL.Add('sum(case 学历 when 副教授 then 1 else 0) as 副教授,');
datamodule5.adoquery_xy.SQL.Add('sum(case 学历 when 硕士 then 1 else 0) as 硕士,');
datamodule5.adoquery_xy.SQL.Add('sum(case 学历 when 研究生 then 1 else 0) as 研究生,');
datamodule5.adoquery_xy.SQL.Add('sum(case 学历 when 本科 then 1 else 0) as 本科,');
datamodule5.adoquery_xy.SQL.Add('sum(case 学历 when 本科成 then 1 else 0) as 本科成,');
datamodule5.adoquery_xy.sql.Add('sum(case 学历 when 专科 then 1 else 0) as 专科,');
datamodule5.adoquery_xy.SQL.Add('sum(case 学历 when 高中 then 1 else 0) as 高中,');
datamodule5.adoquery_xy.SQL.Add('sum(case 学历 when 中专 then 1 else 0) as 中专,');
datamodule5.adoquery_xy.SQL.Add('sum(case 学历 when 初中 then 1 else 0) as 初中,');
datamodule5.adoquery_xy.SQL.Add('sum(case 学历 when 其它 then 1 else 0) as 其它');
datamodule5.adoquery_xy.SQL.Add(' from table1');
datamodule5.adoquery_xy.SQL.Add(' where 聘用时间>:A and 聘用时间<:B');
datamodule5.adoquery_xy.Parameters.ParamByName('A').Value:=datetimepicker1.DateTime;
datamodule5.adoquery_xy.Parameters.ParamByName('B').Value:=datetimepicker2.DateTime;
datamodule5.adoquery_xy.Prepared:=true;
datamodule5.adoquery_xy.ExecSQL;
end;
//when 后的汉字我已加了""