delphi如何对数据表中的数据排序
如果你有一个query,内容是:select * from table order by id,你点击按钮之后,将这个query清除,代码如下:
query.close;
query.sql.clear;
query.sql.add('select * from table order by nameid'); // 这里就是重点了。
query.open;
搞定。
不用memo控件,采用edit控件程序:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var st,s,ss:string; a:array[1..100] of integer; i,j,k:integer; p,q,t:integer;begin st:=edit1.Text; i:=0; while pos(',',st)>0 do begin s:=copy(st,1,pos(',',st)-1); val(s,j,k); inc(i); a[i]:=j; delete(st,1,pos(',',st)); end; val(st,j,k); inc(i); a[i]:=j; for p:=1 to i-1 do for q:=p+1 to i do if a[p]>a[q] then begin t:=a[p]; a[p]:=a[q]; a[q]:=t; end; str(a[1]:0,ss); for p:=2 to i do begin str(a[p]:0,s); ss:=ss+','+s; end; edit1.Text:=ss;end;end.
方法很多哈 1.加入一个ADOQUERY。连接DATASOURCE。修改SQL语句可以达到效果2..在DBGRID的点击事件中修改。方法这没没有现成了的,这个比较麻烦一点不推荐。
3..这个是我极力推荐的,也是DELPHI的神器。把DBCRID这个控件换了,换成CXGRID这个是一个第三方空间,自己百度一下可以找出很多
直接在butto1的OnClick事件里设定Table1的IndexFieldNames属性为成绩就可以了
挚纨法禄: 方法很多哈 1.加入一个ADOQUERY.连接DATASOURCE.修改SQL语句可以达到效果2..在DBGRID的点击事件中修改.方法这没没有现成了的,这个比较麻烦一点不推荐.3..这个是我极力推荐的,也是DELPHI的神器.把DBCRID这个控件换了,换成CXGRID这个是一个第三方空间,自己百度一下可以找出很多
淳化县18144353627: Delphi 中如何实现对表中数据重新排序? - ?
挚纨法禄: 数据库表一般都设有主键,数据自动按主键排序的.对非主键字段排序没有什么意义.如果要在窗体界面中按某个字段排序显示,一般有两种方法:1、查询语句中用Order By子句指明按哪个字段排序查询的结果.2、在数据集控件中指定按排序的字段.如 ADOQuery1.Sort := '年龄 ASC, 姓名 DESC'; //按年龄升序、姓名降序排序 或 ADOTable1.Sort := '年龄 ASC, 姓名 DESC'; //按年龄升序、姓名降序排序
淳化县18144353627: delphi 如何对一组数据随机的排序?
挚纨法禄: 这组数据存在那里?1.数组里?随机生成数组的下标,按下标来取.2.数据库中:随机生成一个唯一的记录标号,根据标号来取.
淳化县18144353627: delphi编程, 如何实现赋值StringGrid表格内的数字按顺序排列 - ?
挚纨法禄: 从小到大排列,用个简单的冒泡排序法就好了.procedure TForm1.Button1Click(Sender: TObject); var i,j:Integer; tmp:Double; begin for i:=0 to StringGrid1.RowCount-2 do begin if StringGrid1.Cells[0,i]='' then continue; for j:=i to StringGrid1....
淳化县18144353627: delphi 请教,ClientDataSet中的数据如何排序??
挚纨法禄: ClientdataSet.CommandText:='Select * from Table1 orderby name'tabel1是表名,name是要排序的字段.
淳化县18144353627: delphi如何对对Excel数据进行排序? - ?
挚纨法禄: 这还不简单,把EXCEL的A1与B1列的数据导入ACCESS数据库然后按A1列排序读出来再写到EXCEL就可以了.
淳化县18144353627: 求delphi高手帮助,delphi中stringgrid中的一列数据怎么排出名次,在名次一列显示1,2... - ?
挚纨法禄: //对StringGrid的某一列进行排序 Procedure GridSort(StrGrid: TStringGrid;NoColumn:Integer); VarLine, PosActual:Integer; Row: TStrings; Renglon:TStringList; beginRenglon:=TStringList.Create; For Line := 1 to StrGrid.RowC ount-1 do Begin ...
淳化县18144353627: delphi adoquery.sort如何按照数字大小排序 - ?
挚纨法禄: 在adoquery所执行的SQL语句中,写排序子句.ORDER BY 要排序的字段名
淳化县18144353627: delphi 临时表 排序 - ?
挚纨法禄: 如果表中其他字段有序,可以利用该字段做update语句; 否则只能编程,可以使用"对记录号进行修正"来转换; 如果数据量不大,也可以在Excel中先用拖动的方法做好一组序列后复制并替换相应内容即可....
淳化县18144353627: delphi excel中 用strlist 怎么将excel中的一列进行由小到大的排序..急用 谢谢 - ?
挚纨法禄: strlist.sort