Private Sub 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. Создание меню для выполнения всех указанных в задании пунктов.


Лабораторная работа 5

Наследование формы

1. Запустите Visual Studio и создайте новый проект с именем
My Form Inheritance.

2. Отобразите форму проекта и используйте элемент управления Button для добавления в нижнюю часть формы двух расположенных рядом объектов кнопок.

3. Измените свойства Text кнопок Button1 и Button2 на " OK " и " Отмена " соответственно.

4. Чтобы отобразить в Редакторе кода процедуру события Button1_Click, сделайте двойной щелчок мышью на кнопке OK.

5. Введите следующий оператор программы:

MsgBox("Вы нажали OK")

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

MsgBox("Вы нажали Отмена")

7. Снова отобразите форму, а затем установите свойство Text формы на значение " Диалоговое окно ". Теперь у вас есть простая форма, которую можно использовать как основу для диалогового окна программы.

8. Скомпилировать проект, так как наследовать можно только от тех форм, которые скомпилированы в виде файлов .exe или .dll. (Каждый раз, когда компилируется базовая форма, изменения, сделанные в этой базовой форме, передаются в производную (наследованную) форму).
Щелкните на команде Build My Form Inheritance (Построить решение) в меню Build (Построение). Visual Basic скомпилирует ваш проект и создаст .exe -файл.

9. Щелкните на команде Add Windows Form (Добавить производную форму) в меню Project (Проект). В диалоговом окне выбрать Inherited Form (Производная форма). Текстовое поле Name (Имя) в нижней части диалогового окна позволяет присвоить вашей производной форме имя (Form2.vb); которое появится в Solution Explorer (Обозревателе решений) и в имени файла формы на диске.

10. Щелкните на кнопке Add, чтобы принять для новой формы установки по умолчанию. Visual Studio отобразит диалоговое окно Inheritance Picker (Выбор наследования), показанное на рис.1.

Рис.1. Диалоговое окно Inheritance Picker

11. Щелкните в диалоговом окне Inheritance Picker (Выбор наследования) на Form1, а затем на OK. Visual Studio создаст в Solution Explorer (Обозревателе решений) элемент Form2.vb и отобразит в Windows Forms Designer (Конструкторе Windows Forms) производную форму. Обратите внимание, что форма выглядит идентично форме Form1, созданной ранее, за исключением того, что две кнопки содержат маленькие значки, которые указывают, что объекты получены из наследуемого источника.

Настройка производной формы

1. Используйте элемент управления Button и добавьте на Form2 (производная форма) третью кнопку.

2. Установите свойство Text этой кнопки равным " Нажми меня! ".

3. Сделайте двойной щелчок мышью на кнопке Нажми меня!

4. В процедуре события Button3_Click введите следующий оператор программы:

MsgBox("Это подчиненная форма!")

5. Снова отобразите форму Form2, а затем попробуйте сделать двойной щелчок мышью на кнопках OK и Отмена. Вы не можете отобразить или отредактировать процедуры событий для этих унаследованных объектов без дополнительных действий, которые не обсуждаются здесь.

6. Увеличьте форму. Вы также можете изменить другие характеристики формы, такие, как ее размер и расположение. Обратите внимание, что если вы для настройки формы используете окно Properties (Свойства), раскрывающийся список Object (Объект) отображает форму, от которой текущая форма является производной.

7. Теперь установите загрузочный объект равным Form2. Щелкните правой кнопкой мыши в Solution Explorer (Обозревателе решений) на значке проекта My Form Inheritance. В появившемся диалоговом окне щелкните на раскрывающемся списке Startup Form (Начальный объект), далее на Form2.

8. Запустите новый проект.

9. Щелкните на кнопке Start (Начать). Откроется производная форма, показанная ниже.

10. Щелкните на кнопке OK. Производная форма выполнит процедуру события наследуемой формы Form1, и она выведет соответствующее сообщение.

11. Щелкните на кнопках Отмена, а затем на Нажми меня!. Form2 отобразит наследуемые сообщения формы. Производная форма настроена так, чтобы включить новый объект, а также два наследуемых объекта кнопки.

12. Завершить выполнение программы.



Поделиться:


Последнее изменение этой страницы: 2017-02-07; просмотров: 217; Нарушение авторского права страницы; Мы поможем в написании вашей работы!

infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 54.227.104.229 (0.117 с.)