Зміст

• 1. Теоретична частина.
• 2. Практична частина. Постановка задачі «Автоматизація аналізу ресурсів підприємства».
• Висновок
• Список використаної літератури
• Додаток 1
• Додаток 2
• 1. Теоретична частина

Головним завданням підрозділів забезпечення підприємства ресурсами є своєчасне і оптимальне забезпечення виробництва необхідними ресурсами відповідно комплектності і якості.

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

Організація матеріально-технічного забезпечення ресурсами включає:

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

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

- укладання з постачальниками господарських договорів на поставку продукції;

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

- організацію складського господарства, яке входить в склад служб забезпечення;

- забезпечення цехів, дільниць, робочих місць необхідними матеріальними ресурсами.

Контроль і координація робіт в склад яких входять:

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

- контроль за розходом матеріальних ресурсів на виробництві;

- вхідний контроль за якістю і комплектністю матеріальних ресурсів, що надходять;

- контроль за виробничими запасами;

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

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

В умовах ринку підприємство саме вибирає постачальників, а значить і саме має право на вибір ефективних ресурсів. Це заставляє працівників МТЗ вивчати ринок, а також якість поставок, співпрацювати з різними постачальниками.

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

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

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

Очікуваний запас матеріальних ресурсів О визначають:

О = О_ф + В_ф - Р,

де, Р = (Р_о.п + Р_нзп + Р_бр),

О_ф - фактичний залишок на 1 число по бухгалтерських даних,

В_ф - кількість відпущених цеху (виробничому підрозділу) матеріалів за весь період,

Р_о.п - фактичний відпуск на основне виробництво,

Р_нзп - фактичний відпуск на зміну незавершеного виробництва,

Р_бр - розхід на брак (оформлений актом списання).

В даній курсовій роботі цей розрахунок ми здійснімо у наступний спосіб:

де, S_hr, S_hrj, S_hri - відповідно залишок, надходження та витрати матеріальних ресурсів за h-ий період за r-им ордером згідно з j-им прибутковим чи i-им видатковим документом.

В курсовій роботі буде розроблятися модуль корпоративної інформаційної системи (КІС) автоматизації аналізу матеріальних ресурсів підприємства за допомогою процедур, що написані на VBA (Visual Basic for Application) для MS Access, зокрема для кнопки „Отримати документ” за вищенаведеною формулою.

MS Access - це функціонально повна реляційна СУБД. В ній передбачені всі необхідні вам засоби для визначення і обробки даних, а також для управління ними при роботі з великими обємами інформації. Що стосується легкості використовування, то Microsoft Access вчинив тут справжній переворот, і багато хто для створення своїх власних баз даних і додатків, зокрема на VBA (Visual Basic for Application) звертається саме до нього.

Система управління базами даних надає вам можливість контролювати завдання структури і опис своїх даних, роботу з ними і організацію колективного користування цією інформацією. СУБД також істотно збільшує можливості і полегшує каталогізацію і ведення великих обємів в численних таблицях інформації, що зберігається. СУБД включає три основні типи функцій: визначення (завдання структури і опис) даних, обробка даних і управління даними. Всі ці функціональні можливості повною мірою реалізовані в Microsoft Access. В практиці, як правило, необхідно вирішувати і задачі з використанням електронних таблиць і текстових процесорів. Наприклад, після підрахунку або аналізу даних необхідно їх представити у вигляді певної форми або шаблону. У результаті користувачу доводиться комбінувати програмні продукти для отримання необхідного результату. В цьому значенні все істотно спростять можливості, що надаються Microsoft Access. У курсовій роботі пропонується розглянути ці можливості.

2. Практична частина. Постановка задачі «Автоматизація аналізу ресурсів підприємства»

2.1. Мета, призначення, техніко-економічна сутність задачі й обґрунтування доцільності її розвязання

Задача “Автоматизація аналізу ресурсів підприємства” призначена для отримання інформації про фактичний рух матеріальних ресурсів та їх залишки на балансових рахунках підприємства.

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

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

2.2. Перелік обєктів, при управління якими розвязують задачу

Ця задача вирішується при керуванні такими обєктами підприємства:

- АРМ фахівця по матеріальних ресурсах;

- АРМ оператора;

- АРМ контролера.

2.3. Використання вихідної інформації, періодичність розвязання та організація по строках видачі вихідної інформації

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

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

Видача інформації здійснюється негайно після її отримання на виході задачі.

2.4. Вимоги до організації збору і передачі в обробку вхідної інформації, до порядку її контролю й коригування

Інформація, що надходить на вхід задачі формується у результаті розвязання інших задач корпоративної автоматизованої системи підприємства (КІС). Усі дані про рух матеріальних ресурсів по балансових рахунках вводяться у результаті вирішення задачі “Виконання розрахункових операцій”. Тому не потрібно ніяких додаткових заходів щодо збору та передачі в обробку вхідної інформації.

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

Варіантами таких описів можуть бути такі фрази:

- За поточний день;

- За поточний тиждень;

- За поточний місяць;

- За останні 3 дні;

- За останні 5 днів;

- За останні 10 днів;

- За весь час.

2.5. Умови, за яких припиняється розвязання задачі автоматизованим способом

Умови, за яких припиняється виконання задачі:

· відсутня необхідна інформація з розвязування задачі;

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

· виявлені порушення у базі даних унаслідок несанкціонованого доступу;

· вийшло з ладу енергопостачання ЕОМ;

· вийшло з ладу обладнання, в якому зберігались необхідні дані для розвязування задачі тощо.

2.6. Звязки даної задачі з іншими задачами або системами

Функціональна схема задачі має такий вигляд:

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

2.7. Розподіл функцій між персоналом і технічними засобами у різних ситуаціях розвязання задачі

При розвязанні задачі розподіл дій між персоналом і технічними засобами за різних ситуацій такий:

Функціями операціоніста є:

· введення й контроль правильності первинних даних;

· складання, перевірка й підписування первинних документів;

· друкування вихідних результатних документів, контроль і підписування їх;

· ведення баз даних (додавання, вилучення, коригування записів у базі даних;

· пошук даних

Функціями технічних засобів є:

· ведення бази даних відповідно до команд СУБД;

· обробка даних і друкування вихідної інформації відповідно до прикладних програм;

· виведення повідомлень про системні та інші помилки (збої) на екран дисплея.

3. Вихідна інформація

Перелік та опис вихідних повідомлень наведено у таблиці 1:

Таблиця 1

Перелік та опис структурних одиниць інформації вихідних повідомлень задачі, які мають самостійне смислове значення, наведено в таблиці 2.

Таблиця 2

4. Вхідна інформація

Вхідна інформація для розвязання задачі - первинні документи, файли з довідкової бази даних. Перелік і опис вхідних повідомлень для розвязання задачі наведено в таблиці 3.

Таблиця 3

Перелік та опис структурних одиниць інформації вхідних повідомлень задачі наведено в таблиці 4.

Таблиця 4

5. Опис алгоритму

5.1. Математичний опис задачі

Усі записи, що потрібні для вирішення задачі, зберігаються у одному файлі БД під назвою OPERRES. Кожна запис цього файлу - це окрема операція, яка відбулася з певним ордером. Кожна операція має певну суму, яку ми позначимо як S.

Сума, яка стосується певного ордеру та певної дати (або періоду) позначимо як S_hr - де h - це позначення періоду, r - позначення ордеру.

Операції по рахунках матеріальних ресурсів бувають двох видів: прибуткові та видаткові. Позначимо індексами пр та вид тип операції. Тоді сума може мати вигляд:

або

Щоб визначити залишок по балансових рахунках матеріальних ресурсів, треба використати таку формулу:

(1)

де S_hr, S_hrj, S_hri - відповідно залишок, надходження та витрати матеріальних ресурсів за h-ий період за r-им ордером згідно з j-им прибутковим чи i-им видатковим документом.

5.2. Структурно-логічна схема алгоритму

6.1. Таблиці та запити БД

Для зберігання вхідних даних задачі створено такі таблиці:

Структури таблиць:

Рахунки

Довідник матеріальних ресурсів

Операції

Ордери

Структура запиту розроблено безпосередньо для кнопці «Отримати документ» (кнопка 8) форми на мові VBA.

Схема даних БД модулю аналізу матеріальних ресурсів наведено на рис.6.1.

Рис.6.1.

Форма «Реєстр матеріальних ресурсів» наведено на рис.6.2.

Рис.6.2.

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

Звіт (натиснення кнопки „Отримати звіт”) „Реєстр матеріальних ресурсів” наведений на рис.6.3.

Рис.6.3.

При натисненні кнопки „Надрукувати звіт” - звіт буде відправлено на друкарський пристрій (принтер) до друку.

При натисненні кнопки „Вихід” буде здійснено закриття форми.

Вихід з програми здійснюється за допомогою кнопці „Вихід” головної кнопкової форми (наведена в додатку 1), що завантажується автоматично при відкритті БД.

Лістинг кодів 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