Заключение
Тенденции развития современных информационных технологий приводят к постоянному возрастанию сложности информационных систем, которые создаются в разных сферах деятельности. Для успешной реализации работы объект проектирования должен быть адекватно описан, должны быть построены полные и непротиворечивые функциональные и информационные модели ИС.
Все это было сделано при выполнении дайной курсовой работы:
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
- Введение
- 1. Теоретическая часть
- 1.1 Теория проектирования АИС
- 1.2 Язык SQL
- 1.4 Выбор, обоснование и особенности работы СУБД. Особенность физического файла БД
- 2. Практическая часть
- 2.1 Обоснование выбора среды разработки и технологии доступа к данным БД
- 2.2 Разработка и описание интерфейса программной среды
- 2.3 Описание логической структуры программной среды АИС
- 2.4 Описание основных модулей программного кода
- Заключение