Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Создайте программу, ведущую список сведений об отравлении поездов от станции Ухта. Информация должна содержать: номер поезда, название поезда, кол-во вагонов, название(скорый или пассажирский), дата отправления, время стоянки, по каким числам. В программе должны быть реализованы функции поиска и редактирования данных в таблице. Для ввода и вывода информации должны быть использованы стандартные элементы интерфейса Windows(кнопки, поля, списки, счетчики, переключатели и т.д.). Данные хранятся в таблице Excel.
1. Постановка задачи.
Составить программу «Расписание движения поездов по станции Ухта», предоставляющую информацию о поездах. Данные о поездах (номер, станция отправления, станция назначения, время отправления, время прибытия, всего в пути) должны храниться в таблице Excel. В программе реализовать функции поиска, выбора информации по указанному признаку и редактирования данных таблицы. Для ввода и вывода информации использовать стандартные элементы интерфейса Windows 95/98/NT.
2. Описание исходных данных.
Исходными данными для программы являются сведения о поездах, занесенные в Excel (см. рис.) и содержащие информацию:
§ номер поезда
§ станция отправления
§ станция назначения
§ время отправления
§ время прибытия
§ всего в пути
№ поезда | Станция отправления | Станция назначения | Время отправления | Время назначения | Всего в пути |
Ухта | Москва | 12:00 | 7:12 | 19:12 | |
Ухта | Москва | 14:00 | 10:12 | 20:12 | |
Ухта | Сосногорск | 2:00 | 3:12 | 1:12 | |
Ухта | Адлер | 22:00 | 7:00 | 9:00 | |
Ухта | Воркута | 1:00 | 17:00 | 16:00 | |
Ухта | Инта | 21:00 | 18:00 | 21:00 | |
Ухта | Печора | 22:00 | 7:20 | 9:20 | |
Ухта | Микунь | 10:00 | 3:10 | 17:10 | |
Ухта | Лабытнанги | 2:00 | 15:03 | 13:03 | |
Ухта | Воронеж | 22:32 | 23:45 |
3. Перечень функций разработанной программы.
I. Функция добавления поезда в исходную таблицу.
II. Функция корректировки данных.
III. Функция поиска по номеру поезда.
IV. Функция поиска по станции назначения.
4. Описание.
При нажатии кнопки «Редактировать» загружается следующая форма:
Редактирование данных.
Чтобы выполнить редактирование данных, нужно нажать кнопку Изменить. На лист Excel выводится форма UserForm1 с заголовком Редактирование. Перед показом формы происходит занесение данных с листа Excel в форму UserForm1.
Событийная процедура кнопки Редактировать.
Private Sub CommandButton1_Click()
'Процедура обработки, при нажатии кнопки "Редактирование"
Load UserForm1 'Загрузить форму UserForm1
i = ActiveCell.Row
UserForm1.TextBox1.Text = Worksheets(1).Rows(i).Cells(1).Value
UserForm1.TextBox2.Text = Worksheets(1).Rows(i).Cells(2).Value
UserForm1.TextBox3.Text = Worksheets(1).Rows(i).Cells(3).Value
UserForm1.TextBox4.Text = Worksheets(1).Rows(i).Cells(4).Value
UserForm1.TextBox5.Text = Worksheets(1).Rows(i).Cells(5).Value
UserForm1.TextBox6.Text = Worksheets(1).Rows(i).Cells(6).Value
UserForm1.Show 'Показать форму UserForm1
End Sub
На диалоговой форме UserForm1 разместить: надписи код, наименование, кол-во, цена; поля TextBox1, TextBox2, TextBox3, TextBox4; TextBox5, TextBox6 счетчик SpinButton1; кнопку CommandButton1 с заголовком Записать и кнопку CommandButton2 с заголовком Добавить.
Используя компонент Счетчик, найти нужную запись, выполнить редактирование данных и нажать кнопку Записать. Все изменения отразятся в таблице
Событийная процедура кнопки Записать.
Private Sub CommandButton1_Click()
Dim m As Integer
m = ActiveCell.Row
'Данные из полей записываются в таблицу
Worksheets(1).Cells(m, 1).Value = TextBox1.Text
Worksheets(1).Cells(m, 2).Value = TextBox2.Text
Worksheets(1).Cells(m, 3).Value = TextBox3.Text
Worksheets(1).Cells(m, 4).Value = TextBox4.Text
Worksheets(1).Cells(m, 5).Value = TextBox5.Text
Worksheets(1).Cells(m, 6).Value = TextBox6.Text
'Подсчет числа кондитерских изделий
k = UserForm1.EndFind - 3
'Вывод вычисленного значения на экран
Worksheets(1).TextBox1.Text = Str(k) & " Обьектов"
End Sub
Если необходимо ввести новые данные в таблицу, нужно нажать кнопку Добавить. На лист Excel выводится форма UserForm1 с пустыми полями. Ввести данные и нажать кнопку Записать.
Событийная процедура кнопки Добавить
Private Sub CommandButton2_Click()
'Поиск первой свободной строки в таблице
Worksheets(1).Rows(UserForm1.EndFind).Select
UserForm1.TextBox1.Text = ""
UserForm1.TextBox2.Text = ""
UserForm1.TextBox3.Text = ""
UserForm1.TextBox4.Text = ""
UserForm1.TextBox5.Text = ""
UserForm1.TextBox6.Text = ""
End Sub
Процедуры для компонента Счетчик.
Дата публикования: 2014-11-02; Прочитано: 392 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!