Автоматизація обліку та аналізу матеріальних ресурсів підприємства (стр. 3 из 3)
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