Разработка системы автоматизированного проектирования колеровки жидких обоев в строительстве

Содержание
ВВЕДЕНИЕ
1 ТЕХНИКО-ЭКОНОМИЧЕСКИЙ АНАЛИЗ
1.1.Технико-экономическая постановка задачи дипломного проекта
1.2. Анализ существующих методов решения проблемы
1.3 Анализ существующих бизнес процессов в системе
1.4 Техническое задание на разработку автоматизированной информационной системы
2. ПРОЕКТИРОВАНИЕ АВТОМАТИЗИРОВАННОЙ ИНФОРМАЦИОННОЙ СИСТЕМЫ
2.1 Информационная модель системы
2.2 Разработка информационного обеспечения системы
2.2.1 Входная информация
2.2.2 Выходная информация
2.2.3 Описание таблиц базы данных и структуры базы данных
2.4 Разработка алгоритмического обеспечения системы
2.3 Проектирование программного проекта
2.3.1 Структура пакета
2.3.2 Описание программных модулей системы
2.3.3 Техническое обеспечение системы
2.3.4 Контрольный пример функционирования
3. ЭКОНОМИЧЕСКОЕ ОБОСНОВАНИЕ ПРОЕКТА
3.1 Выбор и обоснование методики расчёта экономической
эффективности
3.2 Расчёт показателей экономической эффективности проекта
4. БЕЗОПАСНОСТЬ ЖИЗНЕДЕЯТЕЛЬНОСТИ
4.1 Общие положения
4.2 Проектирование оптимального рабочего места программиста
4.3 Организация рабочего места
4.4 Оборудование рабочих мест
4.5 Расчет тяжести труда
4.5 Расчет показателей искусственного освещения
4.6 Выбор типа ламп
4.7 Проектирование системы освещения
4.8 Качественные показатели освещения
Вывод
ЗАКЛЮЧЕНИЕ
ЛИТЕРАТУРА
ПРИЛОЖЕНИЕ Листинг разработанной программы

Видимость (V) - способность глаза воспринимать объект. Она зависит от освещенности, размера объекта, его яркости, контраста объекта с фоном, длительности экспозиции. Видимость определяется числом пороговых контрастов в контрасте объекта с фоном, то есть, где kпор - пороговый или наименьший различимый глазом контраст, при небольшом уменьшении которого объект становиться не различимым на этом фоне. Отраженная блескость - характеристика отражения светового потока от рабочей поверхности в направлении глаз работающего, определяющая снижение видимости вследствие чрезмерного увеличения яркости рабочей поверхности и вуалирующего действия, снижающего контраст между объектом и фоном.Цилиндрическая освещенность - характеристика насыщенности помещения светом. Определяется как средняя плотность светового потока на поверхности вертикально расположенного в помещении цилиндра, радиус и высота которого стремятся к нулю. Коэффициент неравномерности освещения - зависит от того, какая часть поверхности помещения будет непосредственно находиться под световым коробом. Например, для сплошного светящего потолка z=1, а для светового короба размером с половину площади помещения z=1,5…1,7.Показатель дискомфорта - критерий оценки дискомфортной блескости, вызывающей неприятные ощущения при неравномерном распределении яркостей в поле зрения, выражающийся формулой (4.11)где - яркость блеского источника, кд/м2; ω - угловой размер блеского источника, стер; θϕ - индекс позиции блеского источника относительно линии зрения; ад L - яркость адаптации, кд/м2.Фон: = 716 лм/ 2600 лм = 0.27Фон средний.Контраст объекта различения с фоном: = (200 - 120)/200 = 0.4Контраст объекта различения с фоном средний.Коэффицент пульсации освещенности:= (220 – 110)/(2*170)*100% = 32%Показатель ослепленности: = (0.112/0.1 - 1)*1000 = 120Видимость: V = 0.4/0.1 = 4Отраженная блескость: L = 1000Показатель дискомфорта:Коэффициент неравномерности освещения: z = 1,2Цилиндрическая освещенность: Ев = 100 лк Следовательно, выбранные размеры светового проема обеспечивают требования норм по естественному освещению рабочего кабинета.План размещения светильниковВыводВ этой части дипломной работы были изложены требования к рабочему месту программиста (пользователя). Созданные условия должны обеспечивать комфортную работу. На основании изученной литературы по данной проблеме, были указаны оптимальные размеры рабочего стола и кресла, рабочей поверхности, а также проведен выбор системы и расчет оптимального освещения производственного помещения, а также расчет информационной нагрузки. Соблюдение условий, определяющих оптимальную организацию рабочего места программиста, позволит сохранить хорошую работоспособность в течение всего рабочего дня, повысит, как в количественном, так и в качественном отношениях производительность труда программистаЗАКЛЮЧЕНИЕВ дипломной работе была спроектирована и разработана системаавтоматизированного проектирования колеровки жидких обоевНа этапе обследования была рассмотрена общая характеристика объекта автоматизации, его организационная структура и организация работы. На основе анализа сформированы и обоснованы требования к работе системы и к ее отдельным компонентам: программному, информационному, техническому.На стадии проектирования разработана общая структура информационной системы в целом, а также по каждой отдельной ее задаче. Определены основные проектные решения, что стало основанием для разработки, отладки программной части и для конструирования эксплуатационной документации.Использование информационной системы дает возможность получения индивидуальных цветов, с помощью изменения в компьютере, стандартных рецептур и сохранения новых рецептов, а так же открывает возможность быстро и точно отколеровать в нужный цвет, сокращая время колеровки, обеспечивая точность, на основе правильной подборки базы пигмента при колеровке в темные цвета, а так же решать задачи учета заказов и заявок на производство.Для быстрой и полной адаптации пользователя к системе был разработан удобный дружественный интерфейс пользователя и подробное описание работы с системой в руководстве пользователя.Считаю, что созданная в дипломной работе система автоматизированного проектирования колеровки жидких обоев, полностью соответствует информационным требованиям предприятия и сможет поддерживать это соответствие в течение всего жизненного цикла системы.В работе проведено исследование предметной области, разработана структура базы данных, спроектированы SQL-запросы к базе данных, разработано алгоритмическое и программное обеспечение, спроектирован программный интерфейс системы, а так же проведено тестирование разработанной системы, оценена экономическая целесообразность внедрения системыТестирование системы показало, что данная разработка полностью соответствует функциональным требованиям и работает без сбоев.ЛИТЕРАТУРАAccess 2003. Практическое руководство: В. Е. Кошелев — Санкт-Петербург, Бином-Пресс, 2008 г.- 464 с.Access 2007 без воды. Все, что нужно для уверенной работы: А. В. Голышева, И. А. Клеандрова, Р. Г. Прокди — Москва, Наука и техника, 2008 г.- 192 с.Access 2007 на практике: О. В. Смирнова — Москва, Феникс, 2009 г.- 160 с.Access 2007. Недостающее руководство: Мэтью Мак-Дональд — Санкт-Петербург, Русская Редакция, БХВ-Петербург, 2007 г.- 784 с.Access 2007. Новые возможности: Александр Сергеев — Москва, Питер, 2008 г.- 176 с.Access 2007. Эффективное использование: В. Е. Кошелев — Санкт-Петербург, Бином-Пресс, 2009 г.- 590 с.Access 2010 для чайников: Лори Ульрих Фуллер, Кен Кук — Санкт-Петербург, Вильямс, 2011 г.- 384 с.Delphi в задачах и примерах (+ CD-ROM): Никита Культин — Санкт-Петербург, БХВ-Петербург, 2008 г.- 288 с.Delphi на примерах: Виктор Пестриков, Артур Маслобоев — Москва, БХВ-Петербург, 2005 г.- 496 с.Microsoft Access 2000. Шаг за шагом: Джо Хабракен — Москва, АСТ, Астрель, 2004 г.- 350 с.Microsoft Access 2000: Джо Хабракен — Санкт-Петербург, АСТ, Астрель, 2004 г.- 350 с.Microsoft Access 2002. Самоучитель: Т. В. Тимошок — Москва, Диалектика, 2004 г.- 352 с.Microsoft Access 2003 для начинающих: В. Степанов — Санкт-Петербург, Аквариум-Принт, Дом печати - Вятка, 2006 г.- 128 с.Microsoft Access 2003. Русская версия (+ CD-ROM): — Москва, Эком, 2008 г.- 432 с.Microsoft Access 2007. Лучший самоучитель: С. В. Глушаков, А. С. Сурядный, М. И. Шумилов — Москва, АСТ, АСТ Москва, 2008 г.- 448 с.Microsoft Access 2007: Джон Кронан, Бобби Сандберг — Москва, НТ Пресс, 2009 г.- 384 с.Microsoft Office 2007. Лучший самоучитель: С. В. Глушаков, А. С. Сурядный — Санкт-Петербург, АСТ, АСТ Москва, ВКТ, 2008 г.- 448 с.Microsoft Office 2007: Стив Джонсон — Санкт-Петербург, НТ Пресс, 2009 г.- 720 с.Microsoft Office 2010. Краткое руководство: О. А. Меженный — Москва, Вильямс, 2011 г.- 368 с.Microsoft Office Access 2003. Быстрые шаги: Джон Кронан, Вирджиния Андерсен, Бренда Брайант Андерсон — Москва, НТ Пресс, 2005 г.- 226 с.Microsoft Office XP. Полное руководство: Джо Крейнак — Москва, АСТ, Астрель, 2004 г.- 402 с.Microsoft Office XP: В. Ю. Микрюков — Санкт-Петербург, Феникс, 2006 г.- 256 с.Microsoft Office XP: Джо Крейнак — Москва, АСТ, Астрель, 2004 г.- 398 с.Turbo Delphi для новичков и не только: С. А. Любавин — Москва, НТ Пресс, 2008 г.- 320 с.Анализ данных в Access. Сборник рецептов: Кен Блюттман, Уайн Фриз — Москва, Питер, 2008 г.- 352 с.Базы данных: А. Д. Хомоненко, В. М. Цыганков, М. Г. Мальцев — Санкт-Петербург, КОРОНА принт, 2002 г.- 672 с.Видеосамоучитель. Microsoft Access 2007 (+ CD-ROM): А. Днепров — Москва, Питер, 2008 г.- 240 с.О чем не пишут в книгах по Delphi (+ CD-ROM): А. Б. Григорьев — Москва, БХВ-Петербург, 2008 г.- 576 с.Осваиваем Delphi Win32: С. А. Любавин — Санкт-Петербург, НТ Пресс, 2008 г.- 576 с.Основы программирования в Delphi XE (+ CD-ROM): Н. Б. Культин — Москва, БХВ-Петербург, 2011 г.- 416 с.Основы программирования в интегрированной среде Delphi. Практикум: А. Желонкин — Санкт-Петербург, Бином. Лаборатория знаний, 2006 г.- 240 с.От Delphi 7 к Delphi 2006. Для начинающих: В. П. Молочков, В. Б. Карпинский — Москва, Диалог-МИФИ, 2007 г.- 304 с.Официальный учебный курс MOAC Microsoft Office 2003. В 2-х кн (комплект)+ CD: Коллектив авторов — Москва, 2007 г.- 448 с.Практика создания приложений в Access: А. М. Епанешников, В. А. Епанешников — Санкт-Петербург, Диалог-МИФИ, 2009 г.- 440 с.Практикум по общей информатике: — Санкт-Петербург, Феникс, 2003 г.- 304 с.Программирование баз данных Microsoft SQL Server 2005. Базовый курс: Роберт Вийера — Санкт-Петербург, Вильямс, 2007 г.- 832 с.Программирование в Delphi для Windows. Версии 2006, 2007, Turbo Delphi (+ CD-ROM): А. Я. Архангельский — Санкт-Петербург, Бином-Пресс, 2007 г.- 1248 с.Программирование в пакетах MS Office: — Москва, Финансы и статистика, 2007 г.- 656 с.Программирование на Delphi Win32: С. А. Любавин — Москва, НТ Пресс, 2008 г.- 576 с.Программируем в Turbo Delphi: С. А. Любавин — Санкт-Петербург, НТ Пресс, 2008 г.- 320 с.Проектирование и оптимизация доступа к базам данных Microsoft SQL Server 2005. Учебный курс Microsoft (+ CD-ROM): Сара Морган, Тобиаш Тернстрем — Москва, Русская Редакция, 2008 г.- 480 с.Разработка баз данных в Microsoft Access: Н. П. Обухов — Санкт-Петербург, ИВЭСЭП, Знание, 2008 г.- 92 с.Разработка приложений в Delphi 2005/2006 (+ CD-ROM): Ю. А. Шпак — Санкт-Петербург, МК-Пресс, 2006 г.- 544 с.Разработка приложений в MS Access: С. И. Моисеенко, Б. В. Соболь — Санкт-Петербург, Вильямс, 2006 г.- 272 с.Разработка приложений на основе Microsoft SQL Server 2008: Леонард Лобел, Эндрю Дж. Браст, Стивен Форте — Санкт-Петербург, Русская Редакция, БХВ-Петербург, 2010 г.- 1024 с.Самоучитель Delphi 7 Studio: Вячеслав Понамарев — Санкт-Петербург, БХВ-Петербург, 2003 г.- 504 с.Технология Microsoft ADO .NET: Ч. А. Кариев — Москва, Интернет-университет информационных технологий, Бином. Лаборатор, 2010 г.- 544 с.Учимся программировать на Delphi 2007: О. В. Чеснокова — Санкт-Петербург, НТ Пресс, 2008 г.- 368 с.Чеснокова О. В. Delphi 2007. Алгоритмы и программы— Москва, НТ Пресс, 2008 г.- 368 с.Экспресс-курс. Microsoft Access XP: — Санкт-Петербург, АСТ, Харвест, 2006 г.- 32ПРИЛОЖЕНИЕЛистинг разработанной программыГлавный модуль приложенияunit MainClients;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, DB, ADODB, IniFiles, Grids, DBGrids,DBDirectoryTemplate, addsorce, DateUtils,parampoisk, jpeg, ExtCtrls, ToolWin, ComCtrls, Buttons, RzSpnEdt;type TMainClientsForm = class(TForm) ADOConnection1: TADOConnection; ADOTable1: TADOTable; MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N16: TMenuItem; N17: TMenuItem; DataSource1: TDataSource; ADOTable2: TADOTable; ADOTable3: TADOTable; ADOTable4: TADOTable; ADOQuery1: TADOQuery; ADOQuery2: TADOQuery; ADOTable5: TADOTable; ADOTable6: TADOTable; ADOTable7: TADOTable; ADOTable8: TADOTable; ADOTable9: TADOTable; N10: TMenuItem; N11: TMenuItem; N15: TMenuItem; N18: TMenuItem; Image1: TImage; N20: TMenuItem; N21: TMenuItem; N23: TMenuItem; N24: TMenuItem; N25: TMenuItem; N26: TMenuItem; N29: TMenuItem; N19: TMenuItem; procedure fdfClick(Sender: TObject); procedure N24Click(Sender: TObject); procedure N23Click(Sender: TObject); procedure N18Click(Sender: TObject); procedure RzRapidFireButton1Click(Sender: TObject); procedure RzRapidFireButton2Click(Sender: TObject); procedure RzRapidFireButton5Click(Sender: TObject); procedure RzRapidFireButton4Click(Sender: TObject); procedure RzRapidFireButton6Click(Sender: TObject); procedure RzRapidFireButton7Click(Sender: TObject); procedure RzRapidFireButton3Click(Sender: TObject); procedure RzRapidFireButton8Click(Sender: TObject); procedure N12Click(Sender: TObject); function IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean; function IsFormOpen(const FormName : string): Boolean; procedure N6Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N8Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure N20Click(Sender: TObject); procedure N21Click(Sender: TObject); procedure N22Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure N3Click(Sender: TObject); procedure DataSource1DataChange(Sender: TObject; Field: TField); procedure N4Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure N15Click(Sender: TObject); procedure N16Click(Sender: TObject); procedure N17Click(Sender: TObject); procedure N11Click(Sender: TObject); procedure N19Click(Sender: TObject); procedure N10Click(Sender: TObject); procedure N25Click(Sender: TObject); procedure N27Click(Sender: TObject); procedure N28Click(Sender: TObject); procedure N29Click(Sender: TObject); private { Private declarations } procedure BuildGridDatabaseDirectoryItem(sCaption:String; ds:TDataSource); public { Public declarations } end;var MainClientsForm: TMainClientsForm; nomer_flag:integer; nastr:tinifile; DirectoryForm : TDBDirectoryTemplateForm; prosmForm: Taddform; mainflag:boolean; nomer_poisk:word; idLocation, idAddional, idZapas, idPartiya:integer; model,modelavto:string; god:integer;implementation{$R *.dfm}function TMainClientsForm.IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean; var i: Integer; begin Result := False; for i := Pred(AFormName.MDIChildCount) DownTo 0 do if (AFormName.MDIChildren[i].Name = AMDIChildName) then begin Result := True; AFormName.MDIChildren[i].Free; // Break; end; end; function TMainClientsForm.IsFormOpen(const FormName : string): Boolean; var i: Integer; begin Result := False; for i := Screen.FormCount - 1 DownTo 0 do if (Screen.Forms[i].Name = FormName) then begin Result := True; Break; end; end; procedure TMainClientsForm.BuildGridDatabaseDirectoryItem(sCaption:String; ds:TDataSource); begin //создаем форму DirectoryForm:=TDBDirectoryTemplateForm.Create(Owner); DirectoryForm.TableDBGrid.DataSource:=ds; DirectoryForm.Top:=0; DirectoryForm.Left:=0; DirectoryForm.Caption:=sCaption; end;procedure TMainClientsForm.N12Click(Sender: TObject);begin MainClientsForm.Close;end;procedure TMainClientsForm.N6Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1;mainclientsform.ADOTable1.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Заказы', mainclientsform.DataSource1);end;procedure TMainClientsForm.N7Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable2;mainclientsform.ADOTable2.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Клиенты', mainclientsform.DataSource1);end;procedure TMainClientsForm.N8Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable3;mainclientsform.ADOTable3.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Рецепты', mainclientsform.DataSource1);end;procedure TMainClientsForm.N9Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable4;mainclientsform.ADOTable4.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Реализация', mainclientsform.DataSource1);end;procedure TMainClientsForm.RzRapidFireButton1Click(Sender: TObject);begin MainClientsForm.N6Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton2Click(Sender: TObject);begin MainClientsForm.N22Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton3Click(Sender: TObject);beginMainClientsForm.N19Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton4Click(Sender: TObject);begin MainClientsForm.N4Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton5Click(Sender: TObject);begin MainClientsForm.N3Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton6Click(Sender: TObject);beginMainClientsForm.N11Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton7Click(Sender: TObject);begin MainClientsForm.N14Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton8Click(Sender: TObject);begin MainClientsForm.Close;end;procedure TMainClientsForm.N20Click(Sender: TObject);var dobForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'addForm'); dobForm:=Taddform.Create(Owner); dobForm.Top:=240; dobForm.Left:=3; dobForm.Caption:='Добавление отгрузки'; dobForm.Show; dobForm.GroupBox2.Visible:=false; dobForm.GroupBox3.Visible:=false; dobForm.GroupBox1.Visible:=false; dobForm.GroupBox4.Visible:=false; dobForm.GroupBox7.Visible:=true; dobForm.GroupBox6.Visible:=false; dobForm.GroupBox8.Visible:=false;end;procedure TMainClientsForm.N21Click(Sender: TObject);var dobForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'addForm'); dobForm:=Taddform.Create(Owner); dobForm.Top:=240; dobForm.Left:=3; dobForm.Caption:='Заказ'; dobForm.Show; dobForm.GroupBox2.Visible:=false; dobForm.GroupBox3.Visible:=false; dobForm.GroupBox1.Visible:=false; dobForm.GroupBox6.Visible:=true; dobForm.GroupBox4.Visible:=false; dobForm.GroupBox7.Visible:=false; dobForm.GroupBox8.Visible:=false;end;procedure TMainClientsForm.N22Click(Sender: TObject); begin IsMDIChildOpen(MainClientsForm,'addForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; MainClientsForm.N6Click(sender); prosmForm:=Taddform.Create(Owner); prosmForm.Top:=230; prosmForm.Left:=0; prosmForm.Width:=500; prosmForm.Height:=200; prosmForm.Caption:='просмотр записей'; prosmForm.DBNavigator1.Visible:=true; mainflag:=true; prosmForm.Show; MainClientsForm.DataSource1.DataSet.lastend;procedure TMainClientsForm.N23Click(Sender: TObject);var dobForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'addForm'); dobForm:=Taddform.Create(Owner); dobForm.Top:=240; dobForm.Left:=3; dobForm.Show; dobForm.Caption:='Добавление Клиента/заявки'; dobForm.GroupBox2.Visible:=false; dobForm.GroupBox3.Visible:=true; dobForm.GroupBox1.Visible:=false; dobForm.GroupBox4.Visible:=false; dobForm.GroupBox6.Visible:=false; dobForm.GroupBox7.Visible:=false; dobForm.GroupBox8.Visible:=false;end;procedure TMainClientsForm.N24Click(Sender: TObject);var dobForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'addForm'); dobForm:=Taddform.Create(Owner); dobForm.Top:=240; dobForm.Left:=3; dobForm.Caption:='Добавление оплаты'; dobForm.Show; dobForm.GroupBox2.Visible:=false; dobForm.GroupBox3.Visible:=false; dobForm.GroupBox1.Visible:=false; dobForm.GroupBox4.Visible:=true; dobForm.GroupBox6.Visible:=false; dobForm.GroupBox7.Visible:=false; dobForm.GroupBox8.Visible:=false;end;procedure TMainClientsForm.FormCreate(Sender: TObject); var NewConnection: Widestring;beginADOConnection1.Close; // указываем файл .udl для ADOConnection1ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+GetCurrentDir+'\krask.mdb;'; ADOConnection1.Open;MainClientsForm.ADOTable1.Active:=true;MainClientsForm.ADOTable2.Active:=true;MainClientsForm.ADOTable3.Active:=true;MainClientsForm.ADOTable4.Active:=true;MainClientsForm.ADOTable5.Active:=true;MainClientsForm.ADOTable6.Active:=true;MainClientsForm.ADOTable7.Active:=true;MainClientsForm.ADOTable8.Active:=true;end;procedure TMainClientsForm.N3Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='Нештатные ситуации по работе оборудования'; nomer_poisk:=4; poisk.Edit1.Visible:=false; poisk.Label1.Visible:=false; poisk.Label1.caption:=''; poisk.Label2.Visible:=false; poisk.Label3.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false; poisk.Button1Click(Sender); end;procedure TMainClientsForm.DataSource1DataChange(Sender: TObject; Field: TField); varfam,name,otch,razryad,telefon,otdel,dolgnost,neshtat, sost,teku:string;rezin:string; kod_d,kol,kods, koduch, kodt:integer; rezd:Tdatetime; var rekv,adres:string; imya, otchestvo,telephone :string; summa:integer; sur,notes:string; RGBc1,RGBc2:integer; kolvo:integer;dzayavk,dizgot, date:Tdatetime;kodkl,kodzayav,kodrec, kodreal, koded, kodoplat, kodotgruz, kodzak:integer;beginif mainflag thenbegin if nomer_flag=3 then begin prosmForm.DBNavigator3.Visible:=true; naim:=MainClientsForm.DataSource1.DataSet.FieldByName('Наименование').AsString; prosmForm.edit10.text:=naim; RGBc1:=MainClientsForm.DataSource1.DataSet.FieldByName('Цвет1').AsInteger; RGBc2:=MainClientsForm.DataSource1.DataSet.FieldByName('Цвет2').AsInteger; prosmForm.edit9.text:=inttostr(MainClientsForm.DataSource1.DataSet.FieldByName('Процент1').AsInteger); prosmForm.Shape1.Brush.Color:=RGBc1; prosmForm.Shape2.Brush.Color:=RGBc2; prosmForm.Label22.Caption:='RGB = '+inttostr(RGBc2); R2:=GetRValue(RGBc2); prosmForm.Label38.Caption:='Red ='+inttostr(R2); G2:=GetGValue(RGBc2); B2:=GetBValue(RGBc2); prosmForm.Label39.Caption:='Green ='+inttostr(G2); prosmForm.Label40.Caption:='Blue ='+inttostr(B2); prosmForm.Label9.Caption:='RGB = '+IntTostr(RGBc1); R:=GetRValue(RGBc1); prosmForm.Label10.Caption:='Red ='+inttostr(R); G:=GetGValue(RGBc1); B:=GetBValue(RGBc1); prosmForm.Label3.Caption:='Green ='+inttostr(G); prosmForm.Label11.Caption:='Blue ='+inttostr(B); prosmForm.BitBtn3.Click;end; if nomer_flag=2 then begin kodzak:=MainClientsForm.DataSource1.DataSet.FieldByName('Код заказа').AsInteger; prosmForm.edit1.text:=inttostr(kodzak); kodzayav:=MainClientsForm.DataSource1.DataSet.FieldByName('Код заявки').AsInteger; prosmForm.edit6.text:=inttostr(kodzayav); dzayavk:=MainClientsForm.DataSource1.DataSet.FieldByName('Дата заявки').AsDateTime; dizgot:=MainClientsForm.DataSource1.DataSet.FieldByName('Дата изготовления').AsDateTime; prosmForm.edit4.text:=DateToStr(dzayavk); prosmForm.edit8.text:=DateToStr(dizgot); kol:=MainClientsForm.DataSource1.DataSet.FieldByName('Количество').AsInteger; prosmForm.edit2.text:=inttostr(kol); kodkl:=MainClientsForm.DataSource1.DataSet.FieldByName('Код клиента').AsInteger; kodrec:=MainClientsForm.DataSource1.DataSet.FieldByName('Код рецепта').AsInteger; koded:=MainClientsForm.DataSource1.DataSet.FieldByName('Код единица').AsInteger; kodoplat:=MainClientsForm.DataSource1.DataSet.FieldByName('Код оплата').AsInteger; kodotgruz:=MainClientsForm.DataSource1.DataSet.FieldByName('Код отгрузка').AsInteger; prosmForm.edit15.text:=inttostr(kodrec); if MainClientsForm.adotable5.Locate('Код единицы',koded,[]) thenbeginnaim:=MainClientsForm.adotable5.FieldByName('Наименование').AsString; prosmForm.edit3.text:=naim;end; if MainClientsForm.adotable2.Locate('Код клиента', kodkl,[]) thenbeginfam:=MainClientsForm.adotable2.FieldByName('Фамилия').AsString; prosmForm.edit5.text:=fam;imya:=MainClientsForm.adotable2.FieldByName('Имя').AsString; prosmForm.edit18.text:=imya;otchestvo:=MainClientsForm.adotable2.FieldByName('Отчество').AsString; prosmForm.edit24.text:=otchestvo;adres:=MainClientsForm.adotable2.FieldByName('Адрес').AsString; prosmForm.edit26.text:=adres; telephone:=MainClientsForm.adotable2.FieldByName('Телефон').AsString; prosmForm.edit25.text:=telephone;nd; if MainClientsForm.adotable6.Locate('Код оплаты', kodoplat,[]) thenbegindate:=MainClientsForm.adotable6.FieldByName('Дата').AsDateTime; prosmForm.edit7.text:=DateToStr(date);summa:=MainClientsForm.adotable6.FieldByName('Сумма').AsInteger; prosmForm.edit30.text:=IntToStr(summa);end; if MainClientsForm.adotable7.Locate('Код отгрузка', kodotgruz,[]) thenbegindate:=MainClientsForm.adotable7.FieldByName('Дата').AsDateTime; prosmForm.edit31.text:=DateToStr(date);notes:=MainClientsForm.adotable7.FieldByName('Отметка выполнения').asstring; prosmForm.edit44.text:=notes;end; end; if nomer_flag=1 then begin fam:=MainClientsForm.DataSource1.DataSet.FieldByName('Фамилия').AsString; name:=MainClientsForm.DataSource1.DataSet.FieldByName('Имя').AsString; otch:=MainClientsForm.DataSource1.DataSet.FieldByName('Отчество').AsString; razryad:=MainClientsForm.DataSource1.DataSet.FieldByName('Разряд').AsString; telefon:=MainClientsForm.DataSource1.DataSet.FieldByName('Телефон').AsString; prosmForm.edit21.text:=fam; prosmForm.edit20.text:=name; prosmForm.edit19.text:=otch; kod_d:=MainClientsForm.DataSource1.DataSet.FieldByName('Коддолжность').AsInteger;if MainClientsForm.adotable5.Locate('Коддолжность',kod_d,[]) thenbeginotdel:=MainClientsForm.adotable5.FieldByName('Отдел').AsString;prosmForm.edit23.text:=otdel;dolgnost:=MainClientsForm.adotable5.FieldByName('Наименование').AsString;prosmForm.edit22.text:=dolgnost; end; end;end;end;procedure TMainClientsForm.fdfClick(Sender: TObject);var poisk:Tparampoik;begin end;procedure TMainClientsForm.N4Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск по движению'; nomer_poisk:=5; poisk.Edit1.Visible:=false; poisk.Label1.Visible:=false; poisk.Label1.caption:=''; poisk.Label2.Visible:=false; poisk.Label3.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false; poisk.Button1Click(Sender); end;procedure TMainClientsForm.N14Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='Клиент по фамилии'; nomer_poisk:=1; poisk.Edit1.Visible:=True; poisk.Label1.Visible:=false; poisk.Label1.caption:=''; poisk.Label2.Visible:=false; poisk.Label3.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false; end;procedure TMainClientsForm.N15Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable7;mainclientsform.ADOTable7.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Отгрузка', mainclientsform.DataSource1); end;procedure TMainClientsForm.N16Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:=' Поиск заявки по номеру'; nomer_poisk:=2; poisk.Edit1.Visible:=true; poisk.Label1.Visible:=false; poisk.Label1.caption:=''; poisk.Label2.Visible:=false; poisk.Label3.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false; end;procedure TMainClientsForm.N17Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск заказа по дате'; nomer_poisk:=3; poisk.Edit1.Visible:=false; poisk.Label1.Visible:=false; poisk.Label1.caption:=''; poisk.Label2.Visible:=True; poisk.Label3.Visible:=true; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=true; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=true; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false; end;procedure TMainClientsForm.N18Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable8;mainclientsform.ADOTable8.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Заявка', mainclientsform.DataSource1);end;procedure TMainClientsForm.N11Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable6;mainclientsform.ADOTable6.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Оплата', mainclientsform.DataSource1);end;procedure TMainClientsForm.N19Click(Sender: TObject);begin nomer_flag:=2; IsMDIChildOpen(MainClientsForm,'addForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; MainClientsForm.N6Click(sender); prosmForm:=Taddform.Create(Owner); prosmForm.Top:=230; prosmForm.Left:=0; prosmForm.Width:=500; prosmForm.Height:=200; prosmForm.Caption:='Просмотр базы данных'; mainflag:=true; prosmForm.Show; prosmForm.GroupBox1.Visible:=false; prosmForm.GroupBox2.Visible:=true; prosmForm.GroupBox3.Visible:=false; prosmForm.GroupBox4.Visible:=false; prosmForm.GroupBox6.Visible:=false; prosmForm.GroupBox7.Visible:=false; prosmForm.GroupBox8.Visible:=false; MainClientsForm.DataSource1.DataSet.last; end;procedure TMainClientsForm.N10Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable5;mainclientsform.ADOTable5.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Единица', mainclientsform.DataSource1);end;procedure TMainClientsForm.N25Click(Sender: TObject);var dobForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'addForm'); dobForm:=Taddform.Create(Owner); dobForm.Top:=240; dobForm.Left:=3; dobForm.Caption:=' Сделать заявку'; dobForm.Show; dobForm.GroupBox2.Visible:=false; dobForm.GroupBox3.Visible:=false; dobForm.GroupBox1.Visible:=true; dobForm.GroupBox7.Visible:=false; dobForm.GroupBox6.Visible:=false; dobForm.GroupBox4.Visible:=false; dobForm.GroupBox8.Visible:=false;end;procedure TMainClientsForm.N27Click(Sender: TObject); begin nomer_flag:=1; IsMDIChildOpen(MainClientsForm,'addForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; MainClientsForm.N9Click(sender); prosmForm:=Taddform.Create(Owner); prosmForm.Top:=230; prosmForm.Left:=0; prosmForm.Width:=500; prosmForm.Height:=200; prosmForm.Caption:='просмотр записей'; prosmForm.DBNavigator1.Visible:=true; mainflag:=true; prosmForm.Show; prosmForm.GroupBox2.Visible:=false; prosmForm.GroupBox3.Visible:=false; prosmForm.GroupBox4.Visible:=false; prosmForm.GroupBox6.Visible:=false; prosmForm.GroupBox7.Visible:=false; prosmForm.GroupBox8.Visible:=false; MainClientsForm.DataSource1.DataSet.last;end;procedure TMainClientsForm.N28Click(Sender: TObject);begin nomer_flag:=2; IsMDIChildOpen(MainClientsForm,'addForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; MainClientsForm.N11Click(sender); prosmForm:=Taddform.Create(Owner); prosmForm.Top:=230; prosmForm.Left:=0; prosmForm.Width:=500; prosmForm.Height:=200; prosmForm.Caption:='просмотр записей'; prosmForm.DBNavigator1.Visible:=true; mainflag:=true; prosmForm.Show; prosmForm.GroupBox1.Visible:=false; prosmForm.GroupBox2.Visible:=true; prosmForm.GroupBox3.Visible:=false; prosmForm.GroupBox4.Visible:=false; prosmForm.GroupBox6.Visible:=false; prosmForm.GroupBox7.Visible:=false; prosmForm.GroupBox8.Visible:=false; MainClientsForm.DataSource1.DataSet.last;end;procedure TMainClientsForm.N29Click(Sender: TObject);begin nomer_flag:=3; IsMDIChildOpen(MainClientsForm,'addForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; MainClientsForm.N8Click(sender); prosmForm:=Taddform.Create(Owner); prosmForm.Top:=230; prosmForm.Left:=0; prosmForm.Width:=500; prosmForm.Height:=200; prosmForm.Caption:='Колорирование'; mainflag:=true; prosmForm.Show; prosmForm.GroupBox1.Visible:=false; prosmForm.GroupBox2.Visible:=false; prosmForm.GroupBox3.Visible:=false; prosmForm.GroupBox4.Visible:=false; prosmForm.GroupBox6.Visible:=false; prosmForm.GroupBox7.Visible:=false; prosmForm.GroupBox8.Visible:=true; MainClientsForm.DataSource1.DataSet.last;end;end.