Заключение

Тенденции развития современных информационных технологий приводят к постоянному возрастанию сложности информационных систем, которые создаются в разных сферах деятельности. Для успешной реализации работы объект проектирования должен быть адекватно описан, должны быть построены полные и непротиворечивые функциональные и информационные модели ИС.

Все это было сделано при выполнении дайной курсовой работы:

1. Проведено исследование структуры и функций аптеки, отдельных ее подразделений.

2. Разработана структурная и функциональная модель информационной системы аптеки. Определена связь между различными ее структурами, а также методы и механизмы управления. Построенная модель информационной системы имеет три уровня, на каждом из которых представлено несколько работ (кроме первого), которые взаимосвязаны по выходам а входам, псе выходы и входы соответствуют основным информационным потокам в аптеке;

3. На основе анализа предметной области построена концептуальная модель базы данных. Сформулированы информационные элементы, которые можно объединить в соответствии с функциональными задачами, решение которых автоматизирует АИС. В итоге информационные элементы были разделены на четыре сущности. Между сущностями определены и установлены типы отношений. Была построена функциональную модель базы данных средствами ERwin;

4. Приведена даталогическая модель структуры БД, выполнена кодировка полей таблиц базы данных, в результате чего были получены таблицы БД. Были определены типы связей между таблицами. Выполнен подробный обзор СУБД;

5. Выполнено проектирование программной среды АИС.

Обоснован выбор среды разработки ПО АИС; описана структурная организация ПО АИС; выполнено проектирование интерфейса программной среды; приведено описание технологии ADO.NET; описана организация решения основанных вычислительных задач в ПО, модули и процедуры. Для организации расчетов использованы запросы на языке SQL, которые позволяют выполнять вычисления непосредственно в базе данных.

Список используемой литературы

1. Емельянова Н.З. Основы построения автоматизированных систем: учеб. пособие / Н.З. Емельянова. - М.: ИНФРА-М, 2009. - 269 с.

2. Смирнов Г.Н. Проектирование экономических информационных систем: учебник / Г.Н. Смирнов. - М.: Финансы и статистика, 2008. - 320 с.

3. Маклаков С.В. BPwin и ERwin: СASE-средства для разработки информационных систем / С.В. Маклаков. - М.: Диалог-МИФИ, 2009. - 238 с.

4. Карпова Т.С. Базы данных: модели, разработка, реализация / Т.С. Карпова. - СПб.: Питер, 2007. - 304 с.

5. Житникова О.В. Проектирование баз данных в СУБД Access / О.В. Житникова, М.И. Журина, Е.М. Кудрявцева. - М.: Интеллект-Центр, 2009. - 164 с.

6. Дженнингер Р.Д. Microsoft Office Access 2003 / Р. Д. Дженнингер. - СПб.: Вильямс, 2008, - 1312 с.

7. Аляев Ю.А. Алгоритмизация и язык программирования Visual Basic: учебно-справочное пособие / Ю.А. Аляев, О.А. Козлов. - М.: Финансы и статистика, 2008. - 320 с.

8. Клещев А.С. Методы и средства разработки пользовательского интерфейса: современное состояние / А.С. Клещев, В.В. Грибова. - СПб.: Питер, 2010. - 320 с.

9. Вендров А.М. Проектирование программного обеспечения экономических информационных систем. Учебник. М.: Финансы и статистика 2009.-352с.

10. Федотова Д Э. CASE-технологии. М.: Телеком, 2010.-160с.

11. Диго С.М. Проектирование и использование баз данных. - М.: Финансы и статистика, 2007.

12. Автоматизированные информационные технологии в экономике: Учебник/ Под ред. проф. Г.А. Титоренко. - М.: Компьютер, ЮНИТИ, 2009. - 400с.

13. Волченков Е.Г. Программная инженерия. Стандартизация пользовательского интерфейса / Е.Г. Волченков. - М.: ИНФРА-М, 2008. - 216 с.

Программный продукт

1. MS Visual Studio 2010

2. СУБД MS Access

Приложение

Public Class Form1

Private Sub ВыходToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ВыходToolStripMenuItem.Click

Close()

End Sub

Private Sub КлиентыToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles КлиентыToolStripMenuItem.Click

Form2.MdiParent = Me

Form2.Show()

End Sub

Private Sub БазаЗаказовToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles БазаЗаказовToolStripMenuItem.Click

Form3.MdiParent = Me

Form3.Show()

End Sub

Private Sub СотрудникиToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СотрудникиToolStripMenuItem.Click

Form4.MdiParent = Me

Form4.Show()

End Sub

Private Sub СкладToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles СкладToolStripMenuItem.Click

Form5.MdiParent = Me

Form5.Show()

End Sub

End Class

Public Class Form2

Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Курсовая база.mdb")

Dim ds As New DataSet

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

con.Open()

Dim comm As New OleDb.OleDbCommand("insert into klient(Imya,Famil,Otch,Kod,Adres,N pasport) values(" & TextBox1.Text & "," & TextBox2.Text & "," & TextBox3.Text & "," & TextBox4.Text & "," & TextBox5.Text & "," & TextBox6.Text & ")", con)

comm.ExecuteNonQuery()

con.Close()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim adap As New OleDb.OleDbDataAdapter("select * from klient", con)

con.Open()

adap.Fill(ds, "Таблица")

DataGridView1.DataSource = ds.Tables("Таблица")

DataGridView1.Columns(0).HeaderText = "Имя"

DataGridView1.Columns(1).HeaderText = "Фамилия"

DataGridView1.Columns(2).HeaderText = "Отчество"

DataGridView1.Columns(3).HeaderText = "Код клиента"

DataGridView1.Columns(4).HeaderText = "Адрес"

DataGridView1.Columns(5).HeaderText = "Номер паспорта"

con.Close()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

con.Open()

Dim comm As New OleDb.OleDbCommand("delete " & ds.Tables("Таблица").Columns(0).ColumnName & "," & ds.Tables("Таблица").Columns(1).ColumnName & "," & ds.Tables("Таблица").Columns(2).ColumnName & "," & ds.Tables("Таблица").Columns(3).ColumnName & "," & ds.Tables("Таблица").Columns(4).ColumnName & "," & ds.Tables("Таблица").Columns(5).ColumnName & " from klient where Kod=" & TextBox4.Text, con)

comm.ExecuteNonQuery()

con.Close()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Try

con.Open()

Dim comm As New OleDb.OleDbCommand("update klient set Imya=" & TextBox1.Text & " where Kod=" & TextBox4.Text, con)

comm.ExecuteNonQuery()

con.Close()

Catch ex As Exception

End Try

Try

con.Open()

Dim comm As New OleDb.OleDbCommand("update klient set Famil=" & TextBox2.Text & " where Kod=" & TextBox4.Text, con)

comm.ExecuteNonQuery()

con.Close()

Catch ex1 As Exception

End Try

Try

con.Open()

Dim comm As New OleDb.OleDbCommand("update klient set Otch=" & TextBox3.Text & " where Kod=" & TextBox4.Text, con)

comm.ExecuteNonQuery()

con.Close()

Catch ex As Exception

End Try

Try

con.Open()

Dim comm As New OleDb.OleDbCommand("update klient set Adres=" & TextBox5.Text & " where Kod=" & TextBox4.Text, con)

comm.ExecuteNonQuery()

con.Close()

Catch ex As Exception

End Try

Try

con.Open()

Dim comm As New OleDb.OleDbCommand("update klient set N pasport=" & TextBox6.Text & " where Kod=" & TextBox4.Text, con)

comm.ExecuteNonQuery()

con.Close()

Catch ex As Exception

End Try

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Close()

End Sub

End Class