Последовательность выполнения работы. Пример 2. Удаление элемента, выделенного в ListBox

Пример 2. Удаление элемента, выделенного в ListBox

uses FormsABC;

var l:listbox;

a:array[1..10] of integer;

b:button;

procedure del;

var i:byte;

begin

for i:=l.SelectedIndex+1 to 10-1 do

a[i]:=a[i+1];

a[10]:=0;

l.Items.Clear;

for i:=1 to 10 do l.Items.Add(a[i]);

end;

begin

MainForm.SetSize(300,300); //устанавливаем размер формы

MainForm.CenterOnScreen; // устанавливаем, чтобы форма выводилась по центру

l:=new ListBox();

for var i:=1 to 10 do

begin

a[i]:=random(50);

l.Items.Add(a[i]);

end;

b:=new Button('Del');

b.Click+=del;

end.

Создать программу, которая хранит базу данных в виде одномерного массива. Тип элементов массива - запись.

Для данной базы данных необходимо реализовать подпрограммы:

• добавить запись в базу
• удалить запись из базы
• вывод всех элементов базы
• поиск по ключевому полю.

В программе обязательно должны быть подпрограммы в виде функций и процедур.

Для получения не более 7 балов за лаб. раб. достаточно создать консольное приложение, организовав диалог с пользователем с помощью операторов read и write.

Для получения от 8 до 10 балов необходимо создать windows приложение, где интерфейс реализован в виде формы и управляющих элементов.

Варианты заданий

При поиске предусмотреть, что в базе могут быт одинаковые записи.

Поиск должен происходить по каждому критерию отдельно.

1. База студентов. О каждом студенте хранится: номер его зачетки, фамилия, имя, группа, год рождения. Организовать поиск по фамилии и номеру зачетки.
2. База автомобилей. О каждой машине хранится: номер машины, марка, цвет, пробег, год выпуска. Организовать поиск по марке и году выпуска.
3. База книг. О каждой книге хранится: номер книги, автор, название, год издания, количество страниц. Организовать поиск по автору и году издания.
4. База лекарств. О каждом лекарстве: название, год выпуска, назначение, вес, тип (таблетки, микстура,...). Организовать поиск по названию и назначению.
5. База вин. О каждом вине хранится тип вина (сухое, полусладкое,...), название, цвет, год урожая. Организовать поиск по названию и типу.
6. База оборудования. Об оборудовании тип, наименование, стоимость, состояние (отличное, хор, удовл). Организовать поиск по типу и наименованию.
7. База сотрудников. О каждом сотруднике фамилия, имя, пол, паспорт, год рождения. Поиск по фамилии и году рождения.
8. База фильмов. О каждом фильме: название, год выпуска, страна, продолжительность. Поиск по названию и году выпуска.
9. База программ. О каждой программе: название, назначение, тип (системная, прикладная, инструментальная), год выпуска. Поиск по названию и году выпуска.
10. База продуктов. О каждом продукте: наименование, тип (молочный, мясной...), стоимость, вес. Поиск по наименованию и стоимости.
11. База кафе (ресторанов). О каждом кафе: название, адрес (название улицы), уровень, год открытия. Поиск по названию и адресу.
12. База писем. О каждом письме: фамилия получателя, фамилия отправителя, адрес отправителя, адрес получателя, дата получения. Поиск по фамилии отправителя и дате получения.
13. База пользователей форума. О каждом пользователе: логин, пароль, фамилия, дата регистрации, дата последнего входа. Поиск по фамилии и дате регистрации.

Вы можете придумать свою предметную область, если Вас не устраивает приведенный перечень.

Дата добавления: 2015-05-10