Delphi如何做SQL次要排序
我想做成这种效果,我用的是SQL数据库,但是不知道如何去写代码!我是Delphi7语言
我想做成这种效果,我用的是SQL数据库,但是不知道如何去写代码!我是Delphi7语言
答案:将上边的列名和排序方法用字符串保留下来,组合一下sql语句,查询就行了~
var OrderStr,SqlStr:string;
OrderStr:='';
if cmobobox1.text='列C' then
begin
if checkbox1.checked then
OrderStr:='列C asc '
else
OrderStr:='列C desc ';
end;
if cmobobox2.text='列B' then
begin
if checkbox3.checked then
begin
if OrderStr='' then
OrderStr:='列B asc '
else
OrderStr:=OrderStr + ',列B asc ';
end
else
begin
if OrderStr='' then
OrderStr:= '列B desc '
else
OrderStr:= OrderStr + ',列B desc ';
end;
end;
SqlStr :='select * from 表 order by ' + OrderStr;
上一个:delphi7 编译时出错
下一个:有谁学习Delphi语言的?