46654 (607898), страница 3

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 3)

Лістинг кодів VBA модулю „Матеріальні ресурси підприємства” наведений у додатку 2 до даній курсової роботи.

Висновок

Microsoft Access, володіючи всіма рисами класичної СУБД, надає і додаткові можливості. Access - це не тільки могутня, гнучка і проста у використовуванні СУБД, але і система для розробки працюючих з базами даних додатків. За допомогою Access ми створили додаток, що працює в середовищі Windows і повністю відповідне нашим потребам по управлінню даними. Використовуючи запити, ми можемо вибирати і обробляти в таблицях інформацію, що зберігається. Створили форми для введення, перегляду і оновлення даних, а також використали Access для створення як простих, так і складних звітів. Форми і звіти «успадковують» властивості базової таблиці або запиту, так що в більшості випадків ми вказуємо формати, умови на значення і деякі інші характеристики даних тільки один раз. До числа наймогутніших засобів Access відносяться засоби розробки об'єктів - Майстри, яких ми використовували для створення таблиць, запитів різних типів форм і звітів, а також кнопок і інших атрибутів вбудованого Visual Basic, просто вибравши за допомогою миші потрібні опції. Щоб повністю автоматизувати роботу додатку, за допомогою макросів Access також можна легко зв'язати дані з формами і звітами. Переконалися, що можна створити додаток, не написавши ні єдиного рядка програми, але якщо нам необхідно створити щось вже дуже витончене, то на цей випадок Microsoft Access надає могутню мову програмування - Microsoft Access Visual Basic for Application - VBA.

І, нарешті, всі ці засоби дозволяють створювати додатки, що працюють не тільки з базою даних Access, але і з іншими найпоширенішими базами даних. Наш додаток, при потребі, може працювати безпосередньо з файлами dBASE, з базами даних Раrаdох, FохРrо і будь-якою базою даних, підтримуючих ОDВС. Можна також легко імпортувати дані з текстових файлів, документів текстових процесорів і електронних таблиць (і експортувати дані в них).

Microsoft Access має безліч областей застосування: на малому підприємстві; в роботі за контрактом, коли ми розробляємо прикладні програми за замовленням або виступаємо в ролі консультанта; у великих корпораціях, коли ми виступаємо в ролі координатора виробничих інформаційних систем і навіть у сфері домашнього застосування.

Список використаної літератури

1. Рогач І.Ф., Сендзюк М.А., Антонюк В.А., Денісова О.О. Інформаційні системи. – Київ, КНЕУ, 2001. – 324 с.

2. Ситник В.Ф. та ін. Основи інформаційних систем – К.:КНЕУ, 2001

3. Береза А.М. Основи створення інформаційних систем – К.:КНЕУ, 2001

4. Информационные системы в экономике. Под редакцией профессора В.В.Дика – М.:Финансы и статистика, 1996

5. Смирнова Г.Н, Сорокин А.А., Тельнов Ю.Ф. Проектирование экономических информационных систем – М.: Финансы и статистика, 2003

Додаток 1

Рис.Д1. Головна кнопкова форма модулю „Матеріальні ресурси підприємства”

Додаток 2

Лістинг кодів VBA модулю „Матеріальні ресурси підприємства”

Option Compare Database

Private Sub Form_Open(Cancel As Integer)

Me.РухКоштів.Form.Filter = False

Me.РухКоштів.Form.FilterOn = True

End Sub

Private Sub Кнопка10_Click()

DoCmd.Close

End Sub

Private Sub Кнопка8_Click()

Dim StrFilt As String

Dim StrDat1 As String

Dim StrDat2 As String

Dim sv As Single

Dim sp As Single

Dim dbs As Database

Dim oper As Recordset

Dim rah As Recordset

Set dbs = CurrentDb

Set oper = dbs.OpenRecordset("Операції")

Set rah = dbs.OpenRecordset("Рахунки", dbOpenDynaset)

StrDat1 = "#" & Month(Me.ДатаС) & "/" _

& Day(Me.ДатаС) & "/" _

& Year(Me.ДатаС) & "#"

StrDat2 = "#" & Month(Me.ДатаПо) & "/" _

& Day(Me.ДатаПо) & "/" _

& Year(Me.ДатаПо) & "#"

StrFilt = "Дата >= " & StrDat1 & " AND " & _

"Дата <= " & StrDat2 & " AND " & _

"Документ = " & Me.Ордер

'Me.РухКоштів.Form.Filter = StrFilt

rah.FindFirst "Ордер = " & Me.Ордер

Me.Залишок = rah!Сума

oper.MoveFirst

sv = 0

sp = 0

Do While Not oper.EOF

If oper!Документ = Val(Me.Ордер) Then

Select Case oper!Тип

Case "Видаток"

sv = sv + oper!Сума

Case "Прибуток"

sp = sp + oper!Сума

End Select

End If

oper.MoveNext

Loop

Me.Залишок = Me.Залишок - sv + sp

oper.Close

rah.Close

Set dbs = Nothing

Me.РухКоштів.Form.Filter = StrFilt

End Sub

Private Sub Кнопка9_Click()

DoCmd.OpenReport "Реєстр документів", acViewPreview, , _

Me.РухКоштів.Form.Filter

End Sub

Private Sub Кнопка13_Click()

On Error GoTo Err_Кнопка13_Click

Dim stDocName As String

stDocName = ChrW(1056) & ChrW(1077) & ChrW(1108) & ChrW(1089) & ChrW(1090) & ChrW(1088) & ChrW(32) & ChrW(1082) & ChrW(1072) & ChrW(1089) & ChrW(1086) & ChrW(1074) & ChrW(1080) & ChrW(1093) & ChrW(32) & ChrW(1086) & ChrW(1088) & ChrW(1076) & ChrW(1077) & ChrW(1088) & ChrW(1110) & ChrW(1074)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка13_Click:

Exit Sub

Err_Кнопка13_Click:

MsgBox Err.Description

Resume Exit_Кнопка13_Click

End Sub

Private Sub Кнопка14_Click()

On Error GoTo Err_Кнопка14_Click

Dim stDocName As String

stDocName = ChrW(1056) & ChrW(1077) & ChrW(1108) & ChrW(1089) & ChrW(1090) & ChrW(1088) & ChrW(32) & ChrW(1087) & ChrW(1083) & ChrW(1072) & ChrW(1090) & ChrW(1110) & ChrW(1078) & ChrW(1085) & ChrW(1080) & ChrW(1093) & ChrW(32) & ChrW(1076) & ChrW(1086) & ChrW(1082) & ChrW(1091) & ChrW(1084) & ChrW(1077) & ChrW(1085) & ChrW(1090) & ChrW(1110) & ChrW(1074)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка14_Click:

Exit Sub

Err_Кнопка14_Click:

MsgBox Err.Description

Resume Exit_Кнопка14_Click

End Sub

Private Sub Кнопка15_Click()

On Error GoTo Err_Кнопка15_Click

Dim stDocName As String

stDocName = ChrW(1056) & ChrW(1077) & ChrW(1108) & ChrW(1089) & ChrW(1090) & ChrW(1088) & ChrW(32) & ChrW(1084) & ChrW(1072) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1110) & ChrW(1072) & ChrW(1083) & ChrW(1100) & ChrW(1085) & ChrW(1080) & ChrW(1093) & ChrW(32) & ChrW(1088) & ChrW(1077) & ChrW(1089) & ChrW(1091) & ChrW(1088) & ChrW(1089) & ChrW(1110) & ChrW(1074)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка15_Click:

Exit Sub

Err_Кнопка15_Click:

MsgBox Err.Description

Resume Exit_Кнопка15_Click

End Sub

Private Sub Кнопка16_Click()

On Error GoTo Err_Кнопка16_Click

Dim stDocName As String

stDocName = ChrW(1056) & ChrW(1077) & ChrW(1108) & ChrW(1089) & ChrW(1090) & ChrW(1088) & ChrW(32) & ChrW(1084) & ChrW(1072) & ChrW(1090) & ChrW(1077) & ChrW(1088) & ChrW(1110) & ChrW(1072) & ChrW(1083) & ChrW(1100) & ChrW(1085) & ChrW(1080) & ChrW(1093) & ChrW(32) & ChrW(1088) & ChrW(1077) & ChrW(1089) & ChrW(1091) & ChrW(1088) & ChrW(1089) & ChrW(1110) & ChrW(1074)

DoCmd.OpenReport stDocName, acNormal

Exit_Кнопка16_Click:

Exit Sub

Err_Кнопка16_Click:

MsgBox Err.Description

Resume Exit_Кнопка16_Click

End Sub

Характеристики

Список файлов курсовой работы