问题.txt

来自「delphi 的图书管理系统」· 文本 代码 · 共 33 行

1，用sql提取表中字段，并按某字段排序

解决办法：使用order by
ASC：升序(默认方式)
DESC：降序
如：select * from t1 order by score1 DESC, score2 ASC
（有多个排序时，用“,”分开）

2，如何把用sql统计结果保存下来

解决办法：利用tquery的recordcount属性，再加条件限制（where子句）
如：
q.sql.add('select * from t1 where score1>=75 and score1<85');
q.open;
i:=q.recordcount;//得到统计结果


3.在table的beforepost中控制是否保存修改
if messagedlg('数据已经修改，保存吗？',mtconfirmation,[mbYes,mbNo],0)=mrNo then
abort;


4.遍历一个容器中的控件，并在遍历时查看它是什么类型的控件，该怎么做
for i:=0 to groupbox1.components.count-1 do
if groupbox1.components[i] is TEdit then
    (groupbox1.components[i] as TEdit).text:='';


5撤消edit(dbedit,memo,dbmemo等)的修改
procedure cancelmodified(var e:TEdit);
begin
if e.modified then e.undo;
end;