Курсовая работа: Информационно-аналитическая система "MTTS"

label3.Visible:=true;

label6.Visible:=true;

dbtext1.Visible:=true;

dbtext2.Visible:=true;

dbtext3.Visible:=true;

abfind.height:=264;

button2.Enabled:=true;

end;

end;

2.6 Сортировка данных

Сортировка выполняется на первой вкладке формы «MTTS». Можно выполнить сортировку по возрастанию и по убыванию. Нужно выбрать то поле, по которому нужно выполнить сортировку.

Программа для выполнения сортировки по возрастанию:

procedure Ttarsor.SpeedButton1Click(Sender: TObject);

begin

//Сортировка по КОДУ

if (pole.ItemIndex=0) and (pole.ItemIndex=0) then

begin

dd.Query2.Close;

dd.Query2.SQL.Clear;

dd.Query2.SQL.Add('SELECT * FROM TARIF ORDER BY tarkod');

dd.Query2.Open;

end;

if (pole.ItemIndex=0) and (pole.ItemIndex=1) then

begin

dd.Query2.Close;

dd.Query2.SQL.Clear;

dd.Query2.SQL.Add('SELECT * FROM TARIF ORDER BY tarkod DESC');

dd.Query2.Open;

end;