Внедрение информационной системы сопряжено с капитальными вложениями как на приобретение техники, так и на разработку проекта, выполнение подготовительных работ и подготовку кадров.
Обобщенным критерием экономической эффективности является минимум затрат живого и овеществленного труда
Экономический эффект от внедрения вычислительной и организационной техники подразделяется на прямой и косвенный.
Под прямой экономической эффективностью понимают экономию материально-трудовых ресурсов и денежных средств, полученную в результате сокращения численности управленческого персонала, фонда заработной платы.
Определим экономическую эффективность с помощью трудовых и стоимостных показателей.
На составление отчетности и планов в месяц затрачивалось 80 чел. / ч (Т0) При использовании автоматизированной системы - 10 чел. / ч в месяц (Т1) Абсолютный показатель экономической эффективности Тэк составляет:
Тэк = Т0 - Т1 (3.10)
Тэк = 80 - 10=70 чел. / ч в месяц
Относительный индекс производительности труда вычисляется по формуле (3.11):
|
|
J п. т. = Т1/Т0 (3.11)
J п. т. =10/80=0,125
Рассчитаем стоимостной показатель по формуле 3.12
Сэк = С0 - С1 (3.12)
Заработная плата менеджера составляет 50000 руб в месяц, прибавим к ней 26% начислений на зарплату итого получаем 50000 +13000= 63000 руб.
Затраты на заработную плату менеджеров при прежней схеме работы составят 30000 руб (С0). При использовании ИС 3750 руб(С1).
Сэк = 30000 - 3750 =750 р.
Индекс стоимости затрат определяется по формуле 3.13
J ст. затр. = С1/С0 (3.13)
J ст. затр. = 3750/30000 =0,125
Срок окупаемости затрат вычисляется по формуле 3.14
, где (3.14)
З0 - затраты на техническое оборудование;
П0 - затраты на программное обеспечение.
Подставим имеющиеся данные в формулу 2.12, в результате получим:
З0 - затрат на оборудование равны 0, т. к имеющееся оборудование возможно использовать и для новой системы;
П0 - затраты на программное обеспечение вычисленные в п.3.3 равны 283837,76 руб.;
месяцев.
В результате сделанных расчетов можно сделать вывод, что автоматизация повысит абсолютный показатель эффективности использования трудовых ресурсов на 70 часов в месяц, показатель стоимости уменьшит в 0,125 раз, окупаемость проекта около 11 месяцев.
Кроме того, будет достигнута и косвенная эффективность, а именно повысится качество работы, поэтому внедрение данного модуля является необходимым.
Заключение
В процессе работы над данным дипломным проектом была разработана информационно-аналитическая система контакт центра "СИМПРЕЗА". Для этого были решены следующие задачи:
рассмотрена характеристику предприятия;
рассмотрена работу менеджера по поиску клиентов;
|
|
выявлена техническую и технологическую сущность задачи;
обоснована необходимость использования вычислительных и телекоммуникационных средств для решения задачи;
определены цель и назначение создания или модернизации модулей или сервисов информационной системы;
охарактеризована организацию решения задачи вычислительными и телекоммуникационными средствами;
рассмотрены существующие разработки;
обоснованы проектные решения;
построена и описана модель информационных потоков в информационной системы;
рассмотрена физическую схему взаимодействия отдельных частей информационной системы;
рассмотрены функции и назначение отдельных компонентов проектируемой системы;
рассмотрена характеристику комплекса в целом;
построена инфологическую модель БД;
построена даталогическую модель БД;
описаны программные модули;
обоснована экономическая эффективность проекта;
Список используемой литературы
1. Автоматизированные информационные технологии управления. / Под ред. Чл. корр. международной академии информатизации проф. Г.А. Титоренко. - М.: ЮНИТИ, 2003.
2. Аляев Ю.А., Козлов О.А. "Алгоритмизация и языки программирования Pascal, C++, Visual Basic". Учебно-справочное пособие. - М.: Финансы и статистика, 2004
3. Аляев Ю.А. и др. "Практикум по алгоритмизации и программированию на языке Паскаль". Учеб. пособие. - М.: Финансы и статистика, 2004
4. Андрейчиков А.В., Андрейчикова О.Н. "Интеллектуальные информационные системы". Учебник. - М.: Финансы и статистика, 2004
5. Балдин К.В. Информационные системы в экономике. Учебник. - М.: Дашков и К, 2007.
6. Барановская Т.П. и др. "Архитектура компьютерных систем и сетей". Учеб. пособие. - М.: Финансы и статистика, 2003
7. Баронов В.В., Калянов Г.Н., Попов Ю.И., Титовский И.Н. Информационные технологии и управление предприятием. - М.: БизнесПРО, 2004.
8. "Бизнес-процессы, основные стандарты их описания", С.М. Ковалев, журнал "Справочник экономиста" №11’2006.
9. Брусакова И.А. Информационные системы и технологии в экономике. - М.: Финансы и статистика, 2005.
10. Вендров А.М. "Практикум по проектированию программного обеспечения экономических информационных систем". Учеб. пособие. - М.: Финансы и статистика, 2004
11. Гасликова И.Р., Гохберг Л.М. Информационные технологии в России. М.: ЦИСН, 2002.
12. Грабауров В.А. Информационные технологии для менеджеров. - М.: Финансы и статистика, 2002
13. Грабауров В.А. "Информационные технологии для менеджеров". - 2-е изд., прераб. и доп. - М.: Финансы и статистика, 2005
14. Дик В.В. "Методология формирования решений в экономических системах и инструментальные среды их поддержки". - М.: Финансы и статистика, 2001
15. Емельянов А.А. и др. "Имитационное моделирование экономических процессов". Учеб. пособие. - М.: Финансы и статистика, 2004
16. Иванов И.А. Инновационный менеджмент. Изд-во Баро-Пресс, Р-н-Д, 2001.
17. Интернет-университет информационных технологий, курс "Проектирование информационных систем", http: // www. intuit. ru
18. Информационные технологии управления: Учебно-практическое пособие / Под ред. Ю.М. Черкасова. - М: ИНФРА-М, 2001.
19. Исаев Г.Н. Информационные системы в экономике. - М.: Омега-Л, 2006.
20. Калашян А.Н., Калянов Г.Н. "Структурные модели бизнеса: DFD-технологии". - М.: Финансы и статистика, 2003
21. Калянов Г.Н. Моделирование, анализ, реорганизация и автоматизация бизнес-процессов. - М.: Финансы и статистика, 2007.
22. Калянов Г.Н. Моделирование, анализ, реорганизация и автоматизация бизнес-процессов. - М.: Финансы и статистика, 2007
23. Козырев А.А. Информационные технологии в экономике и управлении. - СПб.: Изд-во Михайлова В.А., 2003
24. Ларин М.В. Проблемы совершенствования автоматизации управления в современных условиях // Экономика и жизнь 2004. №8. С.18.
|
|
25. Марков А.С., Лисовский К.Ю. "Базы данных. Введение в теорию и методологию". Учебник. - М.: Финансы и статистика, 2004
26. Под ред. Н.Л. Прохорова "Управляющие вычислительные комплексы" Учеб. пособие. - 3-е изд., перераб. и доп. - М.: Финансы и статистика, 2003
27. Смирнова Г.Н. и др. "Проектирование экономических информационных систем" Учебник. - М.: Финансы и статистика, 2003
28. Соколов А.П. "Системы программирования: теория, методы, алгоритмы". - М.: Финансы и статистика, 2004
29. Тельнов Ю.Ф. "Реинжиниринг бизнес-процессов". - М.: Финансы и статистика, 2004
30. Трофимов В.В. Информационные системы и технологии в экономике и управлении. - М.: Высшее образование, 2005
31. Уткин В.Б., Балдин К.В. Информационные системы и технологии в экономике. - М.: ЮНИТИ, 2003
32. Фаронов В.В. "Delphi 6" учебный курс - М; Издатель Молгачева С.В., 2003. - 672с., ил.
33. Хотинская Г.И. Информационные технологии управления. - М.: Дело и Сервис (ДИС), 2003.
34. Черемных С.В. и др. "Моделирование и анализ систем. IDEF-технологии: практикум". - М.: Финансы и статистика, 2005
35. Черемных С.В. и др. "Структурный анализ систем: IDEF-технологии". - М.: Финансы и статистика, 2003
Приложения
Приложение 1.
Должностная инструкция менеджера по ИСКУ клиентов
I. Общие положения
1. Менеджер по работе с клиентами относится к категории руководителей.
2. На должность менеджера по работе с клиентами назначается лицо, имеющее профессиональное (экономическое) образование, дополнительную подготовку по менеджменту, стаж работы в сфере предпринимательства не менее 3 лет.
3. Менеджер по работе с клиентами должен знать:
3.1 Законодательство, регламентирующее вопросы осуществления предпринимательской деятельности.
3.2 Рыночную экономику, предпринимательство и основы ведения бизнеса.
3.3 Основы маркетинга (концепцию маркетинга, основы управления маркетингом, способы и направления исследований рынка).
3.4 Теорию менеджмента, макро- и микроэкономики, делового администрирования.
3.5 Ассортимент, классификацию, характеристику и назначение предлагаемых товаров (продукции).
|
|
3.6. Порядок разработки бизнес-планов и коммерческих условий соглашений, договоров.
3.7. Правила установления деловых контактов.
3.8. Правила официального этикета при проведении переговоров с клиентами.
3.9. Теорию межличностного общения.
3.10. Основы социологии и психологии.
3.11 Методы обработки информации с использованием современных технических средств коммуникации и связи, компьютера.
4. Назначение на должность менеджера по работе с клиентами и освобождение от должности производится приказом директора.
5. Менеджер по работе с клиентами подчиняется непосредственно директору предприятия.
6. На время отсутствия менеджера по работе с клиентами (отпуск, болезнь, пр.) его обязанности выполняет лицо, назначенное в установленном порядке. Данное лицо приобретает соответствующие права и несет ответственность за ненадлежащее исполнение возложенных на него обязанностей.
II. Должностные обязанности
Менеджер по работе с клиентами:
1. Осуществляет анализ аудитории потенциальных клиентов, выявляет потребности клиентов, их уровень и направленность.
2. Разрабатывает методики поиска клиентов, планирует работу с клиентами, составляет схемы обращения к клиентам.
3. Непосредственно осуществляет поиск клиентов всеми доступными способами (путем размещения рекламы, участия в выставках, ярмарках, презентациях, направления предложений по средствам коммуникаций, электронной почтой, факсимильными сообщениями, пр).
4. Прогнозирует деловую надежность потенциальных клиентов, их финансовую и материальную обеспеченность.
5. Организует и проводит предварительные переговоры с клиентами, заинтересовавшимися предложениями (принявшими оферту, пр), уточняет потребности каждого конкретного клиента и подготавливает предложение, адресованное определенному клиенту.
6. Встречается с клиентами, убеждает клиентов в выгодности предложения, предлагает на обсуждение и согласование проекты договоров, принимает участие в работе над согласованием разногласий, заключает договоры от имени предприятия.
7. Предлагает клиентам пути решения не согласованных при переговорах вопросов и вопросов, возникших после совершения юридически значимых действий.
8. Поддерживает постоянный контакт с существующими клиентами, организует работу с ними по устоявшимся деловым схемам.
9. Разрабатывает схемы взаимоотношений с наиболее выгодными и перспективными клиентами (предложения особых условий договоров, систем скидок и индивидуального обслуживания, ускоренных сроков и особых условий исполнения договорных обязательств, пр).
10. Разрабатывает и дает клиентам рекомендации и консультации по наиболее эффективному использованию устоявшихся деловых связей; обеспечивает возможность посещения клиентами выставок, ярмарок, презентаций новых продуктов (товаров, услуг).
11. Обеспечивает соблюдение интересов клиентов при выполнении условий договоров подразделениями предприятия.
12. Налаживает обратную связь с клиентами (изучает их требования к продукции (товарам, услугам), устанавливает причины неудовлетворенности клиента совместной работой, анализирует претензии клиентов и принимает все меры по их решению и сохранению деловых связей).
13. Формирует банк данных о клиентах (клиентскую базу), своевременно вносит в нее изменения.
14. Изучает и анализирует политику конкурентов во взаимоотношениях с клиентами.
III. Права
Менеджер по работе с клиентами имеет право:
1. Самостоятельно определять формы работы с клиентами, способы установления деловых связей.
2. Распоряжаться вверенными ему финансовыми средствами (на представительские расходы).
3. Подписывать и визировать документы в пределах своей компетенции.
4. Знакомиться с документами, определяющими его права и обязанности по занимаемой должности, критерии оценки качества исполнения должностных обязанностей.
5. Запрашивать от руководства и специалистов подразделений предприятия информацию и документы, необходимые для выполнения его должностных обязанностей.
6. Требовать от руководства предприятия обеспечения организационно-технических условий и оформления установленных документов, необходимых для исполнения должностных обязанностей.
IV. Ответственность
Менеджер по работе с клиентами несет ответственность:
1. За ненадлежащее исполнение или неисполнение своих должностных обязанностей, предусмотренных настоящей должностной инструкцией, - в пределах, установленных действующим трудовым законодательством Российской Федерации.
2. За правонарушения, совершенные в процессе своей деятельности, - в пределах, установленных действующим административным, уголовным и гражданским законодательством Российской Федерации.
3. За причинение материального ущерба предприятию - в пределах, установленных действующим трудовым и гражданским законодательством Российской Федерации.
Приложение 2.
Листинг программного кода
program Project1;
uses
Forms,
Unit1 in 'Unit1. pas' {Form1},
Unit2 in 'Unit2. pas' {DataModule2: TDataModule},
Unit3 in 'Unit3. pas' {Form3},
Unit4 in 'Unit4. pas' {Form4},
Unit5 in 'Unit5. pas' {Form5},
Unit6 in 'Unit6. pas' {Form6},
Unit7 in 'Unit7. pas' {Form7},
Unit8 in 'Unit8. pas' {Form8},
Unit9 in 'Unit9. pas' {Form9},
Unit10 in 'Unit10. pas' {Form10},
Unit11 in 'Unit11. pas' {Form11};
{$R *. res}
begin
Application. Initialize;
Application. CreateForm(TForm1, Form1);
Application. CreateForm(TDataModule2, DataModule2);
Application. CreateForm(TForm3, Form3);
Application. CreateForm(TForm4, Form4);
Application. CreateForm(TForm5, Form5);
Application. CreateForm(TForm6, Form6);
Application. CreateForm(TForm7, Form7);
Application. CreateForm(TForm8, Form8);
Application. CreateForm(TForm9, Form9);
Application. CreateForm(TForm10, Form10);
Application. CreateForm(TForm11, Form11);
Application. Run;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, StdCtrls, Buttons, ComCtrls, ExtCtrls,
DBCtrls, Grids, DBGrids, DateUtils;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
Label1: TLabel;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
Label2: TLabel;
N10: TMenuItem;
N11: TMenuItem;
MonthCalendar1: TMonthCalendar;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
DBGrid2: TDBGrid;
DBNavigator2: TDBNavigator;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
procedure N2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure MonthCalendar1Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N16Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit3, Unit4, Unit2, Unit6, Unit5, Unit7, Unit8, Unit9, Unit10, Unit11;
{$R *. dfm}
procedure TForm1. N2Click(Sender: TObject);
begin
Close;
end;
procedure TForm1. FormShow(Sender: TObject);
begin
Form3. ShowModal;
end;
procedure TForm1. N4Click(Sender: TObject);
begin
If DataModule2. ADOTable1. Active=true then DataModule2. ADOTable1. Active: =false;
DataModule2. ADOTable1. Active: =true;
Form4. ShowModal;
end;
procedure TForm1. N5Click(Sender: TObject);
begin
If DataModule2. ADOTable2. Active=true then DataModule2. ADOTable2. Active: =false;
DataModule2. ADOTable2. Active: =true;
Form6. ShowModal;
end;
procedure TForm1. N11Click(Sender: TObject);
begin
If DataModule2. ADOTable5. Active=true then DataModule2. ADOTable5. Active: =false;
DataModule2. ADOTable5. Active: =true;
If Label2. Caption='0' then
DataModule2. ADOTable5. Filter: ='Id_manager = ' + Label1. Caption;
If DataModule2. ADOTable3. Active=false then DataModule2. ADOTable3. Active: =true;
Form5. Show;
end;
procedure TForm1. N10Click(Sender: TObject);
Var max_num: integer;
begin
Form7. DBLookupComboBox1. ListFieldIndex: =0;
Form7. Edit2. Text: ='';
Form7. Edit3. Text: ='';
Form7. Edit4. Text: ='';
Form7. Edit5. Text: ='';
Form7. Edit6. Text: ='';
Form7. Edit7. Text: ='';
Form7. Edit8. Text: ='';
Form7. Edit9. Text: ='';
DataModule2. ADOQuery1. Active: =true;
max_num: =StrToInt(DataModule2. ADOQuery1. FieldbyName('max_num'). AsString) + 1;
DataModule2. ADOQuery1. Active: =false;
DataModule2. ADOTable3. Active: =true;
Form7. Show;
end;
procedure TForm1. N7Click(Sender: TObject);
begin
If DataModule2. ADOTable5. Active=true then DataModule2. ADOTable5. Active: =false;
DataModule2. ADOTable5. Active: =true;
If Form1. Label2. Caption='0' then DataModule2. ADOTable5. Filter: = 'Id_manager = ' + Form1. Label1. Caption;
Form8. MaskEdit1. Text: ='';
Form8. Edit2. Text: ='';
Form8. ShowModal;
end;
procedure TForm1. N8Click(Sender: TObject);
begin
If DataModule2. ADOTable5. Active=true then DataModule2. ADOTable5. Active: =false;
DataModule2. ADOTable5. Active: =true;
If Form1. Label2. Caption='0' then DataModule2. ADOTable5. Filter: = 'Id_manager = ' + Form1. Label1. Caption;
Form9. MaskEdit1. Text: ='';
Form9. Edit1. Text: ='';
Form9. Edit2. Text: ='';
Form9. ShowModal;
end;
procedure TForm1. BitBtn1Click(Sender: TObject);
begin
If DataModule2. ADOTable5. Active=true then DataModule2. ADOTable5. Active: =false;
DataModule2. ADOTable5. Active: =true;
If Form1. Label2. Caption='0' then DataModule2. ADOTable5. Filter: = 'Id_manager = ' + Form1. Label1. Caption;
Form8. MaskEdit1. Text: ='';
Form8. Edit2. Text: ='';
Form8. ShowModal;
end;
procedure TForm1. BitBtn2Click(Sender: TObject);
begin
If DataModule2. ADOTable5. Active=true then DataModule2. ADOTable5. Active: =false;
DataModule2. ADOTable5. Active: =true;
If Form1. Label2. Caption='0' then DataModule2. ADOTable5. Filter: = 'Id_manager = ' + Form1. Label1. Caption;
Form9. MaskEdit1. Text: ='';
Form9. Edit1. Text: ='';
Form9. Edit2. Text: ='';
Form9. ShowModal;
end;
procedure TForm1. MonthCalendar1Click(Sender: TObject);
Var y, m, d, y1, m1, d1: Word;
begin
DataModule2. ADOTable6. Active: =false;
DataModule2. ADOTable6. Active: =true;
DataModule2. ADOTable7. Active: =false;
DataModule2. ADOTable7. Active: =true;
DecodeDate(MonthCalendar1. Date, y, m, d);
DecodeDate(MonthCalendar1. Date+1, y1, m1, d1);
If Form1. Label2. Caption='0' then DataModule2. ADOTable6. Filter: = 'Id_manager =' + Form1. Label1. Caption + ' and Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39)
else DataModule2. ADOTable6. Filter: = 'Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39);
If Form1. Label2. Caption='0' then DataModule2. ADOTable7. Filter: = 'Id_manager =' + Form1. Label1. Caption + ' and Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39)
else DataModule2. ADOTable7. Filter: = 'Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39);
end;
procedure TForm1. N12Click(Sender: TObject);
begin
DataModule2. ADOTable5. Active: =false;
DataModule2. ADOTable5. Active: =true;
Form10. QuickRep1. PreviewModal;
end;
procedure TForm1. N14Click(Sender: TObject);
Var y, m, d, y1, m1, d1: Word;
begin
DataModule2. ADOTable10. Active: =false;
DataModule2. ADOTable10. Active: =true;
DecodeDate(Date(), y, m, d);
DecodeDate(Date() +1, y1, m1, d1);
If Form1. Label2. Caption='0' then DataModule2. ADOTable10. Filter: = 'Id_manager =' + Form1. Label1. Caption + ' and Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39)
else DataModule2. ADOTable10. Filter: = 'Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39);
Form11. QRLabel1. Caption: ='Отчет за текущий день';
Form11. QuickRep1. PreviewModal;
end;
procedure TForm1. N13Click(Sender: TObject);
Var n, y, m, d, y1, m1, d1: Word;
Date1, Date2: TDateTime;
begin
DataModule2. ADOTable10. Active: =false;
DataModule2. ADOTable10. Active: =true;
n: =DayOfWeek(Date());
If n=1 then Date1: =Date() - 6 else Date1: =Date() - n+2;
If n=1 then Date2: =Date() else Date2: =Date() - n +8;
DecodeDate(Date1, y, m, d);
DecodeDate(Date2+1, y1, m1, d1);
If Form1. Label2. Caption='0' then DataModule2. ADOTable10. Filter: = 'Id_manager =' + Form1. Label1. Caption + ' and Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39)
else DataModule2. ADOTable10. Filter: = 'Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39);
Form11. QRLabel1. Caption: = 'Отчет за текущую неделю';
Form11. QuickRep1. PreviewModal;
end;
procedure TForm1. N15Click(Sender: TObject);
Var n, y, m, d, y1, m1, d1: Word;
Date1, Date2: TDateTime;
begin
DataModule2. ADOTable10. Active: =false;
DataModule2. ADOTable10. Active: =true;
DecodeDate(Date(), y, m, d);
If m=12 then m1: =1 else m1: =m+1;
If m=12 then y1: =y+1 else y1: =y;
d: =1;
d1: =1;
If Form1. Label2. Caption='0' then DataModule2. ADOTable10. Filter: = 'Id_manager =' + Form1. Label1. Caption + ' and Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39)
else DataModule2. ADOTable10. Filter: = 'Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39);
Form11. QRLabel1. Caption: = 'Отчет за текущий месяц';
Form11. QuickRep1. PreviewModal;
end;
procedure TForm1. N16Click(Sender: TObject);
Var n, y, m, d, y1, m1, d1: Word;
Date1, Date2: TDateTime;
begin
DataModule2. ADOTable10. Active: =false;
DataModule2. ADOTable10. Active: =true;
DecodeDate(Date(), y, m, d);
d: =1;
d1: =1;
m: =1;
m1: =1;
y1: =y+1;
If Form1. Label2. Caption='0' then DataModule2. ADOTable10. Filter: = 'Id_manager =' + Form1. Label1. Caption + ' and Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39)
else DataModule2. ADOTable10. Filter: = 'Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39);
Form11. QRLabel1. Caption: = 'Отчет за текущий год';
Form11. QuickRep1. PreviewModal;
end;
end.
unit Unit2;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDataModule2 = class(TDataModule)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
ADOTable2: TADOTable;
DataSource2: TDataSource;
ADOQuery1: TADOQuery;
DataSource3: TDataSource;
ADOTable3: TADOTable;
ADOTable4: TADOTable;
DataSource4: TDataSource;
ADOTable5: TADOTable;
ADOTable6: TADOTable;
ADOTable7: TADOTable;
DataSource5: TDataSource;
DataSource6: TDataSource;
ADOQuery2: TADOQuery;
ADOQuery3: TADOQuery;
ADOTable8: TADOTable;
ADOTable9: TADOTable;
ADOTable10: TADOTable;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule2: TDataModule2;
implementation
{$R *. dfm}
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, unit2;
type
TForm3 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Panel1: TPanel;
BitBtn1: TBitBtn;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1;
{$R *. dfm}
procedure TForm3. BitBtn1Click(Sender: TObject);
Var i, l, id: integer;
y, m, d, y1, m1, d1: Word;
pas: string;
begin
DataModule2. ADOConnection1. Connected: =false;
DataModule2. ADOConnection1. ConnectionString: ='';
DataModule2. ADOConnection1. ConnectionString: =DataModule2. ADOConnection1. ConnectionString+'Provider=SQLOLEDB.1; ';
DataModule2. ADOConnection1. ConnectionString: =DataModule2. ADOConnection1. ConnectionString+'Password=asdfghjkl; ';
DataModule2. ADOConnection1. ConnectionString: =DataModule2. ADOConnection1. ConnectionString+'Persist Security Info=True; ';
DataModule2. ADOConnection1. ConnectionString: =DataModule2. ADOConnection1. ConnectionString+'User ID=simp; ';
DataModule2. ADOConnection1. ConnectionString: =DataModule2. ADOConnection1. ConnectionString+'Initial Catalog=simpaza; ';
DataModule2. ADOConnection1. ConnectionString: =DataModule2. ADOConnection1. ConnectionString+'Data Source='+Edit3. Text;
DataModule2. ADOConnection1. Connected: =true;
DataModule2. ADOTable6. Active: =false;
DataModule2. ADOTable7. Active: =false;
DataModule2. ADOTable6. Active: =true;
DataModule2. ADOTable7. Active: =true;
/ / ïðîâåðêà ëîãèíà è ïàðîëÿ
If Edit2. Text='' then ShowMessage('Ââåäèòå ëîãèí') else
If Edit1. Text='' then ShowMessage('Ââåäèòå ïàðîëü')
else begin
DataModule2. ADOTable1. Active: =true;
DataModule2. ADOTable1. First;
pas: ='';
For i: =1 to DataModule2. ADOTable1. RecordCount do
begin
If DataModule2. ADOTable1. FieldByName('Login'). AsString = Edit2. Text
then begin
l: =DataModule2. ADOTable1. FieldByName('Level'). AsInteger;
pas: =DataModule2. ADOTable1. FieldByName('Pass'). AsString;
id: =DataModule2. ADOTable1. FieldByName('Id_manager'). AsInteger;
end;
DataModule2. ADOTable1. Next;
end;
If pas=Edit1. Text then
begin
If l=0 then Form1. N3. Visible: =false;
If l=1 then Form1. N10. Visible: =false;
Form1. Label1. Caption: =IntToStr(Id);
Form1. Label2. Caption: =IntToStr(l);
Form1. MonthCalendar1. Date: =Date();
DecodeDate(Date(), y, m, d);
DecodeDate(Date(), y1, m1, d1);
If l=0 then DataModule2. ADOTable6. Filter: = 'Id_manager =' + Form1. Label1. Caption + ' and Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39)
else DataModule2. ADOTable6. Filter: = 'Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39);
If l=0 then DataModule2. ADOTable7. Filter: = 'Id_manager =' + Form1. Label1. Caption + ' and Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39)
else DataModule2. ADOTable7. Filter: = 'Date >= '+Chr(39) + IntToStr(d) +' / '+ IntToStr(m) +' / '+ IntToStr(y) +' 00: 00: 00 AM'+Chr(39) + ' and Date < '+Chr(39) + IntToStr(d1) +' / '+ IntToStr(m1) +' / '+ IntToStr(y1) +' 00: 00: 00 AM'+Chr(39);
close;
end
else ShowMessage('Íåïðàâèëüíûé ëîãèí èëè ïàðîëü')
end;
/ / Close;
end;
procedure TForm3. BitBtn2Click(Sender: TObject);
begin
Form1. Close;
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, unit2, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Buttons;
type
TForm4 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
{$R *. dfm}
procedure TForm4. BitBtn1Click(Sender: TObject);
begin
DataModule2. ADOTable1. Cancel;
DataModule2. ADOTable1. Active: =false;
Close;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, unit2, StdCtrls, Buttons,
Mask;
type
TForm5 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
BitBtn1: TBitBtn;
DBLookupComboBox1: TDBLookupComboBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
{$R *. dfm}
procedure TForm5. BitBtn1Click(Sender: TObject);
begin
DataModule2. ADOTable5. Cancel;
Close;
end;
procedure TForm5. BitBtn2Click(Sender: TObject);
begin
DataModule2. ADOTable5. Edit;
DataModule2. ADOTable5. FieldByName('Id_status'). AsString: =DBLookupComboBox1. KeyValue;
DataModule2. ADOTable5. Post;
end;
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, unit2, StdCtrls, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids;
type
TForm6 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
{$R *. dfm}
procedure TForm6. BitBtn1Click(Sender: TObject);
begin
DataModule2. ADOTable2. Cancel;
DataModule2. ADOTable2. Active: =false;
Close;
end;
end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DBCtrls, Unit2;
type
TForm7 = class(TForm)
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBLookupComboBox1: TDBLookupComboBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
uses Unit1;
{$R *. dfm}
procedure TForm7. BitBtn2Click(Sender: TObject);
begin
Close;
end;
procedure TForm7. BitBtn1Click(Sender: TObject);
begin
DataModule2. ADOTable4. Active: =true;
DataModule2. ADOTable4. InsertRecord([Edit2. Text, Edit3. Text, Edit4. Text, Edit5. Text, Edit6. Text, Edit7. Text, Edit8. Text, Edit9. Text, Form1. Label1. Caption, DBLookupComboBox1. KeyValue]);
Close;
end;
end.
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Unit2, DBCtrls, ExtCtrls, Grids, DBGrids, StdCtrls, Buttons,
Mask;
type
TForm8 = class(TForm)
DBLookupComboBox1: TDBLookupComboBox;
Label1: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label2: TLabel;
Label3: TLabel;
Edit2: TEdit;
MaskEdit1: TMaskEdit;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
{$R *. dfm}
procedure TForm8. BitBtn1Click(Sender: TObject);
begin
Close;
end;
procedure TForm8. BitBtn2Click(Sender: TObject);
Var max_num: integer;
begin
DataModule2. ADOQuery2. Active: =false;
DataModule2. ADOQuery2. Active: =true;
DataModule2. ADOTable8. Active: =true;
DataModule2. ADOTable8. InsertRecord([MaskEdit1. Text, DBLookupComboBox1. KeyValue, Edit2. Text]);
Close;
end;
end.
unit Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids, Mask;
type
TForm9 = class(TForm)
DBLookupComboBox1: TDBLookupComboBox;
Label1: TLabel;
BitBtn1: TBitBtn;
Label2: TLabel;
Label3: TLabel;
Edit2: TEdit;
MaskEdit1: TMaskEdit;
BitBtn2: TBitBtn;
Label4: TLabel;
Edit1: TEdit;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
implementation
uses Unit2;
{$R *. dfm}
procedure TForm9. BitBtn1Click(Sender: TObject);
begin
Close;
end;
procedure TForm9. BitBtn2Click(Sender: TObject);
begin
DataModule2. ADOTable9. Active: =true;
DataModule2. ADOTable9. InsertRecord([MaskEdit1. Text, DBLookupComboBox1. KeyValue, Edit2. Text, Edit1. Text]);
Close;
end;
end.
unit Unit10;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, unit2, ExtCtrls, QuickRpt, QRCtrls;
type
TForm10 = class(TForm)
QuickRep1: TQuickRep;
TitleBand1: TQRBand;
QRLabel1: TQRLabel;
PageFooterBand1: TQRBand;
DetailBand1: TQRBand;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRSysData1: TQRSysData;
QRSysData2: TQRSysData;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form10: TForm10;
implementation
{$R *. dfm}
end.
unit Unit11;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, unit2, ExtCtrls, QuickRpt, QRCtrls;
type
TForm11 = class(TForm)
QuickRep1: TQuickRep;
TitleBand1: TQRBand;
PageFooterBand1: TQRBand;
DetailBand1: TQRBand;
ColumnHeaderBand1: TQRBand;
QRLabel1: TQRLabel;
QRLabel4: TQRLabel;
QRLabel3: TQRLabel;
QRLabel5: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRSysData2: TQRSysData;
QRSysData1: TQRSysData;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form11: TForm11;
implementation
{$R *. dfm}
end.
Приложение 3. ЛИСТИНГ СКРИПТОВ БАЗЫ ДАННЫХ
USE [master]
GO
/ ****** Object: Database [simpaza] Script Date: 04/06/2009 06: 34: 09 ****** /
CREATE DATABASE [simpaza] ON PRIMARY
(NAME = N'simpaza', FILENAME = N'C: \Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\DATA\simpaza. mdf', SIZE = 2048KB, MAXSIZE = UNLIMITED, FILEGROWTH = 1024KB)
LOG ON
(NAME = N'simpaza_log', FILENAME = N'C: \Program Files\Microsoft SQL Server\MSSQL.1\MSSQL\DATA\simpaza_log. ldf', SIZE = 1024KB, MAXSIZE = 2048GB, FILEGROWTH = 10%)
COLLATE SQL_Latin1_General_CP1_CI_AS
GO
EXEC dbo. sp_dbcmptlevel @dbname=N'simpaza', @new_cmptlevel=90
GO
IF (1 = FULLTEXTSERVICEPROPERTY('IsFullTextInstalled'))
begin
EXEC [simpaza]. [dbo]. [sp_fulltext_database] @action = 'disable'
end
GO
ALTER DATABASE [simpaza] SET ANSI_NULL_DEFAULT OFF
GO
ALTER DATABASE [simpaza] SET ANSI_NULLS OFF
GO
ALTER DATABASE [simpaza] SET ANSI_PADDING OFF
GO
ALTER DATABASE [simpaza] SET ANSI_WARNINGS OFF
GO
ALTER DATABASE [simpaza] SET ARITHABORT OFF
GO
ALTER DATABASE [simpaza] SET AUTO_CLOSE OFF
GO
ALTER DATABASE [simpaza] SET AUTO_CREATE_STATISTICS ON
GO
ALTER DATABASE [simpaza] SET AUTO_SHRINK OFF
GO
ALTER DATABASE [simpaza] SET AUTO_UPDATE_STATISTICS ON
GO
ALTER DATABASE [simpaza] SET CURSOR_CLOSE_ON_COMMIT OFF
GO
ALTER DATABASE [simpaza] SET CURSOR_DEFAULT GLOBAL
GO
ALTER DATABASE [simpaza] SET CONCAT_NULL_YIELDS_NULL OFF
GO
ALTER DATABASE [simpaza] SET NUMERIC_ROUNDABORT OFF
GO
ALTER DATABASE [simpaza] SET QUOTED_IDENTIFIER OFF
GO
ALTER DATABASE [simpaza] SET RECURSIVE_TRIGGERS OFF
GO
ALTER DATABASE [simpaza] SET ENABLE_BROKER
GO
ALTER DATABASE [simpaza] SET AUTO_UPDATE_STATISTICS_ASYNC OFF
GO
ALTER DATABASE [simpaza] SET DATE_CORRELATION_OPTIMIZATION OFF
GO
ALTER DATABASE [simpaza] SET TRUSTWORTHY OFF
GO
ALTER DATABASE [simpaza] SET ALLOW_SNAPSHOT_ISOLATION OFF
GO
ALTER DATABASE [simpaza] SET PARAMETERIZATION SIMPLE
GO
ALTER DATABASE [simpaza] SET READ_WRITE
GO
ALTER DATABASE [simpaza] SET RECOVERY FULL
GO
ALTER DATABASE [simpaza] SET MULTI_USER
GO
ALTER DATABASE [simpaza] SET PAGE_VERIFY CHECKSUM
GO
ALTER DATABASE [simpaza] SET DB_CHAINING OFF
/ ****** Object: Login [simp] Script Date: 04/06/2009 06: 38: 59 ****** /
/ * For security reasons the login is created disabled and with a random password. * /
/ ****** Object: Login [simp] Script Date: 04/06/2009 06: 38: 59 ****** /
CREATE LOGIN [simp] WITH PASSWORD=N'ÝAS¯! s¤i_þ¹R$ßˤ½EÖ
aYêËl1_³; ', DEFAULT_DATABASE= [simpaza], DEFAULT_LANGUAGE= [us_english], CHECK_EXPIRATION=ON, CHECK_POLICY=ON
GO
EXEC sys. sp_addsrvrolemember @loginame = N'simp', @rolename = N'sysadmin'
GO
EXEC sys. sp_addsrvrolemember @loginame = N'simp', @rolename = N'securityadmin'
GO
EXEC sys. sp_addsrvrolemember @loginame = N'simp', @rolename = N'serveradmin'
GO
EXEC sys. sp_addsrvrolemember @loginame = N'simp', @rolename = N'setupadmin'
GO
EXEC sys. sp_addsrvrolemember @loginame = N'simp', @rolename = N'processadmin'
GO
EXEC sys. sp_addsrvrolemember @loginame = N'simp', @rolename = N'diskadmin'
GO
EXEC sys. sp_addsrvrolemember @loginame = N'simp', @rolename = N'dbcreator'
GO
EXEC sys. sp_addsrvrolemember @loginame = N'simp', @rolename = N'bulkadmin'
GO
ALTER LOGIN [simp] DISABLE
USE [simpaza]
GO
/ ****** Object: Table [dbo]. [Manager] Script Date: 04/06/2009 06: 54: 40 ****** /
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo]. [Manager] (
[Id_manager] [bigint] IDENTITY(1,1) NOT NULL,
[FIO_manager] [varchar] (30) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,
[Login] [varchar] (20) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,
[Pass] [varchar] (20) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,
[Level] [bigint] NULL
) ON [PRIMARY]
GO
SET ANSI_PADDING OFF
USE [simpaza]
GO
/ ****** Object: Table [dbo]. [Status] Script Date: 04/06/2009 06: 55: 04 ****** /
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo]. [Status] (
[Id_status] [int] IDENTITY(1,1) NOT NULL,
[Status] [varchar] (20) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL
) ON [PRIMARY]
GO
SET ANSI_PADDING OFF
USE [simpaza]
GO
/ ****** Object: Table [dbo]. [Customer] Script Date: 04/06/2009 06: 55: 14 ****** /
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo]. [Customer] (
[Name_organiz] [varchar] (30) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,
[Activities] [varchar] (50) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,
[Address] [varchar] (50) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,
[Telephone] [varchar] (50) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,
[E_mail] [varchar] (50) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,
[Site] [varchar] (50) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,
[Contact] [varchar] (50) COLLATE SQL_SwedishStd_Pref_CP1_CI_AS NULL,
[Info] [varchar] (150) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,
[Id_manager] [int] NULL,
[Id_status] [int] NULL,
[Id_customer] [int] IDENTITY(1,1) NOT NULL
) ON [PRIMARY]
GO
SET ANSI_PADDING OFF
USE [simpaza]
GO
/ ****** Object: Table [dbo]. [Call] Script Date: 04/06/2009 06: 55: 29 ****** /
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo]. [Call] (
[Date] [datetime] NULL,
[Id_customer] [int] NULL,
[Comments] [varchar] (150) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,
[Id_call] [int] IDENTITY(1,1) NOT NULL,
[Id_manager] [int] NULL
) ON [PRIMARY]
GO
SET ANSI_PADDING OFF
USE [simpaza]
GO
/ ****** Object: Table [dbo]. [Meeting] Script Date: 04/06/2009 06: 55: 41 ****** /
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo]. [Meeting] (
[Date] [datetime] NULL,
[Id_customer] [int] NULL,
[Comments] [varchar] (150) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,
[Place] [varchar] (50) COLLATE SQL_Ukrainian_CP1251_CI_AS NULL,
[Id_meeting] [int] IDENTITY(1,1) NOT NULL,
[Id_manager] [int] NULL
) ON [PRIMARY]
GO
SET ANSI_PADDING OFF
USE [simpaza]
GO
/ ****** Object: View [dbo]. [Customer_Status] Script Date: 04/06/2009 06: 37: 20 ****** /
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE VIEW [dbo]. [Customer_Status]
WITH VIEW_METADATA
AS
SELECT dbo. Status. Status, dbo. Customer. Id_customer, dbo. Customer. Name_organiz, dbo. Customer. Activities, dbo. Customer. Address,
dbo. Customer. Telephone, dbo. Customer. E_mail, dbo. Customer. Site, dbo. Customer. Contact, dbo. Customer. Info, dbo. Customer. Id_manager,
dbo. Customer. Id_status
FROM dbo. Customer LEFT OUTER JOIN
dbo. Status ON dbo. Customer. Id_status = dbo. Status. Id_status
GO
EXEC sys. sp_addextendedproperty @name=N'MS_DiagramPane1', @value=N' [0E232FF0-B466-11cf-A24F-00AA00A3EFFF, 1.00]
Begin DesignProperties =
Begin PaneConfigurations =
Begin PaneConfiguration = 0
NumPanes = 4
Configuration = "(H (1 [41] 4 [33] 2 [8] 3))"
End
Begin PaneConfiguration = 1
NumPanes = 3
Configuration = "(H (1 [50] 4 [25] 3))"
End
Begin PaneConfiguration = 2
NumPanes = 3
Configuration = "(H (1 [50] 2 [25] 3))"
End
Begin PaneConfiguration = 3
NumPanes = 3
Configuration = "(H (4 [30] 2 [40] 3))"
End
Begin PaneConfiguration = 4
NumPanes = 2
Configuration = "(H (1 [56] 3))"
End
Begin PaneConfiguration = 5
NumPanes = 2
Configuration = "(H (2 [66] 3))"
End
Begin PaneConfiguration = 6
NumPanes = 2
Configuration = "(H (4 [50] 3))"
End
Begin PaneConfiguration = 7
NumPanes = 1
Configuration = "(V (3))"
End
Begin PaneConfiguration = 8
NumPanes = 3
Configuration = "(H (1 [56] 4 [18] 2))"
End
Begin PaneConfiguration = 9
NumPanes = 2
Configuration = "(H (1 [75] 4))"
End
Begin PaneConfiguration = 10
NumPanes = 2
Configuration = "(H (1 [66] 2))"
End
Begin PaneConfiguration = 11
NumPanes = 2
Configuration = "(H (4 [60] 2))"
End
Begin PaneConfiguration = 12
NumPanes = 1
Configuration = "(H (1))"
End
Begin PaneConfiguration = 13
NumPanes = 1
Configuration = "(V (4))"
End
Begin PaneConfiguration = 14
NumPanes = 1
Configuration = "(V (2))"
End
ActivePaneConfig = 0
End
Begin DiagramPane =
Begin Origin =
Top = 0
Left = 0
End
Begin Tables =
Begin Table = "Customer"
Begin Extent =
Top = 6
Left = 38
Bottom = 114
Right = 189
End
DisplayFlags = 280
TopColumn = 0
End
Begin Table = "Status"
Begin Extent =
Top = 6
Left = 227
Bottom = 84
Right = 378
End
DisplayFlags = 280
TopColumn = 0
End
End
End
Begin SQLPane =
End
Begin DataPane =
Begin ParameterDefaults = ""
End
End
Begin CriteriaPane =
Begin ColumnWidths = 11
Column = 1440
Alias = 900
Table = 1170
Output = 720
Append = 1400
NewValue = 1170
SortType = 1350
SortOrder = 1410
GroupBy = 1350
Filter = 1350
Or = 1350
Or = 1350
Or = 1350
End
End
End
',@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'Customer_Status'
GO
EXEC sys. sp_addextendedproperty @name=N'MS_DiagramPaneCount', @value=1,@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'Customer_Status'
USE [simpaza]
GO
/ ****** Object: View [dbo]. [Calls] Script Date: 04/06/2009 06: 37: 32 ****** /
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE VIEW [dbo]. [Calls]
WITH VIEW_METADATA
AS
SELECT dbo. Customer. Id_customer AS Expr1, dbo. Customer. Name_organiz, dbo. Call. Id_call, dbo. Call. Date, dbo. Call. Id_customer, dbo. Call. Comments,
dbo. Customer. Id_manager
FROM dbo. Call INNER JOIN
dbo. Customer ON dbo. Call. Id_customer = dbo. Customer. Id_customer
GO
EXEC sys. sp_addextendedproperty @name=N'MS_DiagramPane1', @value=N' [0E232FF0-B466-11cf-A24F-00AA00A3EFFF, 1.00]
Begin DesignProperties =
Begin PaneConfigurations =
Begin PaneConfiguration = 0
NumPanes = 4
Configuration = "(H (1 [41] 4 [47] 2 [5] 3))"
End
Begin PaneConfiguration = 1
NumPanes = 3
Configuration = "(H (1 [50] 4 [25] 3))"
End
Begin PaneConfiguration = 2
NumPanes = 3
Configuration = "(H (1 [50] 2 [25] 3))"
End
Begin PaneConfiguration = 3
NumPanes = 3
Configuration = "(H (4 [30] 2 [40] 3))"
End
Begin PaneConfiguration = 4
NumPanes = 2
Configuration = "(H (1 [56] 3))"
End
Begin PaneConfiguration = 5
NumPanes = 2
Configuration = "(H (2 [66] 3))"
End
Begin PaneConfiguration = 6
NumPanes = 2
Configuration = "(H (4 [50] 3))"
End
Begin PaneConfiguration = 7
NumPanes = 1
Configuration = "(V (3))"
End
Begin PaneConfiguration = 8
NumPanes = 3
Configuration = "(H (1 [56] 4 [18] 2))"
End
Begin PaneConfiguration = 9
NumPanes = 2
Configuration = "(H (1 [75] 4))"
End
Begin PaneConfiguration = 10
NumPanes = 2
Configuration = "(H (1 [66] 2))"
End
Begin PaneConfiguration = 11
NumPanes = 2
Configuration = "(H (4 [60] 2))"
End
Begin PaneConfiguration = 12
NumPanes = 1
Configuration = "(H (1))"
End
Begin PaneConfiguration = 13
NumPanes = 1
Configuration = "(V (4))"
End
Begin PaneConfiguration = 14
NumPanes = 1
Configuration = "(V (2))"
End
ActivePaneConfig = 0
End
Begin DiagramPane =
Begin Origin =
Top = 0
Left = 0
End
Begin Tables =
Begin Table = "Call"
Begin Extent =
Top = 6
Left = 38
Bottom = 160
Right = 189
End
DisplayFlags = 280
TopColumn = 1
End
Begin Table = "Customer"
Begin Extent =
Top = 6
Left = 227
Bottom = 114
Right = 378
End
DisplayFlags = 280
TopColumn = 7
End
End
End
Begin SQLPane =
End
Begin DataPane =
Begin ParameterDefaults = ""
End
Begin ColumnWidths = 9
Width = 284
Width = 1500
Width = 1500
Width = 1500
Width = 1500
Width = 1500
Width = 1500
Width = 1500
Width = 1500
End
End
Begin CriteriaPane =
Begin ColumnWidths = 11
Column = 1440
Alias = 900
Table = 1170
Output = 720
Append = 1400
NewValue = 1170
SortType = 1350
SortOrder = 1410
GroupBy = 1350
Filter = 1350
Or = 1350
Or = 1350
Or = 1350
End
End
End
',@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'Calls'
GO
EXEC sys. sp_addextendedproperty @name=N'MS_DiagramPaneCount', @value=1,@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'Calls'
USE [simpaza]
GO
/ ****** Object: View [dbo]. [Meetings] Script Date: 04/06/2009 06: 37: 44 ****** /
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE VIEW [dbo]. [Meetings]
WITH VIEW_METADATA
AS
SELECT dbo. Customer. Id_customer AS Expr1, dbo. Customer. Name_organiz, dbo. Meeting. Date, dbo. Meeting. Comments, dbo. Meeting. Place,
dbo. Meeting. Id_meeting, dbo. Meeting. Id_customer, dbo. Customer. Id_manager
FROM dbo. Meeting INNER JOIN
dbo. Customer ON dbo. Meeting. Id_customer = dbo. Customer. Id_customer
WITH CHECK OPTION
GO
EXEC sys. sp_addextendedproperty @name=N'MS_DiagramPane1', @value=N' [0E232FF0-B466-11cf-A24F-00AA00A3EFFF, 1.00]
Begin DesignProperties =
Begin PaneConfigurations =
Begin PaneConfiguration = 0
NumPanes = 4
Configuration = "(H (1 [32] 4 [51] 2 [1] 3))"
End
Begin PaneConfiguration = 1
NumPanes = 3
Configuration = "(H (1 [50] 4 [25] 3))"
End
Begin PaneConfiguration = 2
NumPanes = 3
Configuration = "(H (1 [50] 2 [25] 3))"
End
Begin PaneConfiguration = 3
NumPanes = 3
Configuration = "(H (4 [30] 2 [40] 3))"
End
Begin PaneConfiguration = 4
NumPanes = 2
Configuration = "(H (1 [56] 3))"
End
Begin PaneConfiguration = 5
NumPanes = 2
Configuration = "(H (2 [66] 3))"
End
Begin PaneConfiguration = 6
NumPanes = 2
Configuration = "(H (4 [50] 3))"
End
Begin PaneConfiguration = 7
NumPanes = 1
Configuration = "(V (3))"
End
Begin PaneConfiguration = 8
NumPanes = 3
Configuration = "(H (1 [56] 4 [18] 2))"
End
Begin PaneConfiguration = 9
NumPanes = 2
Configuration = "(H (1 [75] 4))"
End
Begin PaneConfiguration = 10
NumPanes = 2
Configuration = "(H (1 [66] 2))"
End
Begin PaneConfiguration = 11
NumPanes = 2
Configuration = "(H (4 [60] 2))"
End
Begin PaneConfiguration = 12
NumPanes = 1
Configuration = "(H (1))"
End
Begin PaneConfiguration = 13
NumPanes = 1
Configuration = "(V (4))"
End
Begin PaneConfiguration = 14
NumPanes = 1
Configuration = "(V (2))"
End
ActivePaneConfig = 0
End
Begin DiagramPane =
Begin Origin =
Top = 0
Left = 0
End
Begin Tables =
Begin Table = "Meeting"
Begin Extent =
Top = 6
Left = 38
Bottom = 114
Right = 189
End
DisplayFlags = 280
TopColumn = 2
End
Begin Table = "Customer"
Begin Extent =
Top = 6
Left = 227
Bottom = 114
Right = 378
End
DisplayFlags = 280
TopColumn = 7
End
End
End
Begin SQLPane =
End
Begin DataPane =
Begin ParameterDefaults = ""
End
Begin ColumnWidths = 9
Width = 284
Width = 1500
Width = 1500
Width = 1500
Width = 1500
Width = 1500
Width = 1500
Width = 1500
Width = 1500
End
End
Begin CriteriaPane =
Begin ColumnWidths = 11
Column = 1440
Alias = 900
Table = 1170
Output = 720
Append = 1400
NewValue = 1170
SortType = 1350
SortOrder = 1410
GroupBy = 1350
Filter = 1350
Or = 1350
Or = 1350
Or = 1350
End
End
End
',@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'Meetings'
GO
EXEC sys. sp_addextendedproperty @name=N'MS_DiagramPaneCount', @value=1,@level0type=N'SCHEMA', @level0name=N'dbo', @level1type=N'VIEW', @level1name=N'Meetings'
USE [simpaza]
GO