Автоматизация обработки заявок Delphi + MS SQL Server

Введение

I Аналитическая часть

• Технико-экономическая характеристика предметной области и предприятия. Анализ деятельности «КАК ЕСТЬ»
  • Характеристика предприятия и его деятельности
  • Организационная структура управления предприятием
  • Программная и техническая архитектура ИС предприятия
• Характеристика комплекса задач, задачи и обоснование необходимости автоматизации
  • Выбор комплекса задач автоматизации и характеристика существующих бизнес процессов
  • Определение места проектируемой задачи в комплексе задач и ее описание
  • Обоснование необходимости использования вычислительной техники для решения задачи
  • Анализ системы обеспечения информационной безопасности и защиты информации
• Анализ существующих разработок и выбор стратегии автоматизации «КАК ДОЛЖНО БЫТЬ»
  • Анализ существующих разработок для автоматизации задачи
  • Выбор и обоснование стратегии автоматизации задачи
  • Выбор и обоснование способа приобретения ИС для автоматизации задачи
• Обоснование проектных решений
  • Обоснование проектных решений по информационному обеспечению
  • Обоснование проектных решений по программному обеспечению
  • Обоснование проектных решений по техническому обеспечению

II Проектная часть

• Разработка проекта автоматизации
  • Этапы жизненного цикла проекта автоматизации
  • Ожидаемые риски на этапах жизненного цикла и их описание
  • Организационно-правовые и программно-аппаратные средства обеспечения информационной безопасности и защиты информации
• Информационное обеспечение задачи
  • Информационная модель и её описание
  • Характеристика нормативно-справочной, входной и оперативной информации
  • Характеристика результатной информации
• Программное обеспечение задачи
  • Общие положения (дерево функций и сценарий диалога)
  • Характеристика базы данных
  • Структурная схема пакета (дерево вызова программных модулей)
  • Описание программных модулей
• Контрольный пример реализации проекта и его описание

III Обоснование экономической эффективности проекта

3.1 Выбор и обоснование методики расчёта экономической эффективности

3.2 Расчёт показателей экономической эффективности проекта

Заключение

Приложения

ВВЕДЕНИЕ

В современных условиях функционирования рынка внедрение информационных систем является важнейшей задачей любого динамично развивающегося предприятия, в число которых входит ЗАО «Сканлик». Любая форма хозяйственной деятельности требует достаточного количества документооборота, поэтому правильная обработка данных обеспечивает хранение экономической информации с целью выдачи (регулярной или по запросам) сводной информации, которая может потребоваться для управления экономическим объектом.

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

Объект исследования – отдел по работе с клиентами ЗАО «Сканлик».

Предмет исследования – деятельность менеджера по работе с клиентами по учету выполнения заявок.

Целью дипломного проекта является разработка ИС «Учёт обработки заявок» на примере ЗАО «Сканлик»,  ускоряющая процесс обработки входных и выходных данных, что позволит усовершенствовать организацию сбора и регистрации информации.

В соответствии с поставленной целью в ходе работы над проектом необходимо решить следующие задачи:

• дать технико-экономическую характеристику предприятия;
• описать существующую технологию учета обработки заявок;
• проанализировать существующие программные средства, возможные для использования менеджером по работе с клиентами ЗАО «Сканлик»;
• обосновать проектные решения;
• описать и разработать ИС;
• рассчитать экономические параметры разработки и внедрения ИС;
• обосновать целесообразность разработки и внедрения ИС

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

procedure TForm3.N3Click(Sender: TObject);
var
s:string;
 i:integer;
 XLApp, Sheet, Colum: Variant;
 index, ii,l,j: integer;
 all1,all2:double;
 temp:String;
 k:string;
begin

if DataModule1.VidRabot.RecordCount>0 then
begin
XLApp:=CreateOleObject('Excel.Application');
XLApp.WorkBooks.Add;
XLApp.WorkBooks[1].WorkSheets[1].Name:='Прайс-лист';
XLApp.ActiveSheet.PageSetup.Orientation := 2;
Colum:=XLApp.WorkBooks[1].WorkSheets['Прайс-лист'].Columns;

Colum:=XLApp.WorkBooks[1].WorkSheets['Прайс-лист'].Rows;
//------------------------------------------------------------
Sheet:=XLApp.Workbooks[1].WorkSheets['Прайс-лист'];


Sheet.Columns[1].ColumnWidth:=35;
Sheet.Columns[2].ColumnWidth:=15;
//Sheet.columns[6].NumberFormat := '@';

Sheet.Cells[1,1]:='Прайс-лист на '+DateToStr(Date);
Sheet.Cells[1,1].Resize[1,2].Merge;
Sheet.Cells[2,1]:='Название';
Sheet.Cells[2,2]:='Цена';

//Sheet.Cells[2,6]:='Ianoi o?aiaiey';

index:=3;
DataModule1.VidRabot.First;
all1:=0;
all2:=0;
for i:=0 to DataModule1.VidRabot.RecordCount-1 do
begin
Sheet.Cells[index+i,1]:=DataModule1.VidRabot.FieldByName('Название').AsString;
Sheet.Cells[index+i,2]:=DataModule1.VidRabot.FieldByName('Стоимость').AsString;
//Sheet.Cells[index+i,6]:=ADOQuery1.Fields[5].AsString;
DataModule1.VidRabot.Next;
end;

XLApp.Range['A1:B'+IntToStr(i+index-1)].WrapText:=true;
XLApp.Range['A1:B'+IntToStr(i+index-1)].Borders.LineStyle:=1;
XLApp.Rows[1].HorizontalAlignment:=3;
XLApp.Rows[1].VerticalAlignment:=3;
XLApp.Rows[1].Font.Bold:=True;
XLApp.Rows[2].HorizontalAlignment:=3;
XLApp.Rows[2].VerticalAlignment:=3;
XLApp.Rows[2].Font.Bold:=True;

XLApp.Visible:=true;
end
else
ShowMessage('Работы отсутствуют!');
end;

Архив содержит:

• Программный код в среде Delphi 7;
• База данных в MS Access;
• Пояснительная записка 84 страницы;
• Исходники диаграмм в All Proccess Modeler (IDEF0) и диаграмма данных в ERwin.