АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

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

Читайте также:
  1. Access. Базы данных. Определение ключей и составление запросов.
  2. I. Разработка структуры базы данных.
  3. БАЗЫ ДАННЫХ. MICROSOFT ACCESS 2010
  4. Базы данных. Модели данных
  5. Виды данных.
  6. Влияние инфляции на искажение отчетных данных.
  7. Группировка и сортировка
  8. Единицы хранения данных.
  9. Жизненный цикл разработки хранилища данных.
  10. Иерархическая модель данных. 200
  11. Интерфейс программы Еxcel. Ввод и редактирование данных. Создание таблиц. Простейшие приемы работы в Excel.
  12. Источники и контроль ненадежности данных. Связь надежности и валидности.

Сортировка имеется на вкладке «Оснащение комнат». Сортировка позволяет сортировать комнаты по номеру, по местам проживания, по блоку. Сортирока доступна как по возрастанию, так и по убыванию.

procedure TForm2.RadioButton3Click(Sender: TObject);

begin

datamodule3.adoquery6.Close;

if CheckBox1.Checked then

datamodule3.adoquery6.sql[2]:='ORDER BY id_room DESC' else

datamodule3.adoquery6.sql[2]:= 'ORDER BY id_room ASC';

datamodule3.adoquery6.Open;

end;

 

procedure TForm2.RadioButton4Click(Sender: TObject);

begin

datamodule3.adoquery6.Close;

if CheckBox1.Checked then

datamodule3.adoquery6.sql[2]:='ORDER BY Korpus DESC' else

datamodule3.adoquery6.sql[2]:= 'ORDER BY Korpus ASC';

datamodule3.adoquery6.Open;

end;

 

procedure TForm2.RadioButton5Click(Sender: TObject);

begin

datamodule3.adoquery6.Close;

if CheckBox1.Checked then

datamodule3.adoquery6.sql[2]:='ORDER BY Kol_mest DESC' else

datamodule3.adoquery6.sql[2]:= 'ORDER BY Kol_mest ASC';

datamodule3.adoquery6.Open;

end;

 

procedure TForm2.CheckBox1Click(Sender: TObject);

begin

form2.RadioButton5.Checked:=false;

form2.RadioButton4.Checked:=false;

form2.RadioButton3.Checked:=false;

end;


1 | 2 | 3 | 4 | 5 | 6 | 7 |

Поиск по сайту:

Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.002 сек.)