Требуется помощь

[etrom]

Уважаемые программисты! Я очень уважаю ваш труд и эту профессию! У меня тут сложилась такая неприятная ситуация - я попал в автомобильную аварию - три недели пролежал в больнице а как раз в это время мне нужно было сделать лабораторные работы по Delphi 7...да уж, ситуация не из приятных мне нужно их сдать уже через 5 дней(мне еще восемь предметов делать за эти 5 дней), помогите пожалуйста...

лаб№1
Задание: На форме создайте два вида списков с перечнем месяцев.
1) Создайте форму
2) Опишите события:
a. по нажатию кнопки "Загрузки" добавляются строки из текстового файла в список ListBox (текстовый файл создать самим)
b. по нажатию кнопки "Добавить строку" введённая строка из компонента Edit добавляется в список ListBox
c. при перемещении по списку в поле "Текущая строка" должен выдаваться номер элемента в списке
d. в поле "Кол-во строк" выдаётся текущее количество строк.

лаб№3
Задание:
1. С помощью компонента TreeView создать структуру:

2. В свойстве Items компонента ListView создать следующую структуру:

Программно настроить работу компонента следующим образом:
- Для дисков отобразить иконки.
- С помощью компонента Combobox создать различные способы отображения элементов.
- Задать колонкам следующие названия: имя, тип, полный объем, при вводе элементов в виде таблицы.
3. Написать программу, выводящую на экран информацию о разработчиках и о программе в виде титров.
4. Написать программу, рисующую на экране колбу, запрашивающую высоту наливаемой жидкости и заполняющую колбу жидкостью до указанного уровня, выполнить проверку на то, чтобы вводимая высота не была больше высоты колбы.
5. Написать программу, рисующую на экране дом, в котором разными цветами мигает свет.

лаб№4
Задание:
1. Добавьте компонент FilterComboBox на форму и установите связь с компонентом FileListBox таким образом, чтобы при изменении маски у компонента FilterComboBox изменялось и содержимое FileListBox.
2. Добавьте на форму еще 2 компонента Label и Edit. В Label будет отображаться имя иекущего каталога при изменении в DirectoryListBox. В Edit будет отображаться имя выбранного в FileListBox файла. Для этого добавьте в процедуру TForm1.DirectoryListBox1Change операторы:
DirectoryListBox1.DirLabel:=Label1;
FileListBox1.FileEdit:=Edit1;

3. Улучшите программу так, чтобы при активации формы в компоненте Label сразу выводилось имя текущего каталога, а в окне Edit отображался выбранный в списке файлов компонент FileListBox файл.

лаб№5
1.

2.

3. На главной форме создать меню следующего содержания:
.............................
4. На 1 дочерней форме разместить компоненты Table. DataSource, DbGrid, DBNavigator.

5. Оставшиеся дочерние формы будут использоваться для просмотра таблиц в диалоговом
виде, поэтому разместить на каждой из них компоненты Table, DataSource, DBNavigator и
столько компонентов DBEdit сколько полей в соответствующей таблице, для каждой
формы выполнить подключение соответствующей таблицы в режиме ассистента. С
помощью компонентов Label сделать надписи к полям.

6. При выборе любого пункта меню "Просмотр в диалогом виде" должна отрываться форма
соответствующая нужной таблице, где данные выводятся в компонентах DBEdit.

7. С помощью компонента DBLookupComboBox, выполнить отображение информации по
выбранному названию товара, поставщика или покупателя соответственно в каждой форме

8. При выборе любого пункта меню "Просмотр данных в табличном виде" должна отрываться
подключенная к проекту форма, в которой должна отображаться нужная таблица (в
компоненте DBGrid), обработку сделать программным путем.

9. Для каждой таблицы программным путем выполнить настройку компонента DBGrid,
настроив свойства: Color, Font.Color, Font.Size, Title.Caption, Title.Color, сделав их
разными для каждой таблицы.

лаб№7
Запросы на связанные таблицы:

1. Вывести название товаров, цены и название поставщиков (используются таблицы Товар и
Поставщик)
2. Вывести название товаров, количество и название покупателей, определив сумму покупки
(используются таблицы Товар, Покупатель и Заказы).
3. Сформировать запрос, выполнив группировку по названию покупателя, определив
количество его заказов (используются таблицы Покупатель и Заказы).

лаб№8
Написать комментарии к следующим запросам
1. Select fam, (2004-god__r) as vozrast from pers
2. Select fam, god_r from pers where god_r > 1970
3. Select count(fio) from pers where dep='Цех1'
4. Select min(2004-god_r), max(2004-god_r) from pers where dep=’Бухгалтерия’
5. Select fam, god_r from pers where gpd_r=(select max(god_r) from pers)

Написать запросы
1. Подсчитать средний возраст сотрудников
2. Вычислить средний оклад по подразделениям
3. Вывести фамилии сотрудников, чей оклад ниже среднего
4. Вывести фамилии пенсионеров (для мужчин возраст с 60 лет, для женщин с 55).

p.s. пожалуйста помогите, я понимаю что это для вас не составит особого труда.

[mihali4]

лаб№8
Написать комментарии к следующим запросам
1. Select fam, (2004-god__r) as vozrast from pers
Сделать выборку всех фамилий (fam), а также вычислить возраст относительно 2004 года (2004-god__r) как поле "возраст" (as vozrast) для всех записей в таблице персонала (pers).
2. Select fam, god_r from pers where god_r > 1970
Сделать выборку всех фамилий (fam) и дат рождения (god_r) из таблицы персонала (pers), для тех, кто родился после 1970 года (where god_r > 1970).
3. Select count(fio) from pers where dep='Цех1'
Подсчитать количество (count) работающих в первом цеху (dep='Цех1) в таблице персонала (pers).
4. Select min(2004-god_r), max(2004-god_r) from pers where dep=’Бухгалтерия’
Вычислить возраст самого молодого min(2004-god_r) и самого пожилого max(2004-god_r) сотрудника в бухгалтерии (dep=’Бухгалтерия’) на момент 2004 года.
5. Select fam, god_r from pers where gоd_r=(select max(god_r) from pers)
Выбрать фамилию fam и дату рождения god_r из таблицы персонала pers того, кто является самым пожилым max(god_r)

[etrom]

спасибоспасибо

[mihali4]

Спасибо на гвоздик не повесишь...

лаб№7
Запросы на связанные таблицы:

Тут от вас (или преподавателя) нужны структуры таблиц (перечень полей). Можно, конечно, и нафантазировать, но у меня есть сложившиеся стереотипы по созданию структуры базы (количества таблиц и их полей), которые могут не понравиться или просто идти вразрез с представлениями об этом вашего преподавателя...

Написать запросы
1. Подсчитать средний возраст сотрудников
select sum(2008-god_r)/count(*) as srednvozrast from pers
2. Вычислить средний оклад по подразделениям
select sum(oklad)/count(*) as srednoklad from pers
3. Вывести фамилии сотрудников, чей оклад ниже среднего
select fam from pers where oklad<(select sum(oklad)/count(*) from pers)
4. Вывести фамилии пенсионеров (для мужчин возраст с 60 лет, для женщин с 55).
select fam from pers where (((2008-60) and pol='muz') or ((2008-55) and pol='zen'))

[etrom]

Tovar:
nazvanie,zena,kolichestvo,postavshi k
Postavshik:
gorod,nazvanie
Pokupatel:
nazvanie,gorod