Міністерство освіти республіки Білорусь
Мінський державний вищий радіотехнічний коледж
до курсового проекту по предмету
"Системне й прикладне програмне забезпечення"
на тему "Автоматизація роботи підприємства ТОВ" Стимул-Брест "
КП 83.81004.401ПЗ
Керівник проекту
Мещерякова А. А.
Студент
Бояревіч І.М.
Мінськ 2006
Зміст
Введення
1. Аналіз завдання
1.1 Опис предметної області
1.2 Модель даних
1.3 Інструменти розробки
1.4 Вимоги до додатка
2. Проектування завдання
2.1 Організація даних
2.2 Концептуальний прототип
2.3 Система довідкової інформації
2.4 Засоби захисту та розмежування доступу до даних
3. Реалізація
3.1 Логічна і фізична організація функцій
3.2 Функції та елементи керування
3.3 Функціональне тестування
4. Застосування
4.1 Призначення
4.2 Середовище функціонування
Висновок
Література
Додаток А
Додаток Б
Введення
Вісімдесяті роки - це час приходу персональних комп'ютерів (ПК), а разом з ними програм обробки даних загального призначення, спочатку оформлених у вигляді баз даних. І хоча вони служили чудовим засобом для роботи з невеликими масивами даних, їх можливостей часто виявлялося занадто мало для проведення спеціального аналізу великих масивів даних. На початку 90-х років багато компаній розраховували скористатися перевагами розроблених на той час комп'ютерних технологій обробки даних, і мільйони доларів були інвестовані у розвиток великих інформаційних систем, що використовують мови програмування високого рівня, такі як Кобол, Сі і Паскаль. Хоча такі користувальницькі системи забезпечували можливість аналізу великих масивів даних, вони вимагали значних витрат на стадії розробки і їх було важко підтримувати на стадії експлуатації. Вони також мали тенденцію бути або надто предметно-орієнтованими, або надмірно загальними. Тим часом були зроблені спроби, вбудувати деякі можливості мов програмування високого рівня в існуючі тоді СУБД шляхом створення макромов. Однак навіть на початку 90-х років можливості макромов в СУБД були дуже обмежені. Макромови (засновані на запам'ятовуванні послідовності натиснутих клавіш) були недостатньо потужні, а процедурно-орієнтовані мови важкі для більшості користувачів. Були також зроблені спроби щодо зменшення складності програмного забезпечення для розробників високого рівня. Введення засобів візуального програмування в системи, що працюють на базі ПК, спростило розробку додатків, які раніше створювалися на мовах високого рівня, значно зменшивши тим самим як вартість, так і зусилля, витрачені на створення таких систем. Зараз стало очевидним, що ідеальний засіб розробки інформаційних систем на базі ПК має об'єднувати обчислювальні можливості СУБД, з одного боку, та можливості сучасних візуальних засобів розробки додатків - з іншого. Такі кошти дозволять різним фірмам розробляти та підтримувати гнучкі та ефективні інформаційні системи за менший час і з меншими витратами. Microsoft Access - це засіб розробки інформаційних систем нового покоління, що сполучає в собі всі переваги як засобів створення баз даних, так і засобів візуального програмування. Дійсно, Access - це перша СУБД, що пропонує візуальний засіб розробки - мова Visual Basic for Applications, більш відомий як VBA, який забезпечує повний доступ з програм користувача до всіх функцій аналізу даних, які є у цій програмі. За допомогою VBA можна легко і швидко створювати користувальницькі додатки, використовуючи єдину для всіх офісних програм середовище й мову. Навчившись розробляти додатка для однієї офісної програми, наприклад Access, можна створювати додатки і для інших офісних програм, наприклад Excel. Крім того, за своєю структурою, інтерфейсу й синтаксису Visual Basic for Application утворює ядро Visual Basic. Вивчення VBA зовсім не вимагає бути професійним програмістом. VBA має потужні убудовані інтелектуальні засоби, які дозволяють навіть починаючому користувачеві швидко самостійно розробляти професійні додатки. Наприклад, при написанні коду програми редактор VBA сам пропонує користувачеві можливі продовження становлять їм. Іншим прикладом убудованих інтелектуальних засобів VBA є макрорекордер, що переводить всі виконувані вручну користувачем дії в основному додатку на мову VBA. Таким чином макрорекордер дозволяє користувачеві доручати VBA самому створювати більші шматки коду розробляється.
1. Аналіз завдання
1.1 Опис предметної області
Метою даного проекту є розробка бази даних "Автоматизація роботи підприємства ТОВ 'Стимул-Брест'", призначеної для перегляду даних про виробленої підприємством продукції, а також інформацію про клієнтів. БД призначена для найбільш простій і доступній роботи з інтерфейсом програми, а також деякими іншими можливостями цього програмного продукту. Програмний засіб має бути розроблено на основі системи управління базами даних (СКБД) MS Access 2000 для функціонування під управлінням операційної системи Windows 98/2000. ПС має володіти простим і зрозумілим інтерфейсом, а також керівництвом, що допомагає користувачеві розібратися з управлінням в процесі виконання програми. Вимоги, як до програмного, так і до апаратного забезпечення, повинні бути, по можливості, мінімальними. Програма повинна адекватно реагувати на всі виникаючі в процесі роботи програми ситуації і обробляти їх відповідно до алгоритму поставленого завдання. Програма повинна надавати користувачеві наступний набір операцій з обробки інформації:
дозволяти вводити, видаляти і редагувати інформацію, що міститься в архівах даних;
дозволяти отримувати різного виду звіти, переглядати їх і виводити на друк.
Головне завдання даного програми: забезпечити користувача всю доступну інформацію з різних напрямків.
1.2 Модель даних
Після створення різних таблиць, що містять дані, пов'язані з різним аспектам бази даних необхідно продумати, яким чином Microsoft Access буде об'єднувати ці дані при їх вилученні з бази даних. Першим кроком при цьому є визначення зв'язків між таблицями. Після цього стає можливим створення запитів, форм і звітів, у яких виводяться дані з декількох таблиць відразу. Найбільш поширеними є види зв'язків: "один - до - одному", "багато - до - одному", "багато - до - багатьох". У даному курсовому проекті реалізовано два види зв'язків. Зв'язок "один - до - одному" застосовується між таблицями "Замовлення" і "Співробітники", "Замовлення" і "Доставка", "Оплата" та "Метод оплати". Зв'язок "один - до - багатьом" встановлюється між таблицями "Клієнти" і "Замовлення", "Замовлення" і "Відомості про замовлення", "Товари" і "Відомості про замовлення", "Замовлення" і "Оплата".
1.3 Інструменти розробки
Для реалізації поставленого завдання, в якості середовища розробки програми вибрана система управління базами даних (СКБД) Microsoft Access 2000 і вбудований макромова Visual Basic for Application (VBA). За допомогою VBA можна легко і швидко створювати користувальницькі додатки, використовуючи єдину для всіх офісних програм середовище й мову. Навчившись розробляти додатка для однієї офісної програми, наприклад Access, можна створювати додатки і для інших офісних програм, наприклад Excel. Крім того, за своєю структурою, інтерфейсу й синтаксису Visual Basic for Application утворює ядро Visual Basic. Тому той, хто вивчить програмування на VBA дуже швидко може освоїти й Visual Basi c.
1.4 Вимоги до додатка
Перш ніж приступати до розробки програми, треба чітко уявляти, як їм будуть користуватися. Це уявлення формально реалізує інтерфейс між діалогом користувача і додатки. Інтерфейс повинен містити достатньо інформації, щоб діалогова форма з'являлася на екрані в бажаному вигляді.
При розробці програми необхідно створити власний інтерфейс управління системою. Необхідно виключити з меню і панелі інструментів основної програми команди і кнопки, які не відносяться до розробляється додатком, а потрібно додати в інтерфейс нові розроблені засоби. Вікно програми має мати стандартне оформлення. У рядку заголовка назви програми необхідно вказати ім'я створюваного додатку. Меню повинне містити набір дій, що надають користувачеві доступ до основних функцій програми. При необхідності вибір пункту меню супроводжується випадним меню, що містить відповідний список дій. Назва пунктів меню повинні відображати закріплені функції програми. Якщо при виконанні дії буде розгорнуто діалогове вікно, то необхідно після назви поставити три крапки. Панель інструментів повинна містити кнопки основних дій і функції програми. Вид панелі інструментів повинен відповідати набору дій, доступних в певному режимі роботи з додатком. Висновок і видалення панелі інструментів має виробляється програмно. Методи створення рядків меню та їх елементів керування можна застосувати до розробки контекстних меню. У додатку повинні бути розроблені необхідні контекстні меню і задані моменти їхнього висновку. Вони також повинні містити дії необхідні для програми.
У додатку необхідно також створити засоби захисту, які дозволяють кожному користувачу або категорії бачити або змінювати тільки ті дані або об'єкти, на які йому були видані права адміністратором системи (наприклад, неможливо редагувати дані у формах без відповідного дозволу). Дані можна захистити паролем або дозволити тільки перегляд даних.
2. Проектування завдання
2.1 Організація даних
У Microsoft Access, перш ніж створювати таблиці, форми та інші об'єкти необхідно задати структуру бази даних. Добра структура бази даних є основою для створення ефективної бази даних, що відповідає визначеним вимогам.
Етапи проектування бази даних
А) Визначення мети створення бази даних.
Б) Визначення таблиць, які повинна містити база даних.
В) Визначення необхідних полів у таблиці.
Г) Завдання індивідуального значення кожному полю.
Д) Визначення зв'язків між таблицями.
Е) Оновлення структури бази даних.
Ж) Додавання даних і створення інших об'єктів бази даних.
З) Використання засобів аналізу в Microsoft Access.
А) Визначення мети створення бази даних
На першому етапі проектування бази даних необхідно визначити мету створення бази даних, основні її функції та інформацію, яку вона повинна містити. Тобто потрібно визначити основні теми таблиць бази даних та інформацію, яку будуть містити поля таблиць.
База даних повинна відповідати вимогам тих, хто безпосередньо з нею працювати. Для цього потрібно визначити теми, які повинна розкривати база даних, звіти, які вона повинна виводити, порівняти створювану базу даних із добре спроектованою, подібною їй базою.
Б) Визначення таблиць, які повинна містити база даних
Одним з найбільш складних етапів у процесі проектування бази даних є розробка таблиць, тому що результати, які повинна видавати база даних не завжди дають повне уявлення про структуру таблиці.
При проектування таблиць, рекомендується керуватися такими основними принципами:
Інформація в таблиці, по можливості, не повинна дублюватися. Не повинно бути повторень і між таблицями.
Коли певна інформація зберігатися лише в одній таблиці, то і змінювати її доведеться лише в одному місці. Це робить роботу ефективнішою і простий, а також виключає можливість розбіжності інформації в різних таблицях.
Кожна таблиця повинна містити інформацію лише на одну тему.
Дані на кожну тему опрацьовуються набагато легше, якщо вони є вони в різних таблицях. Наприклад, основна та додаткова інформація зберігаються в різних таблицях, з тим, щоб додаткова інформація відображалася тільки в міру потреби.
В) Визначення необхідних у таблиці полів
Кожна таблиця містить інформацію на окрему тему, а кожне поле в таблиці містить окремі дані по темі таблиці. Наприклад, у таблиці з основними даними про замовлення по клієнтам можуть бути поля з умовами оплати і доставки.
Під час розробки полів для кожної таблиці необхідно пам'ятати:
Кожне поле має бути пов'язане з темою таблиці.
Не рекомендується включати до таблиці дані, які є результатом виразу.
У таблиці має бути вся необхідна інформація.
Інформацію слід по можливості розбивати на найменші логічні одиниці.
Г) Завдання індивідуального значення кожному полю
З тим щоб Microsoft Access могла зв'язати дані з різних таблиць. Кожна таблиця повинна містити поле чи набір полів, які будуть задавати індивідуальне значення кожного запису в таблиці. Таке поле чи набір полів називають основним ключем.
Д) Визначення зв'язків між таблицями
Після розподілу даних по таблицях і визначення ключових полів необхідно вибрати схему для зв'язку даних у різних таблицях. Для цього потрібно визначити зв'язки між таблицями.
Бажано вивчити зв'язки між таблицями в уже існуючій базі даних.
Е) Оновлення структури бази даних
Після проектування таблиць, полів і зв'язків необхідно ще раз переглянути структуру бази даних і виявити можливі недоліки. Бажано це зробити на даному етапі, поки таблиці не заповнені даними.
Для перевірки необхідно створити кілька таблиць, визначити зв'язки між ними та ввести кілька записів у кожну таблицю, потім подивитися, чи відповідає база даних поставленим вимогам. Рекомендується також створити чорнові вихідні форми та звіти і перевірити, чи видають вони необхідну інформацію. Крім того, необхідно виключити з таблиць усі можливі повторення даних.
Ж) Додавання даних і створення інших об'єктів бази даних
Якщо структури таблиць відповідають поставленим вимогам, то можна вводити всі дані. Потім можна створювати будь-які запити, форми, звіти, макроси та модулі.
З) Використання засобів аналізу у Microsoft Access
У Microsoft Access існує два інструменти для вдосконалення структури баз даних. Майстер аналізу таблиць досліджує таблицю, в разі потреби пропонує нову її структуру та зв'язку, а також переробляє її. Аналізатор швидкодії досліджує всю базу даних, дає рекомендації щодо її поліпшення, а також здійснює їх.
2.2 Концептуальний прототип
Під концептуальним прототипом проектування завдання мається на увазі опис зовнішнього користувальницького інтерфейсу, а саме:
опис користувальницької меню, мається на увазі рядок меню.
опис елементів управління (різних кнопок, за допомогою яких полегшується робота користувача).
Розроблена рядок меню містить набір дій, що надають користувачеві доступ до основних функцій програми. Назви пунктів меню відображаються закріпленими функціями програми. У цьому додатку рядок меню містить наступні пункти меню і підменю:
пункт меню Файл, містить такі пункти підменю:
Вихід, завершує роботу додатком.
Друк, виводить на друк головний звіт.
пункт меню Форми, містить такі пункти підменю:
Продукція, виводить інформацію про готової продукції.
Співробітники, виводить інформацію про агентів з продажу.
Замовлення по клієнтам, виводить інформацію про клієнтів і їх замовленнях.
пункт меню Про тчети, містить такі пункти меню:
Неоплачені рахунки, відображає інформацію про всіх неоплачених рахунках.
Продажі по клієнтах, виводить інформацію про суму боргу по кожному клієнту.
Продажі по товарах, виводить інформацію про кількість по кожному типу замовленої продукції та загальній сумі.
пункт меню П омощь, містить такі пункти меню:
Довідка, виводить довідку по даній базі даних.
Показати помічника, запускає довідку-Ськрепиш.
Про базу, виводить деякі дані про підприємство.
Панель інструментів складається з панелі інструментів створеної програмно, і містить кнопки необхідних дій і функцій програми. Вид панелі інструментів не постійний і змінюється протягом роботи з базою. Наприклад, при роботі з даними в звітах можна використовувати деякі можливості панелі "Попередній перегляд". Всі кнопки на панелі інструментів мають спливаючі підказки. Висновок панелей інструментів проводиться програмно, а приховати панелі можна як програмно, так і штучно, крім головної панелі. А також, щоб користувачеві було зручніше працювати з додатком і панеллю інструментів, він може перетягнути панель інструментів у зручний для нього місце (наприклад, панель знаходиться вгорі, а користувачеві зручніше, коли панель знаходиться внизу або ліворуч, або праворуч), крім головної панелі.
При натисканні правої кнопки миші в полі форми, з'являється контекстне меню, що містить приблизно наступні пункти:
Властивості, показує форму властивостей обраного елемента форми.
Вирізати, видаляє виділене користувачем і поміщає це в буфер.
Копіювати, копіює в буфер виділений об'єкт.
Вставити, вставляє вміст буфера обміну.
Виділити всі, виділяє повністю об'єкт і весь його вміст.
Сортування за зростанням, сортує дані в полі за зростанням.
Сортування за спаданням, сортує дані в полі за спаданням.
Знайти ..., викликає однойменне діалогове вікно, що дозволяє знайти будь-який текст, введений користувачем.
Конструктор форм, відкриває поточну форму в режимі конструктора.
Режим таблиці, відкриває поточну форму в режимі таблиці.
При натисканні правої кнопки миші в будь-якому зі звітів, з'являється контекстне меню, що містить наступні пункти:
Друк ..., відкриває однойменне діалогове вікно, в якому користувач встановлює всі необхідні параметри перед друком.
Параметри сторінки ..., відкриває однойменне діалогове вікно, в якому користувач робить необхідні установки сторінок.
Масштаб, дозволяє вибрати користувачу масштаб відображення звіту.
Зберегти як ..., дозволяє зберегти звіт у базі під іншим ім'ям.
Експорт ..., дозволяє експортувати звіт зі збереженням його в різному вигляді під різні додатки.
Кожна програма має своє вікно, в якому виводяться результати його роботи. Крім вікна програми, широко використовуються діалогові вікна. Діалогові вікна можна переміщати по екрану, але вони мають постійні розміри і їх не можна згорнути або розгорнути.
Вікно проекту в редакторі VBA активується вибором команди вигляд, вікно проекту або натисканням кнопки вікно проекту. У вікні проекту представлена ієрархічна структура файлів форм і модулів поточного проекту.
У проекті автоматично створюється модуль для кожного робочого листа і для всієї книги. Крім того, модулі створюються у кожній форми, макросів і класів. За своїм призначенням модулі діляться на два типи: модулі об'єктів і стандартні. До стандартних модулів відносяться ті, які містять макроси. До модулів об'єктів відносяться модулі, пов'язані з робочою книгою, робочими листами, формами, і модулями класу.
У вікні проекту виводиться проект всіх відкритих робочих книг. Це дозволяє легко копіювати форми і коди з одного проекту в інший, що прискорює процес створення нових додатків.
Вікно для редагування коду. Переміщення вказівника на значок файлу у вікні проекту і виконання подвійного клацання кнопкою миші відкриває вікно редактора коду для відповідного модуля.
Вікно редагування коду служить як редактора для введення і зміни коду процедур додатки. Код всередині модуля організований у вигляді окремих розділів для кожного об'єкта, програмованого в модулі. У вікні редагування доступні два режими подання коду: перегляд окремої процедури і всього модуля. Переключення режимів роботи вікна редагування коду здійснюється вибором однієї з двох кнопок у нижньому лівому кутку вікна редагування коду, або установкою або зняттям прапорця перегляд усього модуля вкладки редактор діалогового вікна параметри, що відображається на екрані командою сервіс, параметри.
2.3 Система довідкової інформації
Одна з найважливіших складових успіху програми - повноцінне документування всіх його можливостей, щоб користувач завжди міг звернутися за допомогою, якщо виникли труднощі. Один із способів документування - створення довідкової системи.
Довідкова система дозволяє отримати інформацію по роботі з програмою. При цьому можна ознайомитися як із загальним оглядом теми, так і з окремими питаннями. Звернутися за допомогою до довідковій підсистемі можна, вибравши в меню "Допомога" розділ "Довідка". На екрані з'явиться вікно довідки, зробленої за допомогою HTML. Воно допоможе відповісти на питання.
У процесі програмування користувачеві надається широкий вибір персонажів. Довідка і помічник створювалися за допомогою функцій VBA. Програмування "Помічника" здійснювалося за допомогою об'єкту Assistant, який також дозволяє звернутися до об'єктів Balloon містить список розділів довідки. Для управління рухами помічника використовувалося властивість Animation. Лістинг програми можна знайти в "Додатку Б".
Система довідкової інформації є стандартним засобом всіх додатків. Створення файлу довідки - це не тільки створення файлу, але й складання переліку питань, на які необхідно дати відповідь. Помічник і файл довідки підвищують зручність використання програми, надаючи всю необхідну інформацію.
Помічник програмується на VBA за допомогою об'єкта Assistant. Структура об'єкта Assistant наведена на малюнку. Важливою особливістю об'єкта є те, що це одиничний об'єкт, який не є елементом ніякого сімейства об'єктів. У кожен момент можна вивести лише одного помічника. Але помічника можна видозмінювати по ходу роботи програми. Об'єкт Balloon являє собою вікно помічника, яке містить список розділів довідки, пов'язаних з помічником.
2.4 Засоби захисту та розмежування доступу до даних
Існує декілька способів захисту даних в додатку. Одним з них є завдання пароля бази даних. У цій базі, при її відкритті, запитується пароль, і тому не будь-який користувач має можливість роботи з базою даних
При роботі з базою в будь-якому стані ні хто не має прямого доступу до вікна бази даних, тобто до всіх форм, звітів, запитам, таблиць та модулів на пряму. При роботі з базою редактор VB недоступний, а доступ до коду VBA заблокований (запаролити). Для того щоб переглянути код, необхідно ввести пароль, який знає тільки розробник даного програмного продукту. Це так само один з методів захисту інформації.
Для зчитування інформації за допомогою інструкції Input # з файлу, файл послідовного доступу іноді зручно задавати як послідовність записів, причому кожна з записів формується з групи полів. Зазначимо, що таке угруповання за записами не є чимось притаманним файлів послідовного доступу. Це просто підхід, що дозволяє спростити процес послідовного зчитування записів. У файлі послідовного доступу існує тільки одна внутрішня структура, утворена роздільниками.
На противагу файлів послідовного доступу, у файлах довільного доступу запис є вбудованим елементом. Файл довільного доступу - це файл, упорядкований по записах, що дозволяє швидко переміститися на будь-який запис, минаючи попередні.
При створенні файлу довільного доступу вказується максимальна довжина кожного запису. Само собою зрозуміло, що в будь-який запис можна вводити дані, що займають не всі місце, виділене для запису, але не можна ввести дані, що вимагають більше місця, ніж допустима довжина запису. Зайва інформація буде просто буде скорочуватися. На практиці буває зручно створювати окремий файл, в якому зберігається інформація про структуру файлу довільного доступу: структура запису, її довжина і заголовки полів.
3. Реалізація
3.1 Логічна і фізична організація функцій
У процесі розробки даного програмного продукту було реалізовано безліч функцій і процедур. Кожна з процедур, та функцій відповідає за певні дії і виконується в певний момент часу. За допомогою існуючих процедур відбувається обробка подій, запуск різних форм і звітів, перевірка на помилки, які можуть виникнути при роботі з базою і багато іншого. Деякі процедури і функції безпосередньо взаємопов'язані між собою, тобто при обробці якого-небудь події одна процедура може посилатися на іншу. Таких взаємозв'язків у цій базі досить багато, тому що це полегшує написання обробок подій, і робить програмний код VBA більш читабельним. Прикладом може послужити, наприклад процедура Form _ Load (), яка посилається на процедури, які знаходяться в різних модулях. При написанні програми був створений один модуль, який має набір процедур і функцій, що відповідають за певні дії. Модуль, при запуску бази, створює панель інструментів з набором певних можливостей і поміщає її зверху програми. Так само цей модуль робить видалення цієї панелі при закритті головною кнопкової форми; відповідає за появу і подальша поведінка довідки-вченого, а так само він робить запуск файлу довідки Help. Html, який знаходиться в тій же директорії на жорсткому диску, де і сама база . Модуль робить запуск, відповідних вибір користувача, звітів. Написання модулів, що відповідають за певні дії, значно полегшують читабельність і пошук помилок при написанні програми.
3.2 Функції та елементи керування
Далі наведені основні модулі програми з описом. Модуль - Assistant_module. Public Sub MyAssistant () - ініціалізація функції MyAssistant. Dim MA As Assistant - оголошення змінної MA
Set MA = Assistant - завдання змінної MA властивостей об'єкта Assistant
MA. FileName = "\ Program files \ Microsoft Office \ Office \ clippit. Acs" - ініціалізація файлу зовнішнього вигляду помічника
MA. Visible = True - висновок помічника на екран дисплея
MA. MoveWhenInTheWay = True - завдання помічникові властивості MoveWhenInTheWay (тобто Помічник зсувається в бік так щоб не заважати користувачеві вводити або переглядати текст)
MA. Animation = msoAnimationSearching - помічнику передається властивість анімації-пошуку. Dim MB As Balloon - оголошення змінної MB. Set MB = MA. NewBalloon - мінлива МВ ініціалізується як NewBallon (). With MB - оголошення циклу With
Heading = "Помічник по курсовому проекту''ТОВ" СТИМУЛ-БРЕСТ'''
Text = "Значення кнопок у меню:"
Labels (1). Text = "Відомості про фірму."
Labels (2). Text = "Продукція."
Labels (3). Text = "Інформація про проект."
Labels (4). Text = "Попрощатися з помічником."
BalloonType = msoBalloonTypeButtons
Mode = msoModeModeless
End With
MB.Show
End Sub
З повним кодом VBA можна ознайомитися у Додатку Б.
3.3 Функціональне тестування
При запуску нашого застосування екран буде виглядати так, як показано на "малюнку 3" Додатки А. з'явилася головна кнопкова форма забезпечена користувача меню. За допомогою цього меню користувач може зробити наступні дії: запустити підлеглі форми, такі як "Замовлення по клієнтам", "Перегляд інших відомостей", "Перегляд звітів"; переглянути, роздрукувати різні підсумкові звіти; дізнатися про умови замовлення, доставки, оплати; переглянути інформацію про продукцію; отримати допомогу по користуванню базою даних і деякі відомості про розробника то пак, про мене; відправити пошту на мою електронну скриньку; вийти з програми. Розглянемо всі можливості детальніше:
1. Кнопка "Замовлення по клієнтам". При натисканні цієї кнопки відбувається запуск відповідної форми, зображеної на "малюнку 4" Додатки А. За допомогою цієї форми можна дізнатися дані по замовнику (ПІБ, адресу, телефон, назва організації). Тут користувач може вибрати певного клієнта зі списку і переглянути дані про нього або безпосередньо про його замовленні. Є так само можливість дізнатися додаткові дані про обраний клієнта. Це можна здійснити за допомогою кнопки "Замовлення ...", "Платежі ...". Приклад можна подивитися на "малюнку 5" Програми А.
2. Кнопка "Продукція". При натисканні цієї кнопки відбувається запуск відповідної форми, зображеної на "малюнку 6" Додатки А. За допомогою цієї форми можна дізнатися, всю інформацію по кожному виробленому товару, його особливі характеристики. Наприклад, швидкість окремих причіпних машин і моделі тракторів, з якими вони застосовуються.
3. Кнопка "Перегляд звітів". При натисканні цієї кнопки відбувається запуск форми, в якій відображені деякі звіти: звіт по перегляду клієнтів, їхні замовлення, неоплачені рахунки, кількість і типи замовлених товарів, загальна сума по кожному типу.
4. Кнопка "Вихід". Дозволяє закрити головну форму і вийти з програми Microsoft Access. Ця функція написана за допомогою стандартних функцій Visual Basic for Application.
5. Меню "Допомога". За допомогою даного випадаючого меню можна викликати довідку ("малюнок 2"). Довідка була написана за допомогою мови HTML. У ній докладно описана сама база і спосіб роботи з нею. У довідці дуже зручно розташовані посилання на сторінки в яких представлені основні форми база даних.
6. Меню "Звіти". За допомогою даного меню, що випадає можна переглянути звіти по неоплачених рахунках, у яких відображаються всі дані про борги покупців; по клієнтах, де зазначені номери рахунків, кількість і тип замовленої продукції, загальна сума оплати; по продукції, тут безпосередньо відображається загальна кількість і тип замовленої на підприємстві продукції усіма клієнтами. Перед тим, як переглянути певний звіт користувачеві пропонується ввести початкову дату замовлення і кінцеву дата оплати за придбану продукцію.
7. Меню "Форми". За допомогою даного випадаючого меню можна дізнатися відкрити деякі найбільш важливі форми: "Замовлення по клієнтам", де вказані всі необхідні дані потрібні фірмі для доставки товару і для надання рахунку замовнику; "Співробітники", тут перераховані всі співробітники, що займаються пошуком клієнтів і складанням контрактів , їх робочий і домашній телефони, посада; "Продукція", в цій формі можна знайти будь-яку потрібну продукцію підприємства, детальну інформацію про кожну з них.
4. Застосування
4.1 Призначення
Ця програма може застосовуватися для перегляду даних по виробленої підприємством ТОВ "Стимул-Брест" продукції. Приміром, цією програмою можуть користуватися агенти з продажу для складання контрактів, клієнти для перегляду продукції, а також для додавання інформації про нових співробітників та продукції або внесення будь-яких коригувань, наприклад для зміни у місце проживання будь-якого співробітника, його телефон або для внесення додаткових коригувань в модифікацію певної марки сільськогосподарської машини які застосовуються в садах нашої республіки.
Ця база даних призначена для роботи в наші дні, а також і для роботи у майбутньому (з урахуванням того, що база буде оновлюватися в міру потреби). При внесенні несуттєвих змін цим додатком можуть користуватися й інші підприємства, подібні підприємству ТОВ "Стимул-Брест". За допомогою цієї програми можна легко і швидко дізнатися всю необхідну інформацію про саму фірму, її історії, умови доставки виробленої продукції та про умови оплати, про співробітників і про складених ними контрактами.
4.2 Середовище функціонування
Для оптимальної роботи з додатком немає необхідності у великих фінансових витратах на придбання потужного комп'ютерного та периферійного обладнання. Нижче наведені мінімальні вимоги до комп'ютерного і периферійному обладнанню:
від Intel Pentium - 60 Мгц і вище;
RAM - 16 Мб;
HDD - 190 Мб;
VIDEO - 1 М b;
Принтер
Windows 9 x
Access - 2000
Висновок
Мета цього додатка - створити ефективну інформаційну базу даних для організації перегляду відомостей про підприємство з виробництва сільськогосподарських машин підприємства ТОВ "Стимул-Брест".
У цьому звіті було описано додаток "Автоматизація роботи підприємства ТОВ 'Стимул-Брест", яке було написано за допомогою середовища розробки баз даних MS Access 2000 і макромови програмування VBA. Ця програма, можливо, надалі знайде своє місце в комп'ютерах даної фірми, так як цей програмний продукт достатньо простий у використанні і не доставить проблем навіть не дуже досвідченому користувачеві.
Література
Харитонова І.А., Міхеєва В. Д. Microsoft Access 2000.-С-Пб.: БХВ - Санкт-Петербург, 2000.-1088 с.
Багласова Т.Г. Системне й прикладне програмне забезпечення. Лабораторний практикум .- Мн,: МГВРК, 1999
Гурська І.Ф. Оформлення текстової документації .- Мн.: МГВРК, 1997
Нортон П. Розробка додатків в Access 97.-С-Пб.: BHV, 1998
Новаліс С. Керівництво по макромови і VBA. - 1998
Браун С. Visual Basic 6.0: навчальний курс.-С-Пб.: ЗАТ "Видавництво" Пітер ", 1999.-576 с.
Додаток А
Рис.1 Схема даних
Рис.2 Повідомлення про помилку
Рис.3 Помічник
Рис.4 Головна кнопкова форма
Рис.5 Замовлення по клієнтам
Рис.6 Форма по продукції
Додаток Б
Private Sub Form_Open (Cancel As Integer)
'Minimize the database window and initialize the form.
Dim dbs As Database
Dim rst As Recordset
On Error GoTo Form_Open_Err
'Minimize the database window.
DoCmd.SelectObject acForm, "Switchboard", True
DoCmd.Minimize
'Make sure we have company information
DoCmd.Hourglass False
Set dbs = CurrentDb ()
Set rst = dbs. OpenRecordset ("Відомості про організацію")
If rst.RecordCount = 0 Then
rst.AddNew
rst! [Адреса] = Null
rst. Update
MsgBox "Перед використанням програми необхідно ввести назву, адресу і додаткові відомості про організацію."
DoCmd. OpenForm "Відомості про організацію",,,,, acDialog
End If
rst.Close
dbs.Close
'Move to the switchboard page that is marked as the default.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default'"
Me.FilterOn = True
Form_Open_Err:
MsgBox Err.Description
Resume Form_Open_Exit
End Sub
Private Sub Form_Current ()
'Update the caption and fill in the list of options.
Me.Caption = Nz (Me! [ItemText], "")
FillOptions
End Sub
Private Sub FillOptions ()
'Fill in the options for this switchboard page.
'The number of buttons on the form.
Const conNumButtons = 8
Dim con As Object
Dim rs As Object
Dim stSql As String
Dim intOption As Integer
'Set the focus to the first button on the form,
'And then hide all of the buttons on the form
'But the first. You can't hide the field with the focus.
Me! [Option1]. SetFocus
For intOption = 2 To conNumButtons
Me ("Option" & intOption). Visible = False
Me ("OptionLabel" & intOption). Visible = False
Next intOption
'Open the table of Switchboard Items, and find
'The first item for this Switchboard Page.
Set con = Application.CurrentProject.Connection
stSql = "SELECT * FROM [Switchboard Items]"
stSql = stSql & "WHERE [ItemNumber]> 0 AND [SwitchboardID] =" & Me! [SwitchboardID]
stSql = stSql & "ORDER BY [ItemNumber];"
Set rs = CreateObject ("ADODB.Recordset")
rs.Open stSql, con, 1 '1 = adOpenKeyset
'If there are no options for this Switchboard Page,
'Display a message. Otherwise, fill the page with the items.
If (rs.EOF) Then
Me! [OptionLabel1]. Caption = "There are no items for this switchboard page"
Else
While (Not (rs.EOF))
Me ("Option" & rs! [ItemNumber]). Visible = True
Me ("OptionLabel" & rs! [ItemNumber]). Visible = True
Me ("OptionLabel" & rs! [ItemNumber]). Caption = rs! [ItemText]
rs.MoveNext
Wend
End If
'Close the recordset and the database.
rs.Close
Set rs = Nothing
Set con = Nothing
End Sub
Private Function HandleButtonClick (intBtn As Integer)
'This function is called when a button is clicked.
'IntBtn indicates which button was clicked.
'Constants for the commands that can be executed.
Const conCmdGotoSwitchboard = 1
Const conCmdOpenFormAdd = 2
Const conCmdOpenFormBrowse = 3
Const conCmdOpenReport = 4
Const conCmdCustomizeSwitchboard = 5
Const conCmdExitApplication = 6
Const conCmdRunMacro = 7
Const conCmdRunCode = 8
Const conCmdOpenPage = 9
'An error that is special cased.
Const conErrDoCmdCancelled = 2501
Dim con As Object
Dim rs As Object
Dim stSql As String
On Error GoTo HandleButtonClick_Err
'Find the item in the Switchboard Items table
'That corresponds to the button that was clicked.
Set con = Application.CurrentProject.Connection
Set rs = CreateObject ("ADODB.Recordset")
stSql = "SELECT * FROM [Switchboard Items]"
stSql = stSql & "WHERE [SwitchboardID] =" & Me! [SwitchboardID] & "AND [ItemNumber] =" & intBtn
rs.Open stSql, con, 1 '1 = adOpenKeyset
'If no item matches, report the error and exit the function.
If (rs.EOF) Then
MsgBox "There was an error reading the Switchboard Items table."
rs.Close
Set rs = Nothing
Set con = Nothing
Exit Function
End If
Select Case rs! [Command]
'Go to another switchboard.
Case conCmdGotoSwitchboard
Me.Filter = "[ItemNumber] = 0 AND [SwitchboardID] =" & rs! [Argument]
'Open a form in Add mode.
Case conCmdOpenFormAdd
DoCmd.OpenForm rs! [Argument],,,, acAdd
'Open a form.
Case conCmdOpenFormBrowse
DoCmd.OpenForm rs! [Argument]
'Open a report.
Case conCmdOpenReport
DoCmd.OpenReport rs! [Argument], acPreview
'Customize the Switchboard.
Case conCmdCustomizeSwitchboard
'Handle the case where the Switchboard Manager
'Is not installed (eg Minimal Install).
On Error Resume Next
Application.Run "ACWZMAIN.sbm_Entry"
If (Err <> 0) Then MsgBox "Command not available."
On Error GoTo 0
'Update the form.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default'"
Me.Caption = Nz (Me! [ItemText], "")
FillOptions
'Exit the application.
Case conCmdExitApplication
CloseCurrentDatabase
'Run a macro.
Case conCmdRunMacro
DoCmd.RunMacro rs! [Argument]
'Run code.
Case conCmdRunCode
Application.Run rs! [Argument]
'Open a Data Access Page
Case conCmdOpenPage
DoCmd.OpenDataAccessPage rs! [Argument]
'Any other command is unrecognized.
Case Else
MsgBox "Unknown option."
End Select
'Close the recordset and the database.
rs.Close
HandleButtonClick_Exit:
On Error Resume Next
Set rs = Nothing
Set con = Nothing
Exit Function
HandleButtonClick_Err:
'If the action was cancelled by the user for
'Some reason, don't display an error message.
'Instead, resume on the next line.
If (Err = conErrDoCmdCancelled) Then
Resume Next
Else
MsgBox "There was an error executing the command.", VbCritical
Resume HandleButtonClick_Exit
End If
End Function
Private Sub Кнопка34_Click ()
Dim Begin As Label
Dim X As Integer
Dim mes As Integer
Dim MyAssistant As Assistant
Dim NewBalloon As Balloon
Set MyAssistant = Assistant
Set NewBalloon = MyAssistant.NewBalloon
MyAssistant.FileName = "clippit.act"
MyAssistant.Animation = msoAnimationGreeting
Begin:
With NewBalloon
Heading = "Помічник по курсовому проекту''ТОВ 'СТИМУЛ-БРЕСТ'''"
Text = "Значення кнопок у меню:"
Labels (1). Text = "Відомості про фірму."
Labels (2). Text = "Продукція."
Labels (3). Text = "інформація про проект."
Labels (4). Text = "Попрощатися з помічником."
End With
X = NewBalloon.Show
If X = 1 Then
mes = MsgBox ("Підприємство ТОВ 'СТИМУЛ-БРЕСТ' робить С / Г машини. Підприємство знаходиться за адресою: 224022, м. Брест, Красний двір", vbInformation)
GoTo Begin
End If
If X = 2 Then
mes = MsgBox ("Таблиця відображає інформацію про продукцію, яку виробляє дана фірма.", vbInformation)
GoTo Begin
End If
If X = 3 Then
mes = MsgBox ("Курсовий проект по темі''Автоматизація роботи підприємства ТОВ 'СТИМУЛ-БРЕСТ'.''розроблений студентом IV курсу групи 8381 Бояревічем І.М.", vbOKOnly)
GoTo Begin
End If
If X = 4 Then
mes = MsgBox ("Bye-bye !!!")
GoTo Begin
End If
End Sub
Private Sub справка_Click ()
Dim Begin As Label
Dim X As Integer
Dim mes As Integer
Dim MyAssistant As Assistant
Dim NewBalloon As Balloon
Set MyAssistant = Assistant
Set NewBalloon = MyAssistant.NewBalloon
MyAssistant.FileName = "clippit.act"
MyAssistant.Animation = msoAnimationGreeting
Begin:
With NewBalloon
Heading = "Помічник по курсовому проекту''ТОВ 'СТИМУЛ-БРЕСТ'''"
Text = "Значення кнопок у меню:"
Labels (1). Text = "Відомості про фірму."
Labels (2). Text = "Продукція."
Labels (3). Text = "інформація про проект."
Labels (4). Text = "Попрощатися з помічником."
End With
X = NewBalloon.Show
If X = 1 Then
mes = MsgBox ("Підприємство ТОВ 'СТИМУЛ-БРЕСТ' робить С / Г машини. Підприємство знаходиться за адресою: 224022, м. Брест, Красний двір", vbInformation)
GoTo Begin
End If
If X = 2 Then
mes = MsgBox ("Таблиця відображає інформацію про продукцію, яку виробляє дана фірма.", vbInformation)
GoTo Begin
End If
If X = 3 Then
mes = MsgBox ("Курсовий проект по темі''Автоматизація роботи підприємства ТОВ 'СТИМУЛ-БРЕСТ'.''розроблений студентом IV курсу групи 8381 Бояревічем І.М.", vbOKOnly)
GoTo Begin
End If
If X = 4 Then
mes = MsgBox ("Bye-bye !!!")
GoTo Begin
End If
End Sub
Public Sub Form_Load ()
Dim MyMenu As CommandBar
Dim cbFileB As CommandBarPopup
Dim cbEditB As CommandBarPopup
Dim cbViewB As CommandBarPopup
Dim cbHelpB As CommandBarPopup
Dim cbInsertB As CommandBarPopup
Dim cbFormatB As CommandBarPopup
Dim cbOpenB As CommandBarButton
Dim cbSaveB As CommandBarButton
Dim cbExitB As CommandBarButton
'Створення рядка головного меню
Set MyMenu = CommandBars.Add (Name: = "KCmdBar", MenuBar: = True, Temporary: = True, Position: = msoBarTop)
'Створення меню Файл
Set cbFileB = MyMenu.Controls.Add (Type: = msoControlPopup)
cbFileB.Caption = "Файл"
'Створення меню Звіти
Set cbEditB = MyMenu.Controls.Add (Type: = msoControlPopup)
cbEditB.Caption = "Звіти"
'Створення меню Форми
Set cbViewB = MyMenu.Controls.Add (Type: = msoControlPopup)
cbViewB.Caption = "Форми"
'Створення меню Довідка
Set cbHelpB = MyMenu.Controls.Add (Type: = msoControlPopup)
cbHelpB.Caption = "Допомога"
'Створення меню Файл
Set Друк = cbFileB.Controls.Add (Type: = msoControlButton)
Печать.Style = msoButtonCaption
Печать.Caption = "Друк ..."
Друк. OnAction = "Друк"
MyMenu.Visible = True
Set cbExitB = cbFileB.Controls.Add (Type: = msoControlButton)
With cbExitB
Style = msoButtonCaption
Caption = "Вихід"
OnAction = "Exit"
End With
MyMenu.Visible = True
Set cbSotrOtchet = cbEditB.Controls.Add (Type: = msoControlButton)
With cbSotrOtchet
Style = msoButtonCaption
Caption = "Несплачені рахунки"
OnAction = "Неоплаченние_счета"
End With
MyMenu.Visible = True
Set cbPostOtchet = cbEditB.Controls.Add (Type: = msoControlButton)
With cbPostOtchet
Style = msoButtonCaption
Caption = "Продажі по клієнтах"
OnAction = "По_кліентам"
End With
MyMenu.Visible = True
Set cbTovarOtchet = cbEditB.Controls.Add (Type: = msoControlButton)
With cbTovarOtchet
Style = msoButtonCaption
Caption = "Продажі по товарах"
OnAction = "По_товарам"
End With
MyMenu.Visible = True
Set cbPost = cbViewB.Controls.Add (Type: = msoControlButton)
With cbPost
Style = msoButtonCaption
Caption = "Продукція"
OnAction = "товари"
End With
MyMenu.Visible = True
Set cbPostй = cbViewB.Controls.Add (Type: = msoControlButton)
With cbPostй
Style = msoButtonCaption
Caption = "Співробітники"
OnAction = "Співробітники"
End With
MyMenu.Visible = True
Set cbPostц = cbViewB.Controls.Add (Type: = msoControlButton)
With cbPostц
Style = msoButtonCaption
Caption = "Закази_по_кліентам"
OnAction = "Закази_по_кліентам"
End With
MyMenu.Visible = True
'Set cbPostк = cbViewB.Controls.Add (Type: = msoControlButton)
'With cbPostк
'. Style = msoButtonCaption
'. Caption = "Хто, де працює"
'. OnAction = "Хтось где_Форма_Меню"
'End With
'MyMenu.Visible = True
'Створення асистента
Set FGq = cbHelpB.Controls.Add (Type: = msoControlButton)
FGq.Style = msoControlButton
FGq.Caption = "Показати помічника"
FGq.OnAction = "Асітсент"
Set FG = cbHelpB.Controls.Add (Type: = msoControlButton)
FG.Style = msoControlButton
FG.Caption = "О_предпріятіі"
FG. OnAction = "О_предпріятіі"
Set Sprav = cbHelpB.Controls.Add (Type: = msoControlButton)
Sprav.Style = msoControlButton
Sprav.Caption = "Довідка"
Sprav.OnAction = "help"
End Sub