Автоматизация учета и анализа конечной продукции в ООО «Артемовский хлебокомбинат»

Дипломная Купить готовую Узнать стоимостьмоей работы

Автоматизация учета и анализа конечной продукции в ООО «Артемовский хлебокомбинат» (реферат, курсовая, диплом, контрольная)

Содержание

1. АНАЛИТИЧЕСКАЯ ЧАСТ
- 1. 1. Технико-экономическая характеристика ООО «Артемовский хлебокомбинат». Организационная структура предприятия
- 1. 2. Экономическая сущность комплекса экономических информационных задач
  - 1. 2. 1. Общие сведения о задачах
  - 1. 2. 2. Декомпозиция комплекса задач
- 1. 3. Обоснование проектных решений по автоматизированному решению экономико-информационных задач
  - 1. 3. 1. Обоснование выбора задач, входящих в комплекс
  - 1. 3. 2. Обоснование необходимости использования вычислительной техники и создания программного обеспечения для решения данного комплекса задач
  - 1. 3. 3. Обоснование проектных решений по информационному обеспечению комплекса задач
  - 1. 3. 4. Обоснование проектных решений по технологии сбора, обработки и выдачи информации
  - 1. 3. 5. Обоснование проектных решений по программному обеспечению комплекса задач
2. ПРОЕКТНАЯ ЧАСТ
- 2. 1. Информационное обеспечение комплекса задач
  - 2. 1. 1. Этапы жизненного цикла проекта системы автоматизации. Ожидаемые риски на этапах жизненного цикла
  - 2. 1. 2. Внемашинное информационное обеспечение
  - 2. 1. 3. Внутримашинная реализация системы автоматизации
- 2. 2. Технологическое обеспечение
  - 2. 2. 1. Организация технологии сбора, передачи, обработки и выдачи информации
  - 2. 2. 2. Схема технологического процесса сбора, обработки и выдачи информации
- 2. 3. Программное обеспечение для автоматизации учета и анализа конечной продукции предприятия
  - 2. 3. 1. Общие положения
  - 2. 3. 2. Структурная схема программного обеспечения
- 2. 4. Руководство пользователя
3. ОБОСНОВАНИЕ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ ПРОЕКТА
- 3. 1. Выбор и обоснование методики расчета экономической эффективности проекта
- 3. 2. Расчет показателей экономической эффективности проекта
ЗАКЛЮЧЕНИЕ БИБЛИОГРАФИЧЕСКИЙ
СПИСОК ПРИЛОЖЕНИЯ
Приложение 1. Образец договора поставки
Приложение 2. Структура таблиц в среде Microsoft Access
Приложение 3. Схема БД
Приложение 4. Текст программных модулей на VBA

Во-первых, пользователям легче освоить работу с такой программой, потому что многие инструменты работают одинаково в разных приложениях (не говоря уже о том, что рисунки на кнопках одинаковые). Во-вторых, легче осуществляется обмен данными между приложениями — не надо переходить от стандарта к стандарту. Кроме того, надо учитывать, что по Access накоплено огромное количество различных материалов: книг, программ, баз данных, сайтов в Интернете.

Получается, что преимущество Access заключается в первую очередь в минимизации затрат и времени на разработку пользовательского приложения. А это во многих случаях является решающим фактором выбора СУБД.

В процессе проектирования системы были созданы 7 таблиц, 10 форм, 7 запросов и 7 отчетов. В разработанной системе за счет организации связей и индексов в таблицах предусмотрен контроль целостности данных. В АС применяются запросы с использованием языка SQL (Structured Query Language — язык структурированных запросов), который является полноправным языком программирования и хорошо подходит для управления БД.

АС представляет собой файл с именем хлеб.mdb. В созданной АС системе созданы отчеты, позволяющие получать финансовую и аналитическую отчетность для обеспечения деятельности финансовых и руководящих работников компании. В ходе дипломного проектирования был создан контрольный пример, который показал безошибочную работу на тестовых данных. Разработанные отчеты позволят оперативно получать информацию о заключенных договорах поставки, по оплатам договоров по дням, о суммах по договорам поставки и их оплате, о необходимом количестве производимых изделий, о суммах, полученных от производства по группам изделий, о неоплаченных договорах, о товарах, не пользующихся спросом. Пользователь самостоятельно указывает интересующий его временной интервал. В случае необходимости разработанная система может быть дополнена новыми формами и отчетами.

В дипломном проекте работе сделан расчет эффективности разработки АС, рассчитаны затраты труда на разработку АС, общая продолжительность ее создания и общая сумма затрат на разработку, которая составляет примерно двести двадцать тысяч рублей. Срок фактической окупаемости составляет порядка полутора лет.

Внедрение системы не потребует дополнительных финансовых вложений, так как пакет Microsoft Office с включением Microsoft Access уже имеется на ПК пользователей. Для того чтобы системой могли пользоваться пользователи с ПК, включенных в локальную вычислительную сеть, необходимо установить систему на одном ПК и открыть общий доступ к каталогу с установленным mdb-файлом.

Цель дипломного проектирования достигнута, так как созданная АС удовлетворяет предъявляемым требованиям, в ней реализованы все необходимые функции по автоматизации учета и анализа конечной продукции хлебокомбината.

Библиографический список

Андерсен, В. Базы данных Microsoft Access. Проблемы и решения: Практ. пособ., пер. с англ. / В. Андерсен — М.: Издательство ЭКОМ, 2001.—384 с.: ил. — ISBN 5−7163−0082−0

Бекаревич, Ю. Самоучитель Microsoft Access 2002 / Ю. Бекаревич, Н. Пушкина — СПб.: «БХВ-Петербург», 2002. — 720 с. — ISBN: 5−8206−0033−9

Гарнаев, А. Ю. Использование MS Excel и VBA в экономике и финансах / А. Ю. Гарнаев — СПб.: БХВ — Санкт-Петербург, 2000. — 336 с: ил. -ISBN

5−8206−0024-Х Гандерлой, Майк, Харкинз, Сьюзан Сейлз. Автоматизация Microsoft Access с помощью VBA / Майк Гандерлой, Сьюзан Сейлз Харкинз -М.: Издательский дом «Вильямс», 2006. — 416 с.: ил. — ISBN 5−8459−0959−7 (рус.)

Грабауров, В. А. Информационные технологии для менеджеров / В. А. Грабауров — М.: Финансы и статистика, 2001.- 368 с.: ил. ISBN 5−279−2 299−3

Грабер, М.

Введение

в SQL / Пер. с англ. В. Ястребов — Издательство «Лори», 1996. — 380 с. — ISBN: 5−85 582−010−6

Дженнингс, Р. Использование Microsoft Office Access 2003 / Р. Дженнингс: пер. с англ. И. Тараброва — М.: Издательский дом «Вильямс», 2005. — 1300 с. — ISBN: 5−8459−0691−1

Камминг, Стив. VBA для «чайников», 3-е издание / Стив Камминг: пер. с англ. — М.: Издательский дом «Вильямс», 2001. — 448 с.: ил. — ISBN 5−8459−0230−4 (рус.)

Кузин, А. В. Базы данных: учеб. пособие для студ. высш. учеб. заведений / А. В. Кузин, С. В. Левонисова.

— 2-е изд., стер. — М.: Издательский центр «Академия», 2008.

— 320 с. ISВN 978−5-7695−4833−8.

Марков А.С., Лисовский К. Ю. Базы данных.

Введение

в теорию и методологию: Учебник / А. С. Марков, К. Ю. Лисовский — М.: Финансы и статистика, 2006. — 512 с: ил. — ISBN 5−279−2 298−5.

Михеева, Е. В. Информационные технологии в профессиональной деятельности: учеб. пособие. — М.: ТК Велби, Изд-во Проспект, 2007. — 448 с. — ISBN: 978−5-482−1 569−8

Проектирование баз данных. СУБД Microsoft Access: Учебное пособие для вузов / Н. Н. Гринченко, Е. В. Гусев, Н. П. Макаров, А.

Н. Пылькин, Н. И. Цуканова. — М.: Горячая линия-Телеком, 2004.

— 240с.: ил. — ISBN 5−93 517−193−7.

Симонович, С. В. Информатика. Базовый курс. 2-е издание / Под ред. С. В. Симоновича. — СПб.: Питер, 2004. — 640 с.: ил. ISBN 5−94 723−752−0.

Степанов, А. Н. Информатика. Учебник для вузов. 4-е издание / А. Н. Степанов. — СПб.: Питер, 2005. — 684 с.: ил. ISBN 5−94 723−898−5.

Уокенбах, Джон. Профессиональное программирование на VBA в Excel 2002 / Джон Уокенбах: пер. с англ. — М.: Издательский дом «Вильямс», 2003. — 784 с.: ил. — ISBN 5−8459−0541−9 (рус.)

Приложения Приложение 1. Образец договора поставки

ДОГОВОР ПОСТАВКИ № _______

«_____"___________________ 200 ___ г. г. Артемовский, Свердловская область

Общество с ограниченной ответственностью «Артемовский хлебокомбинат» в лице директора Коржавина Павла Ивановича, действующего на основании Устава, именуемое в дальнейшем «Поставщик» с одной стороны, и ___________________________________________________________ в лице ___________________________________________________________ действующего на основании __________, именуемое в дальнейшем «Покупатель» с другой стороны, заключили настоящий Договор о нижеследующем:

1. Предмет договора

1.1 В соответствии с Договором «Поставщик» обязуется передавать Покупателю продукцию, а именно хлеб, хлебобулочные, кондитерские и иные изделия из ассортимента, выпускаемого Продавцом, по наименованиям, в количестве и в сроки, согласуемые сторонами в порядке, предусмотренном настоящим Договором, в дальнейшем именуемую ТОВАР, а «Покупатель» обязуется принять ТОВАР и оплатить стоимость ТОВАРА согласно условий Договора.

1.2 Запрашиваемые Покупателем наименования, количество и ассортимент ТОВАРА, а также сроки поставки ТОВАРА, указываются Покупателем при подаче заказа и согласовываются Поставщиком путем совершения фактических действий по отгрузке ТОВАРА Покупателю. Достаточным (но не исключительным) юридическим подтверждением факта согласования сторонами наименования, количества, ассортимента и цены ТОВАРА также являются подписанные товаросопроводительные документы (в т.ч. товарная накладная) в отношении ТОВАРА.

3. Если срок поставки ТОВАРА специально не оговаривается сторонами, то принимается согласованным следующий срок — не позднее суток, следующих за датой подачи заказа.

1.4 Стоимость ТОВАРА по каждому наименованию определяется Прайсом «Поставщика» (Спецификацией), являющегося неотъемлемой частью Договора и также указывается «Поставщиком» в товаросопроводительных документах.

1.5 Стоимость ТОВАРА может быть изменена «Поставщиком» в одностороннем порядке, при условии предварительного предупреждения «Покупателя» об изменении не позднее чем за 1 день. Данное условие может быть изменено по дополнительному соглашению сторон.

2. Условия поставки

2.1 Поставка ТОВАРА осуществляется отдельными партиями. Объем каждой партии определяется количеством ТОВАРА, поставленного Покупателю в течение суток. Поставка ТОВАРА осуществляется с условием доставки ТОВАРА Покупателю по реквизитам, согласованным настоящим договором. Доставка ТОВАРА осуществляется Поставщиком с использованием специально оборудованных транспортных средств. Доставка осуществляется в возвратной таре.

2.2 Момент передачи ТОВАРА от Поставщика к Покупателю и перехода права собственности на ТОВАР от Поставщика к Покупателю определяется ранее наступившим событием:

— с момента подписания представителями Сторон товаросопроводительных документов (в т.ч. товарной накладной)

— с момента перемещения ТОВАРА из транспортного средства Поставщика в распоряжение Покупателя (на склад, в помещение где осуществляется торговля и т. п.)

2.3 Основанием для поставки является Заказ Покупателя. Заказ на поставку ТОВАРА составляется в письменном виде лицом, надлежащим образом уполномоченным Покупателем с указанием наименования и количества запрашиваемого ТОВАРА. Передача заказа Поставщику осуществляется путем его личного вручения последнему, либо передачи посредством телефонограммы или факсимильной связи. Покупатель не вправе отказаться от принятия и оплаты ТОВАРА поставленного ему в соответствии с заказом и настоящим Договором.

2.4 ТОВАР, принятый Покупателем в период действия настоящего Договора, считается поставленным ему на основании Заказа по Договору и согласованным по ассортименту, количеству, ценам и срокам поставки в соответствии с условиями настоящего Договора.

3. Порядок и условия расчетов

1. ТОВАР поставляется по предоплате, вносимой на основании выставленного Поставщиком счета.

2. По усмотрению Поставщика, возможна поставка ТОВАРА без предоплаты. В случае отгрузки ТОВАРА до внесения оплаты Покупателем, Покупатель оплачивает Поставщику стоимость каждой партии ТОВАРА в течение 3 (Трех) банковских дней после поставки. Иные сроки оплаты ТОВАРА возможны при условии заключении сторонами дополнительного соглашения.

3.3 Датой оплаты считается день зачисления денежных средств на расчетный счет «Продавца». Расчет производится в безналичной (платежным поручением) или в наличной форме. В последнем случае деньги передаются в кассу Поставщика либо уполномоченному надлежащим образом представителю Поставщика с обязательным сохранением подлинника доверенности данного представителя на принятие денег от Покупателя. В случае возникновения спорных вопросов, обязательство Покупателя по оплате ТОВАРА считается неисполненным при отсутствии у Покупателя документов подтверждающих передачу наличных денег и полномочия лица, принявшего деньги в соответствии с действующим законодательством.

4. 0бязанности сторон

4.1 Поставщик несет следующие обязательства:

1.1 Доставить ТОВАР Покупателю или иному лицу (грузополучателю), указанному в заказе на поставку.

1.2 Передать ТОВАР Покупателю, в количестве, ассортименте в соответствии с заказом.

1.3 Передать ТОВАР в соответствии с действующими Стандартами РФ, предусмотренными для ТОВАРА такого рода, о чем удостоверять покупателя штампом в накладных.

1.4 Упаковать ТОВАР в тару, отвечающую требованиям ГОСТов и обеспечивающую сохранность ТОВАРА при перевозке и надлежащем хранении.

1.5 Заменить ТОВАР ненадлежащего качества, в случае если недостатки, указанные Покупателем, имели место до его передачи Покупателю.

2. Покупатель принимает на себя следующие обязательства:

2.1 Представлять заказы на поставку ТОВАРА по ассортименту и количеству до 16 часов накануне дня поставки в форме телефонограмм, в письменном виде, в т. ч. в виде факсимильной копии. Факсимильная копия заказа, телефонограмма, принятая от уполномоченного лица Покупателя имеют юридическую силу, если Покупатель не изменит содержание данного заказа, обязательно известив об этом Поставщика путем вручения ему заказа в письменном виде не позднее дня подачи заказа. Внесения изменений в заказ могут быть приняты Поставщиком по его усмотрению в зависимости от их существенности при условии внесения изменений не позднее срока, предусмотренного для подачи того заказа, в который Покупатель вносит изменения.

2.2 Качество поступившего товара проверяется при его приемке. При нарушении требований по качеству, количеству, ассортименту поставленного ТОВАРА, составить Акт с обязательным участием представителя Поставщика.

2.3 Содержать разгрузочную площадку и подъездные пути к ней в надлежащем состоянии (навес, освещенность, сигнализация и т. д.)

2.4 Оформлять накладные в полном соответствии с действующими правилами перевозок автотранспортом. Заверять подпись покупателя о приеме — сдаче груза четким оттиском штампа.

2.5 Производить возврат чистой и исправной тары, хлебных лотков, контейнеров и пластмассовых ящиков в полном объеме с транспортом, доставившим ТОВАР.

2.6 Осуществлять реализацию продукции в установленные (действующим законодательством и маркировкой) сроки. Возврат надлежащим образом поставленной, но нереализованной Покупателем продукции Поставщиком не осуществляется.

2.7. Обеспечить присутствие к сроку поставки уполномоченных на прием ТОВАРА лиц по реквизитам доставки ТОВАРА. Уполномоченные лица Покупателя определяются как настоящим договором (с приложениями) так и на основании документов, удостоверяющих их полномочия в соответствии с действующим законодательством. При отсутствии таковых лиц на момент фактической доставки ТОВАРА, Поставщик имеет право по своему усмотрению составить Акт об отказе от приемки ТОВАРА либо произвести передачу (отгрузку) товара любому лицу, присутствующему по реквизитам доставки, при этом обязательство по поставке партии ТОВАРА Покупателю считается исполненным надлежащему лицу.

5. Ответственность сторон

5.1 Поставщик освобождается от ответственности за ненадлежащее исполнение своих обязательств по Договору в случае несоблюдением «Покупателем» условий по оплате ТОВАРА (раздел 3 настоящего Договора).

5.2 При любой просрочке оплаты Покупателем поставленного в соответствии с Заказом и настоящим Договором ТОВАРА, без установленных законом, иными правовыми актами оснований, Поставщик в этом случае вправе приостановить поставку до погашения задолженности. Возобновление поставки производится на следующий день после поступления денежных средств на счет Поставщика.

5.3 Покупатель в случае невозможности возврата принятой возвратной тары обязуется компенсировать Поставщику ее стоимость, согласно товаросопроводительных документов.

5.4 Покупатель несет ответственность за просрочку оплаты ТОВАРА в виде пени, в размере 0,1% от суммы задолженности, за каждый день просрочки оплаты товара.

5.5 Покупатель несет ответственность за необоснованный отказ от приемки заказанного ТОВАРА в виде пени, в размере 30% от стоимости заказанного, но не принятого товара.

6. Разрешение споров

6.1 Споры и разногласия, возникающие при исполнении настоящего Договора, разрешаются Сторонами путем переговоров. Срок ответа на претензию — 10 календарных дней. При невозможности урегулирования спора путем переговоров (в т.ч. отклонения претензии или оставления претензии без ответа), спор подлежит рассмотрению в Арбитражном суде Свердловской области в установленном Законом порядке.

2. При ненадлежащем выполнении стороной своих обязательств, другая сторона имеет право распространения информации об этом в любых средствах массовой информации, сети Интернет.

7. Дополнительные условия

7.1 Стороны в случае реорганизации, ликвидации, смены юридического или фактического адреса, изменения реквизитов расчетного счета обязаны письменно уведомить друг друга в 10-дневный срок.

7.2 Изменения и дополнения к настоящему Договору действительны в случае, если они оформлены в письменном виде и подписаны Сторонами (уполномоченными представителями Сторон).

7.3 Договор действует с 01.

01.2009г. до исполнения Сторонами обязательств, принятых ими по Договору до 31.

12.2009г. Договор также распространяет свое действие на все взаимные обязательства сторон связанные с ТОВАРОМ, возникшие с момента начала действия договора до подписания настоящего договора. Договор может быть расторгнут досрочно по соглашению сторон, либо по уведомлению одной из сторон в случае систематического нарушения другой стороной условий Договора.

7.4 Договор считается ежегодно пролонгированным на следующий год, если за месяц до окончания календарного года ни одна из сторон не заявит о его расторжении.

7.5 Во всем остальном, не урегулированном настоящим Договором, стороны будут руководствоваться действующим законодательством РФ.

7.6 Настоящий Договор составлен в двух экземплярах, имеющих одинаковую юридическую силу, по одному для каждой из Сторон.

8. Адреса, реквизиты и подписи сторон:

Поставщик Покупатель

ООО «Артемовский хлебокомбинат»

Свердловская обл., г. Артемовский, ул. Техническая, 4

ИНН 6 602 008 304 КПП 660 201 001Р/с 40 702 810 900 000 022 528

в ОАО «СКБ банк» г. Екатеринбург К/с 30 101 810 800 000 000 000

БИК 46 577 756, ОГРН 1 026 600 580 027

тел. (343 63) 2 — 44 — 56, тел/факс 2 — 54 — 06

____________________________________

_____________________________________

____________________________________

_____________________________________

____________________________________

М.П. Приложение № 1 к Договору поставки

№ ___ от «_____"_______________

СПИСОК УПОЛНОМОЧЕННЫХ ЛИЦ И РЕКВИЗИТЫ ДОСТАВКИ ТОВАРА

1. Список уполномоченных на подачу заказов, прием ТОВАРА, оплату ТОВАРА лиц Покупателя (грузополучателя):

№ Ф.И. О. Паспорт Должность, контактный телефон Образец подписи 2. Реквизиты доставки ТОВАРА:

Покупатель (грузополучатель) Наименование:____________________________________________________________________

Фактический адрес доставки: _______________________________________________________

Контактные телефоны/ факс: ________________________________________________________

Поставщик Покупатель

ООО «Артемовский хлебокомбинат»

Свердловская обл., г. Артемовский, ул. Техническая, 4

ИНН 6 602 008 304 КПП 660 201 001Р/с 40 702 810 900 000 022 528

в ОАО «СКБ банк» г. Екатеринбург К/с 30 101 810 800 000 000 000

БИК 46 577 756, ОГРН 1 026 600 580 027

тел. (343 63) 2 — 44 — 56, тел/факс 2 — 54 — 06

_________________________

__________________________

________________________

__________________________

___________________________

___________________________ М.П. М.П.

Приложение № 2 к Договору поставки

№ ___ от «_____"_______________

ДОПОЛНИТЕЛЬНОЕ СОГЛАШЕНИЕ № 1

Общество с ограниченной ответственностью «Артемовский хлебокомбинат» в лице директора Коржавина Павла Ивановича, действующего на основании Устава именуемое в дальнейшем «Поставщик» с одной стороны, и _____________________________________________________________________ в лице ___________________________________________________________ действующего на основании __________, именуемое в дальнейшем «Покупатель» с другой стороны, заключили настоящее соглашение о нижеследующем:

1. Стороны согласовали возможность оплаты Покупателем поставляемого в период с «___"_____________200_г. по «____"________________200_г. ТОВАРА с отсрочкой платежа в ___ дней с момента поставки каждой партии ТОВАРА.

2.Возврат надлежащим образом поставленной, но нереализованной Покупателем продукции Поставщиком принимается при условиях:

наличие этикетки и даты без видимых повреждений, нарушений првил хранения, образования плесени в течение двух суток по истечению срока реализации

3. Во всем остальном условия Договора оставлены без изменений.

4. Настоящее дополнительное соглашение составлено в двух экземплярах, имеющих одинаковую юридическую силу, по одному для каждой из Сторон.

Поставщик Покупатель ООО «Артемовский хлебокомбинат»

Свердловская обл., г. Артемовский, ул. Техническая, 4

ИНН 6 602 008 304 КПП 660 201 001Р/с 40 702 810 900 000 022 528

в ОАО «СКБ банк» г. Екатеринбург К/с 30 101 810 800 000 000 000

БИК 46 577 756, ОГРН 1 026 600 580 027

тел. (343 63) 2 — 44 — 56, тел/факс 2 — 54 — 06

____________________________________

_____________________________________

____________________________________

_____________________________________

____________________________________ М.П. М.П.

Приложение 2. Структура таблиц в среде Microsoft Access

Группы товаров Идентификатор поля Тип поля Размер поля Ключ Индексированное поле Код группы Счетчик Длинное целое PK да (совп. не доп.) Группа товаров Текстовый 50 AK да (совп. не доп.)

Единицы измерения Идентификатор поля Тип поля Размер поля Ключ Индексированное поле Код единицы измерения Счетчик Длинное целое PK да (совп. не доп.) Единица измерения Текстовый 50 AK да (совп. не доп.)

Товар Идентификатор поля Тип данных Размер поля Ключ Индексированное поле Код товара Счетчик Длинное целое PK да (совп. не доп.) Товар Текстовый 50 AK да (совп. не доп.) Масса единицы г Числовой Длинное целое Код единицы измерения Числовой Длинное целое FK Код группы Числовой Длинное целое FK Цена Денежный Покупатели Идентификатор поля Тип данных Размер поля Ключ Индексированное поле Код покупателя Счетчик Длинное целое PK да (совп. не доп.) Покупатель Текстовый 50 AK да (совп. не доп.) Телефон покупателя Текстовый 255 Адрес покупателя Текстовый 255 ИНН Текстовый 255 Директор Текстовый 255 Расчетный счет Текстовый 255

Договоры Идентификатор поля Тип данных Размер поля Ключ Индексированное поле Код договора Счетчик Длинное целое PK да (совп. не доп.) Номер договора Текстовый 50 AK да (совп. не доп.) Дата договора Дата/время Код покупателя Числовой Длинное целое FK

Товары по договорам Идентификатор поля Тип данных Размер поля Ключ Индексированное поле Код договора Числовой Длинное целое FK AK Код товара Числовой Длинное целое FK Количество Числовой Длинное целое Оплата договоров Идентификатор поля Тип данных Размер поля Ключ Индексированное поле Код договора Числовой Длинное целое FK AK Дата оплаты Дата/время Сумма оплаты Денежный

PK — первичный ключ (для кода объекта, являющегося счетчиком)

AK — альтернативный ключ (для обеспечения уникальности)

FK — вторичный ключ (для связи с другой таблицей)

Приложение 3. Схема БД

Приложение 4. Текст программных модулей на VBA

Form_Кнопочная форма

VERSION 1.0 CLASS

BEGIN

MultiUse = -1 'True

END

Attribute VB_Name = «Form_Кнопочная форма»

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = True

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Compare Database

Private Sub Form_Open (Cancel As Integer)

' Minimize the database window and initialize the form.

' Move to the switchboard page that is marked as the default.

Me.Filter = «[ItemNumber] = 0 AND [Argument] = 'По умолчанию' «

Me.FilterOn = True

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

Form_Нормативно-справочная информация

VERSION 1.0 CLASS

BEGIN

MultiUse = -1 'True

END

Attribute VB_Name = «Form_Нормативно-справочная информация»

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = True

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Compare Database

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW (1060) & ChrW (1086) & ChrW (1088) & ChrW (1084) & ChrW (1072) & ChrW (32) & ChrW (1058) & ChrW (1086) & ChrW (1074) & ChrW (1072) & ChrW (1088)

DoCmd.OpenForm stDocName,, , stLinkCriteria

Exit_Кнопка0_Click:

Exit Sub

Err_Кнопка0_Click:

MsgBox Err. Description

Resume Exit_Кнопка0_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW (1060) & ChrW (1086) & ChrW (1088) & ChrW (1084) & ChrW (1072) & ChrW (32) & ChrW (1045) & ChrW (1076) & ChrW (1080) & ChrW (1085) & ChrW (1080) & ChrW (1094) & ChrW (1099) & ChrW (32) & ChrW (1080) & ChrW (1079) & ChrW (1084) & ChrW (1077) & ChrW (1088) & ChrW (1077) & ChrW (1085) & ChrW (1080) & ChrW (1103)

DoCmd.OpenForm stDocName,, , stLinkCriteria

Exit_Кнопка2_Click:

Exit Sub

Err_Кнопка2_Click:

MsgBox Err. Description

Resume Exit_Кнопка2_Click

End Sub

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

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

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = ChrW (1060) & ChrW (1086) & ChrW (1088) & ChrW (1084) & ChrW (1072) & ChrW (32) & ChrW (1043) & ChrW (1088) & ChrW (1091) & ChrW (1087) & ChrW (1087) & ChrW (1072) & ChrW (32) & ChrW (1090) & ChrW (1086) & ChrW (1074) & ChrW (1072) & ChrW (1088) & ChrW (1086) & ChrW (1074)

DoCmd.OpenForm stDocName,, , stLinkCriteria

Exit_Кнопка4_Click:

Exit Sub

Err_Кнопка4_Click:

MsgBox Err. Description

Resume Exit_Кнопка4_Click

End Sub

' 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 = «На странице кнопочной формы нет элементов»

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 «Ошибка при чтении таблицы Switchboard Items.»

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 (e.g. Minimal Install).

On Error Resume Next

Application.Run «ACWZMAIN.sbm_Entry»

If (Err <> 0) Then MsgBox «Команда недоступна.»

On Error GoTo 0

' Update the form.

Me.Filter = «[ItemNumber] = 0 AND [Argument] = 'По умолчанию' «

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 «Неизвестная команда.»

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 «Ошибка при выполнении команды.», vbCritical

Resume HandleButtonClick_Exit

End If

End Function

Form_Выходная информация

VERSION 1.0 CLASS

BEGIN

MultiUse = -1 'True

END

Attribute VB_Name = «Form_Выходная информация»

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = True

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Compare Database

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

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

Dim stDocName As String

stDocName = ChrW (1054) & ChrW (1090) & ChrW (1095) & ChrW (1077) & ChrW (1090) & ChrW (32) & ChrW (1047) & ChrW (1072) & ChrW (1082) & ChrW (1083) & ChrW (1102) & ChrW (1095) & ChrW (1077) & ChrW (1085) & ChrW (1080) & ChrW (1077) & ChrW (32) & ChrW (1076) & ChrW (1086) & ChrW (1075) & ChrW (1086) & ChrW (1074) & ChrW (1086) & ChrW (1088) & ChrW (1086) & ChrW (1074) & ChrW (32) & ChrW (1079) & ChrW (1072) & ChrW (32) & ChrW (1087) & ChrW (1077) & ChrW (1088) & ChrW (1080) & ChrW (1086) & ChrW (1076)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка0_Click:

Exit Sub

Err_Кнопка0_Click:

MsgBox Err. Description

Resume Exit_Кнопка0_Click

End Sub

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

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

Dim stDocName As String

DoCmd.OpenReport stDocName, acNormal

Exit_Кнопка1_Click:

Exit Sub

Err_Кнопка1_Click:

MsgBox Err. Description

Resume Exit_Кнопка1_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW (1054) & ChrW (1090) & ChrW (1095) & ChrW (1077) & ChrW (1090) & ChrW (32) & ChrW (1050) & ChrW (1086) & ChrW (1083) & ChrW (1080) & ChrW (1095) & ChrW (1077) & ChrW (1089) & ChrW (1090) & ChrW (1074) & ChrW (1086) & ChrW (32) & ChrW (1090) & ChrW (1086) & ChrW (1074) & ChrW (1072) & ChrW (1088) & ChrW (1086) & ChrW (1074) & ChrW (32) & ChrW (1079) & ChrW (1072) & ChrW (32) & ChrW (1087) & ChrW (1077) & ChrW (1088) & ChrW (1080) & ChrW (1086) & ChrW (1076)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка2_Click:

Exit Sub

Err_Кнопка2_Click:

MsgBox Err. Description

Resume Exit_Кнопка2_Click

End Sub

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

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

Dim stDocName As String

DoCmd.OpenReport stDocName, acNormal

Exit_Кнопка3_Click:

Exit Sub

Err_Кнопка3_Click:

MsgBox Err. Description

Resume Exit_Кнопка3_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW (1054) & ChrW (1090) & ChrW (1095) & ChrW (1077) & ChrW (1090) & ChrW (32) & ChrW (1057) & ChrW (1091) & ChrW (1084) & ChrW (1084) & ChrW (1099) & ChrW (32) & ChrW (1080) & ChrW (32) & ChrW (1086) & ChrW (1087) & ChrW (1083) & ChrW (1072) & ChrW (1090) & ChrW (1099) & ChrW (32) & ChrW (1087) & ChrW (1086) & ChrW (32) & ChrW (1076) & ChrW (1086) & ChrW (1075) & ChrW (1086) & ChrW (1074) & ChrW (1086) & ChrW (1088) & ChrW (1072) & ChrW (1084)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка5_Click:

Exit Sub

Err_Кнопка5_Click:

MsgBox Err. Description

Resume Exit_Кнопка5_Click

End Sub

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

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

Dim stDocName As String

DoCmd.OpenReport stDocName, acNormal

Exit_Кнопка6_Click:

Exit Sub

Err_Кнопка6_Click:

MsgBox Err. Description

Resume Exit_Кнопка6_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW (1054) & ChrW (1090) & ChrW (1095) & ChrW (1077) & ChrW (1090) & ChrW (32) & ChrW (1057) & ChrW (1091) & ChrW (1084) & ChrW (1084) & ChrW (1099) & ChrW (32) & ChrW (1087) & ChrW (1086) & ChrW (32) & ChrW (1075) & ChrW (1088) & ChrW (1091) & ChrW (1087) & ChrW (1087) & ChrW (1072) & ChrW (1084) & ChrW (32) & ChrW (1090) & ChrW (1086) & ChrW (1074) & ChrW (1072) & ChrW (1088) & ChrW (1086) & ChrW (1074)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка8_Click:

Exit Sub

Err_Кнопка8_Click:

MsgBox Err. Description

Resume Exit_Кнопка8_Click

End Sub

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

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

Dim stDocName As String

DoCmd.OpenReport stDocName, acNormal

Exit_Кнопка9_Click:

Exit Sub

Err_Кнопка9_Click:

MsgBox Err. Description

Resume Exit_Кнопка9_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW (1054) & ChrW (1090) & ChrW (1095) & ChrW (1077) & ChrW (1090) & ChrW (32) & ChrW (1048) & ChrW (1090) & ChrW (1086) & ChrW (1075) & ChrW (1080) & ChrW (32) & ChrW (1087) & ChrW (1086) & ChrW (32) & ChrW (1076) & ChrW (1085) & ChrW (1103) & ChrW (1084)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка11_Click:

Exit Sub

Err_Кнопка11_Click:

MsgBox Err. Description

Resume Exit_Кнопка11_Click

End Sub

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

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

Dim stDocName As String

DoCmd.OpenReport stDocName, acNormal

Exit_Кнопка12_Click:

Exit Sub

Err_Кнопка12_Click:

MsgBox Err. Description

Resume Exit_Кнопка12_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW (1054) & ChrW (1090) & ChrW (1095) & ChrW (1077) & ChrW (1090) & ChrW (32) & ChrW (1058) & ChrW (1086) & ChrW (1074) & ChrW (1072) & ChrW (1088) & ChrW (1099) & ChrW (44) & ChrW (32) & ChrW (1085) & ChrW (1077) & ChrW (32) & ChrW (1087) & ChrW (1086) & ChrW (1083) & ChrW (1100) & ChrW (1079) & ChrW (1091) & ChrW (1102) & ChrW (1097) & ChrW (1080) & ChrW (1077) & ChrW (1089) & ChrW (1103) & ChrW (32) & ChrW (1089) & ChrW (1087) & ChrW (1088) & ChrW (1086) & ChrW (1089) & ChrW (1086) & ChrW (1084)

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

DoCmd.OpenReport stDocName, acNormal

Exit_Кнопка16_Click:

Exit Sub

Err_Кнопка16_Click:

MsgBox Err. Description

Resume Exit_Кнопка16_Click

End Sub

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

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

Dim stDocName As String

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка18_Click:

Exit Sub

Err_Кнопка18_Click:

MsgBox Err. Description

Resume Exit_Кнопка18_Click

End Sub

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

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

Dim stDocName As String

DoCmd.OpenReport stDocName, acNormal

Exit_Кнопка19_Click:

Exit Sub

Err_Кнопка19_Click:

MsgBox Err. Description

Resume Exit_Кнопка19_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW (1054) & ChrW (1090) & ChrW (1095) & ChrW (1077) & ChrW (1090) & ChrW (32) & ChrW (1055) & ChrW (1088) & ChrW (1086) & ChrW (1080) & ChrW (1079) & ChrW (1074) & ChrW (1086) & ChrW (1076) & ChrW (1089) & ChrW (1090) & ChrW (1074) & ChrW (1086) & ChrW (32) & ChrW (1080) & ChrW (1079) & ChrW (1076) & ChrW (1077) & ChrW (1083) & ChrW (1080) & ChrW (1081) & ChrW (32) & ChrW (1087) & ChrW (1086) & ChrW (32) & ChrW (1076) & ChrW (1085) & ChrW (1103) & ChrW (1084)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка21_Click:

Exit Sub

Err_Кнопка21_Click:

MsgBox Err. Description

Resume Exit_Кнопка21_Click

End Sub

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

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

Dim stDocName As String

DoCmd.OpenReport stDocName, acNormal

Exit_Кнопка22_Click:

Exit Sub

Err_Кнопка22_Click:

MsgBox Err. Description

Resume Exit_Кнопка22_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW (1054) & ChrW (1090) & ChrW (1095) & ChrW (1077) & ChrW (1090) & ChrW (32) & ChrW (1055) & ChrW (1086) & ChrW (1089) & ChrW (1090) & ChrW (1091) & ChrW (1087) & ChrW (1083) & ChrW (1077) & ChrW (1085) & ChrW (1080) & ChrW (1077) & ChrW (32) & ChrW (1076) & ChrW (1077) & ChrW (1085) & ChrW (1077) & ChrW (1078) & ChrW (1085) & ChrW (1099) & ChrW (1093) & ChrW (32) & ChrW (1089) & ChrW (1088) & ChrW (1077) & ChrW (1076) & ChrW (1089) & ChrW (1090) & ChrW (1074) & ChrW (32) & ChrW (1087) & ChrW (1086) & ChrW (32) & ChrW (1076) & ChrW (1085) & ChrW (1103) & ChrW (1084)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка24_Click:

Exit Sub

Err_Кнопка24_Click:

MsgBox Err. Description

Resume Exit_Кнопка24_Click

End Sub

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

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

Dim stDocName As String

DoCmd.OpenReport stDocName, acNormal

Exit_Кнопка25_Click:

Exit Sub

Err_Кнопка25_Click:

MsgBox Err. Description

Resume Exit_Кнопка25_Click

End Sub

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

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

Dim stDocName As String

stDocName = ChrW (1054) & ChrW (1090) & ChrW (1095) & ChrW (1077) & ChrW (1090) & ChrW (32) & ChrW (1042) & ChrW (1089) & ChrW (1077) & ChrW (32) & ChrW (1085) & ChrW (1077) & ChrW (1086) & ChrW (1087) & ChrW (1083) & ChrW (1072) & ChrW (1095) & ChrW (1077) & ChrW (1085) & ChrW (1085) & ChrW (1099) & ChrW (1077) & ChrW (32) & ChrW (1076) & ChrW (1086) & ChrW (1075) & ChrW (1086) & ChrW (1074) & ChrW (1086) & ChrW (1088) & ChrW (1099)

DoCmd.OpenReport stDocName, acPreview

Exit_Кнопка27_Click:

Exit Sub

Err_Кнопка27_Click:

MsgBox Err. Description

Resume Exit_Кнопка27_Click

End Sub

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

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

Dim stDocName As String

DoCmd.OpenReport stDocName, acNormal

Exit_Кнопка28_Click:

Exit Sub

Err_Кнопка28_Click:

MsgBox Err. Description

Resume Exit_Кнопка28_Click

End Sub

Form_Форма Покупатели

VERSION 1.0 CLASS

BEGIN

MultiUse = -1 'True

END

Attribute VB_Name = «Form_Форма Покупатели»

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = True

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Compare Database

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

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

Screen.PreviousControl.SetFocus

DoCmd.DoMenuItem acFormBar, acEditMenu, 10,, acMenuVer70

Exit_Кнопка24_Click:

Exit Sub

Err_Кнопка24_Click:

MsgBox Err. Description

Resume Exit_Кнопка24_Click

End Sub

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

'операции над документом

Dim wda As Word. Application

Dim wdd As Word. Document

Dim intPrint As Integer

On Error GoTo ErrStartWord

Set wdd = GetObject (Application.CurrentProject.Path & «Договор.doc»)

Set wda = wdd. Parent

wda.Visible = True

wdd.Bookmarks («Номер_договора_»).Select

wda.Selection.TypeText Text:=[Форма Договоры]. Form![Номер договора]

wdd.Bookmarks («Дата_договора_»).Select

wda.Selection.TypeText Text:=[Форма Договоры]. Form![Дата договора]

wdd.Bookmarks («Покупатель_»).Select

wda.Selection.TypeText Text:=Покупатель

wdd.Bookmarks («Директор_»).Select

wda.Selection.TypeText Text:=Директор

wdd.Bookmarks («Директор

Кол_").Select

wda.Selection.TypeText Text:=Директор

wdd.Bookmarks («Покупатель1_»).Select

wda.Selection.TypeText Text:=Покупатель

wdd.Bookmarks («Адрес_покупателя1_»).Select

wda.Selection.TypeText Text:=[Адрес покупателя]

wdd.Bookmarks («ИНН1_»).Select

wda.Selection.TypeText Text:=[ИНН]

wdd.Bookmarks («Расчетный_счет1_»).Select

wda.Selection.TypeText Text:=[Расчетный счет]

wdd.Bookmarks («Телефон_покупателя1_»).Select

wda.Selection.TypeText Text:=[Телефон покупателя]

wdd.Bookmarks («Покупатель2_»).Select

wda.Selection.TypeText Text:=Покупатель

wdd.Bookmarks («Адрес_покупателя2_»).Select

wda.Selection.TypeText Text:=[Адрес покупателя]

wdd.Bookmarks («ИНН2_»).Select

wda.Selection.TypeText Text:=[ИНН]

wdd.Bookmarks («Расчетный_счет2_»).Select

wda.Selection.TypeText Text:=[Расчетный счет]

wdd.Bookmarks («Телефон_покупателя2_»).Select

wda.Selection.TypeText Text:=[Телефон покупателя]

wdd.Bookmarks («Покупатель3_»).Select

wda.Selection.TypeText Text:=Покупатель

wdd.Bookmarks («Адрес_покупателя3_»).Select

wda.Selection.TypeText Text:=[Адрес покупателя]

wdd.Bookmarks («ИНН3_»).Select

wda.Selection.TypeText Text:=[ИНН]

wdd.Bookmarks («Расчетный_счет3_»).Select

wda.Selection.TypeText Text:=[Расчетный счет]

wdd.Bookmarks («Телефон_покупателя3_»).Select

wda.Selection.TypeText Text:=[Телефон покупателя]

'wdd.Bookmarks («Покупатель

Доп_").Select

'wda.Selection.TypeText Text:=Покупатель

'wdd.Bookmarks («Директор

Доп_").Select

'wda.Selection.TypeText Text:=Директор

wdd.SaveAs Application.CurrentProject.Path & «Договор «& [Форма Договоры]. Form![Номер договора] & «.doc»

Set wdd = Nothing

Set wda = Nothing

Exit Sub

ErrStartWord:

MsgBox Err. Description & «» & Err. Number, vblnformation

Exit Sub

End Sub

Поставщик _____________/Коржавин П.И./ Покупатель ____________/_______________/

Печать договора

Оплата договора

Единицы измерения

Группы изделий

Изделия

Договор поставки

Товары, не пользующиеся спросом

Покупатель

Служба главного инженера

Юридический отдел

Кондитерский цех

Массовый цех

Бухгалтерия

Отдел сбыта и маркетинга

Отдел кадров

Директор предприятия

Оплата по договору Товары по договору

Договоры

Договоры поставки Группы товаров

Товары по договору

Неоплаченные договоры

Суммы и оплаты Суммы по группам товаров

Поступление денежных средств по дням Производство изделий по дням

Заключение

договоров за период

Выходные документы

Покупатели

Нормативно-справочная информация

Покупатели Единицы измерения

Товар

АС учета и анализа конечной продукции хлебокомбината

Группы товаров Единицы измерения

Товар

Печать

Товары по договору Просмотр данных

Просмотр данных

Временной период запроса Выбор запроса

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

2. Оперативная информация

1. Нормативно-справочная информация Конец

Выбор режима

Главное меню АС

Установка АС

Оплаты по договору Группа товаров

Добавление информации

Корректировка информации Просмотр данных Добавление информации

Товар

Изменение товара

Корректировка информации

Изменение клиента Корректировка информации Изменение группы товаров

Добавление информации

Клиент

Оплата по договору

Новый договор

База данных

Выходные документы по запросу

Изменение единиц измерения

Добавление информации

Единицы измерения

Показать весь текст

Список литературы

Андерсен, В. Базы данных Microsoft Access. Проблемы и решения: Практ. пособ., пер. с англ. / В. Андерсен — М.: Издательство ЭКОМ, 2001.—384 с.: ил. — ISBN 5−7163−0082−0
Бекаревич, Ю. Самоучитель Microsoft Access 2002 / Ю. Бекаревич, Н. Пушкина — СПб.: «БХВ-Петербург», 2002. — 720 с. — ISBN: 5−8206−0033−9
Гарнаев, А. Ю. Использование MS Excel и VBA в экономике и финансах / А. Ю. Гарнаев — СПб.: БХВ — Санкт-Петербург, 2000. — 336 с: ил. -ISBN 5−8206−0024-Х
Гандерлой, Майк, Харкинз, Сьюзан Сейлз. Автоматизация Microsoft Access с помощью VBA / Майк Гандерлой, Сьюзан Сейлз Харкинз -М.: Издательский дом «Вильямс», 2006. — 416 с.: ил. — ISBN 5−8459−0959−7 (рус.)
Грабауров, В. А. Информационные технологии для менеджеров / В. А. Грабауров — М.: Финансы и статистика, 2001.- 368 с.: ил. ISBN 5−279−2 299−3
Грабер, М. Введение в SQL / Пер. с англ. В. Ястребов — Издательство «Лори», 1996. — 380 с. — ISBN: 5−85 582−010−6
Дженнингс, Р. Использование Microsoft Office Access 2003 / Р. Дженнингс: пер. с англ. И. Тараброва — М.: Издательский дом «Вильямс», 2005. — 1300 с. — ISBN: 5−8459−0691−1
Камминг, Стив. VBA для «чайников», 3-е издание / Стив Камминг: пер. с англ. — М.: Издательский дом «Вильямс», 2001. — 448 с.: ил. — ISBN 5−8459−0230−4 (рус.)
Кузин, А. В. Базы данных: учеб. пособие для студ. высш. учеб. заведений / А. В. Кузин, С. В. Левонисова. — 2-е изд., стер. — М.: Издательский центр «Академия», 2008. — 320 с. ISВN 978−5-7695−4833−8.
Марков А.С., Лисовский К. Ю. Базы данных. Введение в теорию и методологию: Учебник / А. С. Марков, К. Ю. Лисовский — М.: Финансы и статистика, 2006. — 512 с: ил. — ISBN 5−279−2 298−5.
Михеева, Е.В. Информационные технологии в профессиональной деятельности: учеб. пособие. — М.: ТК Велби, Изд-во Проспект, 2007. — 448 с. — ISBN: 978−5-482−1 569−8
Проектирование баз данных. СУБД Microsoft Access: Учебное пособие для вузов / Н. Н. Гринченко, Е. В. Гусев, Н. П. Макаров, А. Н. Пылькин, Н. И. Цуканова. — М.: Горячая линия-Телеком, 2004. — 240с.: ил. — ISBN 5−93 517−193−7.
Симонович, С.В. Информатика. Базовый курс. 2-е издание / Под ред. С. В. Симоновича. — СПб.: Питер, 2004. — 640 с.: ил. ISBN 5−94 723−752−0.
Степанов, А.Н. Информатика. Учебник для вузов. 4-е издание / А. Н. Степанов. — СПб.: Питер, 2005. — 684 с.: ил. ISBN 5−94 723−898−5.
Уокенбах, Джон. Профессиональное программирование на VBA в Excel 2002 / Джон Уокенбах: пер. с англ. — М.: Издательский дом «Вильямс», 2003. — 784 с.: ил. — ISBN 5−8459−0541−9 (рус.)

Заполнить форму текущей работой

Купить готовую работу