当前位置:编程学习 > Delphi >>

Delphi如何做SQL次要排序

我想做成这种效果,我用的是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语言的?

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,