Висновки

3.8 Висновки

Розробкою даного проекту займється один виконавець.

Розробка буде вестися впродовж 30 днів.

Сумарні витрати на виконання проекту складають 6233,72 грн.

Вартість виставленого на ринок ПЗ складає 2000 грн.

Сума прибутку від кожної установки ПЗ складає 785.40 грн.

ВИСНОВКИ

В результаті дипломного проекту була розроблено АРМ науково-технічної бібліотеки універсітету - електронна бібліотека.

Перед розробкою були поставлені чіткі завдання - зробити зручну і ефективну систему.

Ці завдання вирішувалися по двох напрямах:

-додаванням функції, а саме - доступ до бібліотеки через інтернет;

-система розроблялася за допомогою новітніх засобів розробки, що прискорило і спростило процес розробки, і зробило ефективнішим процеси експлуатації і супроводу системи.

Розроблена електронна бібліотека з двох компонентів:

-настільного додатку Windows для роботи з базою даних в локальній мережі;

-Інтернет - сайту для пошуку книг.

Обидва компоненти розроблено за допомогою одних і тих же інструментів:

-інтегроване середовище розробки Microsof Visual Studio, мова програмування Microsof Visual Basic;

-СУБД Microsoft SQL Server 2005 Express.

Для розробки моделей при проектуванні використовувалася мова моделювання UML в середовищі програмного продукту Microsoft Visio.

Система розроблялася і тестувалася на підприємстві і в значній мірі готова до впровадження на цьому підприємстві. Для впровадження необхідно створити базу даних підприємства, що не представляє ніякої складності.

Результати розробки проекту після невеликої адаптації можуть бути успішно упроваджені в різних бібліотеках, а також можуть використовуватися як індивідуальні довідкові системи.

Техніко-економічна ефективність проекту досить задовільна, тому що:

­      даний продукт розроблений за допомогою зручних сучасних інструментов розробки, тому вартісь розробки невелика;

­      розроблена програма проста в освоєнні і роботі за рахунок інтуїтивно зрозумілого інтерфейсу.

Технологія розробки, апробована в даному дипломному проекті, може бути успішно застосована і масштабована при розробці широкого класу програмних продуктів. Особливо важливо, що ця технологія дозволяє різко скоротити час, необхідне на її освоєння, оскільки в ній немає складних елементів і тим самим прискорити процес перетворення новачка - розробника в досвідченого фахівця.

ПЕРЕЛІК ПОСИЛАНЬ

1.         Орлова Е.В. Инновационная политика высшего учебного заведения / Е.В. Орлова, Л.Н. Оголева. – М : «Эксмо», 2006. – 342 с.

2.         Гейн А.Г. Методика преподавания современного курса информатики / A.Г. Гейн. – Київ : Видавництво КНЕУ, 2004. – 218 с.

3.         Береза А.М. Основи створення інформаційних систем : [Навчальний посібник] / A.М. Береза. – Київ : Видавництво КНЕУ, 1998. – 205 с.

4.         Вильям А. Электронные библиотеки : [Учеб. пособие для вузов по курсам "Информатика" и "Информ. системы"]/ А. Вильям. — Люберцы : ПИК ВИНИТИ, 2002. — 273 с.

5.         Вигурский К.В. Развитие электронных библиотек: мировой и российский опыт, проблемы, перспективы /К.В. Вигурский, Е.А. Горный. — М.:Гендальф, 2002. — 388 c.

6.         Волохін О.М. Каталогізація цифрових ресурсів Iнтернет: Дублінське ядро метаданих: посібник / О.М. Волохін. — Кіровоград, 2003. — 70 с.

7.         Формат для обміну бібліографічними даними на магнітних носіях : ДСТУ 3578-97. — К.: Держстандарт України, 1997. — 20 с.

8.         Захарова О.В. Аналіз автоматизованих систем бібліотечного сервісу провідних бібліотек світу і України //О.В. Захарова. — К., 2005. — 42 с.

9.         Місюров А.В. Інформаційні системи і технології в обліку : [Навчальний посібник] / А.В. Місюров. – Харків : Видавництво ХНАМГ, 2007. – 80 с.

10.       Курс экономической теории : [Учебное пособие / под общ. ред. М.Н. Чепурина]. – Киров, 1995. – 566с.

11.       Системный анализ и структуры управления : [Под общей редакцией проф. В.Г. Шорина]. – М. : Знание, 1975. – 290с.

12.       Гиг Дж. Прикладная общая теория систем. / Дж. Гиг. – М. : Мир, 1981. – 336с.

13.       Фаулер М. UML. Основы. Второе издание / М. Фаулер, К. Скотт. – М. : Изд-во МАИ, 2002. – 712 с.

14.       Кватрани Т. Rational Rose 2000 и UML. Визуальное моделирование / Т. Кватрани. – М. : ДМК Пресс, 2001. – 176 с.

15.       Оптнер С.Л. Системный анализ для решения деловых и промышленных проблем / С.Л. Оптнер : пер. с англ. – М.: «Советское радио», 1969. – 216 с.

16.       Лагоша Б.А., Комплекс моделей и методов оптимизации расписания занятий в вузе / Б.А. Лагоша, А.В. Петропавловская.– М.: «Экономика и мат. Методы». 1993. – 410 с.

17.       Экономико-математические методы и прикладные модели : [Учеб. пособие для вузов / под ред. В.В. Федосеева]. – М. : ЮНИТИ, 2000. – 652 с.

18.       Сайлер Б. Использование Visual Basic. Специальное издание / Б. Сайлер, Дж. Споттс. – М. : Издательский дом «Вильямс», 2002. – 752с.

19.       Технико-экономическое обоснование дипломных проектов. : [под ред. Веклемишова В.К.] – М : Высшая школа, 1991. – 112 с.

20.       Харитонова И. Самоучитель Access 2000 / Ирина Харитонова. – Питер, 2001. – 881 с.

21.       Корнелл Г. Программирование на VB.NET : [Учебный курс] / Г. Корнелл, Дж. Моррисон. – Питер, 2002. – 920 с.

22.       Ивьен Б. Visual Basic.Net. Библия пользователя / Б. Ивьен, Дж. Берес. – К. : Издательский дом «Вильямс», 2002. – 841 с.

23.       Разработка Windows-приложений на Microsoft Visual Basic.Net и Microsoft Visual C# .Net / [Microsoft Corporation : пер. с англ.]. – Издательско-торговый дом «Русская редакция», 2003. – 780 с.

24.       Документация. Отчеты в сфере науки и техники. Структура и правила оформления : ДСТУ 3008–95. – Киев: Госстандарт Украины, 1995. – 38 с. – (Государственный стандарт Украины).

ДОДАТКИ

До пояснювальної записки дипломного проекту

«Розробка АРМ науково-технічної бібліотеки університету»

  Додаток А Вихідний код програми

Option Explicit

' clsAccess

' Свойства:

' File

' Conn

' Методы:

' OpenBase

' CloseBase

Private Const mstrBaseFileParam As String = "BaseFile"

Private Const mstrDefBaseFile As String = "CPBibl.mdb"

Private Const mstrDefBaseFile As String = "Bibl.mdb"

Private Const mstrDefConnStrUser As String = "User ID=admin;"

Private Const mstrDefConnStrPassw As String = "Jet OLEDB:Database Password=;"

Private Const mstrDefConnStrProvider As String = "Provider=Microsoft.Jet.OLEDB.4.0;"

Private Const mstrDefConnStrSource As String = "Data Source="

Private mstrBaseFile As String

Private mstrConnString As String

Private mcnnConvBase As Connection

Public Property Get File() As String

File = mstrBaseFile

End Property

Public Property Let File(strFile As String)

mstrBaseFile = strFile

End Property

Public Property Get Conn() As Connection

Set Conn = mcnnConvBase

End Property

Private Sub Class_Initialize()

mstrConnString = mstrDefConnStrProvider _

 & mstrDefConnStrPassw _

 & mstrDefConnStrUser _

 & mstrDefConnStrSource

GetBaseFile

End Sub

Private Sub Class_Terminate()

CloseBase

End Sub

Public Sub OpenBase()

On Error GoTo onErr

Set mcnnConvBase = New Connection

mcnnConvBase.Mode = adModeReadWrite

mcnnConvBase.CursorLocation = adUseClient

mcnnConvBase.CommandTimeout = 60

mcnnConvBase.Open mstrConnString & mstrBaseFile

SaveBaseFile

Exit Sub

onErr:

MsgBox Err.Number & " : " & Err.Description

Err.Raise ueFileNotExist, , "Не открывается БД" & vbCrLf _

& mstrBaseFile

End Sub

Public Sub CloseBase()

If mcnnConvBase Is Nothing Then Exit Sub

If mcnnConvBase.State = adStateOpen Then

mcnnConvBase.Close

End If

End Sub

Private Sub GetBaseFile()

mstrBaseFile = gRegistry.GetParam(mstrBaseFileParam, mstrDefBaseFile)

End Sub

Private Sub SaveBaseFile()

gRegistry.SetParam mstrBaseFileParam, mstrBaseFile

End Sub

Option Explicit

Private mstrQuery As String

Private mrec As Recordset

Public Property Let Query(strQuery As String)

mstrQuery = strQuery

End Property

Public Property Get Recs() As Recordset

Set Recs = mrec

End Property

Private Sub Class_Initialize()

Set mrec = New Recordset

End Sub

Private Sub Class_Terminate()

CloseRecs

End Sub

Public Sub OpenRecs()

On Error GoTo onErr

Set mrec.ActiveConnection = gBase.Conn

mrec.Open mstrQuery, , adOpenKeyset, adLockOptimistic, adCmdText

Exit Sub

onErr:

Err.Raise ueFileNotExist, , "Не открывается запрос " & vbCrLf _

& mstrQuery & vbCrLf _

& "в БД " & gBase.File

End Sub

' закрытие описания

Public Sub CloseRecs()

If mrec Is Nothing Then Exit Sub

If mrec.State = adStateOpen Then

mrec.Close

End If

End Sub

Option Explicit

Private Const strList As String = "dgd"

Private Const strFirst As String = "txtStudy"

Private Const strLast As String = "txtName"

Private WithEvents rec As Recordset

Attribute rec.VB_VarHelpID = -1

Private ctlMark As Control

Private edstForm As EditState

' загрузка и выгрузка формы

Private Sub Form_Load()

Set rec = gClientStudy.Recs

Set dgd.DataSource = rec

dgd.Columns(0).Width = dgd.Width - lngDgdBorderWidth

Set ctlMark = txtStudy

edstForm = estView

doFormAlign Me

Me.Caption = gstrClientStudyTitle

gfrmMain.mnuEdit.Enabled = True

doEditListOn

End Sub

Private Sub Form_Unload(Cancel As Integer)

Set ctlMark = Nothing

Set gfrmClientStudy = Nothing

End Sub

Private Sub Form_Terminate()

If gfrmMain.ActiveForm Is Nothing Then

gfrmMain.mnuEdit.Enabled = False

End If

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case vbKeyReturn

KeyAscii = 0

Select Case Me.ActiveControl.Name

Case strLast

 If edstForm = estAdd Then

 SendKeys "{INSERT}"

 End If

 doGoList

Case Else

 doGoNext

End Select

Case vbKeyEscape

KeyAscii = 0

Select Case Me.ActiveControl.Name ' имя активного поля

Case strList

 doGoMark

Case Else

 edstForm = estCancel

 doGoList

End Select

End Select

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case vbKeyF9

KeyCode = 0

doGoFirst

Case vbKeyF10

KeyCode = 0

doGoLast

Case vbKeyF12

KeyCode = 0

Select Case Me.ActiveControl.Name

Case strList

Case Else

 doGoList

End Select

Case vbKeyInsert

KeyCode = 0

Select Case Me.ActiveControl.Name ' имя активного поля

Case strList

 doAddBlank

Case Else

End Select

End Select

End Sub

Private Sub dgd_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case vbKeyDelete

KeyCode = 0

doDelete

End Select

End Sub

' перемещение фокуса

Private Sub dgd_GotFocus()

On Error GoTo onErr

Select Case edstForm

Case estCancel, estView

doFill

Case estUpdate

doUpdate

Case estAdd

doAddRec

End Select

dgd.MarqueeStyle = dbgHighlightRow

doEditListOn

Exit Sub

onErr:

gGen.ErrMsg

gBase.Conn.Errors.Clear

doGoMark

End Sub

Private Sub dgd_LostFocus()

dgd.MarqueeStyle = dbgNoMarquee

doEditFieldsOn

End Sub

Private Sub txtStudy_LostFocus()

Set ctlMark = txtStudy

End Sub

Private Sub txtName_LostFocus()

Set ctlMark = txtName

End Sub

Public Sub doMarkUpdate()

If edstForm <> estAdd Then

edstForm = estUpdate

End If

End Sub

Private Sub rec_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, _

 ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum,

 ByVal pRecordset As ADODB.Recordset)

If edstForm <> estAdd Then doFill

End Sub

' операции с записями

Public Sub doFill()

If rec.EOF Or rec.BOF Then Exit Sub

txtStudy.Text = rec!Study & ""

txtName.Text = rec!Name & ""

edstForm = estView

End Sub

Public Sub doUpdate()

Dim strNameSave As String

Dim lngStudySave As Long

On Error GoTo onErr

doCheck

lngStudySave = rec!Study

strNameSave = rec!Name

rec!Study = txtStudy.Text

rec!Name = txtName.Text

rec.Update

edstForm = estView

Exit Sub

onErr:

Select Case Err.Number

Case dbeEmptyOrRepField

rec!Study = lngStudySave

rec!Name = strNameSave

Set ctlMark = txtStudy

Err.Raise ueInput, , "Повторение значения" & vbCrLf & _

"в Коде Факультета или в Факультете"

Case Else

Err.Raise Err.Number, , Err.Description

End Select

End Sub

Public Sub doCheck()

If Not IsNumeric(txtStudy.Text) Then

Set ctlMark = txtStudy

Err.Raise ueInput, , "Код Факультета должен быть числовым"

End If

If CLng(txtStudy.Text) = lngErrCode Then ' Код типа - не 0

Set ctlMark = txtStudy

Err.Raise ueInput, , "Код Факультета должен быть задан"

End If

If Trim(txtName.Text) = "" Or Trim(txtName.Text) = strErrString Then

Set ctlMark = txtName

Err.Raise ueInput, , "Факультет должен быть задан"

End If

End Sub

Public Sub doAddBlank()

txtStudy.Text = ""

txtName.Text = ""

edstForm = estAdd

doGoFirst

End Sub

Public Sub doAddRec()

On Error GoTo onErr

doCheck

rec.AddNew Array("Study", "Name"), Array(CLng(txtStudy.Text), CStr(txtName.Text))

Exit Sub

onErr:

Select Case Err.Number

Case dbeEmptyOrRepField

rec!Study = lngErrCode

rec!Name = strErrString

rec.Update

rec.Delete

Set ctlMark = txtStudy

Err.Raise ueInput, , "Повторение значения" & vbCrLf & _

Case Else

Err.Raise Err.Number, , Err.Description

End Select

End Sub

Public Sub doDelete()

On Error GoTo onErr

doDelRec

Exit Sub

onErr:

gGen.ErrMsg

rec.Resync adAffectAllChapters

doGoList

End Sub

Public Sub doDelRec()

On Error GoTo onErr

rec.Delete

If rec.RecordCount = 0 Then doAddBlank

Exit Sub

onErr:

Select Case Err.Number

Case dbeDelLinkRec

Err.Raise ueDelLinkRec, , _

 Case Else

Err.Raise Err.Number, , Err.Description

End Select

End Sub

' перемещение курсора

Public Sub doGoNext()

SendKeys "{TAB}"

End Sub

Public Sub doGoList()

dgd.SetFocus

End Sub

Public Sub doGoFirst()

txtStudy.SetFocus

End Sub

Public Sub doGoLast()

txtName.SetFocus

End Sub

Public Sub doGoMark()

ctlMark.SetFocus

End Sub