Автоматизация взаимоотношений с клиентами в ООО "КСК".

СОДЕРЖАНИЕ
1. ТЕХНИКО-ЭКОНОМИЧЕСКАЯ ХАРАКТЕРИСТИКА ПРЕДМЕТНОЙ ОБЛАСТИ И ПРЕДПРИЯТИЯ. АНАЛИЗ ДЕЯТЕЛЬНОСТИ “КАК ЕСТЬ”
1.1 Характеристика предприятия и его деятельности
1.1.2 Организационная структура управления предприятием
1.1.3 Программная и техническая архитектура ИС предприятия
1.2 Характеристика комплекса задач, задачи и обоснование необходимости автоматизации
1.2.1 Выбор комплекса задач автоматизации и характеристика существующих бизнес процессов
1.2.2 Определение места проектируемой задачи в комплексе задач и ее
описание
1.2.3 Обоснование необходимости использования вычислительной техники для решения задачи
1.2.4 Анализ системы обеспечения информационной безопасности и защиты информации
1.3 Анализ существующих разработок и выбор стратегии автоматизации
1.3.1 Анализ существующих разработок для автоматизации задачи
1.3.2 Выбор и обоснование стратегии автоматизации задачи
1.3.3 Выбор и обоснование способа приобретения ИС для автоматизации
задачи
1.4 Обоснование проектных решений
1.4.1 Обоснование проектных решений по информационному обеспечению
1.4.2 Обоснование проектных решений по программному обеспечению
1.4.3 Обоснование проектных решений по техническому обеспечению
II ПРОЕКТНАЯ ЧАСТЬ
2.1 Разработка проекта автоматизации
2.1.1 Этапы жизненного цикла проекта автоматизации
2.1.2 Ожидаемые риски на этапах жизненного цикла и их описание
2.1.3 Организационно-правовые и программно-аппаратные средства обеспечения информационной безопасности и защиты информации
2.2 Информационное обеспечение задачи
2.2.1 Информационная модель и её описание
2.2.2. Характеристика нормативно-справочной, входной и оперативной информации
2.2.3 Характеристика результатной информации
2.3 Описание программного проекта
2.3.1.Общие положения
2.3.2. Характеристика базы данных
2.3.3 Структурная схема пакета
2.3.4 Описание программных модулей
2.4 Контрольный пример реализации проекта и его описание
III ОБОСНОВАНИЕ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ ПРОЕКТА
3.1 Выбор и обоснование методики расчёта экономической эффективности
3.2 Расчёт показателей экономической эффективности проекта
ЗАКЛЮЧЕНИЕ
ЛИТЕРАТУРА
ПРИЛОЖЕНИЕ Листинг разработанной программы

(3.12)Индекс изменения трудовых затрат или повышение производительности труда (Yт) вычислим используя соотношения (3.3):Yт =1200/211=5.68 . (3.13)Расчет стоимостных показателей по базовому и проектируемому варианту:А. Базовый вариант1. Материальные затраты:В материальные затраты на обработку информации включаются затраты на расходные материалы. Посчитано, что ежемесячно на это необходимо расходовать 350 рублей.Картриджи: 1 шт. х 500 руб. = 500 руб.;Итого: 850 руб. в месяцСоответственно на год потребуется:850 х 12 = 10200 руб.2.Трудовые затраты.Количество работников - 1 человека.сотрудника – 250руб./час. * 100 час. = 25000 рублей в месяц.Фонд заработной платы за год составляет:25000 х 12 = 300000 руб.Всего затраты на базовый вариант обработки информации составляет:Сб =300000+10200=310200 руб.Б. Проектный вариант.1. Материальные затраты:В материальные затраты на обработку информации включаются следующие расходные материалы:- картриджи 1 шт. х 500 руб. = 500 руб.;- бумага 1 шт. х 105 руб. = 105 руб.;Итого: 605 руб. в месяцСоответственно на год потребуется:605 х 12 = 7260 руб.2.Трудовые затраты.Количество работников - 1 человека. ФОТ (Фонд оплаты труда) сотрудника – 250 руб./час. * 12,5 = 3125 рублей в месяц.Фонд заработной платы за год составляет:3125 x12= 37500 руб.3.Накладные расходы (в данном случае состоят из суммы стоимости потреблённой электроэнергии):2500Кв/ч*1,50руб.=37500,00 руб.Сопровождение - 30000 руб. в год.Срок действия проекта - 7 лет, тогда амортизационные отчисления составят 14,28% (100% / 7) от капитальных вложений.Капитальные вложения (инвестиции) в создание проекта.Сводный инвестиционный план проекта, таким образом, суммарные затраты стоимость проекта равна 207750,00 руб.Сумма амортизационных начислений 14,28% от капитальных вложений:207750,00 х 0, 14 = 29085,00 руб.Всего затраты на автоматизированную обработку информации составляют:Сп = 7260+37500+37500+30000+29085= 141345 руб.Рассчитаем значение стоимостных показателей:Абсолютное снижение стоимостных затрат(∆С), вычисляем используя соотношения (3.4):∆С =310200- 141345= 168855 руб. . (3.14)Коэффициента относительного снижения стоимостных затрат (Кс) определяется по формуле (3.5):Кс=168855/310200*100%=54,4% . (3.15)Для вычисления индекса изменения стоимостных затрат (Yc) использовать соотношение (3.6):Yc=310200/141345=2,19 . (3.16)Определим экономическую эффективность от системы. Это отношение экономического эффекта, полученного за определённый период времени от вложения капитала (или от внедрения мероприятий), к объёму вложенного капитала, обеспечившего внедрение мероприятий и получение экономического эффекта.Экономический эффект представляет собой чистый доход (прибыль), т. е. цена минус себестоимость.Расчет экономической эффективности при помощи (3.8) примет вид:Е =168855/207750=0,81 . (3.17)Эффективность капитальных затрат определяется сроком окупаемости (Т) дополнительных капитальных затрат на модернизацию информационной системы:Срок окупаемости определяется, как обратная величина Е (3.7)Т = 1 /0,81 = 1,2 . (3.18)Экономические показатели, полученные в результате дипломного проектирования, представлены в таблице 3.1:Таблица 3.3 Экономические показатели проектаНаименование показателей эффективностиЕд. измеренияРезультатНеобходимые инвестиции на разработку системыруб.178221,00Годовые затраты на планирование продаж при базовом вариантеруб.310200,00Годовые затраты на автоматизированное на планирование продажруб.191345,00Годовой экономический эффектруб.168855,00Экономическая эффективность проекта0,81Срок окупаемости проекталет1,2Получив все необходимые расчетные показатели, для наглядности, составим графические диаграммы, представленные на рисунке 3.1 (сравнительная диаграмма трудовых затрат) и 3.2 - сравнительная диаграмма стоимостных затрат.Рис. 3.1. Cравнительная диаграмма трудовых затратРис. 3.2. Сравнительная диаграмма стоимостных затратЗАКЛЮЧЕНИЕВ дипломном проекте была спроектирована и разработана система автоматизации взаимоотношений с клиентами в ООО "КСК".Динамический процесс проектирования системы происходил в несколько стадий.На этапе обследования была рассмотрена общая характеристика объекта автоматизации, его организационная структура и организация работы. На основе анализа сформированы и обоснованы требования к работе системы и к ее отдельным компонентам: программному, информационному, техническому.На стадии проектирования разработана общая структура информационной системы в целом, а также по каждой отдельной ее задаче. Определены основные проектные решения, что стало основанием для разработки, отладки программной части и для конструирования эксплуатационной документации.В качестве средства для разработки программного проекта была выбрана RAD система Builder C++ , в качестве средства разработки баз данных СУБД Microsoft SQL Server 2008 Developer. Для нормальной работы системы необходима два варианта конфигурации оборудования – серверной станции и клиентской станции. В качестве модели жизненного цикла системы выбрана каскадная модель. Разработка велась в соответствии состандартом ІEEE 1074.Cистема автоматизации взаимоотношений с клиентами в ООО "КСК"позволит повысить производительность труда менеджера, увеличит объем продаваемой продукции на 25%, увеличит прибыль фирмы на 10%, сократить время работы менеджера с документами, и поиск заявок в среднем на 25% за счет автоматического анализа информации, имеющейся в базе данных.Использование информационной системы позволит более глубоко и в полном объеме собирать и анализировать необходимую информацию о заявках на техническое обслуживание и ремонт.Отмечено так же повышение эффективности учета движения заявок. Для быстрой и полной адаптации пользователя к системе был разработан удобный дружественный интерфейс пользователя и подробное описание работы с системой в контрольном примере.Для обеспечения надежной защиты информации предусмотрена парольная система разграничения доступа к данным и функциям, авторизация вводимой и корректируемой информации, посредством подстановки и анализа данных.Считаю, что созданная в дипломном проекте система автоматизации взаимоотношений с клиентами в ООО "КСК", полностью соответствует информационным требованиям предприятия и сможет поддерживать это соответствие в течение всего жизненного цикла системы. ЛИТЕРАТУРААрхангельский А.Я. 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.ПРИЛОЖЕНИЕЛистинг разработанной программыГлавный модуль приложения//---------------------------------------------------------------------------// подключение модулей и задания пространства имен#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; Taddforms *ProsmForm1; Tparampoiskform *Poisk;TChildTemplateForm *ChildTemplateForm;int nomer_poisk; bool flag1,flag2; 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(); } } 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(); } } ProsmForm= new Taddforms(Application); ProsmForm->Top=230; ProsmForm->Left=0; ProsmForm->Width=700; ProsmForm->Height=200; ProsmForm->Caption=sCaption; }void BuildaddForms1(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(); } } ProsmForm1= new Taddforms(Application); ProsmForm1->Top=230; ProsmForm1->Left=0; ProsmForm1->Width=700; ProsmForm1->Height=200; ProsmForm1->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="код неисправности";DirectoryForm->TableDBGrid->Fields[6]->DisplayLabel="код заказа";}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N4Click(TObject *Sender){/* просмотр таблицы Вид документа */ mainflag=false; mainclientsform->DataSource1->DataSet=mainclientsform->ADOTable2;mainclientsform->ADOTable2->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::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="Работы";}//---------------------------------------------------------------------------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="Ip";DirectoryForm->TableDBGrid->Fields[5]->DisplayLabel="Шлюз";DirectoryForm->TableDBGrid->Fields[6]->DisplayLabel="Hub";}//---------------------------------------------------------------------------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="Наименование";DirectoryForm->TableDBGrid->Fields[4]->DisplayLabel="Код размещения";DirectoryForm->TableDBGrid->Fields[5]->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="Имя";DirectoryForm->TableDBGrid->Fields[3]->DisplayLabel="Отчество";DirectoryForm->TableDBGrid->Fields[4]->DisplayLabel="Телефон";DirectoryForm->TableDBGrid->Fields[5]->DisplayLabel="Моб телефон";DirectoryForm->TableDBGrid->Fields[6]->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="Срок доставки"; }//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N11Click(TObject *Sender){ mainflag=false; /* просмотр таблицы отдел */ mainclientsform->DataSource1->DataSet=mainclientsform->ADOTable8;mainclientsform->ADOTable8->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::N12Click(TObject *Sender){ /* просмотр базы данных */ mainclientsform->N3Click(Sender); mainflag=true;flag1=true;flag2=false;BuildaddForms("Просмотр базы данных", mainclientsform->DataSource1,mainclientsform,"addforms" ); ProsmForm->GroupBox2->Visible=false; ProsmForm->GroupBox3->Visible=false; ProsmForm->GroupBox1->Visible=false; ProsmForm->GroupBox4->Visible=false; ProsmForm->GroupBox5->Visible=false; ProsmForm->Height=800; mainclientsform->DataSource1->DataSet->Last();}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N16Click(TObject *Sender){ mainflag=false; flag1=false; flag2=true; /* добавление записи исполнитель/отдел */ BuildaddForms("Заказчик / отдел", mainclientsform->DataSource1,mainclientsform,"addforms" ); ProsmForm->GroupBox2->Visible=false; ProsmForm->GroupBox3->Visible=false; ProsmForm->GroupBox1->Visible=true; ProsmForm->GroupBox4->Visible=false; ProsmForm->GroupBox5->Visible=false; ProsmForm->GroupBox7->Visible=false; ProsmForm->Height=400; }//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N17Click(TObject *Sender){ mainflag=false; /* добавление записи Неисправность*/ BuildaddForms("Неисправность", mainclientsform->DataSource1,mainclientsform,"addforms" ); ProsmForm->GroupBox1->Visible=false; ProsmForm->GroupBox3->Visible=false; ProsmForm->GroupBox4->Visible=false; ProsmForm->GroupBox2->Visible=true; ProsmForm->GroupBox5->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->GroupBox5->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->GroupBox5->Visible=false; ProsmForm->GroupBox7->Visible=false; ProsmForm->Height=400;}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N14Click(TObject *Sender){ /* добавление записи документ*/ BuildaddForms("Создать заявку", mainclientsform->DataSource1,mainclientsform,"addforms" ); ProsmForm->GroupBox1->Visible=false; ProsmForm->GroupBox2->Visible=false; ProsmForm->GroupBox3->Visible=false; ProsmForm->GroupBox4->Visible=false; ProsmForm->GroupBox5->Visible=true; ProsmForm->GroupBox7->Visible=false; ProsmForm->Height=400;}//---------------------------------------------------------------------------void __fastcall Tmainclientsform::DataSource1DataChange(TObject *Sender,TField *Field){ /* просмотр записей таблицы*/if (mainflag ){if (flag2) {int kodzakazchik,kodispoln,kodsotr, kod_neispr,kodzakaz, kodzayavka; String notes, status; kodzakazchik =mainclientsform->DataSource1->DataSet->FieldByName("kodzakazchik")->AsInteger; kodispoln =mainclientsform->DataSource1->DataSet->FieldByName("kodispoln")->AsInteger; kodsotr =mainclientsform->DataSource1->DataSet->FieldByName("kodsotr")->AsInteger; kod_neispr =mainclientsform->DataSource1->DataSet->FieldByName("kod_neispr")->AsInteger; kodzakaz =mainclientsform->DataSource1->DataSet->FieldByName("kodzakaz")->AsInteger; kodzayavka=mainclientsform->DataSource1->DataSet->FieldByName("kodzayavka")->AsInteger; notes=mainclientsform->DataSource1->DataSet->FieldByName("notes")->AsString; status=mainclientsform->DataSource1->DataSet->FieldByName("otmetka")->AsString; ProsmForm1->Edit70->Text=IntToStr(kodzayavka); ProsmForm1->Edit71->Text=status; ProsmForm1->Edit72->Text=notes; TLocateOptions Options; Options << loPartialKey,loCaseInsensitive; mainclientsform->ADOTable3->Active=true; mainclientsform->ADOTable3->Locate("kodispoln",kodispoln,Options);ProsmForm1->Edit78->Text=DateToStr(mainclientsform->ADOTable3->FieldByName("dateispoln")->AsDateTime);ProsmForm1->Edit74->Text=mainclientsform->ADOTable3->FieldByName("otchet")->AsString;ProsmForm1->Edit76->Text=mainclientsform->ADOTable3->FieldByName("rabot")->AsString; mainclientsform->ADOTable6->Active=true; mainclientsform->ADOTable6->Locate("kodzakazchik", kodzakazchik,Options); ProsmForm1->Edit75->Text=mainclientsform->ADOTable6->FieldByName("fam")->AsString; ProsmForm1->Edit77->Text=mainclientsform->ADOTable6->FieldByName("name")->AsString; ProsmForm1->Edit80->Text=mainclientsform->ADOTable6->FieldByName("secname")->AsString; ProsmForm1->Edit67->Text=mainclientsform->ADOTable6->FieldByName("telefone")->AsString; ProsmForm1->Edit65->Text=mainclientsform->ADOTable6->FieldByName("mob")->AsString; mainclientsform->ADOTable5->Active=true; mainclientsform->ADOTable5->Locate("kod_neispr", kod_neispr,Options); ProsmForm1->Edit64->Text=mainclientsform->ADOTable5->FieldByName("naimenovanie")->AsString; ProsmForm1->Edit83->Text=mainclientsform->ADOTable5->FieldByName("block")->AsString; ProsmForm1->Edit86->Text=mainclientsform->ADOTable5->FieldByName("station")->AsString; mainclientsform->ADOTable7->Active=true; mainclientsform->ADOTable7->Locate("kodzakaz", kodzakaz,Options); ProsmForm1->Edit82->Text=mainclientsform->ADOTable7->FieldByName("naimenovanie")->AsString; ProsmForm1->Edit87->Text=mainclientsform->ADOTable7->FieldByName("kolvo")->AsString; mainclientsform->ADOTable8->Active=true; mainclientsform->ADOTable8->Locate("kodsotr", kodsotr,Options); ProsmForm1->Edit79->Text=mainclientsform->ADOTable8->FieldByName("fam")->AsString; ProsmForm1->Edit88->Text=mainclientsform->ADOTable8->FieldByName("name")->AsString; ProsmForm1->Edit66->Text=mainclientsform->ADOTable8->FieldByName("otch")->AsString; ProsmForm1->Edit19->Text=mainclientsform->ADOTable8->FieldByName("telefon")->AsString; ProsmForm1->Edit20->Text=mainclientsform->ADOTable8->FieldByName("mobtel")->AsString; } }}//---------------------------------------------------------------------------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->GroupBox3->Visible=false; 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; Poisk->GroupBox3->Visible=false;}//---------------------------------------------------------------------------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->GroupBox1->Visible=false; Poisk->GroupBox1->Caption="Неотработанные документы"; Poisk->GroupBox2->Visible=false; Poisk->GroupBox3->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->GroupBox1->Visible=false; Poisk->GroupBox2->Visible=false; Poisk->GroupBox3->Visible=true; }//---------------------------------------------------------------------------void __fastcall Tmainclientsform::FormCreate(TObject *Sender){/* настройка соединения бвзы данных при открытии */ WideString NewConnection; WideString qqq;ADOConnection1->Close(); // указываем файл .udl для ADOConnection1 ADOConnection1->ConnectionString ="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=ksk;Data Source=MICROSOF-203043"; 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; }//---------------------------------------------------------------------------void __fastcall Tmainclientsform::N24Click(TObject *Sender){mainclientsform->N3Click(Sender);mainflag=true;flag2=true;flag1=false;BuildaddForms1("Просмотр базы данных", mainclientsform->DataSource1,mainclientsform,"addforms" ); ProsmForm1->GroupBox2->Visible=false; ProsmForm1->GroupBox3->Visible=false; ProsmForm1->GroupBox1->Visible=false; ProsmForm1->GroupBox4->Visible=false; ProsmForm1->GroupBox5->Visible=false; ProsmForm1->GroupBox7->Visible=true; ProsmForm1->Top=150; ProsmForm1->Height=1000; ProsmForm1->Width=800; mainclientsform->DataSource1->DataSet->Last();}//---------------------------------------------------------------------------//---------------------------------------------------------------------------Модуль addsource.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,ruk;String Ucast, Obesp, Razmesh, mob ;int Mesto, Kodzaka;String Technika, Organiz, Content, Target, Firma, regim, telotd;TDateTime Date1, Date2, Date3, Date4, Date5, Date6, Date7, Date8, 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){ // добавление данных отделFam = Edit1->Text; Name1 = Edit2->Text; Sec_Name= Edit3->Text; Dep = Edit4->Text;telotd = Edit5->Text; Tel = Edit6->Text;mob = Edit7->Text;ruk = Edit89->Text;regim =Edit90->Text;mainclientsform->ADOTable2->Active=true;mainclientsform->ADOTable2->Insert();mainclientsform->ADOTable2->FieldByName("naimenovanie")->AsString= Dep ;mainclientsform->ADOTable2->FieldByName("tel")->AsString = Tel;mainclientsform->ADOTable2->FieldByName("ruk")->AsString = ruk;mainclientsform->ADOTable2->FieldByName("regime")->AsString = regim;mainclientsform->ADOTable2->Post();int kodotd;kodotd= mainclientsform->ADOTable2->FieldByName("kodotd")->AsInteger; // добавление данных исполнительmainclientsform->ADOTable6->Active=true;mainclientsform->ADOTable6->Insert();mainclientsform->ADOTable6->FieldByName("fam")->AsString = Fam;mainclientsform->ADOTable6->FieldByName("name")->AsString = Name1;mainclientsform->ADOTable6->FieldByName("secname")->AsString = Sec_Name;mainclientsform->ADOTable6->FieldByName("telefone")->AsString= Dolg;mainclientsform->ADOTable6->FieldByName("mob")->AsString = Tel;mainclientsform->ADOTable6->FieldByName("kodotd")->AsInteger= kodotd;mainclientsform->ADOTable6->Post();}//---------------------------------------------------------------------------void __fastcall Taddforms::Button2Click(TObject *Sender){ // добавление данных корреспондентNaimen = Edit8->Text; String station, block; String korpus, etag, komnata, ip, shluse, hub;int kodrazm;korpus= Edit11->Text;etag= Edit12->Text;komnata = Edit13->Text;ip = Edit91->Text;shluse=Edit92->Text;hub=Edit93->Text;mainclientsform->ADOTable4->Active=true;mainclientsform->ADOTable4->Insert();mainclientsform->ADOTable4->FieldByName("korpus")->AsString = korpus;mainclientsform->ADOTable4->FieldByName("etag")->AsString = etag;mainclientsform->ADOTable4->FieldByName("komnata")->AsString = komnata;mainclientsform->ADOTable4->FieldByName("ip")->AsString = ip;mainclientsform->ADOTable4->FieldByName("shluse")->AsString = shluse;mainclientsform->ADOTable4->FieldByName("hub")->AsString = hub;mainclientsform->ADOTable4->Post();kodrazm= mainclientsform->ADOTable4->FieldByName("kodrazm")->AsInteger; // добавление данныхNaimen = Edit8->Text;station = Edit9->Text;block = Edit10->Text;mainclientsform->ADOTable5->Active=true;mainclientsform->ADOTable5->Insert();mainclientsform->ADOTable5->FieldByName("naimenovanie")->AsString = Naimen;mainclientsform->ADOTable5->FieldByName("station")->AsString = station;mainclientsform->ADOTable5->FieldByName("block")->AsString = block;mainclientsform->ADOTable5->FieldByName("kodrazm")->AsInteger = kodrazm;mainclientsform->ADOTable5->Post();}//---------------------------------------------------------------------------void __fastcall Taddforms::Button3Click(TObject *Sender){String naimenovanie,kolvo; // добавление данных резолюцияnaimenovanie = Edit14->Text;Date1=StrToDate(Edit15->Text);Date2=StrToDate(Edit94->Text);kolvo=Edit16->Text;;mainclientsform->ADOTable7->Active=true;mainclientsform->ADOTable7->Insert();mainclientsform->ADOTable7->FieldByName("naimenovanie")->AsString = naimenovanie;mainclientsform->ADOTable7->FieldByName("date")->AsDateTime=Date1;mainclientsform->ADOTable7->FieldByName("srok")->AsDateTime=Date2;mainclientsform->ADOTable7->FieldByName("kolvo")->AsString = kolvo;mainclientsform->ADOTable7->Post();}//---------------------------------------------------------------------------void __fastcall Taddforms::Button4Click(TObject *Sender){ String otchet,rabot; Date1=StrToDate(Edit25->Text);rabot=Edit26->Text;otchet=Edit24->Text; // добавление данных типы документов // добавление данныхmainclientsform->ADOTable3->Active=true;mainclientsform->ADOTable3->Insert();mainclientsform->ADOTable3->FieldByName("otchet")->AsString = otchet;mainclientsform->ADOTable3->FieldByName("rabot")->AsString = rabot;mainclientsform->ADOTable3->FieldByName("dateispoln")->AsDateTime=Date1;mainclientsform->ADOTable3->Post();}//---------------------------------------------------------------------------void __fastcall Taddforms::Button5Click(TObject *Sender){int kodzakazchik,kodispoln,kodsotr, kod_neispr,kodzakaz;// добавление документаString notes, status;kodzakazchik=(Edit18->Text).ToInt();kodispoln=(Edit34->Text).ToInt();kodsotr=(Edit37->Text).ToInt(); kod_neispr =(Edit31->Text).ToInt();kodzakaz =(Edit33->Text).ToInt();status=Edit17->Text;notes=Edit32->Text;mainclientsform->ADOTable1->Active=true;mainclientsform->ADOTable1->Insert();mainclientsform->ADOTable1->FieldByName("kodzakazchik")->AsInteger = kodzakazchik;mainclientsform->ADOTable1->FieldByName("notes")->AsString = notes;mainclientsform->ADOTable1->FieldByName("otmetka")->AsString =status;mainclientsform->ADOTable1->FieldByName("kodispoln")->AsInteger = kodispoln;mainclientsform->ADOTable1->FieldByName("kodsotr")->AsString = kodsotr;mainclientsform->ADOTable1->FieldByName("kod_neispr")->AsInteger =kod_neispr;mainclientsform->ADOTable1->FieldByName("kodzakaz")->AsInteger =kodzakaz;mainclientsform->ADOTable1->Post();}//---------------------------------------------------------------------------Parampoisk.cpp//--------------------------------------------------------------------------- // подключение модулей и задания пространства имен#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;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=400; 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; P1->Value=S; //P1->Size=Length(S); P1->Value=S; stroka_SQL="SELECT * FROM Zayavka,ispolnenie WHERE (((Zayavka.kodzayavka)=:P1) and (ispolnenie.kodispoln=Zayavka.kodispoln))";if (stroka_SQL!="") {mainclientsform->ADOQuery2->SQL->Add(stroka_SQL);mainclientsform->ADOQuery2->Active=true;mainclientsform->ADOQuery2->ExecSQL(); } }if (nomer_poisk ==2){ // поиск документа по дате регистрации Data=StrToDate(Edit2->Text); P1=mainclientsform->ADOQuery2->Parameters->AddParameter(); P1->Name="P1"; P1->DataType=ftDate; P1->Direction = ptInput; P1->Value=Data; stroka_SQL="select * from zayavka,ispolnenie where ispolnenie.dateispoln=: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=ftInteger; P1->Direction = ptInput; P1->Value=1; stroka_SQL="SELECT * FROM Zayavka,ispolnenie WHERE (((Zayavka.otmetka)<>'выполнено') and (ispolnenie.kodispoln=Zayavka.kodispoln))" ;if (stroka_SQL!="") {mainclientsform->ADOQuery2->SQL->Add(stroka_SQL);mainclientsform->ADOQuery2->Active=true;mainclientsform->ADOQuery2->ExecSQL(); } }if (nomer_poisk ==4){ // поиск исполнителей по фамилии P1=mainclientsform->ADOQuery2->Parameters->AddParameter(); S=Edit1->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 Sotrudnyk where Sotrudnyk.Fam Like :P1" ;if (stroka_SQL!="") {mainclientsform->ADOQuery2->SQL->Add(stroka_SQL);mainclientsform->ADOQuery2->Active=true;mainclientsform->ADOQuery2->ExecSQL(); } } }//---------------------------------------------------------------------------/---------------------------------------------------------------------------#include <vcl.h>#pragma hdrstop#include "DBDirectoryTemplate.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TDBDirectoryTemplateForm *DBDirectoryTemplateForm;//---------------------------------------------------------------------------__fastcall TDBDirectoryTemplateForm::TDBDirectoryTemplateForm(TComponent* Owner) : TForm(Owner){}//---------------------------------------------------------------------------void __fastcall TDBDirectoryTemplateForm::FormClose(TObject *Sender, TCloseAction &Action){ Action=caFree; }//------------------------------------------------------------------------------------------------------------------------------------------------------#include <vcl.h>#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= DateToStr(mainclientsform->ADOQuery2->FieldByName("dateispoln")->AsString);ws.OlePropertyGet("Cells").OlePropertyGet("Cells", i+5, 2).OlePropertySet("Value", WideString(A)); A= mainclientsform->ADOQuery2->FieldByName("otmetka")->AsString;ws.OlePropertyGet("Cells").OlePropertyGet("Cells", i+5, 3).OlePropertySet("Value", WideString(A)); A= IntToStr(mainclientsform->ADOQuery2->FieldByName("kodzayavka")->AsInteger);ws.OlePropertyGet("Cells").OlePropertyGet("Cells", i+5, 4).OlePropertySet("Value", WideString(A)); A= mainclientsform->ADOQuery2->FieldByName("otchet")->AsString;ws.OlePropertyGet("Cells").OlePropertyGet("Cells", i+5, 5).OlePropertySet("Value", WideString(A)); A= mainclientsform->ADOQuery2->FieldByName("rabot")->AsString;ws.OlePropertyGet("Cells").OlePropertyGet("Cells", i+5, 6).OlePropertySet("Value", WideString(A));i++;mainclientsform->ADOQuery2->Next();} }//------