Проектирование и разработка информационной системы для учета ремонтных работ и обслуживания оргтехники фирмы ООО "Компьютерный мир" г. Самара
Технико-экономическая характеристика предприятия. Выбор комплекса задач автоматизации, анализ бизнес-процессов. Концептуальный уровень архитектуры базы данных, ее физическая модель. Программная реализация информационной системы для учета ремонтных работ.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 27.06.2012 |
| Размер файла | 8,8 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
St1, St2: string;
Sum, SumBN, SumN: currency;
begin
IF Panel3.Visible=False Then
begin
N:=ExtractFilePath(Application.ExeName)+'Doc4.doc';
Save:=ExtractFilePath(Application.ExeName)+'Doc\Отчет №1.doc';
DM.WordApplication1.Connect;
Try
Application.Minimize;
DM.WordApplication1.Documents.Open(N,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
DM.WordDocument1.ConnectTo(DM.WordApplication1.ActiveDocument)
DM.WordDocument1.SaveAs(Save);
St1:=DateToStr(DateTimePicker1.Date);
DM.WordDocument1.Tables.Item(1).Cell(3,2).Range.InsertBefore(St1);
St2:=DateToStr(DateTimePicker2.Date);
DM.WordDocument1.Tables.Item(1).Cell(4,2).Range.InsertBefore(St2);
DM.ADOTabZakaz.Filter:='ДатаЗаказа>='+St1+' AND ДатаЗаказа<='+St2;
DM.ADOTabZakaz.Filtered:=True;
i:=1; Sum:=0; SumN:=0; SumBN:=0;
With DM.ADOTabZakaz do
begin
First;
while not EOF do
begin
St1:=IntToStr(i);
DM.WordDocument1.Tables.Item(2).Cell(2+i,1).Range.InsertBefore(St1);
St1:=DateToStr(DM.ADOTabZakazДатаЗаказа.Value);
DM.WordDocument1.Tables.Item(2).Cell(2+i,2).Range.InsertBefore(St1);
St1:=DM.ADOTabZakazТехника.Value;
DM.WordDocument1.Tables.Item(2).Cell(2+i,3).Range.InsertBefore(St1);
St1:=DM.ADOTabZakazНомерТехники.Value;
DM.WordDocument1.Tables.Item(2).Cell(2+i,4).Range.InsertBefore(St1);
St1:=DM.ADOTabZakazКлиент.Value;
DM.WordDocument1.Tables.Item(2).Cell(2+i,5).Range.InsertBefore(St1);
if DM.ADOTabZakazВызов.Value=True then
DM.WordDocument1.Tables.Item(2).Cell(2+i,6).Range.InsertBefore('ДА')
else
DM.WordDocument1.Tables.Item(2).Cell(2+i,6).Range.InsertBefore('НЕТ')
St1:=DM.ADOTabZakazМастер.Value;
DM.WordDocument1.Tables.Item(2).Cell(2+i,7).Range.InsertBefore(St1);
St1:=DateToStr(DM.ADOTabZakazДатаВыполнения.Value);
DM.WordDocument1.Tables.Item(2).Cell(2+i,8).Range.InsertBefore(St1);
St1:=DM.ADOTabZakazОплата.Value;
DM.WordDocument1.Tables.Item(2).Cell(2+i,9).Range.InsertBefore(St1);
if DM.ADOTabZakazДоставка.Value=True then
DM.WordDocument1.Tables.Item(2).Cell(2+i,10).Range.InsertBefore('ДА')
else
DM.WordDocument1.Tables.Item(2).Cell(2+i,10).Range.InsertBefore('НЕТ');
St1:=Format('%m',[DM.ADOTabZakazСумма.Value]);
DM.WordDocument1.Tables.Item(2).Cell(2+i,11).Range.InsertBefore(St1);
Sum:=Sum+DM.ADOTabZakazСумма.Value;
if DM.ADOTabZakazОплата.Value='нал' then
SumN:=SumN+DM.ADOTabZakazСумма.Value;
if DM.ADOTabZakazОплата.Value='безнал' then
SumBN:=SumBN+DM.ADOTabZakazСумма.Value;
DM.WordDocument1.Tables.Item(2).Rows.Add(EmptyParam);
inc(i);
Next;
end;
end;
DM.WordDocument1.Tables.Item(2).Rows.Item(2+i).Delete;
St1:=Format('%m',[SumN]);
DM.WordDocument1.Tables.Item(3).Cell(1,2).Range.InsertBefore(St1);
St1:=Format('%m',[SumBN]);
DM.WordDocument1.Tables.Item(3).Cell(2,2).Range.InsertBefore(St1);
St1:=Format('%m',[Sum]);
DM.WordDocument1.Tables.Item(3).Cell(3,2).Range.InsertBefore(St1);
Except
begin
ShowMessage('Шаблон документа не найден!');
DM.WordApplication1.Disconnect;
Application.Restore;
exit;
end;
end;
DM.WordApplication1.Disconnect;
Application.Restore;
DM.ADOTabZakaz.Filtered:=False;
end;
IF Panel3.Visible=True Then
begin
N:=ExtractFilePath(Application.ExeName)+'Doc5.doc';
Save:=ExtractFilePath(Application.ExeName)+'Doc\Отчет №2.doc';
DM.WordApplication1.Connect;
Try
Application.Minimize;
DM.WordApplication1.Documents.Open(N,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
DM.WordDocument1.ConnectTo(DM.WordApplication1.ActiveDocument)
DM.WordDocument1.SaveAs(Save);
St1:=DateToStr(DateTimePicker1.Date);
DM.WordDocument1.Tables.Item(1).Cell(3,2).Range.InsertBefore(St1);
St2:=DateToStr(DateTimePicker2.Date);
DM.WordDocument1.Tables.Item(1).Cell(4,2).Range.InsertBefore(St2);
DM.ADOTabZakaz.Filter:='ДатаЗаказа>='+St1+' AND ДатаЗаказа<='+St2+' AND КодМастера='+IntToStr(DM.ADOTabMasterКодМастера.Value);
DM.ADOTabZakaz.Filtered:=True;
St1:=DM.ADOTabZakazМастер.Value;
DM.WordDocument1.Tables.Item(1).Cell(5,2).Range.InsertBefore(St1);
i:=1; Sum:=0;
With DM.ADOTabZakaz do
begin
First;
while not EOF do
begin
St1:=IntToStr(i);
DM.WordDocument1.Tables.Item(2).Cell(2+i,1).Range.InsertBefore(St1);
St1:=DateToStr(DM.ADOTabZakazДатаЗаказа.Value);
DM.WordDocument1.Tables.Item(2).Cell(2+i,2).Range.InsertBefore(St1);
St1:=DM.ADOTabZakazТехника.Value;
DM.WordDocument1.Tables.Item(2).Cell(2+i,3).Range.InsertBefore(St1);
St1:=DM.ADOTabZakazНомерТехники.Value;
DM.WordDocument1.Tables.Item(2).Cell(2+i,4).Range.InsertBefore(St1);
St1:=DM.ADOTabZakazКлиент.Value;
DM.WordDocument1.Tables.Item(2).Cell(2+i,5).Range.InsertBefore(St1);
if DM.ADOTabZakazВызов.Value=True then
DM.WordDocument1.Tables.Item(2).Cell(2+i,6).Range.InsertBefore('ДА')
else
DM.WordDocument1.Tables.Item(2).Cell(2+i,6).Range.InsertBefore('НЕТ')
St1:=DM.ADOTabZakazМастер.Value;
DM.WordDocument1.Tables.Item(2).Cell(2+i,7).Range.InsertBefore(St1);
St1:=DateToStr(DM.ADOTabZakazДатаВыполнения.Value);
DM.WordDocument1.Tables.Item(2).Cell(2+i,8).Range.InsertBefore(St1);
St1:=DM.ADOTabZakazОплата.Value;
DM.WordDocument1.Tables.Item(2).Cell(2+i,9).Range.InsertBefore(St1);
if DM.ADOTabZakazДоставка.Value=True then
DM.WordDocument1.Tables.Item(2).Cell(2+i,10).Range.InsertBefore('ДА')
else
DM.WordDocument1.Tables.Item(2).Cell(2+i,10).Range.InsertBefore('НЕТ');
St1:=Format('%m',[DM.ADOTabZakazСумма.Value]);
DM.WordDocument1.Tables.Item(2).Cell(2+i,11).Range.InsertBefore(St1);
Sum:=Sum+DM.ADOTabZakazСумма.Value;
DM.WordDocument1.Tables.Item(2).Rows.Add(EmptyParam);
inc(i);
Next;
end;
end;
DM.WordDocument1.Tables.Item(2).Rows.Item(2+i).Delete;
St1:=Format('%m',[Sum]);
DM.WordDocument1.Tables.Item(3).Cell(1,2).Range.InsertBefore(St1);
Except
begin
ShowMessage('Шаблон документа не найден!');
DM.WordApplication1.Disconnect;
Application.Restore;
exit;
end;
end;
DM.WordApplication1.Disconnect;
Application.Restore;
DM.ADOTabZakaz.Filtered:=False;
end;
end;
end.
Размещено на Allbest.ru
Подобные документы
Классификация архитектуры базы данных. Компьютерные сети и их виды. Обзор программных продуктов для учета компьютерной техники и оргтехники. Проектирование информационной структуры предметной области и программная реализация задачи учета оргтехники.
дипломная работа [1,9 M], добавлен 16.05.2017Логическая и физическая схема действующей компьютерной сети. Проблемы, решение которых актуально для предприятия. Базы данных задач и работ бизнес-процессов. Структура информационной системы. Проектирование подсистемы "Управление основным производством".
курсовая работа [4,8 M], добавлен 17.12.2011- Разработка информационной системы для автоматизации учета ремонта электрооборудования на предприятии
Архитектура и функции информационной системы для автоматизации учета ремонта электрооборудования. Построение модели прецедентов, потоков данных и процессов в стандарте IDEF0. Проектирование концептуальной и логической модели интегрированной базы данных.
курсовая работа [442,9 K], добавлен 06.08.2013 Организация и продажа оргтехники. Цели автоматизированной системы и автоматизируемые функции. Характеристика функциональной структуры информационной системы. Проектирование функциональной части объекта автоматизации. Обоснование выбора подсистемы.
курсовая работа [129,6 K], добавлен 19.12.2010Моделирование бизнес–процессов для описания функций различных систем управления. Анализ документооборота предприятия. Проектирование базы данных для комплекса технических средств и средств автоматизации. Программная реализация информационной системы.
курсовая работа [791,4 K], добавлен 09.05.2014Основные функции склада. Информационная структура складского учета. Логическая и физическая модель информационной системы. Проектирование базы данных. Разработка экранных форм. Разработка модулей для прикладных решений. Моделирование бизнес-процессов.
дипломная работа [2,1 M], добавлен 31.12.2017Разработка автоматизированной информационной системы для учета и контроля выполнения ремонтных работ, и предоставления услуг по разработке программного обеспечения компании "МегионСофтОйл", разработка алгоритмов приложений программной системы и модулей.
дипломная работа [5,3 M], добавлен 29.06.2012Анализ существующей методики воинского учета. Схема архитектуры и программная реализация разрабатываемого АРМ специалиста отдела мобилизационной работы и комплектования. Логическая структура реляционной базы данных. Результаты тестирования программы.
дипломная работа [1,4 M], добавлен 16.05.2013Анализ деятельности складского учета, внедрение информационных технологий в процесс работы склада. Создание информационной системы учета движения материалов на складе. Моделирование бизнес-процессов. Проектирование физической структуры базы данных.
курсовая работа [4,1 M], добавлен 22.06.2014Выбор методологии проектирования и разработка информационной системы "Расчёт зарплаты" для предприятия ОАО РТП "Авторемонтник". Архитектурное проектирование базы данных информационной системы и разработка её интерфейса. Тестирование программного модуля.
дипломная работа [2,3 M], добавлен 25.05.2014
