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

ВВЕДЕНИЕ
Глава 1. Общая часть
1.1Проблема автоматизированного учета продаж на предприятии
1.1.1 Краткая характеристика предприятия
1.1.2.Характеристика организации процессов учета на предприятии
1.1.3 Цели создания системы автоматизированной системы
1.2 Проблемы и тенденции развития информационных систем в области учета движения материальных средств
1.3 Постановка задач, решаемых в дипломном проекте
2 Специальная часть
2.1. Формирование требований к системе
2.2. Функциональная модель ПО
2.3. Характеристика информационных потоков
2.4. Построение информационно-логической модели
2.5. Проектирование пользовательского интерфейса
Выводы
3. Технико-экономическое обоснование работы
3.1 Анализ источников экономической эффективности
3.2 Оценка экономической эффективности разработки компьютерной программы
Выводы
4. ОХРАНА ТРУДА И ТЕХНИКА БЕЗОПАСНОСТИ
4.1. Характеристика лаборатории
4.2. Опасные и вредные факторы
4.3. Безопасность выполнения работы
4.4. Микроклимат
4.5. Вентиляция и отопление
4.6. Освещение
4.6.1. Боковое естественное освещение
4.6.2. Искусственное общее освещение
4.7. Шум и вибрация
4.8. Электробезопасность
4.9. Защита от статического электричества
4.10. Молниезащита
4.11. Пожарная профилактика и средства пожаротушения
4.12. Экологичность выполнения работы
4.13. Расчеты
4.13.1. Расчет категории пожарной опасности.
4.13.2. Расчет освещенности помещения
4.13.3. Расчет молниезащиты
ЗАКЛЮЧЕНИЕ
СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ
Приложение 1
Листинг программы

Определим необходимую площадь световых проемов. Площадь пола помещения S = 35м2. Нормированное значение коэффициента естественного освещения: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 <vcl.h>#include <string.h>#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 <vcl.h>#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 <ComObj.hpp>#include <utilcls.h>#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 <vcl.h>#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(); }}}//---------------------------------------------------------------------------