Проектирование автоматизированной системы учета продукции

Определим необходимую площадь световых проемов. Площадь пола помещения S = 35 м². Нормированное значение коэффициента естественного освещения: Imin=Imin∙m∙c, гдеImin -нормированная минимальная величина коэффициента естественного освещения для бокового освещения (Imin =1,5%); m= 1 — коэффициент светового климата;c=1- коэффициент солнечного климата. Iн=1,5*1*1=1,5%Расчет освещения заключается в определении площади световых проемов для помещения. Расчет ведут по следующей формуле:, м2, где- cветовая характеристика окна, зависит от глубины помещения, выступа окна и соотношения длины сторон (n0 = 16);Кзд = 1,0 — коэффициент, учитывающий уменьшение КЕО от затемнения противостоящим зданием; К3=1,5 — коэффициент запаса; to — общий коэффициент светопропускания: t0=t1∙t2∙t3∙t4, гдеt1= 0,8 — учитывает потери света в материале;t2 = 0,6 — учитывает потери света в несущих конструкциях;t3 = 0,7 — учитывает потери света при боковом освещении;t4= 0,8 — учитывает потери света в солнцезащитных устройствах. t0 = 0,8−0,6−0,7−0,8 = 0,27r1 = 3 — коэффициент, учитывающий повышение КЕО при боковом освещении благодаря свету, отраженному от внутренних поверхностей; Snплощадь пола; So — площадь световых проемов. м2Расчет искусственного общего освещения

Индекс помещения: i = Sn / (h • (А+В)), гдеSnплощадь помещения;h — высота подвеса светильников над рабочей поверхностью, м;А, В — длина и ширина помещения. i = 35 / (2,55 • (7 + 5)) = 1,14Для рассчитанного индекса помещения находим по таблице коэффициент использования светового потока -=0.

47.Коэффициент отражения потолка — 70%. Коэффициент отражения стен — 50%.Принимаем:

Е = 200- нормированная освещенность [лк]; K = 1,5 — коэффициент запаса; N= 12 — число ламп;

Поправочный коэффициент светильникаэто отношение средней освещенности к минимальной: Z = Ecp/Emin= 1,1Найдем световой поток., где E — нормированная освещенность, лк;S — площадь помещения, м;К — коэффициент запаса;Z — поправочный коэффициент светильника;N — количество светильников;

использования светового потока. Fл = (200*35*1,5*1,1)/(12*0,47)=2048 лм4.

13.3. Расчет молниезащиты

Ожидаемое количество N поражений молнией в год: N = ((S+ 6h)(L+ 6h) — 7,7h2)n • 10 -6, гдеh — высота здания или сооружения, м;S, L — ширина и длина здания, м;n — удельная плотность ударов молний в землю, 1/км2 год (для Казани n=2).N= ((20+6*18)(200+6*18)-7.7*18 2)2*10 -6=0,074Вывод. Проведенный анализ экологичности проекта и безопасности жизнедеятельности позволяет сделать вывод о том, что данная разработка соответствует основным требованиям предъявляемым к основным характеристикам безопасности. Рассматриваемое помещение соответствует требованиям пожарной безопасности, освещенности и молниезащитыЗАКЛЮЧЕНИЕВ дипломной работе была спроектирована и разработана автоматизированная информационная система автоматизации учета продукции на предприятии ЗАО «Данафлекс». Динамический процесс проектирования системы происходил в несколько стадий. На этапе обследования была рассмотрена общая характеристика объекта автоматизации, его организационная структура и организация работы. На основе анализа сформированы и обоснованы требования к работе системы и к ее отдельным компонентам: программному, информационному, техническому. На стадии проектирования разработана общая структура информационной системы в целом, а также по каждой отдельной ее задаче. Определены основные проектные решения, что стало основанием для разработки, отладки программной части и для конструирования эксплуатационной документации. Создание и внедрение автоматизированной информационной системы учета продукции на предприятии ЗАО «Данафлекс».

позволит сократить время работы менеджера с документами, снизить временные затраты на проведение бухгалтерских сверок, и поиск товаров в среднем на 30−35% за счет автоматического анализа информации, имеющейся в базе данных. Использование информационной системы позволит более глубоко и в полном объеме собирать и анализировать необходимую информацию о товарах, хранящихся на складе и выполненных заказах. Отмечено так же повышение эффективности учета движения товаров. При этом в практику работы персонала входят новые информационные технологии, такие как совместный авторизованный доступ к справочной информации о наличии товаров на складе, автоматизация рутинных операций, доступ к информационно-справочным ресурсам, автоматическое заполнение документов, исключение недостатков бумажных носителей, контроль качества, стандартизация учета. Для быстрой и полной адаптации пользователя к системе был разработан удобный дружественный интерфейс пользователя и подробное описание работы с системой в руководстве пользователя. Считаю, что созданная в дипломной работе информационная система автоматизации учета продукции на предприятии ЗАО «Данафлекс». полностью соответствует информационным требованиям предприятия и сможет поддерживать это соответствие в течение всего жизненного цикла системы. В работе проведено исследование предметной области, разработана структура базы данных, спроектированы SQL-запросы к базе данных, разработано алгоритмическое и программное обеспечение, спроектирован программный интерфейс системы, а так же проведено тестирование разработанной системы, оценена экономическая целесообразность внедрения системы.

СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ

Архангельский А.Я. 100 компонентов общего назначения библиотеки Buider c++. — М.: Бином, 1999. —

266 с. Архангельский А. Я. Buider c++. Справочное пособие. — М.: Бином, 2001. — 1024 с. Архангельский А. Я. Программирование в Buider c++. — М.: Бином, 2001.

— 564 с. Архангельский А. Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205 с. Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. -

304с.Белов А. Н. Бухгалтерский учет в учреждениях непроизводственной сферы. — М.: Финансы и статистика, 1995. — 240с. Буч Г. Объектно-ориентированное проектирование с примерами применения.

М., 1992. — 654с. Галатенко В. Информационная безопасность // Открытые системы- 1996. — N 1−4.Глушаков С. В., Ломотько Д. В. Базы данных .- Х.: Фолио, 2002. — 504 с. Гофман В. Э. Хомоненко А.Д. Delphi 5.

— СПб.: — Санки-Петербург, 2000. — 800с. Гофман В. Э. Хомоненко А.Д. Delphi 6. ;

СПб.: — Санки-Петербург, 2001. — 1145с. Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. —

М.: Вильямс, 2000. — 1111 с. Культин Н. Б. Delphi 6: Программирование на Object Pascal. — М.: Бином, 2001.

— 526 с. Культин Н. Б. Delphi 7: Программирование на Object Pascal. — М.: Бином, 2003. — 535 с. Магнус Я. Р., Катышев П. К., Пересецкий А. А. Эконометрика. Начальный курс.

М., Дело, 1997

Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с. Турчин С.

Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с. 22−27.

// www. ITC-UA.COMФатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003.

— 1128с. Черников А. Поздняков В. От бухгалтерии под Windows к открытым Unix-системам // Компьютерное обозрение № 34 (402), 2003. с. 22−27.

www.ITC-UA.COM.Приложение 1Листинг программы

Главный модуль приложения//—————————————————————————————————————-#include #include #pragma hdrstop#include «main.h» #include «parampoisk.h» #include «DBDirectoryTemplate.h» #include «add.h» #include «ChildTemlate.h» //—————————————————————————————————————-#pragma package (smart_init)#pragma resource «*.dfm» #include «add.h» Tmainclientsform *mainclientsform;TDBDirectoryTemplateForm *DirectoryForm; Taddforms *ProsmForm; Tparampoiskform *Poisk;TChildTemplateForm *ChildTemplateForm;int nomer_poisk; bool mainflag; int kodzayav, koduch, kodvid, kodzal, kodob, kodsod, otvup, otgot, a, kodzaka;//—————————————————————————————————————-__fastcall Tmainclientsform: Tmainclientsform (TComponent* Owner): TForm (Owner){}//—————————————————————————————————————-void BuildGridDatabaseDirectoryItem (String sCaption, TDataSource *ds, TForm *AFormName, String AMDIChildName){ int i; for (int i = AFormName->MDIChildCount-1; i>=0; i—) { if (AFormName->MDIChildren[i]->Name == AMDIChildName){ AFormName->MDIChildren[i]->Free (); // Break; } } DirectoryForm= new TDBDirectoryTemplateForm (Application); DirectoryForm->TableDBGrid->DataSource=ds; DirectoryForm->Top=0; DirectoryForm->Left=0; DirectoryForm->Width=700; DirectoryForm->Height=200; DirectoryForm->Caption=sCaption;}void BuildaddForms (String sCaption, TDataSource *ds, TForm *AFormName, String AMDIChildName){ int i; for (int i = AFormName->MDIChildCount-1; i>=0; i—) { if (AFormName->MDIChildren[i]->Name == AMDIChildName){ AFormName->MDIChildren[i]->Free (); // Break; } } ProsmForm= new Taddforms (Application); ProsmForm->Top=230; ProsmForm->Left=0; ProsmForm->Width=700; ProsmForm->Height=200; ProsmForm->Caption=sCaption;}void BuildPoiskForms (String sCaption, TDataSource *ds, TForm *AFormName, String AMDIChildName){ int i; for (int i = AFormName->MDIChildCount-1; i>=0; i—) { if (AFormName->MDIChildren[i]->Name == AMDIChildName){ AFormName->MDIChildren[i]->Free (); // Break; } } Poisk= new Tparampoiskform (Application); Poisk->Top=50; Poisk->Left=400; Poisk->Width=400; Poisk->Height=400; Poisk->Caption=sCaption;}void __fastcall Tmainclientsform: N3Click (TObject *Sender){mainflag=false; mainclientsform->DataSource1->DataSet=mainclientsform->ADOTable1;mainclientsform->ADOTable1->Active=true;BuildGridDatabaseDirectoryItem («Товары», mainclientsform->DataSource1,mainclientsform," DBDirectoryTemplateForm"); DirectoryForm->TableDBGrid->Fields[0]->DisplayLabel="ИД.№ товар" ;DirectoryForm->TableDBGrid->Fields[1]->DisplayLabel="Наименование" ;DirectoryForm->TableDBGrid->Fields[2]->DisplayLabel="ид.размещения" ;DirectoryForm->TableDBGrid->Fields[3]->DisplayLabel="ид.дополн. информации" ;DirectoryForm->TableDBGrid->Fields[4]->DisplayLabel="ид.запасов" ;DirectoryForm->TableDBGrid->Fields[5]->DisplayLabel="ид.партии" ;}//—————————————————————————————————————-void __fastcall Tmainclientsform: N4Click (TObject *Sender){ mainflag=false; mainclientsform->DataSource1->DataSet=mainclientsform->ADOTable2;mainclientsform->ADOTable2->Active=true;//CloseaddForms («Просмотр базы данных», mainclientsform->DataSource1,mainclientsform," addforms");BuildGridDatabaseDirectoryItem («Накладные», mainclientsform->DataSource1,mainclientsform," DBDirectoryTemplateForm");DirectoryForm->TableDBGrid->Fields[0]->DisplayLabel="№ накладной" ;DirectoryForm->TableDBGrid->Fields[1]->DisplayLabel="дата" ;DirectoryForm->TableDBGrid->Fields[2]->DisplayLabel="ид.товара" ;DirectoryForm->TableDBGrid->Fields[3]->DisplayLabel="откуда" ;DirectoryForm->TableDBGrid->Fields[4]->DisplayLabel="цель" ;DirectoryForm->TableDBGrid->Fields[5]->DisplayLabel="количество" ;DirectoryForm->TableDBGrid->Fields[6]->DisplayLabel="стоимость" ;DirectoryForm->TableDBGrid->Fields[7]->DisplayLabel="номер партии" ;}//—————————————————————————————————————-void __fastcall Tmainclientsform: N5Click (TObject *Sender){ mainclientsform->Close ();}//—————————————————————————————————————-void __fastcall Tmainclientsform: N6Click (TObject *Sender){ mainflag=false; mainclientsform->DataSource1->DataSet=mainclientsform->ADOTable3;mainclientsform->ADOTable3->Active=true;BuildGridDatabaseDirectoryItem («Запасы товара», mainclientsform->DataSource1,mainclientsform," DBDirectoryTemplateForm");DirectoryForm->TableDBGrid->Fields[0]->DisplayLabel="№ записи" ;DirectoryForm->TableDBGrid->Fields[1]->DisplayLabel="ед. измерения" ;DirectoryForm->TableDBGrid->Fields[2]->DisplayLabel="количество" ;DirectoryForm->TableDBGrid->Fields[3]->DisplayLabel="стоимость" ;DirectoryForm->TableDBGrid->Fields[4]->DisplayLabel="резерв. кол." ;DirectoryForm->TableDBGrid->Fields[5]->DisplayLabel="кто резерв." ;DirectoryForm->TableDBGrid->Fields[6]->DisplayLabel="дата резерв." ;DirectoryForm->TableDBGrid->Fields[7]->DisplayLabel="примечание" ;}//—————————————————————————————————————-void __fastcall Tmainclientsform: N7Click (TObject *Sender){ mainflag=false; mainclientsform->DataSource1->DataSet=mainclientsform->ADOTable4;mainclientsform->ADOTable4->Active=true;BuildGridDatabaseDirectoryItem («Заказы на товар», mainclientsform->DataSource1,mainclientsform," DBDirectoryTemplateForm");DirectoryForm->TableDBGrid->Fields[0]->DisplayLabel="№ заказа" ;DirectoryForm->TableDBGrid->Fields[1]->DisplayLabel="дата" ;DirectoryForm->TableDBGrid->Fields[2]->DisplayLabel="заказчик" ;DirectoryForm->TableDBGrid->Fields[3]->DisplayLabel="№ товара" ;DirectoryForm->TableDBGrid->Fields[4]->DisplayLabel="количество" ;}//—————————————————————————————————————-void __fastcall Tmainclientsform: N8Click (TObject *Sender){ mainflag=false; mainclientsform->DataSource1->DataSet=mainclientsform->ADOTable5;mainclientsform->ADOTable5->Active=true;BuildGridDatabaseDirectoryItem («Размещение товара», mainclientsform->DataSource1,mainclientsform," DBDirectoryTemplateForm");DirectoryForm->TableDBGrid->Fields[0]->DisplayLabel=" № записи" ;DirectoryForm->TableDBGrid->Fields[1]->DisplayLabel=" место на складе" ;DirectoryForm->TableDBGrid->Fields[2]->DisplayLabel=" уточнение размещение" ;DirectoryForm->TableDBGrid->Fields[3]->DisplayLabel=" примечание «;}//—————————————————————————————————————-void __fastcall Tmainclientsform: N9Click (TObject *Sender){ mainflag=false; mainclientsform->DataSource1->DataSet=mainclientsform->ADOTable6;mainclientsform->ADOTable6->Active=true;BuildGridDatabaseDirectoryItem („Доп. сведения“, mainclientsform->DataSource1,mainclientsform,» DBDirectoryTemplateForm"); DirectoryForm->TableDBGrid->Fields[0]->DisplayLabel="№ записи" ;DirectoryForm->TableDBGrid->Fields[1]->DisplayLabel="серийный номер" ;DirectoryForm->TableDBGrid->Fields[2]->DisplayLabel="срок годности" ;}//—————————————————————————————————————-void __fastcall Tmainclientsform: N10Click (TObject *Sender){ mainflag=false; mainclientsform->DataSource1->DataSet=mainclientsform->ADOTable7;mainclientsform->ADOTable7->Active=true;BuildGridDatabaseDirectoryItem («Партии товара», mainclientsform->DataSource1,mainclientsform," DBDirectoryTemplateForm");DirectoryForm->TableDBGrid->Fields[0]->DisplayLabel="№ записи" ;DirectoryForm->TableDBGrid->Fields[1]->DisplayLabel="№ партии" ;DirectoryForm->TableDBGrid->Fields[2]->DisplayLabel="количество" ;DirectoryForm->TableDBGrid->Fields[3]->DisplayLabel="откуда" ;DirectoryForm->TableDBGrid->Fields[4]->DisplayLabel="дата" ;DirectoryForm->TableDBGrid->Fields[5]->DisplayLabel="описание операции" ;}//—————————————————————————————————————-void __fastcall Tmainclientsform: N11Click (TObject *Sender){/* mainflag=false;// mainclientsform->DataSource1->DataSet=mainclientsform->ADOTable8;mainclientsform->ADOTable8->Active=true;BuildGridDatabaseDirectoryItem («Участие», mainclientsform->DataSource1,mainclientsform," DBDirectoryTemplateForm");*/}//—————————————————————————————————————-void __fastcall Tmainclientsform: N12Click (TObject *Sender){ mainclientsform->N3Click (Sender); mainflag=true;BuildaddForms («Просмотр базы данных», mainclientsform->DataSource1,mainclientsform," addforms"); ProsmForm->DBNavigator1->Visible=true; // addforms->GroupBox2->Visible=false;ProsmForm->GroupBox2->Visible=true; ProsmForm->GroupBox1->Visible=true; ProsmForm->GroupBox3->Visible=false; ProsmForm->GroupBox4->Visible=false; // ProsmForm->GroupBox5->Visible=false; // ProsmForm->GroupBox6->Visible=true; ProsmForm->Height=800; mainclientsform->DataSource1->DataSet->Last ();}//—————————————————————————————————————-void __fastcall Tmainclientsform: N16Click (TObject *Sender){ mainflag=false; BuildaddForms («Новый заказ», mainclientsform->DataSource1,mainclientsform," addforms"); ProsmForm->GroupBox2->Visible=false; ProsmForm->GroupBox1->Visible=false; ProsmForm->GroupBox3->Visible=true; ProsmForm->GroupBox4->Visible=false; ProsmForm->GroupBox3->Left=5; ProsmForm->GroupBox3->Top=5; // ProsmForm->GroupBox5->Visible=false; // ProsmForm->GroupBox6->Visible=false; ProsmForm->Height=400;}//—————————————————————————————————————-void __fastcall Tmainclientsform: N17Click (TObject *Sender){ mainflag=false; BuildaddForms («Добавить зал», mainclientsform->DataSource1,mainclientsform," addforms"); ProsmForm->GroupBox2->Visible=false; ProsmForm->GroupBox3->Visible=false; ProsmForm->GroupBox4->Visible=true; ProsmForm->GroupBox1->Visible=false; ProsmForm->Height=400;}//—————————————————————————————————————-void __fastcall Tmainclientsform: N18Click (TObject *Sender){ mainflag=false; BuildaddForms («Заявка / содержание», mainclientsform->DataSource1,mainclientsform," addforms"); ProsmForm->GroupBox1->Visible=false; ProsmForm->GroupBox2->Visible=false; ProsmForm->GroupBox3->Visible=true; ProsmForm->GroupBox4->Visible=false; ProsmForm->Height=400;}//—————————————————————————————————————-void __fastcall Tmainclientsform: N19Click (TObject *Sender){ mainflag=false; BuildaddForms («Обеспечение / участники», mainclientsform->DataSource1,mainclientsform," addforms"); ProsmForm->GroupBox1->Visible=false; ProsmForm->GroupBox2->Visible=false; ProsmForm->GroupBox3->Visible=false; ProsmForm->GroupBox4->Visible=true; ProsmForm->Height=400;}//—————————————————————————————————————-void __fastcall Tmainclientsform: N14Click (TObject *Sender){/// mainflag=false; BuildaddForms («Поступление товара», mainclientsform->DataSource1,mainclientsform," addforms"); ProsmForm->GroupBox1->Visible=false; ProsmForm->GroupBox2->Visible=true; ProsmForm->GroupBox3->Visible=false; ProsmForm->GroupBox4->Visible=false; ProsmForm->DBNavigator1->Visible=false; ProsmForm->Height=400;}//—————————————————————————————————————-void __fastcall Tmainclientsform: DataSource1DataChange (TObject *Sender, TField *Field){if (mainflag) { ProsmForm->Edit1->Text=""; ProsmForm->Edit2->Text=""; ProsmForm->Edit3->Text=""; ProsmForm->Edit4->Text=""; ProsmForm->Edit5->Text=""; ProsmForm->Edit6->Text="1″; ProsmForm->Edit7->Text="1″; ProsmForm->Edit9->Text="1″; ProsmForm->Edit10->Text="1″; ProsmForm->Edit8->Text="2012″; ProsmForm->Edit11->Text="2012″; ProsmForm->Edit12->Text=""; ProsmForm->Edit13->Text=""; ProsmForm->Edit14->Text=""; ProsmForm->Edit15->Text=""; ProsmForm->Edit16->Text=""; ProsmForm->Edit17->Text=""; ProsmForm->Edit18->Text=""; ProsmForm->Edit19->Text=""; ProsmForm->Edit20->Text=""; ProsmForm->Edit21->Text=""; ProsmForm->Edit22->Text=""; ProsmForm->Edit23->Text=""; //из таблицы ProsmForm->Edit1->Text=mainclientsform->DataSource1->DataSet->FieldByName («nameTovar»)->AsString;int idLocation=mainclientsform->DataSource1->DataSet->FieldByName («idLocation»)->AsInteger;int idAddional=mainclientsform->DataSource1->DataSet->FieldByName («idAddional»)->AsInteger;int idZapas=mainclientsform->DataSource1->DataSet->FieldByName («idZapas»)->AsInteger;int idPartiya=mainclientsform->DataSource1->DataSet->FieldByName («idPartiya»)->AsInteger; // размещение TLocateOptions Options;Options << loPartialKey, loCaseInsensitive;mainclientsform->ADOTable5->Locate («idLocation», idLocation, Options); ProsmForm->Edit14->Text= mainclientsform->ADOTable5->FieldByName («Location»)->AsString; ProsmForm->Edit15->Text= mainclientsform->ADOTable5->FieldByName («addional_location»)->AsString; ProsmForm->Edit16->Text= mainclientsform->ADOTable5->FieldByName («notes»)->AsString; mainclientsform->ADOTable6->Locate («idAddional», idAddional, Options); ProsmForm->Edit5->Text= mainclientsform->ADOTable6->FieldByName («Ser_num»)->AsString; TDateTime rezdate= mainclientsform->ADOTable6->FieldByName («srok_godnost»)->AsDateTime; Word Ayear, amonth, aday; DecodeDate (rezdate, Ayear, amonth, aday);if (Ayear>2000) { ProsmForm->Edit6->Text=IntToStr (aday); ProsmForm->Edit7->Text=IntToStr (amonth);ProsmForm->Edit8->Text=IntToStr (Ayear);} mainclientsform->ADOTable3->Locate («idZapas», idZapas, Options); ProsmForm->ComboBox1->Text= mainclientsform->ADOTable3->FieldByName («Izmerenie»)->AsString; ProsmForm->Edit2->Text=IntToStr (mainclientsform->ADOTable3->FieldByName («zapas»)->AsInteger); ProsmForm->Edit3->Text=FloatToStr (mainclientsform->ADOTable3->FieldByName («stoimost»)->AsFloat); ProsmForm->Edit19->Text= mainclientsform->ADOTable3->FieldByName («rezerv_name»)->AsString; ProsmForm->Edit23->Text= mainclientsform->ADOTable3->FieldByName («rezerv_prim»)->AsString; ProsmForm->Edit18->Text=IntToStr (mainclientsform->ADOTable3->FieldByName («rezerv_kol»)->AsInteger); rezdate= mainclientsform->ADOTable3->FieldByName («rezerv_date»)->AsDateTime; DecodeDate (rezdate, Ayear, amonth, aday);if (Ayear>2000) { ProsmForm->Edit20->Text=IntToStr (aday); ProsmForm->Edit21->Text=IntToStr (amonth);ProsmForm->Edit22->Text=IntToStr (Ayear);} mainclientsform->ADOTable7->Locate («idPartiya», idPartiya, Options); ProsmForm->Edit4->Text= mainclientsform->ADOTable7->FieldByName («Nom_part»)->AsString; ProsmForm->Edit13->Text= mainclientsform->ADOTable7->FieldByName («description»)->AsString; ProsmForm->Edit13->Text= mainclientsform->ADOTable7->FieldByName («otkuda»)->AsString; rezdate= mainclientsform->ADOTable7->FieldByName («kogda»)->AsDateTime;if (Ayear>2000) { ProsmForm->Edit9->Text=IntToStr (aday); ProsmForm->Edit10->Text=IntToStr (amonth);ProsmForm->Edit11->Text=IntToStr (Ayear);} }}//—————————————————————————————————————-void __fastcall Tmainclientsform: N20Click (TObject *Sender){nomer_poisk=1; int i; for (int i = mainclientsform->MDIChildCount-1; i>=0; i—) { if (mainclientsform->MDIChildren[i]->Name == «addforms»){ mainclientsform->MDIChildren[i]->Free ();} } for (int i = mainclientsform->MDIChildCount-1; i>=0; i—) { if (mainclientsform->MDIChildren[i]->Name == «DBDirectoryTemplateForm»){ mainclientsform->MDIChildren[i]->Free ();} }//BuildPoiskForms («Параметры поиска», mainclientsform->DataSource1,mainclientsform," parampoiskform"); Poisk->GroupBox2->Visible=false; Poisk->GroupBox1->Visible=true;}//—————————————————————————————————————-void __fastcall Tmainclientsform: N23Click (TObject *Sender){ nomer_poisk=4; int i; for (int i = mainclientsform->MDIChildCount-1; i>=0; i—) { if (mainclientsform->MDIChildren[i]->Name == «addforms»){ mainclientsform->MDIChildren[i]->Free ();} } for (int i = mainclientsform->MDIChildCount-1; i>=0; i—) { if (mainclientsform->MDIChildren[i]->Name == «DBDirectoryTemplateForm»){ mainclientsform->MDIChildren[i]->Free ();} }BuildPoiskForms («Параметры поиска», mainclientsform->DataSource1,mainclientsform," parampoiskform"); Poisk->GroupBox1->Visible=false; Poisk->GroupBox2->Visible=true;}//—————————————————————————————————————-void __fastcall Tmainclientsform: N22Click (TObject *Sender){ nomer_poisk=3; int i; for (int i = mainclientsform->MDIChildCount-1; i>=0; i—) { if (mainclientsform->MDIChildren[i]->Name == «addforms»){ mainclientsform->MDIChildren[i]->Free ();} } for (int i = mainclientsform->MDIChildCount-1; i>=0; i—) { if (mainclientsform->MDIChildren[i]->Name == «DBDirectoryTemplateForm»){ mainclientsform->MDIChildren[i]->Free ();} }//BuildPoiskForms («Параметры поиска», mainclientsform->DataSource1,mainclientsform," parampoiskform"); Poisk->GroupBox2->Visible=true; Poisk->Label1->Caption="Невыполненные мероприятия"; Poisk->GroupBox1->Caption="Невыполненные мероприятия"; Poisk->GroupBox1->Visible=false;}//—————————————————————————————————————-void __fastcall Tmainclientsform: N21Click (TObject *Sender){ nomer_poisk=2; int i; for (int i = mainclientsform->MDIChildCount-1; i>=0; i—) { if (mainclientsform->MDIChildren[i]->Name == «addforms»){ mainclientsform->MDIChildren[i]->Free ();} } for (int i = mainclientsform->MDIChildCount-1; i>=0; i—) { if (mainclientsform->MDIChildren[i]->Name == «DBDirectoryTemplateForm»){ mainclientsform->MDIChildren[i]->Free ();} }//BuildPoiskForms («Параметры поиска», mainclientsform->DataSource1,mainclientsform," parampoiskform"); Poisk->GroupBox2->Visible=false; Poisk->GroupBox1->Visible=true;Poisk->GroupBox1->Caption=" Размещение товара" ;}//—————————————————————————————————————-void __fastcall Tmainclientsform: N24Click (TObject *Sender){ nomer_poisk=5; int i; for (int i = mainclientsform->MDIChildCount-1; i>=0; i—) { if (mainclientsform->MDIChildren[i]->Name == «addforms»){ mainclientsform->MDIChildren[i]->Free ();} } for (int i = mainclientsform->MDIChildCount-1; i>=0; i—) { if (mainclientsform->MDIChildren[i]->Name == «DBDirectoryTemplateForm»){ mainclientsform->MDIChildren[i]->Free ();} }//BuildPoiskForms («Параметры поиска», mainclientsform->DataSource1,mainclientsform," parampoiskform"); Poisk->GroupBox1->Visible=true; Poisk->Label1->Caption="Составление расписания"; Poisk->GroupBox1->Caption="Составление расписания"; Poisk->Button1->Caption="Составление расписания"; Poisk->Button1Click (Sender); Poisk->GroupBox2->Visible=false;}//—————————————————————————————————————-void __fastcall Tmainclientsform: FormCreate (TObject *Sender){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;}//—————————————————————————————————————-Модуль add. cpp//—————————————————————————————————————-#include #pragma hdrstop#include «main.h» #include «add.h» //—————————————————————————————————————-#pragma package (smart_init)#pragma resource «*.dfm» Taddforms *addforms;String Fam, Name1, Sec_Name, Dep, Dolg, Tel, Adres;String Naimen, Proekc, Inter, Comput, Notes;String Ucast, Obesp;int Mesto, Kodzaka;String Technika, Organiz, Content, Target, Firma;TDateTime Date1, Date2, Cont, Vremya;int kodzayav, koduch, kodvid, kodzal, kodob, kodsod, otvup, otgot;//—————————————————————————————————————-__fastcall Taddforms: Taddforms (TComponent* Owner): TForm (Owner){}//—————————————————————————————————————-void __fastcall Taddforms: FormClose (TObject *Sender, TCloseAction &Action){ Action=caFree;}//—————————————————————————————————————-void __fastcall Taddforms: Button1Click (TObject *Sender){String naim=Edit1->Text;String ed_izm=ComboBox1->Text;int kolvo=StrToInt (Edit2->Text);double cena=StrToFloat (Edit3->Text);String nomerpartiya=Edit4->Text;String sernum=Edit5->Text;String postavchik=Edit12->Text;String description=Edit13->Text;String location=Edit14->Text;String location_part=Edit15->Text;String primech=Edit16->Text;int Ayear=StrToInt (Edit8->Text);int amonth= StrToInt (Edit7->Text);int aday= StrToInt (Edit6->Text);TDateTime srok_godnost=EncodeDate (Ayear, amonth, aday); Ayear=StrToInt (Edit11->Text);amonth= StrToInt (Edit10->Text);aday= StrToInt (Edit9->Text);TDateTime data_postavka =EncodeDate (Ayear, amonth, aday);int razmer_part=StrToInt (Edit17->Text);if (naim≠"") {mainclientsform->ADOTable7->Active=true;mainclientsform->ADOTable7->Insert ();mainclientsform->ADOTable7->FieldByName («Nom_part»)->AsString=nomerpartiya;mainclientsform->ADOTable7->FieldByName («kolichestvo»)->AsInteger= razmer_part;mainclientsform->ADOTable7->FieldByName («otkuda»)->AsString= postavchik;mainclientsform->ADOTable7->FieldByName («kogda»)->AsDateTime=data_postavka;mainclientsform->ADOTable7->FieldByName («description»)->AsString=description;mainclientsform->ADOTable7->Post ();int id_part=mainclientsform->ADOTable7->FieldByName («IdPartiya»)->AsInteger;mainclientsform->ADOTable6->Active=true;mainclientsform->ADOTable6->Insert ();mainclientsform->ADOTable6->FieldByName («ser_num»)->AsString= sernum;mainclientsform->ADOTable6->FieldByName («srok_godnost»)->AsDateTime=srok_godnost;mainclientsform->ADOTable6->Post ();int idaddional= mainclientsform->ADOTable6->FieldByName («idaddional»)->AsInteger;mainclientsform->ADOTable5->Active=true;mainclientsform->ADOTable5->Insert ();mainclientsform->ADOTable5->FieldByName («Location»)->AsString= location;mainclientsform->ADOTable5->FieldByName («addional_location»)->AsString= location_part;mainclientsform->ADOTable5->FieldByName («notes»)->AsString= primech;mainclientsform->ADOTable5->Post ();int idlocation= mainclientsform->ADOTable5->FieldByName («IdLocation»)->AsInteger;mainclientsform->ADOTable1->Active=true;mainclientsform->ADOTable3->Active=true;mainclientsform->ADOTable3->Insert ();mainclientsform->ADOTable3->FieldByName («Izmerenie»)->AsString =ed_izm;mainclientsform->ADOTable3->FieldByName («zapas»)->AsInteger =kolvo;mainclientsform->ADOTable3->FieldByName («stoimost»)->AsFloat =kolvo*cena;mainclientsform->ADOTable3->Post ();int idzapas=mainclientsform->ADOTable3->FieldByName («idZapas»)->AsInteger;mainclientsform->ADOTable1->Insert ();mainclientsform->ADOTable1->FieldByName («nameTovar»)->AsString= naim;mainclientsform->ADOTable1->FieldByName («idLocation»)->AsInteger=idlocation;mainclientsform->ADOTable1->FieldByName («idAddional»)->AsInteger= idaddional;mainclientsform->ADOTable1->FieldByName («idPartiya»)->AsInteger= id_part;mainclientsform->ADOTable1->FieldByName («idZapas»)->AsInteger= idzapas;mainclientsform->ADOTable1->Post (); }}//—————————————————————————————————————-void __fastcall Taddforms: Button2Click (TObject *Sender){ String tovar=Edit24->Text;mainclientsform->DataSource1->DataSet=mainclientsform->ADOQuery2;mainclientsform->ADOQuery2->Active=false;mainclientsform->ADOQuery2->SQL->Clear (); TParameter *P1;String stroka_SQL, S; P1=mainclientsform->ADOQuery2->Parameters->AddParameter (); P1->Name="P1″; P1->DataType = ftString; stroka_SQL="" ;if (Edit24->Text≠""){ S=Edit24->Text; P1->Name="P1″; P1->DataType=ftString; P1->Direction = ptInput; S="%" + S+" %"; P1->Value=S; P1->Value=S; stroka_SQL="select * from tovar where tovar. nametovar like: P1″ ;mainclientsform->ADOQuery2->SQL->Add (stroka_SQL);}if (stroka_SQL≠"") {mainclientsform->ADOQuery2->Active=true;mainclientsform->ADOQuery2->ExecSQL ();} int kol;kol= mainclientsform->ADOQuery2->RecordCount;if (kol ≠0) {int idtov=mainclientsform->ADOQuery2->FieldByName («idtovar»)->AsInteger;mainclientsform->ADOTable4->Active=true;mainclientsform->ADOTable4->Insert ();mainclientsform->ADOTable4->FieldByName («idTovar»)->AsInteger=idtov;mainclientsform->ADOTable4->FieldByName («kolichestvo»)->AsInteger=StrToInt (Edit29->Text);mainclientsform->ADOTable4->FieldByName («lico»)->AsString=Edit28->Text;int Ayear=StrToInt (Edit27->Text);int amonth= StrToInt (Edit26->Text);int aday= StrToInt (Edit25->Text); TDateTime srok_godnost=EncodeDate (Ayear, amonth, aday);mainclientsform->ADOTable4->FieldByName («kogda»)->AsDateTime=srok_godnost;mainclientsform->ADOTable4->Post (); }}//—————————————————————————————————————-void __fastcall Taddforms: Button3Click (TObject *Sender){ String tovar=Edit24->Text;mainclientsform->DataSource1->DataSet=mainclientsform->ADOQuery2;mainclientsform->ADOQuery2->Active=false;mainclientsform->ADOQuery2->SQL->Clear (); TParameter *P1;String stroka_SQL, S; P1=mainclientsform->ADOQuery2->Parameters->AddParameter (); P1->Name="P1″; P1->DataType = ftString; stroka_SQL="" ;if (Edit33->Text≠""){ S=Edit33->Text; P1->Name="P1″; P1->DataType=ftString; P1->Direction = ptInput; S="%" + S+" %"; P1->Value=S; // P1->Size=Length (S); P1->Value=S; stroka_SQL="select * from tovar where tovar. nametovar like: P1″ ;mainclientsform->ADOQuery2->SQL->Add (stroka_SQL);mainclientsform->ADOQuery2->Active=true;mainclientsform->ADOQuery2->ExecSQL ();}int kol;kol= mainclientsform->ADOQuery2->RecordCount;if (kol ≠0) {int idtov=mainclientsform->ADOQuery2->FieldByName («idtovar»)->AsInteger;mainclientsform->ADOTable2->Active=true;mainclientsform->ADOTable2->Insert ();mainclientsform->ADOTable2->FieldByName («idTovar»)->AsInteger=idtov;mainclientsform->ADOTable2->FieldByName («kolichestvo»)->AsInteger=StrToInt (Edit35->Text);mainclientsform->ADOTable2->FieldByName («Lico»)->AsString=Edit34->Text;mainclientsform->ADOTable2->FieldByName («stoimost»)->AsFloat=StrToFloat (Edit37->Text);mainclientsform->ADOTable2->FieldByName («otkuda»)->AsString=Edit36->Text;mainclientsform->ADOTable2->FieldByName («kuda»)->AsString=Edit38->Text;mainclientsform->ADOTable2->FieldByName («idPartiya»)->AsInteger= StrToInt (Edit39->Text);mainclientsform->ADOTable2->FieldByName («IdZakaz»)->AsInteger= StrToInt (Edit40->Text);mainclientsform->ADOTable2->FieldByName («provodka»)->AsString="N" ;int Ayear=StrToInt (Edit32->Text);int amonth= StrToInt (Edit31->Text);int aday= StrToInt (Edit30->Text);TDateTime srok_godnost=EncodeDate (Ayear, amonth, aday);mainclientsform->ADOTable2->FieldByName («vremya»)->AsDateTime=srok_godnost;mainclientsform->ADOTable2->Post (); }}//—————————————————————————————————————-void __fastcall Taddforms: Button4Click (TObject *Sender){ Ucast=Edit24->Text; Obesp=Edit25->Text; Firma=Edit26->Text; Date1=StrToDate (Edit27->Text); Date2=StrToDate (Edit28->Text);}//—————————————————————————————————————-МодульChildTemlate#pragma hdrstop #include «main.h» #include «ChildTemlate.h» //—————————————————————————————————————-#pragma package (smart_init)#include #include #pragma resource «*.dfm» TChildTemplateForm *ChildTemplateForm; Variant vVarApp, vVarBooks, vVarBook, vVarSheets, vVarSheet, vVarCell;//—————————————————————————————————————-__fastcall TChildTemplateForm: TChildTemplateForm (TComponent* Owner): TForm (Owner){}//—————————————————————————————————————-void __fastcall TChildTemplateForm: FormClose (TObject *Sender, TCloseAction &Action){ Action=caFree; }//—————————————————————————————————————-void __fastcall TChildTemplateForm: Button1Click (TObject *Sender){ vVarApp=CreateOleObject («Excel.Application»); Variant ws = Unassigned;AnsiString put = ExtractFilePath (Application->ExeName);const AnsiString asFileName (put + «zayavka.xlt»);vVarApp.OlePropertySet («Visible», true);vVarApp.OlePropertyGet («Workbooks»).OleProcedure («Open», asFileName. c_str ());ws = vVarApp. OlePropertyGet («Worksheets»).OlePropertyGet («Item», 1); mainclientsform->ADOQuery2->First ();int i = 1; // pervaya stroka v Excelint j; // perviy stolbecwhile (!mainclientsform->ADOQuery2->Eof) { j = 0; String A= mainclientsform->ADOQuery2->FieldByName («время»)->AsString; ws. OlePropertyGet («Cells»).OlePropertyGet («Cells», i+5, 3).OlePropertySet («Value», WideString (A)); A= mainclientsform->ADOQuery2->FieldByName («Содержание.

наименование")->AsString; ws. OlePropertyGet («Cells»).OlePropertyGet («Cells», i+5, 4).OlePropertySet («Value», WideString (A)); A= mainclientsform->ADOQuery2->FieldByName («цели»)->AsString; ws. OlePropertyGet («Cells»).OlePropertyGet («Cells», i+5, 5).OlePropertySet («Value», WideString (A)); A= mainclientsform->ADOQuery2->FieldByName («Фамилия»)->AsString; ws. OlePropertyGet («Cells»).OlePropertyGet («Cells», i+5, 6).OlePropertySet («Value», WideString (A)); A= mainclientsform->ADOQuery2->FieldByName («Зал.наименование»)->AsString; ws. OlePropertyGet («Cells»).OlePropertyGet («Cells», i+5, 7).OlePropertySet («Value», WideString (A)); A= DateToStr (mainclientsform->ADOQuery2->FieldByName («дата»)->AsString); ws. OlePropertyGet («Cells»).OlePropertyGet («Cells», i+5, 2).OlePropertySet («Value», WideString (A)); // ws. OlePropertyGet («Cells»).OlePropertyGet («Item», i, j).OlePropertySet («Value», WideString (A));// for (int k=0; k<4; k++)//ws.OlePropertyGet («Cells»).OlePropertyGet («Item», i, j++).OlePropertySet («Value», DateToStr (mainclientsform->ADOQuery2->FieldByName («дата»)->AsDateTime)); i++; mainclientsform->ADOQuery2->Next ();}}//—————————————————————————————————————-//—————————————————————————————————————-#include #include «main.h» #include «ChildTemlate.h» #pragma hdrstop#include «parampoisk.h» //—————————————————————————————————————-#pragma package (smart_init)#pragma resource «*.dfm» #include «main.h» extern nomer_poisk;extern Poisk;Tparampoiskform *parampoiskform;TParameter *P1;TParameter *P2;String stroka_SQL, S;TDateTime Data;//—————————————————————————————————————-__fastcall Tparampoiskform: Tparampoiskform (TComponent* Owner): TForm (Owner){}//—————————————————————————————————————-void __fastcall Tparampoiskform: FormClose (TObject *Sender, TCloseAction &Action){Action=caFree;}void BuildChildForms (String sCaption, TDataSource *ds, TForm *AFormName, String AMDIChildName){ int i; for (int i = AFormName->MDIChildCount-1; i>=0; i—) { if (AFormName->MDIChildren[i]->Name == AMDIChildName){ AFormName->MDIChildren[i]->Free (); // Break; } } ChildTemplateForm= new TChildTemplateForm (Application); ChildTemplateForm->Top=230; ChildTemplateForm->Left=0; ChildTemplateForm->Width=1200; ChildTemplateForm->Height=200; ChildTemplateForm->Caption=sCaption;}//—————————————————————————————————————-void __fastcall Tparampoiskform: Button1Click (TObject *Sender){BuildChildForms («Результаты поиска», mainclientsform->DataSource1,mainclientsform," ChildTemplateForm"); ChildTemplateForm->Left=0; ChildTemplateForm->Top=3; mainclientsform->DataSource1->DataSet=mainclientsform->ADOQuery2; mainclientsform->ADOQuery2->Active=false; mainclientsform->ADOQuery2->SQL->Clear (); if (nomer_poisk ==1) { P1=mainclientsform->ADOQuery2->Parameters->AddParameter (); S=Edit3->Text; P1->Name="P1″; P1->DataType=ftString; P1->Direction = ptInput; S="%" + S+" %"; P1->Value=S; // P1->Size=Length (S); P1->Value=S; ChildTemplateForm->Label1->Caption="Информация о товаре: «+Edit3->Text; stroka_SQL="select * from zapas where (zapas.idzapas = (select tovar. idzapas from tovar where tovar. nametovar like: P1))»; if (stroka_SQL≠"") { mainclientsform->ADOQuery2->SQL->Add (stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL (); } } if (nomer_poisk ==2){ P1=mainclientsform->ADOQuery2->Parameters->AddParameter (); S=Edit3->Text; P1->Name="P1″; P1->DataType=ftString; P1->Direction = ptInput; S="%" + S+" %"; P1->Value=S; P1->Value=S; ChildTemplateForm->Label1->Caption="Информация о размещении товара: «+Edit3->Text; stroka_SQL="select * from location where (location.idlocation = (select tovar. idlocation from tovar where tovar. nametovar like: P1))»; if (stroka_SQL≠"") { mainclientsform->ADOQuery2->SQL->Add (stroka_SQL); mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL (); } } if (nomer_poisk ==3) { P1 =mainclientsform->ADOQuery2->Parameters->AddParameter (); P1->Name="P1″; P1->DataType = ftDateTime; Word ayear= StrToInt (Edit5->Text);Word amonth=StrToInt (Edit4->Text);Word aday=StrToInt (Edit2->Text);TDateTime timenach=EncodeDate (ayear, amonth, aday); ayear= StrToInt (Edit8->Text);amonth=StrToInt (Edit7->Text);aday=StrToInt (Edit6->Text);TDateTime timekon=EncodeDate (ayear, amonth, aday); P2 =mainclientsform->ADOQuery2->Parameters->AddParameter (); P2->Name="P2″; P2->DataType = ftDateTime; P1->Value = timenach; P2->Value = timekon;stroka_SQL="select * from Nakladnaya where (Nakladnaya.vremya > :P1) and (nakladnaya.vremya < :P2)"; mainclientsform->ADOQuery2->SQL->Add (stroka_SQL);if (stroka_SQL≠"") { mainclientsform->ADOQuery2->Active=true; mainclientsform->ADOQuery2->ExecSQL (); }}}//—————————————————————————————————————;