Разработка информационной системы 'Млекопитающие' в среде Visual Basic
МИНИСТЕРСТВО
ОБРАЗОВАНИЯ И НАУКИ РФ
ФЕДЕРАЛЬНОЕ
ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ
ОБРАЗОВАТЕЛЬНОЕ
УЧРЕЖДЕНИЕ
ВЫСШЕГО
ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ
«НИЖЕГОРОДСКИЙ
ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ
УНИВЕРСИТЕТ
ИМ.Р.Е.АЛЕКСЕЕВА»
ДЗЕРЖИНСКИЙ
ПОЛИТЕХНИЧЕСКИЙ ИНСТИТУТ (ФИЛИАЛ)
Кафедра
«Автоматизация и информационные системы»
Разработка
информационной системы
«Млекопитающие»
в среде Visual Basic
ПОЯСНИТЕЛЬНАЯ
ЗАПИСКА
к
курсовой работе по дисциплине
«Информатика»
Разработал
Студент группы
11-АТПП
Ершов А.Ю
Проверил
Доцент кафедры АИС
Токарев С.В
Дзержинск
2012
Целью данной работы является: систематизация
млекопитающих
Часть
ЗАПОЛНЕНИЕ БАЗЫ ДАННЫХ
Программный код базы данных
Вводим переменные используемые в базе данных :
Dim A, l, h, f As IntegerType
kursovayaAs String * 150As String * 100As String * 100As String * 100As String
* 150As String * 150As String * 15As String * 15As String * 15As String *
10Typebd As kursovaya
А - количество записей в базе данных, h, f -
Переменные используемые для нахождения повторения
. Записываем условия, при которых добавление
записи в базу данных невозможно
Когда остались незаполненные поля
Невозможность добавления записи с одинаковыми
данными
Private Sub
Command1_Click()Trim(Text1.Text) = "" Or Trim(Text2.Text) =
"" Or _
(Option1.Value = False And
Option2.Value = False And Option3.Value = False) Or _
(Option4.Value = False And Option5.Value
= False And Option6.Value = False) Or _(Text5.Text) = "" Or
Trim(Text6.Text) = "" Or Trim(Text7.Text) = "" Or
Trim(Text8.Text) = "" Then
MsgBox "У вас остались незаполненные
поля!", 48, "Ошибка"
Else= 0l = 0 To A= l + 1#1, q,
bdUCase(Trim(Text1.Text)) = UCase(Trim(bd.q)) And UCase(Trim(Text2.Text)) =
UCase(Trim(bd.q)) And _(Trim(Text3.Text)) = UCase(Trim(bd.r)) And
UCase(Trim(Text4.Text)) = UCase(Trim(bd.t)) And _(Trim(Text5.Text)) =
UCase(Trim(bd.y)) And UCase(Trim(Text6.Text)) = UCase(Trim(bd.u)) And
_(Trim(Text7.Text)) = UCase(Trim(bd.u)) And UCase(Trim(Text8.Text)) =
UCase(Trim(bd.o)) And _
((Option1.Value = True And
UCase(Trim(Option1.Caption)) = UCase(Trim(bd.w))) Or _
(Option2.Value = True And
UCase(Trim(Option2.Caption)) = UCase(Trim(bd.w))) Or _
(Option3.Value = True And
UCase(Trim(Option3.Caption)) = UCase(Trim(bd.w)))) And _
((Option4.Value = True And
UCase(Trim(Option4.Caption)) = UCase(Trim(bd.p))) Or _
(Option6.Value = True And
UCase(Trim(Option6.Caption)) = UCase(Trim(bd.p)))) Then
f = 1"Такая запись уже существует!",
48, "Ошибка"
GoTo hf:Ifl:f = 0 Then.q =
Text1.Text.r = Text2.TextOption1.Value = True Then bd.w =
Option1.CaptionOption2.Value = True Then bd.w = Option2.CaptionOption3.Value =
True Then bd.w = Option3.CaptionOption4.Value = True Then bd.p =
Option4.CaptionOption5.Value = True Then bd.p = Option5.CaptionOption6.Value =
True Then bd.p = Option6.Caption.t = Text3.Text.y = Text4.Text.u = Text5.Text.i
= Text6.Text.o = Text7.Text.e = Text8.Text= A + 1.Caption = A#1, A, bd
MsgBox "Запись добавлена!", ,
"Уведомление"IfIfSub
Создаем кнопку для очистки всех полей в
заполнении базы данных:
Private Sub Command4_Click().Text =
"".Text = "".Text = "".Text = "".Text =
"".Text = "".Text = "".Text = "".Value
= False.Value = False.Value = False.Value = False.Value = False.Value = False
End Sub
Создаем файл bd.dat в котором будут хранится данные
введенные в базу данных
Private Sub
Form_Activate()"bd.dat" For Random As #1 Len = Len(bd)= LOF(1) /
Len(bd).Caption = A
End Sub
Часть 2
Создание навигации по базе данных bd.dat
база данный файл систематизация
.Вводим переменные используемые в базе данных :
Dim A, l, h, f As IntegerType
kursovayaAs String * 150As String * 100As String * 100As String * 100As String
* 150As String * 150As String * 15As String * 15As String * 15As String *
10Typebd As kursovaya
А - количество записей в базе данных, h, f -
Переменные используемые для нахождения повторения
. Создаем кнопку для перехода к предыдущей
записи находящейся в нашей базе данных
Private Sub Command1_Click()= k - 1k
= 0 Then k = A#1, k.Text = k#1, , bd.Text = Trim(bd.q).Text = Trim(bd.w).Text =
Trim(bd.p).Text = Trim(bd.e).Text = Trim(bd.r).Text = Trim(bd.t).Text =
Trim(bd.y).Text = Trim(bd.u).Text = Trim(bd.i).Text = Trim(bd.o)
End Sub
Private Sub Command2_Click()k = A
Then k = 0= k + 1#1, k.Text = k#1, , bd.Text = Trim(bd.q).Text =
Trim(bd.w).Text = Trim(bd.p).Text = Trim(bd.e).Text = Trim(bd.r).Text =
Trim(bd.t).Text = Trim(bd.y).Text = Trim(bd.u).Text = Trim(bd.i).Text =
Trim(bd.o)
End Sub
. Создаем кнопку для возвращения к первой записи
имеющейся в базе данных:
Private Sub Command3_Click()= 1.Text
= k#1, k#1, , bd.Text = Trim(bd.q).Text = Trim(bd.w).Text = Trim(bd.p).Text =
Trim(bd.e).Text = Trim(bd.r).Text = Trim(bd.t).Text = Trim(bd.y).Text =
Trim(bd.u).Text = Trim(bd.i).Text = Trim(bd.o)
6. Создаем кнопку для копирования записей из
навигации в базу данных:
Private Sub
Command6_Click().Show.Text1.Text = Text1.Text.Text2.Text =
Text5.Text.Text3.Text = Text6.Text.Text4.Text = Text7.Text.Text5.Text =
Text8.Text.Text6.Text = Text9.Text.Text7.Text = Text10.Text.Text8.Text =
Text4.TextUCase(Trim(Text2.Text)) = UCase(Trim(Form1.Option1.Caption)) Then
Form1.Option1.Value = TrueUCase(Trim(Text2.Text)) =
UCase(Trim(Form1.Option2.Caption)) Then Form1.Option2.Value =
TrueUCase(Trim(Text2.Text)) = UCase(Trim(Form1.Option3.Caption)) Then
Form1.Option3.Value = TrueUCase(Trim(Text3.Text)) =
UCase(Trim(Form1.Option4.Caption)) Then Form1.Option4.Value =
TrueUCase(Trim(Text3.Text)) = UCase(Trim(Form1.Option5.Caption)) Then
Form1.Option5.Value = TrueUCase(Trim(Text3.Text)) =
UCase(Trim(Form1.Option6.Caption)) Then Form1.Option6.Value = True
Close #1Sub
При нажатии на кнопку открывается база данных в
которой указанны данные которые заполнены в полях навигации.
. Создаем поиск, который состоит из:
Кнопки
Текстового поля, в которое мы вводим условие
поиска
Окно, в котором отображается найденноеSub
Command7_Click()
List1.Clear= 1#1, kWhile Not
EOF(1)#1, k, bdInStr(bd.q, Text12.Text) <> 0 Or _(bd.w, Text12.Text)
<> 0 Or _(bd.p, Text12.Text) <> 0 Or _(bd.e, Text12.Text) <>
0 Or _(bd.r, Text12.Text) <> 0 Or _(bd.t, Text12.Text) <> 0 Or
_(bd.u, Text12.Text) <> 0 Or _(bd.i, Text12.Text) <> 0 Or _(bd.o,
Text12.Text) <> 0 Then List1.AddItem k & " " &
Trim(bd.q) & " " & Trim(bd.w) & " " &
Trim(bd.p) & " " & Trim(bd.e) & " " &
Trim(bd.r) & " " & Trim(bd.t) & " " &
Trim(bd.y) & " " & Trim(bd.u) & " " &
Trim(bd.i) & " " & Trim(bd.o)
k = k + 1Sub
. Создаем кнопку для ввода изменений в базу
данных:
Private Sub Command8_Click().q =
Text1.Text.w = Text2.Text.p = Text3.Text.e = Text4.Text.r = Text5.Text.t =
Text6.Text.y = Text7.Text.u = Text8.Text.i = Text9.Text.o = Text10.Text#1,
Val(Text11.Text), bd
MsgBox "Изменения сохранены!", ,
"Уведомление"Sub
. Указываем путь к файлу базы данных bd.dat
Private Sub
Form_Activate()#1"bd.dat" For Random As #1 Len = Len(bd)= LOF(1) /
Len(bd)= 1.Text = 1.Caption = A#1, , bd.Text = Trim(bd.q).Text =
Trim(bd.w).Text = Trim(bd.p).Text = Trim(bd.e).Text = Trim(bd.r).Text =
Trim(bd.t).Text = Trim(bd.y).Text = Trim(bd.u).Text = Trim(bd.i).Text =
Trim(bd.o)
End Sub
Private Sub Text11_KeyPress(KeyAscii
As Integer)Case KeyAscii13#1, Val(Text11.Text), bdVal(Text11.Text) <= A Then.Text
= Trim(bd.q).Text = Trim(bd.w).Text = Trim(bd.p).Text = Trim(bd.e).Text =
Trim(bd.r).Text = Trim(bd.t).Text = Trim(bd.y).Text = Trim(bd.u).Text =
Trim(bd.i).Text = Trim(bd.o)
Else"Записи с таким номером не
существует", 16, "Ошибка"
Text11.Text = AIfSelect
End Sub