Разработка информационной системы "Млекопитающие" в среде 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 _

(Option5.Value = True And UCase(Trim(Option5.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

Больше работ по теме: