End Sub. Private Sub FormStudLst_Load(ByVal sender As

 

12. Проверить работу приложения Университет по созданию файла Student.dat.

13. Создать новую форму (Name - FormStudLst, Text – Сведения о студентах) и разместить в ней следующие элементы управления, выбрав для них размеры и установив их положение в соответствии с рис. 3.3:

· поле txtFIO1 для вывода фамилии;

· поле txtAdr1 для вывода адреса студента;

· поле txtDr1 для вывода даты рождения;

· поле txtPol1 для вывода пола студента;

· поле txtNomSt1 для вывода номера зачетной книжки;

· поле txtNomGr1 для вывода номера группы;

· поле txtSp1 для вывода названия специальности;

· переключатель Check _1 для отображения вида обучения;

· кнопку CmdUp для вывода сведений о студенте из следующей записи файла;

· кнопку CmdDown для вывода сведений о студенте из предыдущей записи файла;

· надписи к полям: lblFIO1, lblAdr1, lblDr1, lblPol1, lblNomSt1, lblNomGr1, lblSp1.

14. С событием Load объекта FormStudLst Events связать следующую процедуру:

 

Private Sub FormStudLst_Load(ByVal sender As _

System.Object, ByVal e As System.EventArgs) Handles _

MyBase.Load

FileOpen(1, "Student.dat", OpenMode.Random, _

OpenAccess.Default, OpenShare.Default, Len(RecStud))

nRecStud = 1

ReadRecordStud()

End Sub

 

15. В модуль формы добавить процедуру ReadRecordStud:

 

Private Sub ReadRecordStud()

FileGet(1, RecStud, nRecStud)

txtFIO1.Text = RecStud.FIO

txtAdr1.Text = RecStud.Adr

txtNomSt1.Text = RecStud.NomSt

txtPol1.Text = RecStud.Pol

txtDr1.Text = RecStud.DataR

txtNomGr1.Text = RecStud.NomGr

txtSp1.Text = RecStud.Sp

If RecStud.VidOpl = True Then

Check_1.Checked = True

Else

Check_1.Checked = False

End If

End Sub

 

16. С событием Click кнопки cmdUp связать процедуру:

 

Private Sub CmdUp_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles CmdUp.Click

If nRecStud < LOF(1) / Len(RecStud) Then

nRecStud = nRecStud + 1

ReadRecordStud()

Else

MsgBox("Конец файла")

End If

End Sub

 

17. С событием Click кнопки cmdDown связать процедуру:

 

Private Sub CmdDown_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles CmdDown.Click

If nRecStud > 1 Then

nRecStud = nRecStud - 1

ReadRecordStud()

Else

MsgBox("Начало файла")

End If

End Sub

 

18. С событием Closing объекта FormStudLst Events связать процедуру.

 

Private Sub FormStudLst_Closing(ByVal sender As Object,_

ByVal e As System.ComponentModel.CancelEventArgs) _

Handles MyBase.Closing

FileClose(1)

End Sub

End Class

 

19. Активизировать форму FormMenu и связать с событием Click кнопки cmdLst процедуру открытия формы FormStudLst:

 

Private Sub cmdLst_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles cmdLst.Click

Dim form2 As FormStudLst = New FormStudLst

Form2.Show()

End Sub

 

20. Сохранить проект.

21. Проверить работу приложения Университет на контрольном примере.

 

 

ЛАБОРАТОРНАЯ РАБОТА № 4.
Разработка и отладка приложения по индивидуальному
заданию

 

Цель лабораторной работы: приобретение практических навыков по разработке пользовательского интерфейса и по программированию типовых вычислительных процессов при решении задач обработки данных, хранящихся в файлах последовательного или произвольного доступа.

В соответствии с индивидуальным заданием необходимо самостоятельно:

· разработать пользовательский интерфейс приложения (окно приложения, окна форм для ввода/вывода данных, окна сообщений и меню приложения;

· выполнить программирование процедур создания и просмотра файлов;

· выполнить программирование задач обработки данных файлов.

 

Вариант 1.

Создать Windows-приложение "Расчет повременной зарплаты".

Предусмотреть:

1. Создание входных файлов:

Справочник рабочих (Табельный номер, Фамилия, Имя, Отчество, Разряд, Цех);

Справочник тарифов (Разряд, Тариф(руб/час)).

2. На основе данных входных файлов и отработанного времени, вводимого в форму, получение выходного файла:
Начисленная зарплата ( Цех, Табельный номер, Начислено).

3. Вывод в форму из выходного файла начисленную зарплату по заданному табельному номеру.

4. Создание меню для выполнения всех указанных в задании пунктов.

 

Вариант 2.

Создать Windows-приложение "Расчет повременной зарплаты по цеху".

Предусмотреть:

1. Создание входных файлов:
Справочник рабочих (Табельный номер, Фамилия, Имя, Отчество, Разряд, Цех). Количество цехов 3;
Справочник тарифов (Разряд, Тариф(руб/час));

2. На основе данных входных файлов и отработанного времени, вводимого в форму, получение выходного файла:
Начисленная зарплата( Цех, Табельный номер, Начислено).

3. Вывод общей по цеху начисленной зарплаты.

4. Создание меню для выполнения всех указанных в задании пунктов.

 

Вариант 3.

Создать Windows-приложение "Формирование плана выпуска продукции".

Предусмотреть:

1. Создание входных файлов:
Справочник цехов изготовителей (Код цеха, Наименование цеха). Количество цехов 3;
Справочник характеристик продукции (Код продукции, Наименование продукции, Код цеха, Цена).

2. На основе данных входных файлов и Планового количества, вводимого в форму, получение выходного файла:
План выпуска ( Код цеха, Код продукции, Количество, Стоимость).

3. Вывод общей по цеху плановой стоимости выпускаемой продукции.

4. Создание меню для выполнения всех указанных в задании пунктов.

 

Вариант 4.

Создать Windows-приложение "Формирование плана выпуска изделий".

Предусмотреть:

1. Создание входных файлов:
Справочник изделий (Код изделия, Наименование изделия, Цена сборки);
Справочник деталей (Код детали, Наименование детали, Цена);
Состав изделия ( Код изделия, Код детали, Количество в изделии).

2. На основе данных входных файлов и Планового количества изделий, вводимого в форму, получение выходного файла:
План выпуска изделия ( Код изделия, Стоимость выпуска изделия).

3. Вывод Стоимости выпуска заданного изделия.

4. Создание меню для выполнения всех указанных в задании пунктов.

 

Вариант 5.

Создать Windows-приложение "Расчет удержаний с зарплаты".

Предусмотреть:

1. Создание входных файлов:
Справочник работников (Табельный номер, Фамилия, Имя, Отчество, Номер отдела, Количество льгот);
Н ачисления (Табельный номер, Начислено).

2. На основе данных входных файлов получение выходного файла:
Удержания ( Табельный номер, Удержание в ПФ, Удержание ПН).

3. Вывод общей суммы удержаний по заданному табельному номеру.

4. Создание меню для выполнения всех указанных в задании пунктов.

Примечание: Размер МРОТ должен быть задан при открытии формы Расчет удержаний.

Удержание в ПФ = Начислено* 0.01

Удержание ПН = (Начислено - МРОТ*Количество льгот)*0.12

 

Вариант 6.

Создать Windows-приложение "Расчет заплаты к выдаче".

Предусмотреть:

1. Создание входных файлов:
Справочник работников (Табельный номер, Фамилия, Имя, Отчество, Номер отдела, Количество льгот);
Н ачисления (Табельный номер, Начислено).

2. На основе данных входных файлов получение выходного файла:
Удержания ( Табельный номер, Удержание в ПФ, Удержание ПН).

3. Вывод суммы зарплаты к выдаче по заданному табельному номеру.

4. Создание меню для выполнения всех указанных в задании пунктов.

Примечание: Размер МРОТ должен быть задан при открытии формы Расчет удержаний.

Удержание в ПФ = Начислено* 0.01

Удержание ПН = (Начислено - МРОТ*Количество льгот)*0.12

 

Вариант 7

Создать Windows-приложение "Формирование программы строительно-монтажных работ".

Предусмотреть:

1. Создание входных файлов:
Смета работ (Код объекта, Наименование объекта, Код работы, Физический объем работы);
Справочник расценок (Код работы, Наименование работы, Расценка (руб.)).

2. На основе данных входных файлов получение выходного файла:
Стоимость работ ( Код объекта, Итоговая стоимость работ).

3. Вывод Итоговой стоимости работ по заданному объекту.

4. Создание меню для выполнения всех указанных в задании пунктов.

 

Вариант 8

Создать Windows-приложение "Учет потребности в деталях на план выпуска".

Предусмотреть:

1. Создание входных файлов:
Справочник изделий (Код изделия, Наименование изделия, План выпуска);
Справочник деталей (Код детали, Наименование детали, Цена);
Состав изделия ( Код изделия, Код детали, Количество в изделии).

2. На основе данных входных файлов и заданных кодов деталей получение выходного файла:
Плановая потребность ( Код детали, Количество на план, Стоимость).

3. Вывод Количества и Стоимости требуемых деталей.

4. Создание меню для выполнения всех указанных в задании пунктов.

 

Вариант 9

Создать Windows-приложение "Учет движения деталей на складе".

Предусмотреть:

1. Создание входных файлов:
Движение (Код детали, Наименование детали, Остаток на начало);
Накладные на поступление (Номер накладной, Код детали, Количество поступило);
Требования на выдачу ( Номер требования,Код детали, Количество выдано).

2. На основе данных входных файлов и заданных кодов деталей получение выходного файла:
Учет остатков ( Код детали, Остаток на конец).

3. Вывод остатков на начало и конец обработки по заданному коду детали.

4. Создание меню для выполнения всех указанных в задании пунктов.

 

Вариант 10

Создать Windows-приложение "Формирование счетов на оплату в автосервисе".

Предусмотреть:

1. Создание входных файлов:
Справочник видов работ (Код работы, Марка автомобиля, Наименование работы, Стоимость работы);
Заказы (Дата, Номер заказа, Клиент, Марка автомобиля, Код работы).

2. На основе данных входных файлов и заданных Номеров заказов получение выходного файла:
Счет ( Дата, Номер заказа, Марка автомобиля, Стоимость заказа).

3. Вывод Стоимости заказа по заданному Номеру заказа.

4. Создание меню для выполнения всех указанных в задании пунктов.

 

Вариант 11

Создать Windows-приложение "Учет выполнения работ в автосервисе".

Предусмотреть:

1. Создание входных файлов:
Справочник видов работ (Код работы, Марка автомобиля, Наименование работы, Стоимость работы);
Справочник исполнителей работ ( Код исполнителя, Фамилия И.О.);
Заказы (Дата, Номер заказа, Клиент, Марка автомобиля, Код работы, Код исполнителя).

2. На основе данных входных файлов и заданных Номеров заказов получение выходного файла:
Выполнение работ ( Код исполнителя, Номер заказа, Марка автомобиля, Стоимость заказа).

3. Вывод Стоимости выполненных работ по заданному Коду исполнителя.

4. Создание меню для выполнения всех указанных в задании пунктов.

 

Вариант 12

Создать Windows-приложение "Учет торговых заказов ".

Предусмотреть:

1. Создание входных файлов:
Каталог товаров (Код товара, Наименование товара, Цена);
Клиенты (Код клиента, Наименование клиента, Адрес, Телефон).

2. На основе данных входных файлов и заданного в форме Кода клиента, Кода товара и Количества получение выходного файла:
Заказы ( Номер заказа, Дата заказа, Код клиента, Код товара, Количество).

3. Вывод Стоимости заказа по заданному Номеру заказа

4. Создание меню для выполнения всех указанных в задании пунктов.

 

Вариант 13

Создать Windows-приложение "Формирование реестра заказов ".

Предусмотреть:

1. Создание входных файлов:
Справочник услуг (Код услуги, Наименование услуги, Стоимость услуги);
Клиенты (Код клиента, Наименование клиента, Адрес, Телефон).

2. На основе данных входных файлов и заданного в форме Кода клиента, Кода услуги и Стоимости услуги получение выходного файла:
Заказы ( Номер заказа, Дата заказа, Код клиента, Код услуги, Стоимость услуги).

3. Вывод Общей стоимости заказа по заданному Номеру заказа.

4. Создание меню для выполнения всех указанных в задании пунктов.

 

Вариант 14

Создать Windows-приложение "Учет оплаты заказов ".

Предусмотреть:

1. Создание входных файлов:
Справочник услуг (Код услуги, Наименование услуги, Стоимость услуги);
Клиенты (Код клиента, Наименование клиента, Адрес, Телефон).

2. На основе данных входных файлов и заданного в форме Кода клиента, Кода услуги и Стоимости услуги получение выходного файла:
Заказы ( Номер заказа, Дата заказа, Код клиента, Код услуги, Стоимость услуги, Форма оплаты).

3. Вывод суммы оплаты заказов по заданной Форме оплаты.

4. Создание меню для выполнения всех указанных в задании пунктов.

Примечание: Форма оплаты: наличными или по безналичному расчету.

 

Вариант 15

Создать Windows-приложение "Формирование заказов на использование строительных механизмов ".

Предусмотреть:

1. Создание входных файлов:
Справочник строительных механизмов (Код механизма, Наименование, Стоимость одного машиночаса работы);
Заказчики (Код заказчика, Наименование организации, Форма оплаты).

2. На основе данных входных файлов и заданного в форме Кода заказчика, Кода механизма и введенного в форму Объема работы в часах получение выходного файла:
Заказы ( Номер заказа, Дата заказа, Код заказчика, Код механизма, Объем работы в часах).

3. Вывод Стоимости заказа по заданному Номеру заказа.

4. Создание меню для выполнения всех указанных в задании пунктов.

 

Вариант 16

Создать Windows-приложение "Учет автотранспортных перевозок по маркам автомобилей ".

Предусмотреть:

1. Создание входных файлов:
Справочник марок автомобилей (Код марки автомобиля, Марка автомобиля, Стоимость перевозки одного ткм);
Автомобили (Инвентарный номер, Код марки автомобиля);
Заказчики (Код заказчика, Наименование заказчика, Адрес, Телефон).

2. На основе данных входных файлов и заданного в форме Кода заказчика, Инвентарного номера автомобиля и введенных в форму Массы груза и Расстояния, Номера заказа и Даты заказа получение выходного файла:
Заказы ( Номер заказа, Дата заказа, Код заказчика, Инвентарный номер автомобиля, Масса груза(тн), Расстояние(км)).

3. Вывод Стоимости заказа по заданному Номеру заказа.

4. Создание меню для выполнения всех указанных в задании пунктов.

 

Вариант 17

Создать Windows-приложение "Учет автотранспортных перевозок по маркам автомобилей ".

Предусмотреть:

1. Создание входных файлов:
Справочник марок автомобилей (Код марки автомобиля, Марка автомобиля, Стоимость перевозки одного ткм);
Автомобили (Инвентарный номер, Код марки автомобиля);
Заказчики (Код заказчика, Наименование заказчика, Адрес, Телефон).

2. На основе данных входных файлов и заданного в форме Кода заказчика, Инвентарного номера автомобиля и введенных в форму Массы груза и Расстояния, Номера заказа и Даты заказа получение выходного файла:
Заказы ( Номер заказа, Дата заказа, Код заказчика, Инвентарный номер автомобиля, Масса груза(тн), Расстояние(км)).

3. Вывод Стоимости перевозок по заданной Марке автомобиля.

4. Создание меню для выполнения всех указанных в задании пунктов.

 

Вариант 18

Создать Windows-приложение "Учет продаж продовольственных товаров ".

Предусмотреть:

1. Создание входных файлов:
Ценник (Код товара, Наименование товара, Цена розничная);
Накладные (Номер накладной, Код товара, Количество поступило, Дата поступления).

2. На основе данных входных файлов и заданного в форме Кода товара, и введенных в форму Количества продано и Даты продажи и Номера чека получение выходного файла:
Продажи (Номер чека, Код товара, Количество продано, Дата продажи).

3. Вывод Остаточной стоимости товара по заданному Коду товара.

4. Создание меню для выполнения всех указанных в задании пунктов.

 

Вариант 19

Создать Windows-приложение "Учет финансирования строительных объектов по отраслям".

Предусмотреть:

1. Создание входных файлов:
Отрасли (Код отрасли, Наименование отрасли (жилье, здравоохранение, культура и так далее));
Строительный объект (Наименование объекта, Код отрасли, Код организации, Объем финансирования в 1 квартале, Объем финансирования во 2 квартале, Объем финансирования в 3 квартале, Объем финансирования в 4 квартале, Год ввода в эксплуатацию).

2. На основе данных входных файлов и заданного в форме Кода отрасли получение выходного файла:
Финансирование отрасли (Код отрасли, Объем финансирования в 1 квартале, Объем финансирования во 2 квартале, Объем финансирования в 3 квартале, Объем финансирования в 4 квартале).

3. Вывод Общей суммы финансирования по заданному Коду отрасли.

4. Создание меню для выполнения всех указанных в задании пунктов.

 

Вариант 20

Создать Windows-приложение "Учет финансирования строительных объектов по организациям".

Предусмотреть:

1. Создание входных файлов:
Отрасли (Код отрасли, Наименование отрасли (жилье, здравоохранение, культура и так далее));
Строительная организация (Код организации, Наименование организации);
Строительный объект (Наименование объекта, Код отрасли, Код организации, Объем финансирования в 1 квартале, Объем финансирования во 2 квартале, Объем финансирования в 3 квартале, Объем финансирования в 4 квартале, Год ввода в эксплуатацию).

2. На основе данных входных файлов и заданного в форме Кода организации получение выходного файла:
Финансирование по организациям (Код организации, Объем финансирования в 1 квартале, Объем финансирования во 2 квартале, Объем финансирования в 3 квартале, Объем финансирования в 4 квартале).

3. Вывод Общей суммы финансирования по заданному Коду организации.

4. Создание меню для выполнения всех указанных в задании пунктов.

 

Вариант 21

Создать Windows-приложение "Учет автотранспортных перевозок по заказчикам".

Предусмотреть:

1. Создание входных файлов:
Справочник марок автомобилей (Код марки автомобиля, Марка автомобиля, Стоимость перевозки одного ткм);
Автомобили (Инвентарный номер, Код марки автомобиля);
Заказчики (Код заказчика, Наименование заказчика, Адрес, Телефон).

2. На основе данных входных файлов и заданного в форме Кода заказчика, Инвентарного номера автомобиля и введенных в форму Массы груза и Расстояния, Номера заказа и Даты заказа получение выходного файла:
Заказы ( Номер заказа, Дата заказа, Код заказчика, Инвентарный номер автомобиля, Масса груза(тн), Расстояние(км)).

3. Вывод Стоимости заказа по заданному Коду заказчика.

4. Создание меню для выполнения всех указанных в задании пунктов.

 

Вариант 22

Создать Windows-приложение "Учет продаж промышленных товаров".

Предусмотреть:

1. Создание входных файлов:
Ценник (Код товара, Наименование товара, Цена розничная);
Накладные (Номер накладной, Код товара, Количество поступило, Дата поступления).

2. На основе данных входных файлов и заданного в форме Кода товара, и введенных в форму Количества продано и Даты продажи и Номера чека получение выходного файла:
Продажи (Номер чека, Код товара, Количество продано, Дата продажи).

3. Вывод Стоимости проданного товара по заданному Коду товара.

4. Создание меню для выполнения всех указанных в задании пунктов.

 

Вариант 23

Создать Windows-приложение "Учет студентов ".

Предусмотреть:

1. Создание входных файлов:
Справочник факультетов (Номер факультета, Наименование факультета);
Справочник специальностей (Код специальности, Наименование специальности);
Справочник студентов (Номер зачетной книжки, ФИО, Номер группы, Вид обучения).

2. На основе данных входных файлов и заданного в форме Кода специальности получение выходного файла:
Обучение (Номер факультета, Код специальности, Количество коммерческих студентов, Количество бюджетных студентов).

3. Вывод Количества.коммерческих студентов по заданному Коду специальности.

4. Создание меню для выполнения всех указанных в задании пунктов.