Расчет экономической эффективности
⇐ ПредыдущаяСтр 6 из 6
Внедрение информационной системы сопряжено с капитальными вложениями как на приобретение техники, так и на разработку проекта, выполнение подготовительных работ и подготовку кадров. Обобщенным критерием экономической эффективности является минимум затрат живого и овеществленного труда Экономический эффект от внедрения вычислительной и организационной техники подразделяется на прямой и косвенный. Под прямой экономической эффективностью понимают экономию материально-трудовых ресурсов и денежных средств, полученную в результате сокращения численности управленческого персонала, фонда заработной платы. Определим экономическую эффективность с помощью трудовых и стоимостных показателей. На составление отчетности и планов в месяц затрачивалось 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
З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 = 18
Воспользуйтесь поиском по сайту: ![]() ©2015 - 2025 megalektsii.ru Все авторские права принадлежат авторам лекционных материалов. Обратная связь с нами...
|