Главная База знаний "Allbest" Программирование, компьютеры и кибернетика Автоматизация товарно-денежного оборота предприятия ООО "Регион"

Автоматизация товарно-денежного оборота предприятия ООО "Регион"

Блок-схема модулей программы. Главная цель бизнеса ООО "Регион". Протокол тестирования продукта. Руководство пользователя программы. Расчет цены предложения и минимального количества копий тиражирования. Образец отчета "Книга продаж", листинг программы.

Рубрика	Программирование, компьютеры и кибернетика
Вид	дипломная работа
Язык	русский
Дата добавления	18.09.2014
Размер файла	1,0 M

посмотреть текст работы

скачать работу можно здесь

полная информация о работе

весь список подобных работ

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Страница:

Часовая стоимость накладных расходов (руб.)

Стоимость машинного часа (руб.

Стоимость работы оборудования (гр.8 + гр.9+ гр.10)

(руб.)

Стоимостные затраты (гр.7*гр.11) (руб.)

Прием, визуальная проверка документов

ручн.

документов

11000

100

110,00

193

125,5

318,5

35035

Ввод данных

ЭВМ

символы

7560000

7200

1050,00

233

151,5

394,5

414225

Обработка данных

ЭВМ

операция

163100250

1000000

163,10

233

151,5

394,5

64343

Печать документов

ЭВМ

Документо- строка

1547600

12000

128,97

233

151,5

394,5

50878,7

ИТОГО за год

1452,07

564481,7

Тестирование на некорректных данных показало, что система сообщает об ошибках. Было выявлено 3 ситуации необработанных ошибок, приводивших к зависанию программы. Тестирование на данных контрольного примера по текущей схеме деятельности приведено в таблице 18.

Таблица 18 - Результаты тестирования на некорректных данных

П№	Название операции	Оборудование	Единицы измерения	Количество ошибок	Зависание	Сообщение об ошибке	Программа не выдала ошибку, некорректные данные сохранены
1	2	3	4	5	6	7	8
1	Ввод данных	ЭВМ	2 строки, данные о контрагентах	2	0	2	0
3	Ввод данных	ЭВМ	3 строки, данные о заказах	3	1	1	0
4	Ввод данных	ЭВМ	5 строк, данные о товарах	5	3	2	0

Таким образом, тестирование на контрольном примере показало большую эффективность работы автоматизированной системы, по сравнению с ситуацией, когда автоматизация была минимальной.

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

2.4 Руководство пользователя

Во многих окнах имеются:

“Вспомогательные кнопки”, которые выполняют следующие функции: добавление, редактирование (изменение), удаление, принять или уволить работников, просмотреть уволенных.

“Кнопки операций”, При нажатии на кнопки выполняются операции, подписанные на кнопках.

При табличной организации данных выполняются следующие функции:

Если кликнуть мышкой по названию столбца в заголовке таблицы будет произведена сортировка значений по данному столбцу. Причём сортировка предусмотрена лишь там, где это имеет какой-либо смысл.

Если подвести курсор мыши на любой из столбцов и нажать левую кнопку мыши, то, не отпуская кнопку можно переместить столбец на другое место в таблице.

Если подвести курсор мыши на линию раздела столбцов и нажав левую кнопку мыши можно увеличить или уменьшить ширину столбца.

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

Для запуска системы нажмите на рабочем столе.

После запуска ярлыка появится меню (рис.5). Выберите нужный вам пункт.

Рисунок 5 - Главное меню

Меню «Просмотр / Ввод данных»

Рисунок 6 - «Просмотр / Ввод данных»

Форма «Товары» (рис.7)

Рисунок 7 - Форма «Товары»

В появившемся окне все поля доступны для редактирования. Если справа от поля есть значок - , значения для данного поля выбираются только из справочника.

Чтобы найти товар, введите название компании в поле «Введите наименование товара для поиска» в правом верхнем углу.

Вход в форму «Контрагенты» (рис. 8).

Рисунок 8- Форма «Контрагенты»

В появившемся окне все поля доступны для редактирования. Если справа от поля есть значок - , значения для данного поля выбираются только из справочника.

Чтобы найти контрагента, введите название компании в поле «Введите наименование контрагента для поиска» в правом верхнем углу.

Форма «Остатки на складе» (рис.9)

Рисунок 9 - Форма «Остатки на складе»

В появившемся окне находится список всех товаров на складе с указанием количества и суммы. Все поля доступны для редактирования. Если справа от поля есть значок - , значения для данного поля выбираются только из справочника.

Меню «Основные формы» (рис.10)

Рисунок 10 - Меню «Основные формы»

Вход в форму «Хранение на складе» (рис.11).

Рисунок 11 - Форма «Остатки на складе»

В появившемся окне находится список всех товаров на складе с указанием количества и суммы. Все поля доступны для редактирования. Если справа от поля есть значок - , значения для данного поля выбираются только из справочника. При помощи кнопки «Добавить новую запись» можно добавить новую запись, при этом появляется эта же форма с пустыми полями, которые нужно заполнить. Чтобы найти какой-то товар, нажмите «Найти по наименованию товара». В появившемся окне введите название товара, который вы ищете.

Вход в форму «Заказы» (рис.12).

Рисунок 12 - Форма «Заказы»

В появившемся окне все поля доступны для редактирования. Если справа от поля есть значок - , значения для данного поля выбираются только из справочника.

Чтобы найти заказ клиента, нажмите «Поиск по заказам». В появившемся окне введите название компании или номер заказа, который вы ищете.

Чтобы добавить новый заказ, нажмите «Добавить новый заказ», появится форма с пустыми полями, которые нужно заполнить.

Если контрагента нет в списке, добавьте его. Чтобы добавить нового контрагента, нажмите «Добавить нового контрагента», появится форма с пустыми полями, которые нужно заполнить. После заполнения закройте форму, и выберите контрагента.

Чтобы вывести на печать договор, нажмите «Создать договор». Форма договора с заполненными полями из данных заказа откроется в MS Word. Там ее можно отредактировать.

Чтобы вывести на печать акт и счет-фактуру, нажмите «Создать акт и счет-фактуру». Формы акта и счета-фактуры с заполненными полями из данных заказа откроются в MS Word. Там их можно отредактировать.

Пример печати счет-фактуры (рис.13)

Рисунок 13 - Форма «Печать счет-фактуры»

Меню «Отчеты».

Рисунок 14 - Меню «Отчеты»

Для формирования нужных отчетов нажмите соответствующую кнопку. Данные формы с заполненными полями из данных заказа откроются в MS Excel. Там их можно отредактировать. Образец отчета «Книга продаж» находится в Приложении Д.

3. ЭКОНОМИЧЕСКИЙ РАЗДЕЛ

3.1 Расчёт затрат на создание программного продукта

Расчет себестоимости машинного часа эксплуатации вычислительной и оргтехники (ВиОТ):

, (3.1)

гдеСм.ч. - себестоимость машинного часа;

Fп - годовой полезный фонд времени работы единицы оборудования;

Кг=0,95 - коэффициент готовности;

Зi-годовые затраты, связанные с эксплуатацией и обслуживанием ВиОТ.

, (3.2)

где FН - номинальный годовой фонд рабочего времени в часах;

р=(0,05…0,2) - коэффициент, учитывающий время, затраченное на ремонт, настройку, обслуживание ВиОТ.

Расчет суммарных годовых затрат.

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

Таблица 19 - Состав условного комплекта

№

Наименование

Кол-во шт.

Цена руб.

1

системный блок

2

10000

2

монитор

2

4000

3

мышь

2

200

4

клавиатура

2

300

Итого

14500

, (3.3)

где Цi- цена единицы условного комплекта;

Ki- количество единиц условного комплекта;

РД - дополнительные расходы на доставку, установку, первоначальную наладку.

(3.4)

Затраты на материалы:

(3.5)

Основная и дополнительная заработная плата персонала, обслуживающего ВиОТ.

, (3.6)

где Оi - оклад i-го работника, обслуживающего ВиОТ;

Кд = 0,1 - коэффициент дополнительной заработной платы;

КР = 0,15 - районный коэффициент.

Для обслуживания вычислительной техники нам понадобится 1 системный администратор и один техник. Оклад администратора 20000 руб. в месяц, техника 15000 рублей в месяц. Количество обслуживаемых компьютеров 3 (один менеджера по продажам, один для бухгалтера и один для кладовщика).

Расчет в таблице 20.

Таблица 20 - Расчет заработной платы

оклад

12

0,1

0,15

20000

240000

24000

36000

300000

15000

180000

18000

27000

225000

525000

175000

Начисления на заработную плату - Нз/п.

Таблица 21 - Состав единого страхового налога на 2013 г.

№

Статья

%

1

Пенсионный фонд

22

2

Фонд социального страхования

2,9

3

Федеральный фонд обязательного медицинского страхования

5,1

4

Страховой налог от несчастного случая на производстве для служащих

0,2

Итого:

30,2

= 52850 руб. (3.7)

Амортизационные отчисления ВиОТ:

, (3.8)

где = 0,2- норма амортизационных отчислений в 2013 году.

Износ программных продуктов.

Условный комплект обладает следующими необходимыми программными продуктами:

Таблица 22 - Используемые программные средства

Наименование

Цена (руб.)

Delphi 7.0

12000

Итого

12000

Амортизационные отчисления программных продуктов - АОпп

, (3.9)

где - суммарная стоимость программных продуктов;

= 0,5- норма амортизационных начислений.

= 60 руб.

Расходы на содержание и эксплуатацию оборудования.

Расходы на содержание и эксплуатацию оборудования состоят из:

затрат на ремонт и специальное обслуживание

;

(3.10)

затрат на электрическую энергию

, (3.11)

где - суммарная мощность;

КГ - коэффициент готовности;

ЦкВт/ч - стоимость кВт/ч.

Производим подсчет:

кВт/час,

руб за 1 кВт/час электроэнергии,

КГ= 0,95

Fп - 1943 часа;

,

(3.2)

где FН - номинальный годовой фонд рабочего времени в часах;

р=(0,05…0,2) - коэффициент, учитывающий время, затраченное на ремонт, настройку, обслуживание ВиОТ.

Расходы на содержание и эксплуатацию оборудования

(3.12)

Прочие расходы.

Так как используется один тип техники и количество обслуживающего персонала не превышает трех человек, следовательно:

(3.13)

Суммарные годовые затраты.

258245,7

Используем формулу:

, (3.1)

Где См.ч. - себестоимость машинного часа;

Fп - годовой полезный фонд времени работы единицы оборудования;

Кг=0,95 - коэффициент готовности;

Зi-годовые затраты, связанные с эксплуатацией и обслуживанием ВиОТ.

, (3.2)

где FН - номинальный годовой фонд рабочего времени в часах;

р=(0,05…0,2) - коэффициент, учитывающий время, затраченное на ремонт, настройку, обслуживание ВиОТ.

рублей себестоимость машинного часа разработанной системы.

3.2 Расчет цены предложения и минимального количества копий тиражирования

Фонд оплаты труда за время работы над программным продуктом - ФОТ:

, (3.15)

где О - оклад сотрудника, работающего над продуктом;

То - общее время работы над программным продуктом;

Кд = 0,15 - коэффициент дополнительной заработной платы;

КР = 0,15 - районный коэффициент.

Для работы над программным продуктом необходим программист.

Оклад программиста 20000 рублей в месяц.

Начисления на ФОТ:

= 39000 * 0,302 = 11778 (3.16)

Затраты, связанные с эксплуатацией и обслуживанием ВиОТ - Зовт:

, (3.17)

10492,8

где Тм - машинное время работы над программным продуктом;

ЧРм - число рабочих часов в месяце;

N - количество условных комплектов;

Ки - коэффициент использования оборудования.

Специальные программные продукты не использовались, то Зспп = 0 (руб.).

Затраты на хозяйственные операции и нужды - Зхн.

Таблица 23 - Затраты на хозяйственные нужды

Наименование

Цена за единицу, (руб.)

Количество

Всего

Канцтовары

8

10

80

Бумага

3

200

600

Итого

680

Накладные расходы:

(3.18)

Полные затраты на разработку программного продукта:

(3.19)

= 81450 рублей

Расчет установочной прибыли:

, (3.20)

где РУ = 20 % - установочная рентабельность.

= 16290 рублей

Расчет величины налога на добавленную стоимость (НДС):

= (81450 +16290)*0,18 =17593, 2 (3.21)

Цена предложения разработанного программного продукта:

(3.22)

= 81450 + 16290 + 17593,2 = 115333,3 рубля

Расчет минимального количества копий, необходимых для реализации, для получения установочной прибыли:

, (3.23)

где ЦСПР - цена на рынке одной копии программного продукта;

ЗТИРАЖ-затраты на тиражирование одной копии программного продукта.

, (3.24)

где СCD- цена диска - носителя;

Ттираж - время копирования.

Определим рыночную цену, как 162000 рублей (цена разработки плюс 40 торговая наценка).

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

Используем формулу 3.24:

= 20 +5+174,88 = 199,88 рублей

Время копирования 5 минут, стоимость CD - 20 рублей.

Используем формулу 3.24:

= 1,402.

Таким образом, определили, что для того, чтобы получить установочную прибыль, необходимо продать две копии программы. Таким образом, разработанная система экономически эффективна.

ЗАКЛЮЧЕНИЕ

В данной работе была рассмотрена проблема реорганизации бизнес-процесса товарно-денежного оборота в части продаж предприятия оптовой торговли ООО «Регион», г.Уфа.

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

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

Согласно результатам тестирования разработанной автоматизированной системы, а также, согласно результатам расчета получения установочной прибыли от продажи системы, внедрение разработанной системы повысит скорость и эффективность работы сотрудников ООО «Регион», занятых процессом продаж, а значит повысит удовлетворенность клиентов и эффективность бизнеса в целом.

Разработанная автоматизированная система имеет следующие перспективы развития:

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

Включение в работу системы отдела поставок - то есть разработка части системы, отвечающей за автоматизацию управления процессом работы отдела поставок. Данная часть бизнес-процесса имеет общие данные с процессов продаж (база товаров, база контрагентов), но, также имеет другую нормативную базу и базу знаний, и поэтому не была включена в текущий бизнес-процесс. Так как часть данных общая, то и скорость разработки и внедрения будет высокая.

Включение в работу системы логистической составляющей - то есть разработка части системы, отвечающей за автоматизацию управления процессом работы транспортного цеха. Данная часть бизнес-процесса имеет другую нормативную базу и базу знаний, и поэтому не была включена в текущий бизнес-процесс. Но ее дальнейшее развитие приведет к повышению эффективности работы транспортного отдела.

Включение в единую информационную систему предприятия и интеграция с существующими приложениями предприятия (1С и т.п.).

СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

1. Козырев А.А. Информатика: Учебник для вузов - СПб: издательство Михайлова В.А., 2002.- 511 с.

2. Згадзай О.Э Информатика и математика. Учебник. С.Я. Казанцев, А.В. Филиппов. - М.: ИМЦЙ ГУК МВД Росси, 2002. - 348 с.

3. Олифер В., Олифер Н. Сетевые операционные системы. Учебник, Питер, 2001.

4. Шураков В.В. “Автоматизированное рабочее место для статической обработки данных”, 1990г.

5. Кантарь И.Л. “Автоматизированные рабочие места управленческого аппарата”, 1990г.

6. Уэллс Э., Хешбаргер С. MicrosoftExcel 2007: разработка приложений. Серия "МАСТЕР" /Пер. с англ. - С-Пб.: "BHV - Санкт-Петербург", 2008.

7. Колин, К.К. Фундаментальные основы информатики: социальная информатика: Учебное пособие для вузов - М.: Академ. проект: Деловая книга Екатеринбург, 2000.- 350 с.

8. Методы и средства поиска информации в Интернет: Методические указания к практическим занятиям и самостоятельной работе / Моск. ун-т потреб. кооп. Чебоксар. кооп. ин-т; Сост. А.В. Картузов; Отв.ред. Николаев В.Н..-Чебоксары:Салика, 2000.

9. Петюшкин А.В., HTML. Экспресс-курс. - СПб.: БХВ - Петербург, 2003.

10. Советов Б.Я. Информационные технологии: Учебник для вузов / Б.Я. Советов ; В. В. Цехановский. - М.: Высш. шк., 2003.

11. Соломон К. MicrosoftOffice 2007: разработка приложений. Серия "МАСТЕР" /Пер. с англ. - С-Пб.: "BHV - Санкт-Петербург", 2008.

12. Руководство программиста по VisualBasic для MicrosoftOffice 2007 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" TOO "ChannelTradingLtd.", 2007.

13. Уэллс Э., Хешбаргер С. MicrosoftExcel 2007: разработка приложений. Серия "МАСТЕР" /Пер. с англ. - С-Пб.: "BHV - Санкт-Петербург", 2008.

14. Воронов К. Показатели оценки роста инвестиционного проекта, Москва, 1999.

15. Карминский, А.М. Информатизация бизнеса. М.: Финансы и статистика/Нестеров П.В., 1997.

16. Корняков В.Н. Программирование документов и приложений MS Office в Delphi. - СПб.: БХВ-Петербург, 2005. - 496 с.

17. Таха, Х.А. Введение в исследование операций, 7-е издание.: Пер. с англ. - М.: Издательский дом "Вильяме", 2005. - 912 с: ил.

18. А.Я. Архангельский «Программирование в Delphi 7», Москва «Бином», 2004.

19. П. Дарахвелидзе, Е. Маркова «Учебник по Delphi 7 для начинающих».

20. П. Дарахвелидзе, Е. Маркова «Учебник для продвинутых по Delphi 7».

21. Возневич Э. «Delphi. Освой самостоятельно». - М.: Восточная Книжная Компания, 1996.

22. Рубенкинг Н. «Программирование в Delphi для “чайников”» К.: Диалектика, 1996.

23. Фаронов В. «Delphi 6: учебный курс» СПб.: Питер, 2000.

24. ГОСТ 34.601-90. «Информационная технология. Комплекс стандартов на автоматизированные системы. Автоматизированные системы. Стадии создания».

25. РД 50-34.698-90. «Методические указания. Информационная технология. Комплекс стандартов и руководящих документов на автоматизированные системы. Автоматизированные системы требования к содержанию документов».

26. ГОСТ 34.603-92. «Информационная технология. Виды испытаний автоматизированных систем».

ПРИЛОЖЕНИЕ А

Cхема данных

ПРИЛОЖЕНИЕ Б

Блок-схемы работы основных модулей системы

ПРИЛОЖЕНИЕ В

Образец отчета «Книга продаж»

ПРИЛОЖЕНИЕ Г

Листинг программы

programMyEdit;

uses

Forms,

MainUnit in 'MainUnit.pas' {MainForm},

ChildUnit in 'ChildUnit.pas' {ChildForm},

Unit1 in 'Gd.pas' {Form1},

Unit2 in 'Kt.pas' {Form2},

Unit3 in 'St.pas' {Form3},

Unit4 in 'Ots.pas' {Form4},

Unit5 in 'Ord.pas' {Form5};

Unit6 in 'Kep.pas' {Form6};

Unit7 in 'Ad.pas' {Form7};

Unit8 in 'Ph.pas' {Form8};

Unit9 in ' Unit9.pas ' {Form9};

{$R *.RES}

begin

Application.Initialize;

Application.CreateForm(TMainForm, MainForm);

Application.Run;

end.

unitMainUnit;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Menus, StdActns, ActnList, DB, Grids, DBGrids, ExtCtrls, DBCtrls,

DBTables, ComCtrls, ToolWin, StdCtrls, Buttons, Mask;

type

TMainForm = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N3: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

WindowMenu: TMenuItem;

OpenDialog1: TOpenDialog;

ActionList1: TActionList;

Arrange1: TWindowArrange;

Cascade1: TWindowCascade;

Close1: TWindowClose;

MinimizeAll1: TWindowMinimizeAll;

TileHorizontally1: TWindowTileHorizontal;

TileVertically1: TWindowTileVertical;

N13: TMenuItem;

N16: TMenuItem;

Copy1: TEditCopy;

Cut1: TEditCut;

Paste1: TEditPaste;

StatusBar1: TStatusBar;

DataSource1: TDataSource;

ToolBar1: TToolBar;

ComboBox1: TComboBox;

Timer1: TTimer;

warehouse: TTable;

DBGrid1: TDBGrid;

N2: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N9: TMenuItem;

N11: TMenuItem;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton7: TSpeedButton;

SpeedButton8: TSpeedButton;

Panel1: TPanel;

Panel2: TPanel;

Panel3: TPanel;

Panel4: TPanel;

Memo1: TMemo;

N10: TMenuItem;

N12: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

N19: TMenuItem;

N20: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

Label1: TLabel;

Splitter1: TSplitter;

N23: TMenuItem;

N24: TMenuItem;

Query1: TQuery;

N25: TMenuItem;

procedure ComboBox1Change(Sender: TObject);

procedure N8Click(Sender: TObject);

procedureFormCreate(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure N6Click(Sender: TObject);

procedure SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure SpeedButton4MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure SpeedButton5MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure SpeedButton7MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure SpeedButton8MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure SpeedButton6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedureFormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure ToolBar1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton3Click(Sender: TObject);

procedure SpeedButton5Click(Sender: TObject);

procedure SpeedButton8Click(Sender: TObject);

procedure SpeedButton2Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure SpeedButton4Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N19Click(Sender: TObject);

procedure N20Click(Sender: TObject);

procedure N21Click(Sender: TObject);

procedure N22Click(Sender: TObject);

procedure SpeedButton6Click(Sender: TObject);

procedure N24Click(Sender: TObject);

procedure SpeedButton7Click(Sender: TObject);

procedure N25Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

MainForm: TMainForm;

editmark: boolean;

stDay: array[1..7] of string[11] = ('воскресенье','понедельник','вторник',

'среда','четверг','пятница','суббота');

implementation

uses Unit1, Kt, Ots, Unit4, Unit5;

{$R *.DFM}

procedure TMainForm.ComboBox1Change(Sender: TObject);

begin

warehouse.Active:= false;

if combobox1.ItemIndex = 0 then begin

warehouse.TableName:='Audi.db';

end;

if combobox1.ItemIndex = 1 then begin

warehouse.TableName:= 'Volkswagen.db';

end;

if combobox1.ItemIndex = 2 then begin

warehouse.TableName:= 'Skoda.db';

end;

warehouse.ReadOnly:=false;

dbgrid1.ReadOnly:=true;

warehouse.Active:= true;

end;

procedure TMainForm.N8Click(Sender: TObject);

begin

application.Terminate;

end;

procedureTMainForm.FormCreate(Sender: TObject);

var Present: TDateTime;

year, month, day: word;

begin

present:=now;

decodedate(present,year,month,day);

statusbar1.Panels[2].Text:=inttostr(day)+'.'+inttostr(month)+'.'+inttostr(year)+', '+stDay[DayOfWeek(Present)];

end;

procedure TMainForm.N3Click(Sender: TObject);

begin

warehouse.Active:= false;

if opendialog1.Execute then begin

warehouse.TableName:=opendialog1.FileName;

warehouse.Active:=true;

end;

procedure TMainForm.Timer1Timer(Sender: TObject);

var date: Tdatetime;

begin

statusbar1.Panels[1].Text:=timetostr(time);

end;

procedure TMainForm.N6Click(Sender: TObject);

begin

combobox1.ItemIndex:= -1;

warehouse.Active:=false;

warehouse.TableName:= '';

end;

procedure TMainForm.SpeedButton1MouseMove(Sender: TObject;