Описание пользовательского интерфейса

После того как мы зашли в Microsoft Excel на первом листе (Меню) расположена кнопка «Принять» (рисунок 2.1).

Рисунок 2.1 - Кнопка «Принять»

После нажатия на данную кнопку на экране появляется форма для ввода и формируется таблица на листе «База» (Рисунок 2.2).

Рисунок 2.2 - Формирование БД

Обратим внимание, дата выдачи уже установилась с компьютера, что позволяет облегчить работу.

Итак, начинаем заполнять форму. В данной форме все поля необходимы для заполнения, поэтому, если хотя бы одно поле не заполнено, то после нажатия на кнопку «Принять» (принимает данные, из формы), программа выдает окно с ошибкой (рисунок 2.3).

Рисунок 2.3 - Ошибка

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

Рисунок 2.4 - Ошибка 2

После заполнения полей, данные из формы переносятся в таблицу, которая расположена, на листе «База» (рисунок 2.5).

Рисунок 2.5 - Заполнение таблицы

Если мы нажмем на кнопку «Отмена», то будет удалена последняя строка таблицы (рисунок 2.6).

Рисунок 2.6 - Отмена

Кнопка «Выход» осуществляет закрытие формы и переход на лист «Меню» (рисунок 2.7).

Рисунок 2.7 - Выход

Кнопка «Поиск» позволяет без особых усилий, найти информацию о должниках и вносит данные на лист «poisk»(рисунок 2.8).

Рисунок 2.7 – Поиск по должникам

Результат работы программы

Рисунок 2.10 - Результат работы программы 1 (БД)

Рисунок 2.11 - Результат работы программы 2 (таблица результатов поиска)

Заключение

При прохождение курсового проекта по «Объектно-ориентиророванным языкам программирования», я получила практические навыки программирования на языке Visual Basic for Applications – это помогло мне закрепить теоритический материал.

Список литературы

1. Википедия // Интернет ресурс: https://ru.wikipedia.org/wiki/Visual_Basic_for_Applications

Приложение А.

Листинг программы

Кнопка «Принять» на листе «Меню»

Private Sub CommandButton1_Click()

ФормБД

End Sub

Private Sub ФормБД()

UserForm1.txtdata.Text = Date

Application.Worksheets("База").Activate

With ActiveSheet

If.Range("A1").Value = "Фамилия" Then

.Range("A2").Select

Else

ActiveSheet.Cells.Clear

Application.Worksheets("База").Range("A1:I1").Select

With Selection

.Value = Array("Фамилия", "Имя", "Адрес читателя", "Автор книги", "Название", "Год издания", "Жанр", "Дата выдачи", "Срок выдачи")

.Interior.ColorIndex = 4

.Font.Bold = True

End With

.Range("A1").AddComment

.Range("A1").Comment.Visible = False

.Range("A1").Comment.Text Text:="Фамилия"

.Range("B1").AddComment

.Range("B1").Comment.Visible = False

.Range("B1").Comment.Text Text:="Имя"

.Range("C1").AddComment

.Range("C1").Comment.Visible = False

.Range("C1").Comment.Text Text:="Адрес читателя"

.Range("D1").AddComment

.Range("D1").Comment.Visible = False

.Range("D1").Comment.Text Text:="Автор книги"

.Range("E1").AddComment

.Range("E1").Comment.Visible = False

.Range("E1").Comment.Text Text:="Название"

.Range("F1").AddComment

.Range("F1").Comment.Visible = False

.Range("F1").Comment.Text Text:="Год издания"

.Range("G1").AddComment

.Range("G1").Comment.Visible = False

.Range("G1").Comment.Text Text:="Жанр"

.Range("H1").AddComment

.Range("H1").Comment.Visible = False

.Range("H1").Comment.Text Text:="Дата выдачи"

.Range("I1").AddComment

.Range("I1").Comment.Visible = False

.Range("I1").Comment.Text Text:="Срок выдачи"

End If

End With

Worksheets("База").Range("A:I").Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

.WrapText = True

.Orientation = 0

.AddIndent = False

.ShrinkToFit = False

End With

UserForm1.Show

End Sub

Кнопка «Принять»:

Private Sub cmdprinyat_Click()

Dim fam, nam, adr, avt, naz, janr As String

Dim nomer, year As Integer

Dim data, Srok As Date

nomer = Application.CountA(ActiveSheet.Columns(1)) + 1

With UserForm1

If.txtFamil.Text = "" Then

.txtFamil.BackColor = &H8080FF

MsgBox "Вы забыли указать фамилию", vbExclamation

UserForm1.txtFamil.BackColor = &HFFFFFF

Exit Sub

End If

If.txtName.Text = "" Then

.txtName.BackColor = &H8080FF

MsgBox "Вы забыли указать имя", vbExclamation

UserForm1.txtName.BackColor = &HFFFFFF

Exit Sub

End If

If.txtAdres.Text = "" Then

.txtAdres.BackColor = &H8080FF

MsgBox "Вы забыли указать адрес", vbExclamation

UserForm1.txtAdres.BackColor = &HFFFFFF

Exit Sub

End If

If.txtAvtor.Text = "" Then

.txtAvtor.BackColor = &H8080FF

MsgBox "Вы забыли указать автора", vbExclamation

UserForm1.txtAvtor.BackColor = &HFFFFFF

Exit Sub

End If

If.txtNazvanie.Text = "" Then

.txtNazvanie.BackColor = &H8080FF

MsgBox "Вы забыли указать название книги", vbExclamation

UserForm1.txtNazvanie.BackColor = &HFFFFFF

Exit Sub

End If

If.txtYear.Text = "" Then

.txtYear.BackColor = &H8080FF

MsgBox "Вы забыли указать год издания", vbExclamation

UserForm1.txtYear.BackColor = &HFFFFFF

Exit Sub

End If

If.txtJanr.Text = "" Then

.txtJanr.BackColor = &H8080FF

MsgBox "Вы забыли указать жанр", vbExclamation

UserForm1.txtJanr.BackColor = &HFFFFFF

Exit Sub

End If

If.txtdata.Text = "" Then

.txtdata.BackColor = &H8080FF

MsgBox "Вы забыли указать дату", vbExclamation

UserForm1.txtdata.BackColor = &HFFFFFF

Exit Sub

End If

If.txtsrok.Text = "" Then

.txtsrok.BackColor = &H8080FF

MsgBox "Вы забыли указать срок выдачи", vbExclamation

UserForm1.txtsrok.BackColor = &HFFFFFF

Exit Sub

End If

adr =.txtAdres.Text

naz =.txtNazvanie.Text

If IsNumeric(.txtFamil.Text) = True Then

MsgBox "Введена неверная фамилия", vbExclamation

Exit Sub

End If

fam =.txtFamil

If IsNumeric(.txtName.Text) = True Then

MsgBox "Введено неверное имя", vbExclamation

Exit Sub

End If

nam =.txtName

If IsNumeric(.txtAvtor.Text) = True Then

MsgBox "Неправильно введены данные автора", vbExclamation

Exit Sub

End If

avt =.txtAvtor

If IsNumeric(.txtJanr.Text) = True Then

MsgBox "Неправильно введены данные о жанре", vbExclamation

Exit Sub

End If

janr =.txtJanr

If IsNumeric(.txtYear.Text) = False Then

MsgBox "Введен неверный год", vbExclamation

Exit Sub

End If

year =.txtYear

If IsDate(.txtdata.Text) = False Then

MsgBox "Введена неверная дата выдачи", vbExclamation

Exit Sub

End If

data =.txtdata

If IsDate(.txtsrok.Text) = False Then

MsgBox "Введен неверный срок выдачи", vbExclamation

Exit Sub

End If

Srok =.txtsrok

If Val(txtdata.Text) > Val(txtsrok.Text) Then

MsgBox "Срок выдачи должен быть больше даты", vbExclamation

Exit Sub

End If

End With

With ActiveSheet

.Cells(nomer, 1).Value = fam

.Cells(nomer, 2).Value = nam

.Cells(nomer, 3).Value = adr

.Cells(nomer, 4).Value = avt

.Cells(nomer, 5).Value = naz

.Cells(nomer, 6).Value = year

.Cells(nomer, 7).Value = janr

.Cells(nomer, 8).Value = data

.Cells(nomer, 9).Value = Srok

End With

End Sub

Кнопка «Отмена»:

Private Sub cmdotmena_Click()

Dim nomer As Integer

nomer = Application.CountA(ActiveSheet.Columns(1))

With ActiveSheet

If nomer > 1 Then

.Cells(nomer, 1).Value = ""

.Cells(nomer, 2).Value = ""

.Cells(nomer, 3).Value = ""

.Cells(nomer, 4).Value = ""

.Cells(nomer, 5).Value = ""

.Cells(nomer, 6).Value = ""

.Cells(nomer, 7).Value = ""

.Cells(nomer, 8).Value = ""

.Cells(nomer, 9).Value = ""

End If

End With

End Sub

Кнопка «Выход»:

Private Sub cmdexit_Click()

Sheets("Меню").Activate

End

End Sub

Кнопка «Поиск по должникам»:

Private Sub cmdpoisk_Click()

Dim today As Date

today = Date

Sheets("poisk").Activate

Cells.Clear

j = 1

M = 2

Do

If Sheets("Áàçà").Cells(M, 1).Value = "" Then Exit Do

If Sheets("Áàçà").Cells(M, 9).Value < today Then

Sheets("poisk").Cells(j, 1).Value = Sheets("Áàçà").Cells(M, 1).Value

Sheets("poisk").Cells(j, 2).Value = Sheets("Áàçà").Cells(M, 2).Value

Sheets("poisk").Cells(j, 3).Value = Sheets("Áàçà").Cells(M, 3).Value

Sheets("poisk").Cells(j, 4).Value = Sheets("Áàçà").Cells(M, 4).Value

Sheets("poisk").Cells(j, 5).Value = Sheets("Áàçà").Cells(M, 5).Value

Sheets("poisk").Cells(j, 6).Value = Sheets("Áàçà").Cells(M, 6).Value

Sheets("poisk").Cells(j, 7).Value = Sheets("Áàçà").Cells(M, 7).Value

Sheets("poisk").Cells(j, 8).Value = Sheets("Áàçà").Cells(M, 8).Value

Sheets("poisk").Cells(j, 9).Value = Sheets("Áàçà").Cells(M, 9).Value

j = j + 1

End If

M = M + 1

Loop

M = M - 1

End Sub

Поиск по сайту: