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

Видимость (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 с.Видеосамоучитель. M icrosoft 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®; 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.