Лабораторные работы по информатике
  • Регистрация
1 1 1 1 1 1 1 1 1 1 Рейтинг 0.00 (0 Голоса)

Лабораторная работа №6 Тема: "Разработка простейшей программы средствами Visual Basic"

Задание: Разработать экранную форму, при использование которой можно будет пополнять базу данных "Счета".

Выполнение:

1. В новой рабочей книге создать заголовки и шапку таблицы, как показано на рис.:

2. Активизировать ячейку I3, выполнить команду «Окно» – «Закрепить области». Теперь заголовок и шапка таблицы будут присутствовать на экране постоянно при просмотре записей базы.

3. Поместить на лист элемент управления кнопку. Команда: «Вид» Панели инструментов – «Формы». Выбрать кнопку, разместить в I1, изменить размер, озаглавить «Ввод данных».

4. Создать макрос, отображающий форму ввода.

Команда: "Сервис" – "Макрос" – "Редактор Visual Basic" – "Вставка" – "Модуль"

5. Создать форму ввода данных следующего вида:

Команда: "Вставка" – "UserForm" (“Insert” “UserForm”)

5.1. Увеличить размер формы. Свойство Caption установить в "Ввод данных в базу счета".

5.2. Поместить на форму справа 2 кнопки с надписями Ok, Отмена, воспользовавшись панелью Controls:

5.2.1. Выбираем на панели Controls элемент управления «Кнопка» (CommandButton).

5.2.2. Перетаскиваем кнопку в нужное место пользовательской формы.

5.2.3. Изменяем свойство Caption на Ok.

5.2.4. Аналогично размещаем кнопку «Отмена».

5.3. Поместить на форму элементы управления

Надпись (Label):

Свойство Caption в "Название фирмы"

Text Align в 2 (отцентрировать текст надписи)

5.4. Поместить на форму элемент управления Поле (TextBox).

Последовательно поместить на форму все остальные Надписи и Поля

Для форматирования размещённых элементов использовать Команды: "Выровнять" , "Выровнять размер" из меню "Формат" (Format Align, Format Make Same Size).

6. Наехать мышкой на элемент управления кнопка с надписью Ok на UserForm1 и дважды щёлкнуть левой кнопкой. В появившемся окне записать макрос, который будет выполнятся по нажатию кнопки.

Текст макроса:

Dim row1 As Integer

Dim nom, nn, noms, sums, platp, sumopl As Integer

Dim namef, spec As String

Dim dats, datopl As Date

Set OBL = Sheets("Счета").Cells(1, 1).CurrentRegion

row1 = OBL. Rows. Count

nom = row1 + 1

With UserForm1

nn = (nom - 4)

namef = .TextBox1.Text

spec = .TextBox. Text

noms = .Text. Box3.Text

dats = .Text. Box4.Text

sums = .Text. Box5.Text

datopl = .TextBox6.Text

platp = .TextBox7.Text

sumopl = .TextBox8.Text

End With

With Sheets("Счета")

.Cells(nom, 1) = nn

.Cells(nom, 2) = namef

.Cells(nom, 3) = spec

.Cells(nom, 4) = noms

.Cells(nom, 5) = dats

.Cells(nom, 6) = sums

.Cells(nom, 7) = platp

.Cells(nom, 8) = datopl

.Cells(nom, 9) = sumopl

End With

With UserForm1

.TextBox1.Text = " "

.TextBox2.Text = " "

.TextBox3.Text = " "

.TextBox4.Text = " "

.TextBox5.Text = " "

.TextBox6.Text = " "

.TextBox7.Text = " "

.TextBox8.Text = " "

End With

End Sub

7. Дважды щёлкнуть на кнопке Отмена

На лист поместить команду

UserForm1.Hide

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

Добавить комментарий


Защитный код
Обновить

По темам:

История Украины

Культурология

Высшая математика

Информатика

Охотоведение

Статистика

География

Военная наука

Английский язык

Генетика

Разное

Технологиеские темы

Украинский язык

Филология

Философия

Химия

Экология

Социология

Физическое воспитание

Растениевосдство

Педагогика

История

Психология

Религиоведение

Плодоводство

Экономические темы

Бухгалтерские темы

Маркетинг

Иностранные языки

Ветеринарная медицина

Технические темы

Землеустройство

Медицинские темы

Творчество

Лесное и парковое хозяйство