Наименование стадий затрат
|
Сумма, руб.
|
Обоснование расчета
|
1. Затраты на материалы
|
54400,00
|
Раздел 3.1.3.1
|
2. Стоимость машинного времени
|
446555,46
|
Раздел 3.1.2.6
|
3. Основная заработная плата
|
5565187,00
|
Таблица 3.4
|
4. Дополнительная заработная плата
|
556518,70
|
10% от п.3
|
5. Итого фонд оплаты труда (ФОТ)
|
6121705,70
|
п.3+п.4
|
6. Отчисления в фонд социальной защиты населения
|
2081379,94
|
34% от п.5
|
7. Обязательное страхование от несчастных
случаев на производстве и профессиональных заболеваний
|
42239,77
|
0,69% от п.5
|
8. Итого: отчисления на социальные нужды
|
2123619,71
|
п.6+п.7
|
9. Прочие расходы (арендная плата, услуги связи,
коммунальные услуги и др.)
|
5453883,26
|
98% от п.3
|
10. Полная себестоимость без учета расходов на
сопровождение и адаптацию
|
14200164,13
|
п.1+п.2+п.5+п.8+п.9
|
11. Расходы на сопровождение и адаптацию
|
568006,57
|
4% от п.3.10
|
12. Полная себестоимость с учетом расходов на
сопровождение и адаптацию
|
14768170,70
|
п.10+п.11
|
3.2
Разработка стратегии распространения программного продукта
3.2.1
Факторы, определяющие успех программного обеспечения
Потенциальный успех программного обеспечения зависит от
качества продукта, от улучшений по сравнению с признанным лидером в данном
классе или же, в случае совершенно нового вида продукта, от его собственной
значимости, от предприимчивости руководства фирмы, разработавшей продукт, от
суммы денег, имеющейся для представления продукта, его сбыта и поддержки, от
усилий, затрачиваемых на переход от использования продукта-чемпиона к
использованию продукта-претендента.
Качество продукта определяется тем, как он спроектирован и
реализован. На качество продукта влияет его быстродействие, отсутствие ошибок,
интерактивность, интерфейс, дизайн. Улучшения по сравнению с лидером в данной
области или собственная значимость продукта оценивается пользователями или их
отсутствием. От предприимчивости фирмы-разработчика зависит то, как быстро продукт
получит оценку, на это влияет наличие связей с теми, чье мнение имеет вес.
Так как в области, для которой разрабатывалось данное
программное обеспечение, нет признанного лидера, то успех данного программного
продукта зависит в основном от его собственной значимости и качества. Пакеты
программ, решающие большой комплекс задач, в который входит и решаемая данной
программой задача, не будут влиять на успех, так как они стоят намного дороже и
для пользователя не имеет смысла покупка мощного, но дорогого пакета для
решения одной специализированной задачи.
Данный программный продукт может работать корректно и без
сбоев долгое время. Несмотря на некоторые ограничения при построении схемы
программа позволяет ввести довольно сложную трехфазную цепь с большим количеством
элементов и параллельных подключений, но даже при решении сложных задач объем
занимаемой оперативной памяти невелик, а наличие мощного видеоадаптера позволит
ускорить перерисовку большой схемы при перемещении ее в окне программы. Но на
быстродействие программы установленный видеоадаптер будет влиять только при
построении цепи с большим количеством элементов, в остальных случаях
конфигурация ПЭВМ не имеет большого значения.
3.2.2
Роль рекламы в реализации программного обеспечения. Планирование и средства
рекламы
Реклама при реализации программного продукта играет такую же
роль, как и при реализации любого другого товара. Но, несмотря на это,
существуют некоторые отличия.
Размер средств, вкладываемых в рекламу программ, меньше,
нежели в рекламу других товаров. Все это потому, что пользоваться данным
продуктом могут не все, а лишь обладатели ПЭВМ, то есть определенный сегмент
рынка потребителей. Следовательно, планирование рекламы должно исходить из
того, что данный вид продукции не является массовым, а значит и подходы к ее
реализации должны быть соответствующими. Отсюда вытекают и требования к
средствам рекламы. Для рекламы, например, графического редактора достаточно
разместить свои объявления в специальных изданиях, в тех, которые ориентированы
на данный сегмент.
Таким образом, рекламу программного продукта лучше
организовать с использованием средств вычислительной техники. Здесь все зависит
от имеющихся у фирмы ресурсов и технических средств. В настоящее время для
создания рекламы используется компьютер класса "Pentium IV", принтер,
сканер и т.д. А из редакторов, используемых для этих целей, известны следующие:
3D Studio, Adobe Photoshop, Corel Draw, Page Maker, Microsoft Office Word,
Power Point, которые в свою очередь требуют определенной конфигурации ПЭВМ.
3.2.3
Стимулирование сбыта при продаже программного обеспечения
С целью стимулирования сбыта при продаже программного
обеспечения устраиваются специальные выставки, презентации, на которых
разработчики знакомят покупателей со своей продукцией, демонстрируют новинки.
Для повышения сбыта разработчики используют все возможные средства, облегчающие
работу с их продукцией. Например, сопровождение программного продукта в течение
определенного срока, поставка технической документации к программному продукту.
В наше время широко распространилось "пиратство" в
области программного обеспечения. Многие программы расходятся по стране без
согласия на это разработчика. Престиж компании, создающей такие программы, не
высок. Поэтому фирма, заботящаяся о своем престиже, обязана бороться с этим. С
этой целью при установке программ на компьютер используют специальные ключи,
препятствующие несанкционированному копированию продукта.
Заключение
В результате выполнения дипломного проектирования была
разработана программа для расчёта цен на строительные материалы и строительство
объектов, формирования отчётов о затратах на материалы, технику и др средства
для строительства. Программный продукт разработан в среде C++Builder 2006.
Программа выполняет все поставленные задачи в полной мере, а также за имеющееся
время на разработку программного продукта был обеспечен высокий уровень
интерфейса, удобства работы с программой, полностью реализована помощь
пользователю в виде справки и всплывающих подсказок во время работы с программой.
Результаты, которые могут быть достигнуты при дальнейшем совершенствовании
продукта, могут в несколько раз увеличить его функциональные возможности. Для
этого необходимо внедрить модули ведения бухгалтерского учёта в программу,
обеспечить взаимодействие программного продукта с другими системами учёта,
которые применяются в организациях.
Литература
1.
Объектно-ориентированный анализ и проектирование с примерами пользователя/ Пер.
с англ.Г. Г. Буг. - М.: ДМК, 2000. - 224 с.: ил.
.
ГОСТ 19.101-77. Программа и методика испытаний. - Введ.01.01.1981 г. - М.:
Изд-во стандартов, 2001г.
.
ГОСТ 19.102-77 Стадии разработки. - Введ.81-07-01. - М.: Изд-во стандартов,
2001г.
.
ГОСТ 19.104-78. Единая система программной документации. Основные надписи. -
Введ.81-07-01. - М.: Изд-во стандартов, 2001г.
.
ГОСТ 19.106-78. Единая система программной документации. Требования к
программным документам, выполненным печатным способом. - Введ 81-07-01. - М.:
Изд-во стандартов, 2001г.
.
ГОСТ 19.201-78 Техническое задание. Требования к содержанию и оформлению. -
Введ.81-07-01. - М.: Изд-во стандартов, 2001г.
.
ГОСТ 19.103-80. Единая система программной документации. Схемы алгоритмов и
программ. Обозначение условные графические. - Введ.81-07-01. - М.: Изд-во
стандартов, 2001г.
.
ГОСТ 19.701-80. Единая система программной документации. Схемы алгоритмов,
программ, данных и систем. Условные обозначения и правила выполнения. - Введ
81-07-01 - М.: Изд-во стандартов, 2001г.
.
ГОСТ 7.1-2003. Библиографическая запись. Библиографическое описание. Общие
требования и правила составления. - Взамен ГОСТ 7.1-84, ГОСТ 7.16-79, ГОСТ
7.18-79, ГОСТ 7.34-81, ГОСТ 7.40-82.; Введ. 2004-10-01. - Мн.: Госстандарт
Республики Беларусь, 2004г. - 47 с.
.
Глушаков С.В. Базы данных: учебный курс, С.В. Глушаков Д.В. Ломотько. - Киев.:
Абрис, 2000г. - 480 с.: ил.
.
Зелковец М.В. Принципы разработки программного обеспечения, М.В. Земковец. -
Москва: Мир, 1982г. - 400 с.: ил.
.
Зиглер К.К. Методы проектирования программных систем, К.К. Зиглер - М.: Мир,
1985. - 520 с.: ил.
.
Карпей Т.В. Экономика. Организация и планирование промышленного производства,
Т.В. Карпей - М.: Дизайн ПРО, 2004г. - 321 с.: ил.
.
Палицын В.А. Технико-экономическое обоснование дипломных проектов. Методическое
пособие, В.А. Палицын - М.: Минск, УО БГУИР, Кафедра экономики, 2005г. - Часть
4.
.
Крёнке Д.Р. Теория и практика построения баз данных, Д.Р. Кренке. - СПб.:
Питер, 2003г. - 540 с.: ил.
.
Константайн Л.О. Разработка программного обеспечения, Л.О. Константайн, Л.
Локвуд. - СПб.: Питер, 2004г. - 592 с.: ил.
.
Левчук Е.А. Технология организации, хранения и обработки данных, А.Е. Левчук. -
М.: Вышэйшая школа, 2005г. - 450 с.: ил.
.
Малыхина М.М. Базы данных: основы, проектирование, использование, М.М.
Малыхина. - СПб.: БХВ-Петербург, 2004г. - 423 с.: ил.
.
Поливкина Т.В. Сборник инструкций по охране труда для учреждений образования,
Поливкина Т.В., А.А. Тарасевич. - М.: ЦОТЖ, 2004г. - с.161-163.
.
Сокол Т.С. Охрана труда, Т.С. Сокол, Н.В. Овчинникова. - М.: Дизайн ПРО, 2005г.
- 304 с.: ил.
.
Система безопасности труда: сборник. - М.: Изд-во стандартов, 2002. - 102 с.
.
Тассел Д.Д. Стиль, разработка, эффективность, отладка, испытание программ, Д.Д.
Тассел. - М.: Мир, 1981г. - 450 с.: ил.
.
Тиори Т.О. Проектирование структур баз данных, Т.О. Тиори. - М.: Мир, 1985г. -
430 с.: ил.
.
Фрай Дж.Т. SQL в примерах и задачах, Дж.Т. Фрай [и др.]. - Мн.: ООО "Новое
знание", 2002г. - 578 с.: ил.
.
Нехорошева Л.Н. Экономика предприятия, Под общей редакцией Л.Н. Нехорошевой -
Мн.: высшая школа, 2005г., раздел 2.
Приложения
Приложение 1
Исходный текст программы
Приветствие
//
---------------------------------------------------------------------------
#pragma hdrstop
#include "Unit1. h"
#include "Unit2. h"
#include "Unit4. h"
#include "Unit5. h"
#include "Unit12. h"
//
---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma link "sGauge"
#pragma link "sPanel"
#pragma link "sRadioButton"
#pragma link "sLabel"
#pragma link "sSkinManager"
#pragma resource "*. dfm"*Form12;
//
---------------------------------------------------------------------------
__fastcall TForm12:: TForm12 (TComponent* Owner)
: TForm (Owner)
{
}
//
---------------------------------------------------------------------------__fastcall
TForm12:: Timer1Timer (TObject *Sender)
{( (ExtractFilePath (ParamStr (0)) +"Launcher //
"+"Launcher1. exe"). c_str (), (ExtractFilePath (ParamStr (0))
+"Обновление. exe"). c_str
(),true);->AlphaBlendValue++;(Form12->AlphaBlendValue==255) {(
(ExtractFilePath (ParamStr (0)) +"Launcher // "+"Launcher1.
exe"). c_str ());->Enabled=false;->Enabled=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm12:: Timer2Timer (TObject *Sender)
{->Progress++;(sGauge1->Progress==1)
{sGauge1->Suffix="% Проверка на наличие обновления. ";
}(sGauge1->Progress==5) {sGauge1->Suffix="% Загрузка модулей
программы. "; }(sGauge1->Progress==16) {sGauge1->Suffix="% Загрузка
стиля ''Pulsar'' программы. "; }(sGauge1->Progress==30)
{sGauge1->Suffix="% Подключение базы данных. ";
}(sGauge1->Progress==44) {sGauge1->Suffix="% Оптимизация всех
компонентов программы. "; }(sGauge1->Progress==sGauge1->MaxValue)
{sGauge1->Suffix="% Запуск программы. ";(1500);
Timer2->Enabled=false; Timer3->Enabled=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm12:: Timer4Timer (TObject *Sender)
{char *FileTo = (ExtractFilePath (ParamStr (0))
+"Launcher // "+"Project1. exe"). c_str ();char *FileFrom =
(ExtractFilePath (ParamStr (0)) +"Обновление. exe"). c_str
();(FileExists (FileTo) ==false) {Timer4->Enabled=false;
Timer1->Enabled=true; }{Timer4->Enabled=false; Form12->Close
();(Handle, "open", FileFrom, 0, 0, SW_SHOWNORMAL); }
}
// ---------------------------------------------------------------------------__fastcall
TForm12:: Timer3Timer (TObject *Sender)
{->AlphaBlendValue--;(Form12->AlphaBlendValue==0)
{->ADOConnection1->Connected=true;->ADOQuery1->Active=true;->ADOQuery2->Active=true;->ADOQuery3->Active=true;->ADOQuery4->Active=true;->ADOQuery5->Active=true;->ADOQuery6->Active=true;->ADOQuery7->Active=true;->ADOQuery8->Active=true;->ADOQuery9->Active=true;->ADOQuery10->Active=true;->ADOQuery11->Active=true;->ADOQuery12->Active=true;->ADOQuery13->Active=true;->ADOQuery14->Active=true;->ADOQuery15->Active=true;->ADOQuery16->Active=true;->ADOTable1->Active=true;->ADOTable2->Active=true;->ADOTable3->Active=true;->ADOTable4->Active=true;->ADOTable5->Active=true;->ADOTable6->Active=true;->ADOTable7->Active=true;->ADOTable8->Active=true;->ADOTable9->Active=true;->ADOTable10->Active=true;->ADOTable11->Active=true;->ADOTable12->Active=true;->ADOTable13->Active=true;->ADOTable14->Active=true;->ADOTable15->Active=true;->ADOTable16->Active=true;->Timer1->Enabled=true;->Timer1->Enabled=true;->Enabled=false;->Hide
();->Show (); }
}
//
---------------------------------------------------------------------------
Меню программы
//
---------------------------------------------------------------------------
#include <vcl. h>
#pragma hdrstop
#include "Unit1. h"
#include "Unit2. h"
#include "Unit3. h"
#include "Unit5. h"
#include "Unit6. h"
#include "Unit7. h"
#include "Unit8. h"
#include "Unit12. h"
// ---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma link "sLabel"
#pragma link "sPanel"
#pragma link "sStatusBar"
#pragma link "sBitBtn"
#pragma link "sBevel"
#pragma link "sMonthCalendar"
#pragma link "sSkinManager"
#pragma link "sButton"
#pragma resource "*. dfm"*Form1;
//
---------------------------------------------------------------------------
__fastcall TForm1:: TForm1 (TComponent* Owner)
: TForm (Owner)
{
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: sBitBtn1Click (TObject *Sender)
{->Close ();->Show
();->sGroupBox1->Visible=true;->sGroupBox2->Visible=false;->sGroupBox3->Visible=false;->sGroupBox4->Visible=false;->sGroupBox5->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall
TForm1:: sBitBtn2Click (TObject *Sender)
{->Close ();->Show
();->sPageControl1->ActivePage=Form5->sTabSheet1;->sButton1->SetFocus
();->sGroupBox2->Visible=false;->sGroupBox1->Visible=true;->sGroupBox3->Visible=false;->sGroupBox6->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: sBitBtn3Click (TObject *Sender)
{->Close ();->Show
();->sPageControl1->ActivePage=Form5->sTabSheet1;->sButton2->SetFocus
();->sGroupBox1->Visible=false;->sGroupBox2->Visible=true;->sGroupBox3->Visible=false;->sGroupBox6->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: sBitBtn4Click (TObject *Sender)
{->Close ();->Show
();->sPageControl1->ActivePage=Form5->sTabSheet1;->sButton3->SetFocus
();->sGroupBox1->Visible=false;->sGroupBox2->Visible=false;->sGroupBox3->Visible=true;->sGroupBox6->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall
TForm1:: sBitBtn9Click (TObject *Sender)
{->Close ();
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: Timer1Timer (TObject *Sender)
{->Panels->Items [0] - >Text=Time ();->Panels->Items
[1] - >Text=Date ();->Panels->Items [2] - >Text="Copyright. ©
2012-2013";->Panels->Items [3] - >Text="АРМ ПТО_Beta
v0.1";->sStatusBar1->Panels->Items [0] - >Text=Time
();->sStatusBar1->Panels->Items [1] - >Text=Date
();->sStatusBar1->Panels->Items [2] - >Text="Copyright. ©
2012-2013";->sStatusBar1->Panels->Items [3] - >Text="АРМ
ПТО_Beta v0.1";->sStatusBar1->Panels->Items [0] - >Text=Time
();->sStatusBar1->Panels->Items [1] - >Text=Date
();->sStatusBar1->Panels->Items [2] - >Text="Copyright. ©
2012-2013";->sStatusBar1->Panels->Items [3] - >Text="АРМ
ПТО_Beta v0.1";->sStatusBar1->Panels->Items [0] - >Text=Time
();->sStatusBar1->Panels->Items [1] - >Text=Date
();->sStatusBar1->Panels->Items [2] - >Text="Copyright. ©
2012-2013";->sStatusBar1->Panels->Items [3] - >Text="АРМ
ПТО_Beta v0.1";->sStatusBar1->Panels->Items [0] - >Text=Time
();->sStatusBar1->Panels->Items [1] - >Text=Date
();->sStatusBar1->Panels->Items [2] - >Text="Copyright. © 2012-2013";->sStatusBar1->Panels->Items
[3] - >Text="АРМ ПТО_Beta
v0.1";->sStatusBar1->Panels->Items [0] - >Text=Time
();->sStatusBar1->Panels->Items [1] - >Text=Date
();->sStatusBar1->Panels->Items [2] - >Text="АРМ ПТО_Beta
v0.1";
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: sButton1Click (TObject *Sender)
{->Close ();->Show
();->sPageControl1->ActivePage=Form5->sTabSheet1;->sButton20->SetFocus
();->sGroupBox1->Visible=false;->sGroupBox2->Visible=false;->sGroupBox3->Visible=false;->sGroupBox6->Visible=true;
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: sButton2Click (TObject *Sender)
{->Close ();->Show
();->sPageControl1->ActivePage=Form5->sTabSheet2;->sPageControl2->ActivePage=Form5->sTabSheet3;->sPageControl4->ActivePage=Form5->sTabSheet18;
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: FormKeyDown (TObject *Sender, WORD &Key,Shift)
{(Key==VK_ESCAPE) {sBitBtn9Click (sBitBtn9); }(Key==VK_F1)
{sBitBtn8Click (sBitBtn8); }
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: sBitBtn8Click (TObject *Sender)
{FILE_HELP_NAME_STR = "help. chm";(FileExists
(FILE_HELP_NAME_STR)) {(Handle, "open", "help. chm", 0, 0,
SW_SHOWNORMAL);; }{Application->MessageBoxA ("Справка
отсутствует!","Ошибка. ",16);; }
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: sBitBtn7Click (TObject *Sender)
{->ShowModal ();
}
// ---------------------------------------------------------------------------__fastcall
TForm1:: sBitBtn5Click (TObject *Sender)
{->ShowModal
();->sPageControl1->ActivePage=Form7->sTabSheet1;->sPageControl2->ActivePage=Form7->sTabSheet3;
}
// ---------------------------------------------------------------------------__fastcall
TForm1:: sBitBtn6Click (TObject *Sender)
{->Show
();->sPageControl1->ActivePage=Form7->sTabSheet2;
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: sButton3Click (TObject *Sender)
{->Close ();->Show
();->sGroupBox1->Visible=true;->sGroupBox2->Visible=false;
}
//
---------------------------------------------------------------------------
Нормативно-справочная информация
// ---------------------------------------------------------------------------
#include <vcl. h>
#pragma hdrstop
#include "Unit1. h"
#include "Unit2. h"
#include "Unit3. h"
#include "Unit4. h"
#include "Unit5. h"
#include "Unit6. h"
#include "Unit7. h"
#include "Unit8. h"
#include "Unit12. h"
//
---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma link "sGroupBox"
#pragma link "sPanel"
#pragma link "sRadioButton"
#pragma link "sStatusBar"
#pragma link "acDBGrid"
#pragma link "sButton"
#pragma link "sDBEdit"
#pragma link "sLabel"
#pragma resource "*. dfm"*Form2;
//
---------------------------------------------------------------------------
__fastcall TForm2:: TForm2 (TComponent* Owner)
: TForm (Owner)
{
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: sRadioButton2Click (TObject *Sender)
{->Visible=true;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: sRadioButton3Click (TObject *Sender)
{->Visible=true;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: sRadioButton1Click (TObject *Sender)
{->Visible=true;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: sButton1Click (TObject *Sender)
{->ADOTable1->First
();->Enabled=false;->Enabled=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: sButton8Click (TObject *Sender)
{->Close ();->Show ();
}
// ---------------------------------------------------------------------------__fastcall
TForm2:: sButton7Click (TObject *Sender)
{->Close ();->Show ();
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: sButton6Click (TObject *Sender)
{->ADOTable6->First ();->ADOTable7->First
();->ADOTable8->First
();->Enabled=false;->Enabled=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: sButton5Click (TObject *Sender)
{->ADOTable5->First
();->Enabled=false;->Enabled=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: sButton4Click (TObject *Sender)
{->ADOTable4->First
();->Enabled=false;->Enabled=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: sButton3Click (TObject *Sender)
{->ADOTable3->First
();->Enabled=false;->Enabled=false;->Visible=true;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: sButton2Click (TObject *Sender)
{->ADOTable2->First
();->Enabled=false;->Enabled=false;->Visible=true;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: sButton16Click (TObject *Sender)
{->Close ();->Show ();->sPageControl1->ActivePage=Form5->sTabSheet1;->sGroupBox2->Visible=false;->sGroupBox1->Visible=true;->sGroupBox3->Visible=false;->sGroupBox6->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: sButton15Click (TObject *Sender)
{(DataModule4->ADOTable1->IsEmpty () ==true) // если
записей нет то будет true>MessageBoxA ("Запись
удалена!","Удаление. ",64); // уведомление
пользователю{->ADOTable1->Delete ();("Запись удалена");
} // удаляем с последующем уведомлением
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: Timer1Timer (TObject *Sender)
{(sRadioButton1->Checked==true)
{Label22->Caption=IntToStr (DataModule4->ADOTable6->RecordCount);
}(sRadioButton2->Checked==true) {Label22->Caption=IntToStr
(DataModule4->ADOTable7->RecordCount); }(sRadioButton3->Checked==true)
{Label22->Caption=IntToStr (DataModule4->ADOTable8->RecordCount); }
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: sButton14Click (TObject *Sender)
{->Close ();->Show
();->sPageControl1->ActivePage=Form5->sTabSheet2;->sPageControl2->ActivePage=Form5->sTabSheet3;->sPageControl4->ActivePage=Form5->sTabSheet18;
}
// ---------------------------------------------------------------------------__fastcall
TForm2:: N9Click (TObject *Sender)
{FILE_HELP_NAME_STR = "help. chm";(FileExists
(FILE_HELP_NAME_STR))
{ShellExecute (Handle, "open", "help.
chm", 0, 0, SW_SHOWNORMAL);; }{Application->MessageBoxA ("Справка
отсутствует!","Ошибка. ",16);; }
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: FormActivate (TObject *Sender)
{ /*->ADOTable1->Active=false;
DataModule4->ADOTable1->Active=true;->ADOTable2->Active=false; DataModule4->ADOTable2->Active=true;->ADOTable3->Active=false;
DataModule4->ADOTable3->Active=true;->ADOTable4->Active=false;
DataModule4->ADOTable4->Active=true;->ADOTable5->Active=false;
DataModule4->ADOTable5->Active=true;->ADOTable6->Active=false;
DataModule4->ADOTable6->Active=true;->ADOTable7->Active=false;
DataModule4->ADOTable7->Active=true;->ADOTable8->Active=false;
DataModule4->ADOTable8->Active=true;->ADOTable9->Active=false;
DataModule4->ADOTable9->Active=true; */
}
// ---------------------------------------------------------------------------__fastcall
TForm2:: N7Click (TObject *Sender)
{->Show ();
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: sButton9Click (TObject *Sender)
{(sGroupBox1->Visible==true) {->ADOTable1->First
();->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true;
sButton12->Enabled=true; }(sGroupBox2->Visible==true &&
sRadioButton1->Checked==true) {->ADOTable6->First
();->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true;
sButton12->Enabled=true; }(sGroupBox2->Visible==true &&
sRadioButton2->Checked==true) {->ADOTable7->First
();->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true;
sButton12->Enabled=true; }(sGroupBox2->Visible==true &&
sRadioButton3->Checked==true) {->ADOTable8->First
();->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true;
sButton12->Enabled=true; }(sGroupBox5->Visible==true &&
sDBGrid2->Visible==true) {->ADOTable2->First ();->Enabled=false;
sButton10->Enabled=false; sButton11->Enabled=true;
sButton12->Enabled=true; }(sGroupBox5->Visible==true &&
sDBGrid3->Visible==true) {->ADOTable3->First ();->Enabled=false;
sButton10->Enabled=false; sButton11->Enabled=true;
sButton12->Enabled=true; }(sGroupBox4->Visible==true)
{->ADOTable4->First ();->Enabled=false; sButton10->Enabled=false;
sButton11->Enabled=true; sButton12->Enabled=true;
}(sGroupBox3->Visible==true) {->ADOTable5->First
();->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true;
sButton12->Enabled=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: sButton10Click (TObject *Sender)
{(sGroupBox1->Visible==true)
{(DataModule4->ADOTable1->RecNo>1)
{sButton11->Enabled=true; sButton12->Enabled=true; }
{sButton9->Enabled=false; sButton10->Enabled=false;
}(DataModule4->ADOTable1->RecNo==1)
{sButton9->Enabled=false; sButton10->Enabled=false;
sButton11->Enabled=true; sButton12->Enabled=true;
}->ADOTable1->Prior (); }(sGroupBox5->Visible==true &&
sDBGrid2->Visible==true) {(DataModule4->ADOTable2->RecNo>1)
{sButton11->Enabled=true; sButton12->Enabled=true; }
{sButton9->Enabled=false; sButton10->Enabled=false;
}(DataModule4->ADOTable2->RecNo==1)
{sButton9->Enabled=false; sButton10->Enabled=false;
sButton11->Enabled=true; sButton12->Enabled=true;
}->ADOTable2->Prior (); }(sGroupBox5->Visible==true &&
sDBGrid3->Visible==true) {(DataModule4->ADOTable3->RecNo>1)
{sButton11->Enabled=true; sButton12->Enabled=true; }
{sButton9->Enabled=false; sButton10->Enabled=false;
}(DataModule4->ADOTable3->RecNo==1)
{sButton9->Enabled=false; sButton10->Enabled=false;
sButton11->Enabled=true; sButton12->Enabled=true;
}->ADOTable3->Prior (); }(sGroupBox4->Visible==true)
{(DataModule4->ADOTable4->RecNo>1)
{sButton11->Enabled=true; sButton12->Enabled=true; }
{sButton9->Enabled=false; sButton10->Enabled=false;
}(DataModule4->ADOTable4->RecNo==1)
{sButton9->Enabled=false; sButton10->Enabled=false;
sButton11->Enabled=true; sButton12->Enabled=true;
}->ADOTable4->Prior (); }(sGroupBox3->Visible==true)
{(DataModule4->ADOTable5->RecNo>1)
{sButton11->Enabled=true; sButton12->Enabled=true; }
{sButton9->Enabled=false; sButton10->Enabled=false;
}(DataModule4->ADOTable5->RecNo==1)
{sButton9->Enabled=false; sButton10->Enabled=false;
sButton11->Enabled=true; sButton12->Enabled=true;
}->ADOTable5->Prior (); }(sGroupBox2->Visible==true &&
sRadioButton1->Checked==true) {(DataModule4->ADOTable6->RecNo>1)
{sButton11->Enabled=true; sButton12->Enabled=true; }
{sButton9->Enabled=false; sButton10->Enabled=false;
}(DataModule4->ADOTable6->RecNo==1)
{sButton9->Enabled=false; sButton10->Enabled=false;
sButton11->Enabled=true; sButton12->Enabled=true;
}->ADOTable6->Prior (); }(sGroupBox2->Visible==true &&
sRadioButton2->Checked==true) {(DataModule4->ADOTable7->RecNo>1)
{sButton11->Enabled=true; sButton12->Enabled=true; }
{sButton9->Enabled=false; sButton10->Enabled=false;
}(DataModule4->ADOTable7->RecNo==1)
{sButton9->Enabled=false; sButton10->Enabled=false;
sButton11->Enabled=true; sButton12->Enabled=true;
}->ADOTable7->Prior (); }(sGroupBox2->Visible==true &&
sRadioButton3->Checked==true) {(DataModule4->ADOTable8->RecNo>1)
{sButton11->Enabled=true; sButton12->Enabled=true; }
{sButton9->Enabled=false; sButton10->Enabled=false;
}(DataModule4->ADOTable8->RecNo==1)
{sButton9->Enabled=false; sButton10->Enabled=false;
sButton11->Enabled=true; sButton12->Enabled=true;
}->ADOTable8->Prior (); }
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: sButton12Click (TObject *Sender)
{(sGroupBox1->Visible==true) {->ADOTable1->Last
();->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true;
sButton10->Enabled=true; }(sGroupBox2->Visible==true &&
sRadioButton1->Checked==true) {->ADOTable6->Last
();->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true;
sButton10->Enabled=true; }(sGroupBox2->Visible==true &&
sRadioButton2->Checked==true) {->ADOTable7->Last ();->Enabled=false;
sButton12->Enabled=false; sButton9->Enabled=true;
sButton10->Enabled=true; }(sGroupBox2->Visible==true &&
sRadioButton3->Checked==true) {->ADOTable8->Last
();->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true;
sButton10->Enabled=true; }(sGroupBox5->Visible==true && sDBGrid2->Visible==true)
{->ADOTable2->Last ();->Enabled=false; sButton12->Enabled=false;
sButton9->Enabled=true; sButton10->Enabled=true;
}(sGroupBox5->Visible==true && sDBGrid3->Visible==true)
{->ADOTable3->Last ();->Enabled=false; sButton12->Enabled=false;
sButton9->Enabled=true; sButton10->Enabled=true;
}(sGroupBox4->Visible==true) {->ADOTable4->Last ();->Enabled=false;
sButton12->Enabled=false; sButton9->Enabled=true;
sButton10->Enabled=true; }(sGroupBox3->Visible==true) {->ADOTable5->Last
();->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true;
sButton10->Enabled=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: sButton11Click (TObject *Sender)
{(sGroupBox1->Visible==true) {(DataModule4->ADOTable1->RecNo<DataModule4->ADOTable1->RecordCount)
{sButton9->Enabled=true; sButton10->Enabled=true; }
{sButton11->Enabled=false; sButton12->Enabled=false;
}(DataModule4->ADOTable1->RecNo==DataModule4->ADOTable1->RecordCount)
{sButton11->Enabled=false; sButton12->Enabled=false;
sButton9->Enabled=true; sButton10->Enabled=true; }->ADOTable1->Next
(); }(sGroupBox2->Visible==true && sRadioButton1->Checked==true)
{(DataModule4->ADOTable6->RecNo<DataModule4->ADOTable6->RecordCount)
{sButton9->Enabled=true; sButton10->Enabled=true; }
{sButton11->Enabled=false; sButton12->Enabled=false;
}(DataModule4->ADOTable6->RecNo==DataModule4->ADOTable6->RecordCount)
{sButton11->Enabled=false; sButton12->Enabled=false;
sButton9->Enabled=true; sButton10->Enabled=true; }->ADOTable6->Next
(); }(sGroupBox2->Visible==true && sRadioButton2->Checked==true)
{(DataModule4->ADOTable7->RecNo<DataModule4->ADOTable7->RecordCount)
{sButton9->Enabled=true; sButton10->Enabled=true; }
{sButton11->Enabled=false; sButton12->Enabled=false; }(DataModule4->ADOTable7->RecNo==DataModule4->ADOTable7->RecordCount)
{sButton11->Enabled=false; sButton12->Enabled=false;
sButton9->Enabled=true; sButton10->Enabled=true; }->ADOTable7->Next
(); }(sGroupBox2->Visible==true && sRadioButton3->Checked==true)
{(DataModule4->ADOTable8->RecNo<DataModule4->ADOTable8->RecordCount)
{sButton9->Enabled=true; sButton10->Enabled=true; }
{sButton11->Enabled=false; sButton12->Enabled=false;
}(DataModule4->ADOTable8->RecNo==DataModule4->ADOTable8->RecordCount)
{sButton11->Enabled=false; sButton12->Enabled=false;
sButton9->Enabled=true; sButton10->Enabled=true; }->ADOTable8->Next
(); }(sGroupBox5->Visible==true && sDBGrid2->Visible==true)
{(DataModule4->ADOTable2->RecNo<DataModule4->ADOTable2->RecordCount)
{sButton9->Enabled=true; sButton10->Enabled=true; }
{sButton11->Enabled=false; sButton12->Enabled=false;
}(DataModule4->ADOTable2->RecNo==DataModule4->ADOTable2->RecordCount)
{sButton11->Enabled=false; sButton12->Enabled=false;
sButton9->Enabled=true; sButton10->Enabled=true; }->ADOTable2->Next
(); }(sGroupBox5->Visible==true && sDBGrid3->Visible==true)
{(DataModule4->ADOTable3->RecNo<DataModule4->ADOTable3->RecordCount)
{sButton9->Enabled=true; sButton10->Enabled=true; }
{sButton11->Enabled=false; sButton12->Enabled=false; }(DataModule4->ADOTable3->RecNo==DataModule4->ADOTable3->RecordCount)
{sButton11->Enabled=false; sButton12->Enabled=false;
sButton9->Enabled=true; sButton10->Enabled=true; }->ADOTable3->Next
(); }(sGroupBox4->Visible==true) {(DataModule4->ADOTable4->RecNo<DataModule4->ADOTable4->RecordCount)
{sButton9->Enabled=true; sButton10->Enabled=true; }
{sButton11->Enabled=false; sButton12->Enabled=false;
}(DataModule4->ADOTable4->RecNo==DataModule4->ADOTable4->RecordCount)
{sButton11->Enabled=false; sButton12->Enabled=false;
sButton9->Enabled=true; sButton10->Enabled=true; }->ADOTable4->Next
(); }(sGroupBox3->Visible==true)
{(DataModule4->ADOTable5->RecNo<DataModule4->ADOTable5->RecordCount)
{sButton9->Enabled=true; sButton10->Enabled=true; }
{sButton11->Enabled=false; sButton12->Enabled=false;
}(DataModule4->ADOTable5->RecNo==DataModule4->ADOTable5->RecordCount)
{sButton11->Enabled=false; sButton12->Enabled=false;
sButton9->Enabled=true; sButton10->Enabled=true; }->ADOTable5->Next
(); }
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: sButton17Click (TObject *Sender)
{->Close ();->Show
();->sGroupBox2->Visible=true;->sGroupBox1->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall
TForm2:: FormKeyDown (TObject *Sender, WORD &Key,Shift)
{(Key==VK_ESCAPE) {sButton8Click (sButton8); }
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: N16Click (TObject *Sender)
{->Close ();
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: N4Click (TObject *Sender)
{->Show
();->sPageControl1->ActivePage=Form7->sTabSheet1;->sPageControl2->ActivePage=Form7->sTabSheet3;
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: N17Click (TObject *Sender)
{->Show
();->sPageControl1->ActivePage=Form7->sTabSheet1;->sPageControl2->ActivePage=Form7->sTabSheet4;
}
// ---------------------------------------------------------------------------__fastcall
TForm2:: N18Click (TObject *Sender)
{->Show
();->sPageControl1->ActivePage=Form7->sTabSheet2;->sPageControl3->ActivePage=Form7->sTabSheet5;
}
// ---------------------------------------------------------------------------__fastcall
TForm2:: N19Click (TObject *Sender)
{->Show
();->sPageControl1->ActivePage=Form7->sTabSheet2;->sPageControl3->ActivePage=Form7->sTabSheet6;
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: N21Click (TObject *Sender)
{->Show
();->sPageControl1->ActivePage=Form7->sTabSheet2;->sPageControl3->ActivePage=Form7->sTabSheet7;->sPageControl4->ActivePage=Form7->sTabSheet8;
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: N22Click (TObject *Sender)
{->Show
();->sPageControl1->ActivePage=Form7->sTabSheet2;->sPageControl3->ActivePage=Form7->sTabSheet7;->sPageControl4->ActivePage=Form7->sTabSheet9;
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: N13Click (TObject *Sender)
{->Close ();->Show
();->sGroupBox1->Visible=true;->sGroupBox2->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall
TForm2:: N3Click (TObject *Sender)
{->Close ();->Show
();->sPageControl1->ActivePage=Form5->sTabSheet2;->sPageControl2->ActivePage=Form5->sTabSheet3;->sPageControl4->ActivePage=Form5->sTabSheet18;
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: N23Click (TObject *Sender)
{->Close ();->Show
();->sPageControl1->ActivePage=Form5->sTabSheet1;->sButton1->SetFocus
();->sGroupBox2->Visible=false;->sGroupBox1->Visible=true;->sGroupBox3->Visible=false;->sGroupBox6->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: N24Click (TObject *Sender) {->Close ();->Show ();->sPageControl1->ActivePage=Form5->sTabSheet1;->sButton2->SetFocus
();->sGroupBox1->Visible=false;->sGroupBox2->Visible=true;->sGroupBox3->Visible=false;->sGroupBox6->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: N25Click (TObject *Sender) {->Close ();->Show
();->sPageControl1->ActivePage=Form5->sTabSheet1;->sButton3->SetFocus
();->sGroupBox1->Visible=false;->sGroupBox2->Visible=false;->sGroupBox3->Visible=true;->sGroupBox6->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall
TForm2:: N26Click (TObject *Sender) {->Close ();->Show
();->sPageControl1->ActivePage=Form5->sTabSheet1;->sButton20->SetFocus
();->sGroupBox1->Visible=false;->sGroupBox2->Visible=false;->sGroupBox3->Visible=false;->sGroupBox6->Visible=true;
}
//
---------------------------------------------------------------------------
Расценки
//
---------------------------------------------------------------------------
#include <vcl. h>
#pragma hdrstop
#include "Unit2. h"
#include "Unit3. h"
#include "Unit4. h"
#include "Unit5. h"
#include "Unit9. h"
#include "Unit13. h"
//
---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma link "sEdit"
#pragma link "sGroupBox"
#pragma link "sLabel"
#pragma link "sPanel"
#pragma link "sStatusBar"
#pragma link "sButton"
#pragma link "acProgressBar"
#pragma link "sGauge"
#pragma link "acDBGrid"
#pragma link "sDBEdit"
#pragma link "sBevel"
#pragma link "sBitBtn"
#pragma resource "*. dfm"*Form3;
//
---------------------------------------------------------------------------
__fastcall TForm3:: TForm3 (TComponent* Owner)
: TForm (Owner)
{
}
// ---------------------------------------------------------------------------__fastcall
TForm3:: sButton3Click (TObject *Sender)
{->ADOQuery14->Active=false;->ADOQuery14->Active=true;->Close
();->Show ();
}
//
---------------------------------------------------------------------------__fastcall
TForm3:: sEdit1Change (TObject *Sender)
{(sEdit1->Text! ="") {Timer1->Enabled=true;
}(int i=0; i<=0; i++) {( (sEdit1->Text==" [") ||
(sEdit1->Text=="] ")) { MessageBoxA (NULL,"Не корректное
значение для поиска! Проверьте и повторите ввод данных!","Ошибка",MB_OK);
break; }{->ADOQuery14->Close ();->ADOQuery14->SQL->Clear
();->ADOQuery14->SQL->Add ("select * from Razcenki where
nameobosnov LIKE '%"+sEdit1->Text+"%' and Name Like '%"+sEdit7->Text+"%';
");->ADOQuery14->Open ();->Visible=true;->Text="Найдено
записей: " + (IntToStr
(DataModule4->ADOQuery14->RecordCount));(IntToStr
(DataModule4->ADOQuery14->RecordCount) ==1) {sGroupBox1->Visible=true;
sGroupBox2->Visible=false; }(IntToStr
(DataModule4->ADOQuery14->RecordCount) ==2) {sEdit7->Visible=true; sLabel4->Visible=true;
}{sEdit7->Visible=false; sEdit7->Clear (); sLabel4->Visible=false; }(
(IntToStr (DataModule4->ADOQuery14->RecordCount)! =1) &&
(IntToStr (DataModule4->ADOQuery14->RecordCount)! =0)) {sGroupBox1->Visible=false;
sGroupBox2->Visible=true; }( (IntToStr
(DataModule4->ADOQuery14->RecordCount) ==0) ||
(sEdit1->Text=="")) {sEdit2->Visible=false;
sGroupBox1->Visible=false; sGroupBox2->Visible=false;
sGroupBox3->Visible=false; }}}
}
//
---------------------------------------------------------------------------__fastcall
TForm3:: sButton1Click (TObject *Sender)
{(sButton1->Caption=="Поиск по наименованию")
{->ADOQuery14->Close ();->ADOQuery14->SQL->Clear
();->ADOQuery14->SQL->Add ("select * from
Razcenki");->ADOQuery14->Open ();->Clear ();->Clear
();->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Caption="Закрыть";
}{->ADOQuery14->Close ();->ADOQuery14->SQL->Clear
();->ADOQuery14->SQL->Add ("select * from
Razcenki");->ADOQuery14->Open
();->Visible=true;->Visible=true;->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Caption="Поиск
по наименованию"; }
}
//
---------------------------------------------------------------------------__fastcall
TForm3:: sEdit3Change (TObject *Sender)
{(sEdit3->Text! ="") {Timer1->Enabled=true;
}(int i=0; i<=0; i++) {( (sEdit3->Text==" [") ||
(sEdit3->Text=="] ")) { Application->MessageBoxA ("Не
корректное значение для поиска! Повторите ввод данных!","Ошибка",16);;
break; }->ADOQuery14->Active=false;->ADOQuery14->SQL->Clear
();->ADOQuery14->SQL->Add ("select * from Razcenki where Name
LIKE '%"+sEdit3->Text+"%';
");->ADOQuery14->Active=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm3:: FormKeyDown (TObject *Sender, WORD &Key,Shift) {(Key==VK_ESCAPE)
{sButton3Click (sButton3); }
}
//
---------------------------------------------------------------------------__fastcall
TForm3:: Timer1Timer (TObject *Sender)
{->Progress++;(sGauge1->Progress==sGauge1->MaxValue)
{Timer1->Enabled=false; sGauge1->Progress=0; }
}
//
---------------------------------------------------------------------------__fastcall
TForm3:: Timer2Timer (TObject *Sender)
{(sEdit4->Text! ="" && sEdit5->Text!
="" && sEdit6->Text! ="")
{sButton4->Enabled=true; }{sButton4->Enabled=false; }
}
//
---------------------------------------------------------------------------__fastcall
TForm3:: sButton4Click (TObject *Sender)
{a;->QRLabel2->Caption=sEdit4->Text;->QRLabel5->Caption=sEdit5->Text+"
"+sEdit6->Text;(int i=0;
DataModule4->ADOQuery14->RecordCount>i; i++) {=a+
(DataModule4->ADOQuery14->FieldValues
["Stoimoct"]);->ADOQuery14->Next ();
}->QRLabel21->Caption=IntToStr (a) +" руб.
";->QuickRep1->Preview ();
}
// ---------------------------------------------------------------------------__fastcall
TForm3:: sEdit7Change (TObject *Sender)
{(int i=0; i<=0; i++) {( (sEdit1->Text==" [")
|| (sEdit1->Text=="] ")) { MessageBoxA (NULL,"Не корректное
значение для поиска! Проверьте и повторите ввод
данных!","Ошибка",MB_OK); break; }{->ADOQuery14->Close
();->ADOQuery14->SQL->Clear ();->ADOQuery14->SQL->Add
("select * from Razcenki where nameobosnov LIKE
'%"+sEdit1->Text+"%' and Name Like
'%"+sEdit7->Text+"%'; ");->ADOQuery14->Open ();
}}->Text="Найдено записей: " + (IntToStr
(DataModule4->ADOQuery14->RecordCount));(IntToStr
(DataModule4->ADOQuery14->RecordCount) ==1) {sGroupBox1->Visible=true;
sGroupBox2->Visible=false; }( (IntToStr (DataModule4->ADOQuery14->RecordCount)!
=1) && (IntToStr (DataModule4->ADOQuery14->RecordCount)! =0))
{sGroupBox1->Visible=false; sGroupBox2->Visible=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm3:: sButton7Click (TObject *Sender)
{->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall
TForm3:: sButton5Click (TObject *Sender)
{(DataModule4->ADOQuery16Name->Text==DataModule4->ADOQuery14Name->Text)
{Application->MessageBoxA ("Запись существует, добавление не
возможно!","Ошибка. ",16); }{->ADOQuery16->Append
();->ADOQuery16Name->Text=DataModule4->ADOQuery14Name->Text;->ADOQuery16cena_city_otp->Text=DataModule4->ADOQuery14cena_city_otp->Text;->ADOQuery16cena_selo_otp->Text=DataModule4->ADOQuery14cena_selo_otp->Text;->ADOQuery16cena_city_smet->Text=DataModule4->ADOQuery14cena_city_smet->Text;->ADOQuery16cena_selo_smet->Text=DataModule4->ADOQuery14cena_selo_smet->Text;->ADOQuery16->Post
(); }
}
{->Visible=true;
}
//
---------------------------------------------------------------------------__fastcall
TForm3:: sButton6Click (TObject *Sender)
{i;a1,a2,a3,a4;(i=0; DataModule4->ADOQuery16->RecordCount>i;
i++) {=a1+ (DataModule4->ADOQuery16->FieldValues
["cena_city_otp"]);=a2+ (DataModule4->ADOQuery16->FieldValues
["cena_selo_otp"]);=a3+ (DataModule4->ADOQuery16->FieldValues
["cena_city_smet"]);=a4+ (DataModule4->ADOQuery16->FieldValues
["cena_selo_smet"]);->ADOQuery16->Next ();
}->QRLabel9->Caption=FormatFloat ("0.00",a1) +" руб.
";->QRLabel10->Caption=FormatFloat ("0.00",a2) +"
руб. ";->QRLabel11->Caption=FormatFloat ("0.00",a3)
+" руб. ";->QRLabel12->Caption=FormatFloat
("0.00",a4) +" руб. ";->QuickRep1->Preview ();
}
//
---------------------------------------------------------------------------__fastcall
TForm3:: sButton8Click (TObject *Sender)
{->ADOQuery16->Delete ();
}
//
---------------------------------------------------------------------------__fastcall
TForm3:: sButton2Click (TObject *Sender) {->Close ();->Show (); }
//
---------------------------------------------------------------------------
Добавление/Редактирование
//
---------------------------------------------------------------------------
#include <vcl. h>
#include <String. h>
#pragma hdrstop
#include "Unit1. h"
#include "Unit2. h"
#include "Unit3. h"
#include "Unit4. h"
#include "Unit5. h"
//
---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma link "acDBGrid"
#pragma link "sButton"
#pragma link "sDBEdit"
#pragma link "sDBLookupComboBox"
#pragma link "sGroupBox"
#pragma link "sLabel"
#pragma link "sPanel"
#pragma link "sStatusBar"
#pragma link "sCustomComboEdit"
#pragma link "sMaskEdit"
#pragma link "sTooledit"
#pragma link "sDBLookupListBox"
#pragma link "sCurrEdit"
#pragma link "sDBListBox"
#pragma link "sPageControl"
#pragma link "sSpeedButton"
#pragma link "sCheckListBox"
#pragma link "sListBox"
#pragma link "sBevel"
#pragma link "sCheckBox"
#pragma link "sEdit"
#pragma link "sRadioButton"
#pragma link "sMemo"
#pragma resource "*. dfm"*Form5;
//
---------------------------------------------------------------------------
__fastcall TForm5:: TForm5 (TComponent* Owner)
: TForm (Owner)
{
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton4Click (TObject *Sender)
{->Close ();->Show ();
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton3Click (TObject *Sender)
{->Visible=false;->Visible=true;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton2Click (TObject *Sender)
{->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton1Click (TObject *Sender)
{->Visible=false;->Visible=true;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton8Click (TObject *Sender)
{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton9Click (TObject *Sender)
{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton10Click (TObject *Sender)
{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton11Click (TObject *Sender)
{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton12Click (TObject *Sender)
{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton13Click (TObject *Sender)
{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton14Click (TObject *Sender)
{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton15Click (TObject *Sender)
{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton19Click (TObject *Sender)
{->Close ();->Show
();->sGroupBox1->Visible=true;->sGroupBox2->Visible=false;->sGroupBox3->Visible=false;->sGroupBox4->Visible=false;->sGroupBox5->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton16Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable4->Append
();->Enabled=false;->SetFocus ();
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton17Click (TObject *Sender)
{
// Области(sDBEdit1->Text=="")
{Application->MessageBoxA ("Заполнены не все
поля!","Заполнение полей. ",16);
}{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable4->Post
();->Enabled=true;->ReadOnly=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton5Click (TObject *Sender)
{->ADOTable1->Append (); // добавляет пустую запись в
конец
таблицы->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton6Click (TObject *Sender)
{ int i=0*1;(sDBLookupComboBox1->Text=="" ||
sDBLookupComboBox2->Text=="" ||
sDBLookupComboBox3->Text=="" ||
sDBLookupComboBox4->Text=="" ||
sDBLookupComboBox5->Text=="" || sDBLookupComboBox6->Text==""
|| sDBLookupComboBox7->Text=="" || sDBLookupComboBox8->Text==""
|| sDateEdit1->Text=="" || sDateEdit2->Text=="" ||
Memo2->Text=="") {>MessageBoxA ("Заполнены не все
поля!","Заполнение полей",16);
}{->ADOTable1new_stroj->Value=sDateEdit1->Date;->ADOTable1close_stoj->Value=sDateEdit2->Date;(i=0;
i<Memo2->Lines->Count; i++) {(i<Memo2->Lines->Count-1)
{->ADOTable1materiali->Text=DataModule4->ADOTable1materiali->Text+Memo2->Lines->Strings
[i] +", ";
}DataModule4->ADOTable1materiali->Text=DataModule4->ADOTable1materiali->Text+Memo2->Lines->Strings
[i];
}(sRadioButton3->Checked)
{DataModule4->ADOTable1tip_stoj->Text="Действующее
строительство";
}{DataModule4->ADOTable1tip_stoj->Text="Строительство
прекращено"; }->ADOTable1->Post
();->Enabled=true;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Clear
();->Clear ();->Clear ();->Clear ();->Enabled=false;->Enabled=false;>MessageBoxA
("Запись сохранена!","Сохранение. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton7Click (TObject *Sender)
{->ADOTable1->Cancel
();->Enabled=true;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Clear
();->Clear ();->Clear ();->Clear
();->Enabled=false;->Enabled=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton20Click (TObject *Sender)
{->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton21Click (TObject *Sender)
{->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton22Click (TObject *Sender)
{->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable12->Cancel
();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable11->Cancel
();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable10->Cancel
();->Enabled=false;->Enabled=false;->Enabled=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton23Click (TObject *Sender)
{->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable12->Cancel
();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable11->Cancel
();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable10->Cancel
();->Enabled=false;->Enabled=false;->Enabled=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton24Click (TObject *Sender)
{->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable12->Cancel
();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable11->Cancel
();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable10->Cancel
();->Enabled=false;->Enabled=false;->Enabled=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton25Click (TObject *Sender)
{
// новое строительство(sGroupBox9->Visible==true)
{->ADOTable10->Append
();->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=true;
}
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton26Click (TObject *Sender)
{
// новое строительство( (sGroupBox9->Visible==true)
&& (sDBEdit12->Text=="" ||
sDBLookupComboBox13->Text=="" ||
sDBLookupComboBox9->Text=="")) {>MessageBoxA ("Заполнены
не все поля!","Заполнение полей",16);
}{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable10name_newstroj->Text="Новое
строительство";->ADOQuery9->Active=false;->ADOQuery9->Active=true;->ADOTable10->Post
();->Enabled=false;->Enabled=false;->Enabled=false; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton27Click (TObject *Sender)
{
// новое строительство(sGroupBox9->Visible==true)
{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable10->Cancel
();->Enabled=false;->Enabled=false;->Enabled=false; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sPageControl1Change (TObject *Sender)
{(sPageControl1->ActivePage==sTabSheet1)
{sButton1->SetFocus ();
}->ActivePage=sTabSheet3;->ActivePage=sTabSheet18;->Visible=false;->Visible=true;->Visible=false;->Visible=false;
// SQL reset->ADOQuery1->Active=false;
DataModule4->ADOQuery1->Active=true;->ADOQuery2->Active=false;
DataModule4->ADOQuery2->Active=true;->ADOQuery3->Active=false;
DataModule4->ADOQuery3->Active=true;->ADOQuery4->Active=false;
DataModule4->ADOQuery4->Active=true;->ADOQuery5->Active=false;
DataModule4->ADOQuery5->Active=true;->ADOQuery6->Active=false;
DataModule4->ADOQuery6->Active=true;->ADOQuery7->Active=false;
DataModule4->ADOQuery7->Active=true;->ADOQuery8->Active=false;
DataModule4->ADOQuery8->Active=true;->ADOQuery9->Active=false; DataModule4->ADOQuery9->Active=true;->ADOQuery10->Active=false;
DataModule4->ADOQuery10->Active=true;->ADOQuery11->Active=false;
DataModule4->ADOQuery11->Active=true;->ADOQuery12->Active=false;
DataModule4->ADOQuery12->Active=true;->ADOQuery13->Active=false;
DataModule4->ADOQuery13->Active=true;->ADOQuery14->Active=false;
DataModule4->ADOQuery14->Active=true;
// BD reset->ADOTable1->Active=false;
DataModule4->ADOTable1->Active=true;->ADOTable2->Active=false;
DataModule4->ADOTable2->Active=true;->ADOTable3->Active=false;
DataModule4->ADOTable3->Active=true;->ADOTable4->Active=false;
DataModule4->ADOTable4->Active=true;->ADOTable5->Active=false;
DataModule4->ADOTable5->Active=true;->ADOTable6->Active=false;
DataModule4->ADOTable6->Active=true;->ADOTable7->Active=false;
DataModule4->ADOTable7->Active=true;->ADOTable8->Active=false;
DataModule4->ADOTable8->Active=true;->ADOTable9->Active=false;
DataModule4->ADOTable9->Active=true;->ADOTable10->Active=false;
DataModule4->ADOTable10->Active=true;->ADOTable11->Active=false;
DataModule4->ADOTable11->Active=true;->ADOTable12->Active=false;
DataModule4->ADOTable12->Active=true;->ADOTable13->Active=false;
DataModule4->ADOTable13->Active=true;->ADOTable14->Active=false;
DataModule4->ADOTable14->Active=true;->ADOTable15->Active=false;
DataModule4->ADOTable15->Active=true;
// блокировка полей редактирования
// объекты->ReadOnly=true;->ReadOnly=true;
sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true;
sDBEdit32->ReadOnly=true;->ReadOnly=true; sDBEdit35->ReadOnly=true;
sDBEdit38->ReadOnly=true;->ReadOnly=true;->ReadOnly=true;
sDateEdit4->ReadOnly=true;->Enabled=false;
sDBLookupComboBox16->Enabled=false;
sDBLookupComboBox17->Enabled=false;->Enabled=false;
sDBLookupComboBox19->Enabled=false; sDBLookupComboBox20->Enabled=false;->Enabled=false;
sDBLookupComboBox22->Enabled=false;
sDBLookupComboBox23->Enabled=false;->Enabled=false;
sDateEdit6->Enabled=false;
// виды работ->ReadOnly=true;
sDBEdit52->ReadOnly=true;->ReadOnly=true;
sDBEdit55->ReadOnly=true;->ReadOnly=true; sDBEdit58->ReadOnly=true;
// прорабы - материалы->ReadOnly=true;
sDBEdit37->ReadOnly=true; sDBEdit42->ReadOnly=true;->ReadOnly=true;
sDBEdit44->ReadOnly=true; sDBEdit45->ReadOnly=true;->ReadOnly=true;
sDBEdit47->ReadOnly=true; sDBEdit48->ReadOnly=true;->ReadOnly=true;
// расценки
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sPageControl2Change (TObject *Sender)
{->ActivePage=sTabSheet15;->ActivePage=sTabSheet18;
// SQL reset->ADOQuery1->Active=false;
DataModule4->ADOQuery1->Active=true;->ADOQuery2->Active=false;
DataModule4->ADOQuery2->Active=true;->ADOQuery3->Active=false;
DataModule4->ADOQuery3->Active=true;->ADOQuery4->Active=false;
DataModule4->ADOQuery4->Active=true;->ADOQuery5->Active=false; DataModule4->ADOQuery5->Active=true;->ADOQuery6->Active=false;
DataModule4->ADOQuery6->Active=true;->ADOQuery7->Active=false;
DataModule4->ADOQuery7->Active=true;->ADOQuery8->Active=false;
DataModule4->ADOQuery8->Active=true;->ADOQuery9->Active=false;
DataModule4->ADOQuery9->Active=true;->ADOQuery10->Active=false;
DataModule4->ADOQuery10->Active=true;->ADOQuery11->Active=false;
DataModule4->ADOQuery11->Active=true;->ADOQuery12->Active=false;
DataModule4->ADOQuery12->Active=true;->ADOQuery13->Active=false;
DataModule4->ADOQuery13->Active=true;->ADOQuery14->Active=false;
DataModule4->ADOQuery14->Active=true;
// BD reset->ADOTable1->Active=false;
DataModule4->ADOTable1->Active=true;->ADOTable2->Active=false;
DataModule4->ADOTable2->Active=true;->ADOTable3->Active=false;
DataModule4->ADOTable3->Active=true;->ADOTable4->Active=false;
DataModule4->ADOTable4->Active=true;->ADOTable5->Active=false;
DataModule4->ADOTable5->Active=true;->ADOTable6->Active=false;
DataModule4->ADOTable6->Active=true;->ADOTable7->Active=false;
DataModule4->ADOTable7->Active=true;->ADOTable8->Active=false;
DataModule4->ADOTable8->Active=true;->ADOTable9->Active=false;
DataModule4->ADOTable9->Active=true;->ADOTable10->Active=false;
DataModule4->ADOTable10->Active=true;->ADOTable11->Active=false;
DataModule4->ADOTable11->Active=true;->ADOTable12->Active=false;
DataModule4->ADOTable12->Active=true;->ADOTable13->Active=false;
DataModule4->ADOTable13->Active=true;->ADOTable14->Active=false;
DataModule4->ADOTable14->Active=true;->ADOTable15->Active=false;
DataModule4->ADOTable15->Active=true;
// блокировка полей редактирования
// объекты->ReadOnly=true;->ReadOnly=true;
sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true;
sDBEdit32->ReadOnly=true;->ReadOnly=true; sDBEdit35->ReadOnly=true;
sDBEdit38->ReadOnly=true;->ReadOnly=true;->ReadOnly=true;
sDateEdit4->ReadOnly=true;->Enabled=false;
sDBLookupComboBox16->Enabled=false;
sDBLookupComboBox17->Enabled=false;->Enabled=false;
sDBLookupComboBox19->Enabled=false;
sDBLookupComboBox20->Enabled=false;->Enabled=false; sDBLookupComboBox22->Enabled=false;
sDBLookupComboBox23->Enabled=false;->Enabled=false;
sDateEdit6->Enabled=false;
// виды работ->ReadOnly=true;
sDBEdit52->ReadOnly=true;->ReadOnly=true;
sDBEdit55->ReadOnly=true;->ReadOnly=true; sDBEdit58->ReadOnly=true;
// прорабы - материалы->ReadOnly=true;
sDBEdit37->ReadOnly=true; sDBEdit42->ReadOnly=true;->ReadOnly=true;
sDBEdit44->ReadOnly=true; sDBEdit45->ReadOnly=true;->ReadOnly=true;
sDBEdit47->ReadOnly=true; sDBEdit48->ReadOnly=true;->ReadOnly=true;
// расценки
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton18Click (TObject *Sender)
{
// Области/Города(sButton18->Caption=="Отмена")
{->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable4->Cancel
();->Caption="Редактировать";
}{->ActivePage=sTabSheet2;->ActivePage=sTabSheet6; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: FormKeyDown (TObject *Sender, WORD &Key,Shift)
{(Key==VK_ESCAPE) {sButton4Click (sButton4); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton30Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable6->Append
();->Enabled=false;->SetFocus ();
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton31Click (TObject *Sender)
{(sDBEdit2->Text=="")
{Application->MessageBoxA ("Заполнены не все
поля!","Заполнение полей. ",16);
}{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable6->Post
();->Enabled=true;->ReadOnly=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton32Click (TObject *Sender)
{(sButton32->Caption=="Отмена") {->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable6->Cancel
();->Caption="Редактировать";
}{->ActivePage=sTabSheet2;->ActivePage=sTabSheet8; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton33Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable7->Append
();->Enabled=false;->SetFocus ();
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton34Click (TObject *Sender)
{(sDBEdit3->Text=="")
{Application->MessageBoxA ("Заполнены не все
поля!","Заполнение полей. ",16);
}{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable7->Post
();->Enabled=true;->ReadOnly=true; }
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton35Click (TObject *Sender)
{(sButton35->Caption=="Отмена")
{->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable7->Cancel
();->Caption="Редактировать"; }{->ActivePage=sTabSheet2;->ActivePage=sTabSheet9;
}
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton36Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable8->Append
();->Enabled=false;->SetFocus ();
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton37Click (TObject *Sender)
{(sDBEdit4->Text=="")
{Application->MessageBoxA ("Заполнены не все
поля!","Заполнение полей. ",16);
}{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable8->Post
();->Enabled=true;->ReadOnly=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton38Click (TObject *Sender)
{(sButton38->Caption=="Отмена")
{->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable8->Cancel
();->Caption="Редактировать";
}{->ActivePage=sTabSheet2;->ActivePage=sTabSheet10; }
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton41Click (TObject *Sender)
{(sButton41->Caption=="Отмена")
{->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable2->Cancel
();->Caption="Редактировать"; }{->ActivePage=sTabSheet2;->ActivePage=sTabSheet4;
}
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton40Click (TObject *Sender)
{(sDBEdit5->Text=="")
{Application->MessageBoxA ("Заполнены не все
поля!","Заполнение полей. ",16);
}{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable2->Post
();->Enabled=true;->ReadOnly=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton39Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable2->Append
();->Enabled=false;->SetFocus ();
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton42Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable3->Append
();->Enabled=false;->SetFocus ();
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton43Click (TObject *Sender)
{(sDBEdit1->Text=="")
{Application->MessageBoxA ("Заполнены не все
поля!","Заполнение полей. ",16);
}{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable3->Post
();->Enabled=true;->ReadOnly=true; }
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton44Click (TObject *Sender)
{(sButton44->Caption=="Отмена")
{->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable3->Cancel
();->Caption="Редактировать";
}{->ActivePage=sTabSheet2;->ActivePage=sTabSheet5; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton50Click (TObject *Sender)
{(sButton50->Caption=="Отмена")
{->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable5->Cancel
();->Caption="Редактировать";
}{->ActivePage=sTabSheet2;->ActivePage=sTabSheet7; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton49Click (TObject *Sender)
{( (sDBEdit9->Text=="" &&
sDBEdit10->Text=="") && (sDBEdit9->Text==""
|| sDBEdit10->Text=="")) {Application->MessageBoxA
("Заполнены не все поля!","Заполнение полей. ",16);
}{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable5->Post
();->Enabled=true;->ReadOnly=true;->ReadOnly=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton48Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ReadOnly=false;->ADOTable5->Append
();->Enabled=false;->SetFocus ();
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton51Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ADOTable9->Append
();->Enabled=false;->SetFocus ();
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton52Click (TObject *Sender)
{(sDBEdit11->Text=="")
{Application->MessageBoxA ("Заполнены не все
поля!","Заполнение полей. ",16);
}{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable9->Post
();->Enabled=true;->ReadOnly=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton53Click (TObject *Sender)
{(sButton53->Caption=="Отмена")
{->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable9->Cancel
();->Caption="Редактировать";
}{->ActivePage=Form5->sTabSheet2;->ActivePage=Form5->sTabSheet3;->ActivePage=Form5->sTabSheet19;
}
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sDateEdit2Change (TObject *Sender)
{->MinDate=sDateEdit1->Date;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sDateEdit1Change (TObject *Sender)
{->MaxDate=sDateEdit2->Date;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton45Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ReadOnly=false;->ADOTable14->Append
();->Enabled=false;->SetFocus ();
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton46Click (TObject *Sender)
{( (sDBEdit7->Text=="" &&
sDBEdit8->Text=="" && sDBEdit27->Text=="")
&& (sDBEdit7->Text=="" || sDBEdit8->Text==""
|| sDBEdit27->Text=="")) {Application->MessageBoxA
("Заполнены не все поля!","Заполнение полей. ",16);
}{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable14->Post
();->Enabled=true;->ReadOnly=true;->ReadOnly=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton47Click (TObject *Sender)
{(sButton47->Caption=="Отмена")
{->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable14->Cancel
();->Caption="Редактировать";
}{->ActivePage=sTabSheet2;->ActivePage=sTabSheet11; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sEdit1Change (TObject *Sender)
{(int i=0; i<=0; i++) {( (sEdit1->Text==" [")
|| (sEdit1->Text=="] ")) { Application->MessageBoxA ("Не
корректное значение для поиска! Повторите ввод
данных!","Ошибка",16);; break;
}->ADOQuery1->Active=false;->ADOQuery1->SQL->Clear
();->ADOQuery1->SQL->Add ("select * from prorabi where prorabi
LIKE '%"+sEdit1->Text+"%'; ");->ADOQuery1->Active=true;
}
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: Timer1Timer (TObject *Sender)
{(sPageControl1->ActivePage==sTabSheet1) {Form5->Caption="Добавление
данных"; }(sPageControl1->ActivePage==sTabSheet2)
{Form5->Caption="Редактирование данных"; }
// объекты(sPageControl4->ActivePage==sTabSheet18)
{sLabelFX12->Caption=IntToStr (DataModule4->ADOQuery12->RecordCount);
}(sPageControl4->ActivePage==sTabSheet19) {sLabelFX13->Caption=IntToStr
(DataModule4->ADOQuery13->RecordCount);
}(sPageControl2->ActivePage==sTabSheet4) {sLabelFX1->Caption=IntToStr
(DataModule4->ADOQuery1->RecordCount);
}(sPageControl2->ActivePage==sTabSheet5) {sLabelFX2->Caption=IntToStr
(DataModule4->ADOQuery2->RecordCount);
}(sPageControl2->ActivePage==sTabSheet6) {sLabelFX3->Caption=IntToStr
(DataModule4->ADOQuery3->RecordCount);
}(sPageControl2->ActivePage==sTabSheet7) {sLabelFX4->Caption=IntToStr (DataModule4->ADOQuery4->RecordCount);
}(sPageControl2->ActivePage==sTabSheet8) {sLabelFX5->Caption=IntToStr
(DataModule4->ADOQuery5->RecordCount);
}(sPageControl2->ActivePage==sTabSheet9) {sLabelFX6->Caption=IntToStr
(DataModule4->ADOQuery6->RecordCount); }(sPageControl2->ActivePage==sTabSheet10)
{sLabelFX7->Caption=IntToStr (DataModule4->ADOQuery7->RecordCount);
}(sPageControl2->ActivePage==sTabSheet11) {sLabelFX8->Caption=IntToStr
(DataModule4->ADOQuery8->RecordCount);
}(sPageControl2->ActivePage==sTabSheet13) {sLabelFX14->Caption=IntToStr
(DataModule4->ADOQuery14->RecordCount); }
// виды строительных
работ(sPageControl3->ActivePage==sTabSheet15)
{sLabelFX9->Caption=IntToStr (DataModule4->ADOQuery9->RecordCount);
}(sPageControl3->ActivePage==sTabSheet16) {sLabelFX10->Caption=IntToStr
(DataModule4->ADOQuery10->RecordCount);
}(sPageControl3->ActivePage==sTabSheet17) {sLabelFX11->Caption=IntToStr
(DataModule4->ADOQuery11->RecordCount); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sDateEdit3Change (TObject *Sender)
{->MaxDate=sDateEdit4->Date;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sDateEdit4Change (TObject *Sender)
{->MinDate=sDateEdit3->Date;
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sEdit2Change (TObject *Sender)
{(int i=0; i<=0; i++) {( (sEdit2->Text==" [")
|| (sEdit2->Text=="] ")) { Application->MessageBoxA ("Не
корректное значение для поиска! Повторите ввод данных!","Ошибка",16);;
break; }->ADOQuery2->Active=false;->ADOQuery2->SQL->Clear
();->ADOQuery2->SQL->Add ("select * from mastera where mastera
LIKE '%"+sEdit2->Text+"%'; ");->ADOQuery2->Active=true;
}
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sEdit3Change (TObject *Sender)
{(int i=0; i<=0; i++) {( (sEdit3->Text==" [")
|| (sEdit3->Text=="] ")) { Application->MessageBoxA ("Не
корректное значение для поиска! Повторите ввод
данных!","Ошибка",16);; break; }->ADOQuery3->Active=false;->ADOQuery3->SQL->Clear
();->ADOQuery3->SQL->Add ("select * from obl where name_obl LIKE
'%"+sEdit3->Text+"%'; ");->ADOQuery3->Active=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sEdit4Change (TObject *Sender)
{(int i=0; i<=0; i++) {( (sEdit4->Text==" [")
|| (sEdit4->Text=="] ")) { Application->MessageBoxA ("Не
корректное значение для поиска! Повторите ввод
данных!","Ошибка",16);; break; }->ADOQuery4->Active=false;->ADOQuery4->SQL->Clear
();->ADOQuery4->SQL->Add ("select * from izm where nameEdizmer
LIKE '%"+sEdit4->Text+"%'; ");->ADOQuery4->Active=true;
}
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sEdit5Change (TObject *Sender)
{(int i=0; i<=0; i++) {( (sEdit5->Text==" [")
|| (sEdit5->Text=="] ")) { Application->MessageBoxA ("Не
корректное значение для поиска! Повторите ввод
данных!","Ошибка",16);; break; }->ADOQuery5->Active=false;->ADOQuery5->SQL->Clear
();->ADOQuery5->SQL->Add ("select * from zak where namezak LIKE
'%"+sEdit5->Text+"%'; ");->ADOQuery5->Active=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sEdit6Change (TObject *Sender)
{(int i=0; i<=0; i++) {( (sEdit6->Text==" [")
|| (sEdit6->Text=="] ")) { Application->MessageBoxA ("Не
корректное значение для поиска! Повторите ввод
данных!","Ошибка",16);; break; }->ADOQuery6->Active=false;->ADOQuery6->SQL->Clear
();->ADOQuery6->SQL->Add ("select * from podr where namepodr LIKE
'%"+sEdit6->Text+"%'; ");->ADOQuery6->Active=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sEdit7Change (TObject *Sender)
{(int i=0; i<=0; i++) {( (sEdit7->Text==" [")
|| (sEdit7->Text=="] ")) { Application->MessageBoxA ("Не
корректное значение для поиска! Повторите ввод
данных!","Ошибка",16);; break;
}->ADOQuery7->Active=false;->ADOQuery7->SQL->Clear
();->ADOQuery7->SQL->Add ("select * from genpodr where namegenpodr
LIKE '%"+sEdit7->Text+"%'; ");->ADOQuery7->Active=true;
}
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sEdit8Change (TObject *Sender)
{(int i=0; i<=0; i++) {( (sEdit8->Text==" [")
|| (sEdit8->Text=="] ")) { Application->MessageBoxA ("Не
корректное значение для поиска! Повторите ввод
данных!","Ошибка",16);; break;
}->ADOQuery8->Active=false;->ADOQuery8->SQL->Clear
();->ADOQuery8->SQL->Add ("select * from mat where namematerial
LIKE '%"+sEdit8->Text+"%'; ");->ADOQuery8->Active=true;
}
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sEdit12Change (TObject *Sender)
{(int i=0; i<=0; i++) {( (sEdit12->Text=="
[") || (sEdit12->Text=="] ")) { MessageBoxA (NULL,"Не
корректное значение для поиска! Проверьте и повторите ввод
данных!","Ошибка",MB_OK); break;
}->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear
();->ADOQuery12->SQL->Add ("Select * from obj where name_object
Like '%"+sEdit12->Text+"%' and obl Like
'%"+sEdit13->Text+"%'");->ADOQuery12->Active=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sEdit13Change (TObject *Sender)
{(int i=0; i<=0; i++) {( (sEdit13->Text=="
[") || (sEdit13->Text=="] ")) { MessageBoxA (NULL,"Не
корректное значение для поиска! Проверьте и повторите ввод
данных!","Ошибка",MB_OK); break;
}->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear
();->ADOQuery12->SQL->Add ("Select * from obj where name_object
Like '%"+sEdit12->Text+"%' and obl Like
'%"+sEdit13->Text+"%'");->ADOQuery12->Active=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton90Click (TObject *Sender)
{
// ремонт(sGroupBox10->Visible==true) {->ADOTable11->Append
();->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=true;
}
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton91Click (TObject *Sender)
{
// ремонт( (sGroupBox10->Visible==true) &&
(sDBLookupComboBox10->Text=="" ||
sDBLookupComboBox12->Text=="")) {>MessageBoxA ("Заполнены
не все поля!","Заполнение полей",16); }{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable11name_restavr->Text="Ремонт";->ADOQuery10->Active=false;->ADOQuery10->Active=true;->ADOTable11->Post
();->Enabled=false;->Enabled=false;->Enabled=false; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton92Click (TObject *Sender)
{
// ремонт(sGroupBox10->Visible==true)
{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable11->Cancel
();->Enabled=false;->Enabled=false;->Enabled=false; }
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton93Click (TObject *Sender)
{
// реконструкция(sGroupBox11->Visible==true)
{->ADOTable12->Append
();->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=true;
}
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton94Click (TObject *Sender)
{
// реконструкция( (sGroupBox11->Visible==true) &&
(sDBEdit22->Text=="" || sDBLookupComboBox11->Text==""
|| sDBLookupComboBox14->Text=="")) {>MessageBoxA
("Заполнены не все поля!","Заполнение полей",16);
}{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable12name_rekonctrik->Text="Реконструкция";->ADOQuery11->Active=false;->ADOQuery11->Active=true;->ADOTable12->Post
();->Enabled=false;->Enabled=false;->Enabled=false; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton95Click (TObject *Sender)
{
// реконструкция(sGroupBox11->Visible==true)
{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable12->Cancel
();->Enabled=false;->Enabled=false;->Enabled=false; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sEdit9Change (TObject *Sender)
{(int i=0; i<=0; i++) {( (sEdit9->Text==" [")
|| (sEdit9->Text=="] ")) { Application->MessageBoxA ("Не
корректное значение для поиска! Повторите ввод
данных!","Ошибка",16);; break; }->ADOQuery9->Active=false;->ADOQuery9->SQL->Clear
();->ADOQuery9->SQL->Add ("select * from new_stoitelstvo where
Name_stroj_materiala LIKE '%"+sEdit9->Text+"%';
");->ADOQuery9->Active=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sEdit10Change (TObject *Sender)
{(int i=0; i<=0; i++) {( (sEdit10->Text=="
[") || (sEdit10->Text=="] ")) { Application->MessageBoxA
("Не корректное значение для поиска! Повторите ввод
данных!","Ошибка",16);; break; }->ADOQuery10->Active=false;->ADOQuery10->SQL->Clear
();->ADOQuery10->SQL->Add ("select * from restavraciya where
Name_stroj_materiala LIKE '%"+sEdit10->Text+"%';
");->ADOQuery10->Active=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sEdit11Change (TObject *Sender)
{(int i=0; i<=0; i++) {( (sEdit11->Text=="
[") || (sEdit11->Text=="] ")) { Application->MessageBoxA
("Не корректное значение для поиска! Повторите ввод
данных!","Ошибка",16);; break; }->ADOQuery11->Active=false;->ADOQuery11->SQL->Clear
();->ADOQuery11->SQL->Add ("select * from rekoctrykciya where
Name_stroj_materiala LIKE '%"+sEdit11->Text+"%';
");->ADOQuery11->Active=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton55Click (TObject *Sender)
{(sDBEdit28->Text=="" ||
sDBEdit29->Text=="" || sDBEdit30->Text=="" ||
sDBEdit31->Text=="" || sDBEdit32->Text==""||
sDBEdit34->Text=="" || sDBEdit35->Text=="" || sDBEdit38->Text==""
|| sDBEdit39->Text=="" || sDateEdit3->Text=="" ||
sDateEdit4->Text=="" || sDateEdit5->Text=="" ||
sDateEdit6->Text=="") {Application->MessageBoxA ("Какие-то
из полей пусты, сохранение не возможно!","Сохранение. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Удалить";->Enabled=false;->Enabled=false;->ReadOnly=true;
sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true;
sDBEdit32->ReadOnly=true;->ReadOnly=true; sDBEdit35->ReadOnly=true;
sDBEdit38->ReadOnly=true;->ReadOnly=true;->ReadOnly=true;
sDateEdit4->ReadOnly=true;->Enabled=false; sDBLookupComboBox16->Enabled=false;
sDBLookupComboBox17->Enabled=false;->Enabled=false;
sDBLookupComboBox19->Enabled=false;
sDBLookupComboBox20->Enabled=false;->Enabled=false;
sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;->Enabled=false;
sDateEdit6->Enabled=false;->ADOQuery12->Post
();->Enabled=true;>MessageBoxA ("Изменения в БД успешно
сохранены!","Сохранение. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton54Click (TObject *Sender)
{(DataModule4->ADOQuery12->IsEmpty () ==true)
{>MessageBoxA ("Редактирование не возможно, БД
пуста!","Ошибка. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Отмена";->Enabled=true;->Enabled=true;(sRadioButton1->Checked)
{->SetFocus ();->Visible=false;->Visible=true;->ReadOnly=false;
sDBEdit29->ReadOnly=false; sDBEdit30->ReadOnly=false;->ReadOnly=false;
sDBEdit32->ReadOnly=false;->ReadOnly=false; sDBEdit35->ReadOnly=false;
sDBEdit38->ReadOnly=false;->ReadOnly=false; sDateEdit3->ReadOnly=false;
sDateEdit4->ReadOnly=false;->Enabled=false;
sDBLookupComboBox16->Enabled=false;
sDBLookupComboBox17->Enabled=false;->Enabled=false;
sDBLookupComboBox19->Enabled=false;
sDBLookupComboBox20->Enabled=false;->Enabled=false; sDBLookupComboBox22->Enabled=false;
sDBLookupComboBox23->Enabled=false;->Enabled=false;
sDateEdit6->Enabled=false; }{->ReadOnly=true;
sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true;
sDBEdit32->ReadOnly=true;->ReadOnly=true; sDBEdit35->ReadOnly=true;
sDBEdit38->ReadOnly=true;->ReadOnly=true; sDateEdit3->ReadOnly=true;
sDateEdit4->ReadOnly=true;->Enabled=true;
sDBLookupComboBox16->Enabled=true;
sDBLookupComboBox17->Enabled=true;->Enabled=true;
sDBLookupComboBox19->Enabled=true; sDBLookupComboBox20->Enabled=true;->Enabled=true;
sDBLookupComboBox22->Enabled=true;
sDBLookupComboBox23->Enabled=true;->Enabled=true;
sDateEdit6->Enabled=true;->SetFocus (); }->ADOQuery12->Edit
();->Enabled=false;>MessageBoxA ("БД открыта для
редактирования!","Внимение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton56Click (TObject *Sender)
{(DataModule4->ADOQuery12->IsEmpty () ==true)
{>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка.
",16); }if (DataModule4->ADOQuery12->IsEmpty () ==false &&
sButton56->Caption=="Удалить") {->ADOQuery12->Delete
();>MessageBoxA ("Запись БД удалена!","Удаление. ",64);
}{->Caption="Удалить";->Enabled=false;->Enabled=true;->Enabled=false;->Enabled=false;->ReadOnly=true;
sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true;
sDBEdit32->ReadOnly=true;->ReadOnly=true; sDBEdit35->ReadOnly=true;
sDBEdit38->ReadOnly=true;->ReadOnly=true; sDateEdit3->ReadOnly=true;
sDateEdit4->ReadOnly=true;->Enabled=false; sDBLookupComboBox16->Enabled=false;
sDBLookupComboBox17->Enabled=false;->Enabled=false;
sDBLookupComboBox19->Enabled=false;
sDBLookupComboBox20->Enabled=false;->Enabled=false;
sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;->Enabled=false;
sDateEdit6->Enabled=false;->ADOQuery12->Cancel
();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поля
были заблокированы!","Отмена. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton57Click (TObject *Sender)
{(DataModule4->ADOQuery1->IsEmpty () ==true)
{>MessageBoxA ("Редактирование не возможно, БД
пуста!","Ошибка. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery1->Edit
();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для
редактирования!","Внимение. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton58Click (TObject *Sender)
{(sDBEdit36->Text=="") {Application->MessageBoxA
("Пустое поле редактирования, сохранение не
возможно!","Сохранение. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery1->Post
();->Enabled=true;>MessageBoxA ("Изменения в БД успешно
сохранены!","Сохранение. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton59Click (TObject *Sender)
{(DataModule4->ADOQuery1->IsEmpty () ==true)
{>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка.
",16); }if (DataModule4->ADOQuery1->IsEmpty () ==false &&
sButton59->Caption=="Удалить") {->ADOQuery1->Delete
();>MessageBoxA ("Запись БД удалена!","Удаление. ",64);
}{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery1->Cancel
();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле
редактирования заблокировано!","Отмена. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton60Click (TObject *Sender)
{(DataModule4->ADOQuery2->IsEmpty () ==true)
{>MessageBoxA ("Редактирование не возможно, БД
пуста!","Ошибка. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery2->Edit
();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для
редактирования!","Внимение. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton61Click (TObject *Sender)
{(sDBEdit37->Text=="")
{Application->MessageBoxA ("Пустое поле редактирования, сохранение не
возможно!","Сохранение. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery2->Post
();->Enabled=true;>MessageBoxA ("Изменения в БД успешно
сохранены!","Сохранение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton62Click (TObject *Sender)
{(DataModule4->ADOQuery2->IsEmpty () ==true)
{>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка.
",16); }if (DataModule4->ADOQuery2->IsEmpty () ==false &&
sButton62->Caption=="Удалить") {->ADOQuery2->Delete
();>MessageBoxA ("Запись БД удалена!","Удаление. ",64);
}{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery2->Cancel
();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле
редактирования заблокировано!","Отмена. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton63Click (TObject *Sender)
{(DataModule4->ADOQuery3->IsEmpty () ==true)
{>MessageBoxA ("Редактирование не возможно, БД
пуста!","Ошибка. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery3->Edit
();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для
редактирования!","Внимение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton64Click (TObject *Sender)
{(sDBEdit42->Text=="")
{Application->MessageBoxA ("Пустое поле редактирования, сохранение не
возможно!","Сохранение. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery3->Post
();->Enabled=true;>MessageBoxA ("Изменения в БД успешно
сохранены!","Сохранение. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton65Click (TObject *Sender)
{(DataModule4->ADOQuery3->IsEmpty () ==true)
{>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка.
",16); }if (DataModule4->ADOQuery3->IsEmpty () ==false &&
sButton65->Caption=="Удалить") {->ADOQuery3->Delete ();>MessageBoxA
("Запись БД удалена!","Удаление. ",64);
}{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery3->Cancel
();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле
редактирования заблокировано!","Отмена. ",64); }
}
{(DataModule4->ADOQuery4->IsEmpty () ==true)
{>MessageBoxA ("Редактирование не возможно, БД
пуста!","Ошибка. ",16); }{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ReadOnly=false;->ADOQuery4->Edit
();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для
редактирования!","Внимение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton67Click (TObject *Sender) {(sDBEdit43->Text=="" ||
sDBEdit50->Text=="") {Application->MessageBoxA ("Пустое
поле редактирования, сохранение не возможно!","Сохранение.
",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ReadOnly=true;->ADOQuery4->Post
();->Enabled=true;>MessageBoxA ("Изменения в БД успешно
сохранены!","Сохранение. ",64); }}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton68Click (TObject *Sender)
{(DataModule4->ADOQuery4->IsEmpty () ==true)
{>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка.
",16); }if (DataModule4->ADOQuery4->IsEmpty () ==false &&
sButton68->Caption=="Удалить") {->ADOQuery4->Delete ();>MessageBoxA
("Запись БД удалена!","Удаление. ",64);
}{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ReadOnly=true;->ADOQuery4->Cancel
();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле
редактирования заблокировано!","Отмена. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton69Click (TObject *Sender)
{(DataModule4->ADOQuery5->IsEmpty () ==true)
{>MessageBoxA ("Редактирование не возможно, БД пуста!","Ошибка.
",16);
}{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery5->Edit
();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для
редактирования!","Внимение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton70Click (TObject *Sender)
{(sDBEdit44->Text=="")
{Application->MessageBoxA ("Пустое поле редактирования, сохранение не
возможно!","Сохранение. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery5->Post
();->Enabled=true;>MessageBoxA ("Изменения в БД успешно
сохранены!","Сохранение. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton71Click (TObject *Sender)
{(DataModule4->ADOQuery5->IsEmpty () ==true)
{>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка.
",16); }if (DataModule4->ADOQuery5->IsEmpty () ==false &&
sButton71->Caption=="Удалить") {->ADOQuery5->Delete
();>MessageBoxA ("Запись БД удалена!","Удаление. ",64);
}{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery5->Cancel
();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле
редактирования заблокировано!","Отмена. ",64); }}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton72Click (TObject *Sender)
{(DataModule4->ADOQuery6->IsEmpty () ==true) {>MessageBoxA
("Редактирование не возможно, БД пуста!","Ошибка. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery6->Edit
();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для
редактирования!","Внимение. ",64); }}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton73Click (TObject *Sender)
{(sDBEdit45->Text=="")
{Application->MessageBoxA ("Пустое поле редактирования, сохранение не
возможно!","Сохранение. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery6->Post
();->Enabled=true;>MessageBoxA ("Изменения в БД успешно
сохранены!","Сохранение. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton74Click (TObject *Sender)
{(DataModule4->ADOQuery6->IsEmpty () ==true)
{>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка.
",16); }if (DataModule4->ADOQuery6->IsEmpty () ==false &&
sButton74->Caption=="Удалить") {->ADOQuery6->Delete
();>MessageBoxA ("Запись БД удалена!","Удаление. ",64);
}{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery6->Cancel
();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле
редактирования заблокировано!","Отмена. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton75Click (TObject *Sender)
{(DataModule4->ADOQuery7->IsEmpty () ==true)
{>MessageBoxA ("Редактирование не возможно, БД
пуста!","Ошибка. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery7->Edit
();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для
редактирования!","Внимение. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton76Click (TObject *Sender)
{(sDBEdit46->Text=="") {Application->MessageBoxA
("Пустое поле редактирования, сохранение не
возможно!","Сохранение. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery7->Post
();->Enabled=true;>MessageBoxA ("Изменения в БД успешно
сохранены!","Сохранение. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton77Click (TObject *Sender)
{(DataModule4->ADOQuery7->IsEmpty () ==true)
{>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка.
",16); }if (DataModule4->ADOQuery7->IsEmpty () ==false &&
sButton77->Caption=="Удалить") {->ADOQuery7->Delete
();>MessageBoxA ("Запись БД удалена!","Удаление. ",64);
}{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery7->Cancel
();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле
редактирования заблокировано!","Отмена. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton78Click (TObject *Sender)
{(DataModule4->ADOQuery8->IsEmpty () ==true)
{>MessageBoxA ("Редактирование не возможно, БД
пуста!","Ошибка. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ReadOnly=false;->ADOQuery8->Edit
();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для
редактирования!","Внимение. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton79Click (TObject *Sender)
{(sDBEdit47->Text=="" ||
sDBEdit48->Text=="") {Application->MessageBoxA ("Пустое
поле редактирования, сохранение не возможно!","Сохранение.
",16);
}{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ReadOnly=true;->ADOQuery8->Post
();->Enabled=true;>MessageBoxA ("Изменения в БД успешно
сохранены!","Сохранение. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton80Click (TObject *Sender)
{(DataModule4->ADOQuery8->IsEmpty () ==true)
{>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка. ",16);
}if (DataModule4->ADOQuery8->IsEmpty () ==false &&
sButton80->Caption=="Удалить") {->ADOQuery8->Delete
();>MessageBoxA ("Запись БД удалена!","Удаление. ",64);
}{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ReadOnly=true;->ADOQuery8->Cancel
();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле
редактирования заблокировано!","Отмена. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton81Click (TObject *Sender)
{(DataModule4->ADOQuery9->IsEmpty () ==true)
{>MessageBoxA ("Редактирование не возможно, БД
пуста!","Ошибка. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ReadOnly=false;->ADOQuery9->Edit
();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для
редактирования!","Внимение. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton82Click (TObject *Sender)
{(sDBEdit51->Text=="" ||
sDBEdit52->Text=="") {Application->MessageBoxA ("Пустое
поле редактирования, сохранение не возможно!","Сохранение.
",16);
}{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ReadOnly=true;->ADOQuery9->Post
();->Enabled=true;>MessageBoxA ("Изменения в БД успешно
сохранены!","Сохранение. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton83Click (TObject *Sender)
{(DataModule4->ADOQuery9->IsEmpty () ==true)
{>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка.
",16); }if (DataModule4->ADOQuery9->IsEmpty () ==false &&
sButton83->Caption=="Удалить") {->ADOQuery9->Delete
();>MessageBoxA ("Запись БД удалена!","Удаление. ",64);
}{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ReadOnly=true;->ADOQuery9->Cancel
();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле
редактирования заблокировано!","Отмена. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton84Click (TObject *Sender)
{(DataModule4->ADOQuery10->IsEmpty () ==true)
{>MessageBoxA ("Редактирование не возможно, БД
пуста!","Ошибка. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ReadOnly=false;->ADOQuery10->Edit
();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для
редактирования!","Внимение. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton85Click (TObject *Sender)
{(sDBEdit54->Text=="" ||
sDBEdit55->Text=="") {Application->MessageBoxA ("Пустое
поле редактирования, сохранение не возможно!","Сохранение.
",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ReadOnly=true;->ADOQuery10->Post
();->Enabled=true;>MessageBoxA ("Изменения в БД успешно
сохранены!","Сохранение. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton86Click (TObject *Sender)
{(DataModule4->ADOQuery10->IsEmpty () ==true)
{>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка.
",16); }if (DataModule4->ADOQuery10->IsEmpty () ==false &&
sButton86->Caption=="Удалить") {->ADOQuery10->Delete
();>MessageBoxA ("Запись БД удалена!","Удаление. ",64);
}{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ReadOnly=true;->ADOQuery10->Cancel
();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле
редактирования заблокировано!","Отмена. ",64); }
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton87Click (TObject *Sender)
{(DataModule4->ADOQuery11->IsEmpty () ==true)
{>MessageBoxA ("Редактирование не возможно, БД
пуста!","Ошибка. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ReadOnly=false;->ADOQuery11->Edit
();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для
редактирования!","Внимение. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton88Click (TObject *Sender)
{(sDBEdit57->Text=="" ||
sDBEdit58->Text=="") {Application->MessageBoxA ("Пустое
поле редактирования, сохранение не возможно!","Сохранение.
",16); }{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ReadOnly=true;->ADOQuery11->Post
();->Enabled=true;>MessageBoxA ("Изменения в БД успешно
сохранены!","Сохранение. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton89Click (TObject *Sender)
{(DataModule4->ADOQuery11->IsEmpty () ==true)
{>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка.
",16); }if (DataModule4->ADOQuery11->IsEmpty () ==false &&
sButton89->Caption=="Удалить") {->ADOQuery11->Delete
();>MessageBoxA ("Запись БД удалена!","Удаление. ",64);
}{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ReadOnly=true;->ADOQuery11->Cancel
();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле
редактирования заблокировано!","Отмена. ",64); }
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sPageControl3Change (TObject *Sender)
{
// SQL reset->ADOQuery9->Active=false;
DataModule4->ADOQuery9->Active=true;->ADOQuery10->Active=false;
DataModule4->ADOQuery10->Active=true;->ADOQuery11->Active=false;
DataModule4->ADOQuery11->Active=true;
// BD reset->ADOTable10->Active=false;
DataModule4->ADOTable10->Active=true;->ADOTable11->Active=false;
DataModule4->ADOTable11->Active=true;->ADOTable12->Active=false;
DataModule4->ADOTable12->Active=true;
// блокировка полей редактирования
// виды работ->ReadOnly=true;
sDBEdit52->ReadOnly=true;->ReadOnly=true;
sDBEdit55->ReadOnly=true;->ReadOnly=true; sDBEdit58->ReadOnly=true;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton96Click (TObject *Sender)
{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable10->Cancel
();->Enabled=false;->Enabled=false;->Enabled=false;->ActivePage=sTabSheet2;->ActivePage=sTabSheet12;->ActivePage=sTabSheet15;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton97Click (TObject *Sender)
{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable11->Cancel
();->Enabled=false;->Enabled=false;->Enabled=false;->ActivePage=sTabSheet2;->ActivePage=sTabSheet12;->ActivePage=sTabSheet16;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton98Click (TObject *Sender)
{->Enabled=true;->Enabled=true;->Enabled=false;->Enabled=false;->ADOTable12->Cancel
();->Enabled=false;->Enabled=false;->Enabled=false;->ActivePage=sTabSheet2;->ActivePage=sTabSheet12;->ActivePage=sTabSheet17;
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton99Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus
();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton100Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus
();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton101Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus
();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton102Click (TObject *Sender)
{->Close ();->Show
();->sGroupBox1->Visible=true;->sGroupBox2->Visible=false;->sGroupBox3->Visible=false;->sGroupBox4->Visible=false;->sGroupBox5->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton103Click (TObject *Sender)
{->ActivePage=sTabSheet1;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sEdit14Change (TObject *Sender)
{(int i=0; i<=0; i++) {( (sEdit14->Text=="
[") || (sEdit14->Text=="] ")) { Application->MessageBoxA
("Не корректное значение для поиска! Повторите ввод
данных!","Ошибка",16);; break;
}->ADOQuery1->Active=false;->ADOQuery1->SQL->Clear
();->ADOQuery1->SQL->Add ("select * from name_obj where
name_object LIKE '%"+sEdit14->Text+"%';
");->ADOQuery1->Active=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton104Click (TObject *Sender)
{(DataModule4->ADOQuery13->IsEmpty () ==true)
{>MessageBoxA ("Редактирование не возможно, БД
пуста!","Ошибка. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Отмена";->ReadOnly=false;->ADOQuery13->Edit
();->Enabled=false;->SetFocus ();>MessageBoxA ("БД открыта для
редактирования!","Внимение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton105Click (TObject *Sender)
{(sDBEdit13->Text=="")
{Application->MessageBoxA ("Пустое поле редактирования, сохранение не
возможно!","Сохранение. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;->ADOQuery13->Post
();->Enabled=true;>MessageBoxA ("Изменения в БД успешно
сохранены!","Сохранение. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sPageControl4Change (TObject *Sender)
{->ADOQuery12->Active=false;
DataModule4->ADOQuery12->Active=true;->ADOQuery13->Active=false;
DataModule4->ADOQuery13->Active=true;
// блокировка полей редактирования
// объекты->ReadOnly=true;->ReadOnly=true;
sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true;
sDBEdit32->ReadOnly=true;->ReadOnly=true; sDBEdit35->ReadOnly=true;
sDBEdit38->ReadOnly=true;->ReadOnly=true; sDateEdit3->ReadOnly=true;
sDateEdit4->ReadOnly=true;->Enabled=false;
sDBLookupComboBox16->Enabled=false;
sDBLookupComboBox17->Enabled=false;->Enabled=false;
sDBLookupComboBox19->Enabled=false;
sDBLookupComboBox20->Enabled=false;->Enabled=false;
sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;->Enabled=false;
sDateEdit6->Enabled=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton106Click (TObject *Sender)
{(DataModule4->ADOQuery13->IsEmpty () ==true)
{>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка.
",16); }if (DataModule4->ADOQuery13->IsEmpty () ==false &&
sButton106->Caption=="Удалить") {->ADOQuery13->Delete
();>MessageBoxA ("Запись БД удалена!","Удаление. ",64);
}{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;->ADOQuery13->Cancel
();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поле
редактирования заблокировано!","Отмена. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton28Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus
();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton107Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus
();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton108Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus
();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton109Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus
();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton110Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus
();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton111Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus
();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton112Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus
();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton113Click (TObject *Sender)
{->ActivePage=sTabSheet1;->SetFocus
();->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton117Click (TObject *Sender)
{->ActivePage=sTabSheet1;->Visible=false;->Visible=true;->Visible=false;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sEdit15Change (TObject *Sender)
{(int i=0; i<=0; i++) {( (sEdit15->Text==" [")
|| (sEdit15->Text=="] ")) { Application->MessageBoxA ("Не
корректное значение для поиска! Повторите ввод
данных!","Ошибка",16);; break;
}->ADOQuery14->Active=false;->ADOQuery14->SQL->Clear ();->ADOQuery14->SQL->Add
("select * from Razcenki where nameobosnov LIKE
'%"+sEdit15->Text+"%'; ");->ADOQuery14->Active=true; }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sRadioButton2Click (TObject *Sender)
{(sRadioButton2->Checked)
{->Visible=false;->Visible=true;->ReadOnly=true;
sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true;
sDBEdit32->ReadOnly=true;->ReadOnly=true; sDBEdit35->ReadOnly=true;
sDBEdit38->ReadOnly=true;->ReadOnly=true; sDateEdit3->ReadOnly=true;
sDateEdit4->ReadOnly=true;->Enabled=true;
sDBLookupComboBox16->Enabled=true;
sDBLookupComboBox17->Enabled=true;->Enabled=true;
sDBLookupComboBox19->Enabled=true;
sDBLookupComboBox20->Enabled=true;->Enabled=true;
sDBLookupComboBox22->Enabled=true; sDBLookupComboBox23->Enabled=true;->Enabled=true;
sDateEdit6->Enabled=true;->SetFocus ();>MessageBoxA ("Вы изменили
режим редактирования БД!","Внимание. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sRadioButton1Click (TObject *Sender)
{(sRadioButton1->Checked)
{->Visible=false;->Visible=true;->ReadOnly=false;
sDBEdit29->ReadOnly=false; sDBEdit30->ReadOnly=false;->ReadOnly=false;
sDBEdit32->ReadOnly=false;->ReadOnly=false; sDBEdit35->ReadOnly=false;
sDBEdit38->ReadOnly=false;->ReadOnly=false;
sDateEdit3->ReadOnly=false;
sDateEdit4->ReadOnly=false;->Enabled=false;
sDBLookupComboBox16->Enabled=false;
sDBLookupComboBox17->Enabled=false;->Enabled=false;
sDBLookupComboBox19->Enabled=false; sDBLookupComboBox20->Enabled=false;->Enabled=false;
sDBLookupComboBox22->Enabled=false;
sDBLookupComboBox23->Enabled=false;->Enabled=false;
sDateEdit6->Enabled=false;->SetFocus ();>MessageBoxA ("Вы
изменили режим редактирования БД!","Внимание. ",64); }
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sDateEdit5Change (TObject *Sender)
{->MaxDate=sDateEdit6->Date;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sDateEdit6Change (TObject *Sender)
{->MinDate=sDateEdit5->Date;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: FormClose (TObject *Sender, TCloseAction &Action)
{
// SQL reset->ADOQuery1->Active=false;
DataModule4->ADOQuery1->Active=true; DataModule4->ADOQuery2->Active=false;
DataModule4->ADOQuery2->Active=true;->ADOQuery3->Active=false;
DataModule4->ADOQuery3->Active=true;
DataModule4->ADOQuery4->Active=false;
DataModule4->ADOQuery4->Active=true;->ADOQuery5->Active=false;
DataModule4->ADOQuery5->Active=true;
DataModule4->ADOQuery6->Active=false;
DataModule4->ADOQuery6->Active=true;->ADOQuery7->Active=false;
DataModule4->ADOQuery7->Active=true;
DataModule4->ADOQuery8->Active=false;
DataModule4->ADOQuery8->Active=true;->ADOQuery9->Active=false;
DataModule4->ADOQuery9->Active=true;
DataModule4->ADOQuery10->Active=false;
DataModule4->ADOQuery10->Active=true;->ADOQuery11->Active=false;
DataModule4->ADOQuery11->Active=true;
DataModule4->ADOQuery12->Active=false; DataModule4->ADOQuery12->Active=true;->ADOQuery13->Active=false;
DataModule4->ADOQuery13->Active=true;
DataModule4->ADOQuery14->Active=false;
DataModule4->ADOQuery14->Active=true;
// BD reset->ADOTable1->Active=false;
DataModule4->ADOTable1->Active=true;->ADOTable2->Active=false;
DataModule4->ADOTable2->Active=true;
DataModule4->ADOTable3->Active=false;
DataModule4->ADOTable3->Active=true;->ADOTable4->Active=false;
DataModule4->ADOTable4->Active=true; DataModule4->ADOTable5->Active=false;
DataModule4->ADOTable5->Active=true;->ADOTable6->Active=false;
DataModule4->ADOTable6->Active=true;
DataModule4->ADOTable7->Active=false;
DataModule4->ADOTable7->Active=true;->ADOTable8->Active=false;
DataModule4->ADOTable8->Active=true;
DataModule4->ADOTable9->Active=false;
DataModule4->ADOTable9->Active=true;->ADOTable10->Active=false;
DataModule4->ADOTable10->Active=true;
DataModule4->ADOTable11->Active=false;
DataModule4->ADOTable11->Active=true;->ADOTable12->Active=false;
DataModule4->ADOTable12->Active=true; DataModule4->ADOTable13->Active=false;
DataModule4->ADOTable13->Active=true;->ADOTable14->Active=false;
DataModule4->ADOTable14->Active=true;
DataModule4->ADOTable15->Active=false;
DataModule4->ADOTable15->Active=true;
// объекты->ReadOnly=true; sDBEdit28->ReadOnly=true;
sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;->ReadOnly=true;
sDBEdit32->ReadOnly=true; sDBEdit34->ReadOnly=true;
sDBEdit35->ReadOnly=true;->ReadOnly=true; sDBEdit39->ReadOnly=true;
sDateEdit3->ReadOnly=true; sDateEdit4->ReadOnly=true;->Enabled=false;
sDBLookupComboBox16->Enabled=false;
sDBLookupComboBox17->Enabled=false;->Enabled=false;
sDBLookupComboBox19->Enabled=false;
sDBLookupComboBox20->Enabled=false;->Enabled=false;
sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;->Enabled=false;
sDateEdit6->Enabled=false;
// виды работ->ReadOnly=true; sDBEdit52->ReadOnly=true;
sDBEdit54->ReadOnly=true; sDBEdit55->ReadOnly=true;
sDBEdit37->ReadOnly=true; sDBEdit58->ReadOnly=true;
// прорабы - материалы->ReadOnly=true; sDBEdit37->ReadOnly=true;
sDBEdit42->ReadOnly=true; sDBEdit43->ReadOnly=true;
sDBEdit44->ReadOnly=true; sDBEdit45->ReadOnly=true;->ReadOnly=true;
sDBEdit47->ReadOnly=true; sDBEdit48->ReadOnly=true;
sDBEdit50->ReadOnly=true;->ADOTable15->Cancel (); sMemo2->Clear ();
sMemo4->Clear (); sMemo1->Enabled=false; sMemo2->Enabled=false;
sMemo3->Enabled=false; sMemo4->Enabled=false;->Enabled=true;
sButton119->Enabled=false; sButton120->Enabled=false;
sDBEdit14->Enabled=false; sDBEdit20->Enabled=false;->Enabled=false;
sDBEdit24->Enabled=false; sDBEdit25->Enabled=false;
sDBLookupComboBox24->Enabled=false;
sDBLookupComboBox25->Enabled=false;->Enabled=true;
sButton52->Enabled=false; sDBGrid9->Enabled=true;
DataModule4->ADOTable9->Cancel (); sButton53->Caption="Редактировать";->Enabled=true;
sButton17->Enabled=false; sDBGrid1->Enabled=true;
DataModule4->ADOTable4->Cancel ();
sButton18->Caption="Редактировать";->Enabled=true;
sButton31->Enabled=false; sDBGrid2->Enabled=true;
DataModule4->ADOTable6->Cancel (); sButton32->Caption="Редактировать";->Enabled=true;
sButton34->Enabled=false; sDBGrid3->Enabled=true;
DataModule4->ADOTable7->Cancel ();
sButton35->Caption="Редактировать";->Enabled=true;
sButton37->Enabled=false; sDBGrid1->Enabled=true; DataModule4->ADOTable8->Cancel
(); sButton38->Caption="Редактировать";->Enabled=true;
sButton40->Enabled=false; sDBGrid5->Enabled=true;
DataModule4->ADOTable2->Cancel ();
sButton41->Caption="Редактировать";->Enabled=true;
sButton43->Enabled=false; sDBGrid6->Enabled=true;
DataModule4->ADOTable3->Cancel ();
sButton18->Caption="Редактировать";->Enabled=true;
sButton46->Enabled=false; sDBGrid7->Enabled=true;
DataModule4->ADOTable14->Cancel ();
sButton47->Caption="Редактировать";->Enabled=true;
sButton49->Enabled=false; sDBGrid8->Enabled=true; DataModule4->ADOTable5->Cancel
(); sButton50->Caption="Редактировать";->Enabled=true;
sButton124->Enabled=false; sDBGrid26->Enabled=true;
DataModule4->ADOTable16->Cancel ();
sButton125->Caption="Редактировать"; DataModule4->ADOTable1->Cancel
();->Enabled=true; sButton6->Enabled=false; sButton7->Enabled=false;
sRadioButton3->Enabled=false;
sRadioButton4->Enabled=false;->Enabled=false;
sDBLookupComboBox2->Enabled=false;->Enabled=false;->Enabled=false;
sDBLookupComboBox5->Enabled=false;->Enabled=false;
sDBLookupComboBox7->Enabled=false;->Enabled=false;
sDateEdit1->Enabled=false; sDateEdit2->Enabled=false; Memo1->Clear ();
Memo2->Clear ();->Enabled=false;
Memo2->Enabled=false;->Enabled=true; sButton93->Enabled=true;
sButton94->Enabled=false; sButton95->Enabled=false; DataModule4->ADOTable12->Cancel
();->Enabled=false; sDBLookupComboBox11->Enabled=false;
sDBLookupComboBox14->Enabled=false;->Enabled=true;
sButton90->Enabled=true; sButton91->Enabled=false;
sButton92->Enabled=false; DataModule4->ADOTable11->Cancel
();->Enabled=false; sDBLookupComboBox10->Enabled=false;
sDBLookupComboBox12->Enabled=false;->Enabled=true;
sButton25->Enabled=true; sButton26->Enabled=false;
sButton27->Enabled=false; DataModule4->ADOTable10->Cancel
();->Enabled=false; sDBLookupComboBox13->Enabled=false;
sDBLookupComboBox9->Enabled=false;->Caption="Удалить";
sButton55->Enabled=false; sButton54->Enabled=true;
sRadioButton1->Enabled=false;
sRadioButton2->Enabled=false;->ReadOnly=true;
sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;
sDBEdit31->ReadOnly=true; sDBEdit32->ReadOnly=true;
sDBEdit34->ReadOnly=true;->ReadOnly=true; sDBEdit38->ReadOnly=true;
sDBEdit39->ReadOnly=true; sDateEdit3->ReadOnly=true;
sDateEdit4->ReadOnly=true;->Enabled=false;
sDBLookupComboBox16->Enabled=false; sDBLookupComboBox17->Enabled=false;->Enabled=false;
sDBLookupComboBox19->Enabled=false;
sDBLookupComboBox20->Enabled=false;->Enabled=false;
sDBLookupComboBox22->Enabled=false;
sDBLookupComboBox23->Enabled=false;->Enabled=false;
sDateEdit6->Enabled=false; DataModule4->ADOQuery12->Cancel ();
sDBGrid13->Enabled=true;->Caption="Удалить";
sButton105->Enabled=false; sButton104->Enabled=true;
sDBEdit13->ReadOnly=true; DataModule4->ADOQuery13->Cancel ();
sDBGrid27->Enabled=true;->Caption="Удалить";
sButton58->Enabled=false; sButton57->Enabled=true;
sDBEdit36->ReadOnly=true; DataModule4->ADOQuery1->Cancel ();
sDBGrid14->Enabled=true;->Caption="Удалить";
sButton61->Enabled=false; sButton60->Enabled=true;
sDBEdit37->ReadOnly=true; DataModule4->ADOQuery2->Cancel ();
sDBGrid15->Enabled=true;->Caption="Удалить";
sButton64->Enabled=false; sButton63->Enabled=true;
sDBEdit42->ReadOnly=true; DataModule4->ADOQuery3->Cancel ();
sDBGrid16->Enabled=true;->Caption="Удалить";
sButton67->Enabled=false; sButton66->Enabled=true;
sDBEdit43->ReadOnly=true; sDBEdit50->ReadOnly=true;
DataModule4->ADOQuery4->Cancel ();
sDBGrid17->Enabled=true;->Caption="Удалить";
sButton70->Enabled=false; sButton69->Enabled=true;
sDBEdit44->ReadOnly=true; DataModule4->ADOQuery5->Cancel (); sDBGrid18->Enabled=true;->Caption="Удалить";
sButton73->Enabled=false; sButton72->Enabled=true;
sDBEdit45->ReadOnly=true; DataModule4->ADOQuery6->Cancel ();
sDBGrid19->Enabled=true;->Caption="Удалить";
sButton76->Enabled=false; sButton75->Enabled=true; sDBEdit46->ReadOnly=true;
DataModule4->ADOQuery7->Cancel ();
sDBGrid20->Enabled=true;->Caption="Удалить";
sButton79->Enabled=false; sButton78->Enabled=true;
sDBEdit47->ReadOnly=true; sDBEdit48->ReadOnly=true;
DataModule4->ADOQuery8->Cancel (); sDBGrid21->Enabled=true;->Caption="Удалить";
sButton82->Enabled=false; sButton81->Enabled=true;
sDBEdit51->ReadOnly=true; sDBEdit52->ReadOnly=true;
DataModule4->ADOQuery9->Cancel ();
sDBGrid22->Enabled=true;->Caption="Удалить";
sButton85->Enabled=false; sButton84->Enabled=true;
sDBEdit54->ReadOnly=true; sDBEdit55->ReadOnly=true;
DataModule4->ADOQuery10->Cancel ();
sDBGrid23->Enabled=true;->Caption="Удалить";
sButton88->Enabled=false; sButton87->Enabled=true;
sDBEdit57->ReadOnly=true; sDBEdit58->ReadOnly=true; DataModule4->ADOQuery11->Cancel
(); sDBGrid24->Enabled=true;->Caption="Удалить";
sButton115->Enabled=false; sButton114->Enabled=true;
sDBEdit18->ReadOnly=true; sDBEdit26->ReadOnly=true;
sDBEdit49->ReadOnly=true;->ReadOnly=true; sDBEdit61->ReadOnly=true;
sDBEdit63->ReadOnly=true; sDBEdit64->ReadOnly=true; sDBEdit65->ReadOnly=true;
sDBEdit66->ReadOnly=true;->ADOQuery14->Cancel ();->Enabled=true; }
//
---------------------------------------------------------------------------__fastcall
TForm5:: Memo1Click (TObject *Sender)
{ int select_m=0*1;i=0*1,t=0*1, ii=0*1;=0;
select_m=Memo1->CaretPos. y;(Memo1->Lines->Strings [select_m]!
="") {->Lines->Add (Memo1->Lines->Strings
[select_m]);->Lines->Delete (select_m); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: Memo2Click (TObject *Sender)
{ int select_m=0*1;_m=Memo2->CaretPos.
y;(Memo2->Lines->Strings [select_m]! ="") {->Lines->Add
(Memo2->Lines->Strings [select_m]);->Lines->Delete (select_m); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sDBLookupComboBox7Click (TObject *Sender)
{->Clear ();(sDBLookupComboBox7->Text=="Новое
строительство") {i=0*1;->ADOTable10->First ();->Clear ();(i=0;
i<DataModule4->ADOTable10->RecordCount; i++) {->Lines->Strings
[i] =DataModule4->ADOTable10->FieldValues
["Name_stroj_materiala"];->Lines->Add
("");->ADOTable10->Next ();
} }if (sDBLookupComboBox7->Text=="Ремонт")
{i=0*1;->ADOTable11->First ();->Clear ();(i=0;
i<DataModule4->ADOTable11->RecordCount; i++) {->Lines->Strings
[i] =DataModule4->ADOTable11->FieldValues
["Name_stroj_materiala"];->Lines->Add
("");->ADOTable11->Next ();
}} else {i=0*1;->ADOTable12->First ();->Clear
();(i=0; i<DataModule4->ADOTable12->RecordCount; i++)
{->Lines->Strings [i] =DataModule4->ADOTable12->FieldValues
["Name_stroj_materiala"];->Lines->Add
("");->ADOTable12->Next ();
}}
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton123Click (TObject *Sender)
{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ReadOnly=false;->ADOTable16->Append
();->Enabled=false;->SetFocus ();
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton124Click (TObject *Sender)
{(sDBEdit8->Text=="" || sDBEdit33->Text=="")
{Application->MessageBoxA ("Заполнены не все
поля!","Заполнение полей. ",16);
}{->Enabled=true;->Enabled=false;->Caption="Редактировать";->ADOTable16->Post
();->Enabled=true;->ReadOnly=true;->ReadOnly=true; }
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton125Click (TObject *Sender)
{(sButton125->Caption=="Отмена")
{->Enabled=true;->Enabled=false;->Enabled=true;->ADOTable16->Cancel
();->Caption="Редактировать";
}{->Caption="Отмена";->Enabled=false;->Enabled=true;->ReadOnly=false;->ReadOnly=false;->ADOTable16->Edit
();->Enabled=false;->SetFocus ();
}
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton122Click (TObject *Sender)
{->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=true;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton114Click (TObject *Sender)
{(DataModule4->ADOQuery14->IsEmpty () ==true)
{>MessageBoxA ("Редактирование не возможно, БД
пуста!","Ошибка. ",16);
}{->Enabled=false;->Enabled=false;->Enabled=true;->Caption="Отмена";->SetFocus
();->ReadOnly=false; sDBEdit26->ReadOnly=false;
sDBEdit49->ReadOnly=false;->ReadOnly=false; sDBEdit61->ReadOnly=false;
sDBEdit63->ReadOnly=false;->ReadOnly=false; sDBEdit65->ReadOnly=false;
sDBEdit66->ReadOnly=false; }
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton115Click (TObject *Sender)
{(sDBEdit18->Text=="" ||
sDBEdit26->Text=="" || sDBEdit49->Text=="" ||
sDBEdit60->Text=="" || sDBEdit61->Text=="" ||
sDBEdit63->Text==""|| sDBEdit64->Text=="" || sDBEdit65->Text==""
|| sDBEdit66->Text=="") {>MessageBoxA ("Какие-то из полей
пусты, сохранение не возможно!","Сохранение. ",16);
}{->Enabled=false;->Enabled=true;->Caption="Удалить";->ReadOnly=true;
sDBEdit26->ReadOnly=true; sDBEdit49->ReadOnly=true;->ReadOnly=true;
sDBEdit61->ReadOnly=true; sDBEdit63->ReadOnly=true;->ReadOnly=true;
sDBEdit65->ReadOnly=true;
sDBEdit66->ReadOnly=true;->ADOQuery14->Post
();->Enabled=true;>MessageBoxA ("Изменения в БД успешно
сохранены!","Сохранение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton116Click (TObject *Sender)
{(DataModule4->ADOQuery14->IsEmpty () ==true)
{>MessageBoxA ("Удаление не возможно, БД пуста!","Ошибка.
",16); }if (DataModule4->ADOQuery14->IsEmpty () ==false &&
sButton116->Caption=="Удалить") {->ADOQuery14->Delete
();>MessageBoxA ("Запись БД удалена!","Удаление. ",64);
}{->Caption="Удалить";->Enabled=false;->Enabled=true;->ReadOnly=true;
sDBEdit26->ReadOnly=true; sDBEdit49->ReadOnly=true;->ReadOnly=true;
sDBEdit61->ReadOnly=true; sDBEdit63->ReadOnly=true;->ReadOnly=true;
sDBEdit65->ReadOnly=true;
sDBEdit66->ReadOnly=true;->ADOQuery14->Cancel
();->Enabled=true;>MessageBoxA ("Вы отменили редактирование БД! Поля
были заблокированы!","Отмена. ",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton118Click (TObject *Sender)
{i=0*1;i2=0*1;->ADOTable16->First ();->Clear
();(i=0; i<DataModule4->ADOTable16->RecordCount; i++)
{->Lines->Strings [i] =DataModule4->ADOTable16->FieldValues
["Mexanizm"];->Lines->Add
("");->ADOTable16->Next (); }->ADOTable16->First
();->Clear ();(i2=0; i2<DataModule4->ADOTable16->RecordCount; i2++)
{->Lines->Strings [i2] =DataModule4->ADOTable16->FieldValues
["Mashin"];->Lines->Add ("");->ADOTable16->Next
();
}->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->ADOTable15->Append
();->Enabled=false;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;->Enabled=true;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton120Click (TObject *Sender)
{a,a2;t1,t2,t3,t4;(sDBLookupComboBox24->Text==""
|| sDBLookupComboBox25->Text=="" || sDBEdit20->Text==""
|| sDBEdit21->Text=="" || sDBEdit24->Text=="" ||
sDBEdit25->Text=="") {>MessageBoxA ("Заполнены не все
поля!","Заполнение полей",16);
}{(int i=0; i<sMemo2->Lines->Count; i++)
{(i<sMemo2->Lines->Count-1)
{->ADOTable15Mehanizmi->Text=DataModule4->ADOTable15Mehanizmi->Text+sMemo2->Lines->Strings
[i] +", ";
}DataModule4->ADOTable15Mehanizmi->Text=DataModule4->ADOTable15Mehanizmi->Text+sMemo2->Lines->Strings
[i]; }(int i2=0; i2<sMemo4->Lines->Count; i2++) {(i2<sMemo4->Lines->Count-1)
{->ADOTable15Transport_name->Text=DataModule4->ADOTable15Transport_name->Text+sMemo4->Lines->Strings
[i2] +", ";
}DataModule4->ADOTable15Transport_name->Text=DataModule4->ADOTable15Transport_name->Text+sMemo4->Lines->Strings
[i2]; }=StrToFloat (sDBEdit21->Text. ToDouble () *sDBEdit24->Text.
ToDouble ());=StrToFloat (sDBEdit25->Text. ToDouble ()) +a2;=a+ (a*0.3);=t1-
(t1*0.24);=a+ (a*0.43);=t3-
(t3*0.37);->ADOTable15cena_city_otp->Text=FormatFloat
("0.00",t1);->ADOTable15cena_selo_otp->Text=FormatFloat
("0.00",t2);->ADOTable15cena_city_smet->Text=FormatFloat
("0.00",t3);->ADOTable15cena_selo_smet->Text=FormatFloat
("0.00",t4);->ADOTable15Stoimoct->Text=a2;->ADOTable15->Post
();->Clear ();->Clear ();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;>MessageBoxA
("Запись сохранена!","Сохранение. ",64); }
}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sButton119Click (TObject *Sender) {->ADOTable15->Cancel
();->Clear ();->Clear
();->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=true;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;->Enabled=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sMemo1Click (TObject *Sender) {select_m=0*1;i=0*1,t=0*1, ii=0*1;=0;
select_m=sMemo1->CaretPos. y;(sMemo1->Lines->Strings [select_m]!
="") {->Lines->Add (sMemo1->Lines->Strings
[select_m]);->Lines->Delete (select_m); }}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sMemo3Click (TObject *Sender) {select_m=0*1;i=0*1,t=0*1, ii=0*1;=0;
select_m=sMemo3->CaretPos. y;(sMemo3->Lines->Strings [select_m]!
="") {->Lines->Add (sMemo3->Lines->Strings
[select_m]);->Lines->Delete (select_m); }}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sMemo2Click (TObject *Sender) {select_m=0*1;_m=sMemo2->CaretPos.
y;(sMemo2->Lines->Strings [select_m]! ="") {->Lines->Add
(sMemo2->Lines->Strings [select_m]);->Lines->Delete (select_m); }}
// ---------------------------------------------------------------------------__fastcall
TForm5:: sMemo4Click (TObject *Sender) {select_m=0*1;_m=sMemo4->CaretPos.
y;(sMemo4->Lines->Strings [select_m]! ="") {->Lines->Add
(sMemo4->Lines->Strings [select_m]);->Lines->Delete (select_m); }}
//
---------------------------------------------------------------------------__fastcall
TForm5:: sButton121Click (TObject *Sender) {->Close ();->Show (); }
//
---------------------------------------------------------------------------
Расчёты
//
---------------------------------------------------------------------------
#include <vcl. h>
#pragma hdrstop
#include "Unit1. h"
#include "Unit4. h"
#include "Unit6. h"
#include "Unit10. h"
#include "Unit11. h"
//
---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma link "sButton"
#pragma link "sPanel"
#pragma link "sStatusBar"
#pragma link "sPageControl"
#pragma link "sLabel"
#pragma link "sGroupBox"
#pragma link "acDBGrid"
#pragma link "sCustomComboEdit"
#pragma link "sMaskEdit"
#pragma link "sTooledit"
#pragma link "sCheckBox"
#pragma link "sEdit"
#pragma resource "*. dfm"*Form6;
//
---------------------------------------------------------------------------
__fastcall TForm6:: TForm6 (TComponent* Owner)
: TForm (Owner)
{
}
//
---------------------------------------------------------------------------__fastcall
TForm6:: sButton6Click (TObject *Sender)
{->Close ();->Show ();
}
//
---------------------------------------------------------------------------__fastcall
TForm6:: sButton2Click (TObject *Sender)
{->Visible=true;->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm6:: sDateEdit1Change (TObject *Sender)
{->MaxDate=sDateEdit2->Date;->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear
();->ADOQuery12->SQL->Add ("select * from obj Where new_stroj
Between: datastart and: datastop ");->ADOQuery12->Parameters->ParamByName
("datastart") - >Value=FormatDateTime ("dd. mm.
yyyy",sDateEdit1->Date);->ADOQuery12->Parameters->ParamByName
("datastop") - >Value =FormatDateTime ("dd. mm.
yyyy",sDateEdit2->Date);->ADOQuery12->Active=true;
}
// ---------------------------------------------------------------------------__fastcall
TForm6:: sDateEdit2Change (TObject *Sender)
{->MinDate=sDateEdit1->Date;->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear
();->ADOQuery12->SQL->Add ("select * from obj Where close_stoj
Between: datastart and: datastop
");->ADOQuery12->Parameters->ParamByName ("datastart")
- >Value=FormatDateTime ("dd. mm.
yyyy",sDateEdit1->Date);->ADOQuery12->Parameters->ParamByName
("datastop") - >Value = FormatDateTime ("dd. mm.
yyyy",sDateEdit2->Date);->ADOQuery12->Active=true;
}
//
---------------------------------------------------------------------------__fastcall
TForm6:: sButton7Click (TObject *Sender)
{->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear
();->ADOQuery12->SQL->Add ("select * from
obj");->ADOQuery12->Active=true;
}
//
---------------------------------------------------------------------------__fastcall
TForm6:: sCheckBox3Click (TObject *Sender)
{(sCheckBox3->Checked==true)
{->Text="";->Text="";->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear
();->ADOQuery12->SQL->Add ("select * from
obj");->ADOQuery12->Active=true;->Checked=false;->Visible=true;->Visible=true;->Visible=true;
}{->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear
();->ADOQuery12->SQL->Add ("select * from
obj");->ADOQuery12->Active=true;->Visible=false;->Visible=false;->Visible=false;
}
}
//
---------------------------------------------------------------------------__fastcall
TForm6:: sCheckBox4Click (TObject *Sender)
{(sCheckBox4->Checked==true)
{->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear
();->ADOQuery12->SQL->Add ("select * from
obj");->ADOQuery12->Active=true;->Checked=false;->Visible=true;->Visible=true;->Visible=true;->Visible=true;->Visible=true;
}{->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear
();->ADOQuery12->SQL->Add ("select * from
obj");->ADOQuery12->Active=true;->Visible=false;->Visible=false;->Visible=false;->Visible=false;->Visible=false;
}
}
//
---------------------------------------------------------------------------__fastcall
TForm6:: sButton8Click (TObject *Sender)
{(sDateEdit1->Text=="" ||
sDateEdit2->Text=="") {Application->MessageBoxA
("Заполнены не все поля, вывод отчёта не
возможен!","Формирование отчёта. ",16);
}{->QRLabel2->Caption=sEdit1->Text;->QRLabel5->Caption=sEdit2->Text+"
"+sEdit3->Text;(sCheckBox3->Checked==true)
{Form11->QRLabel8->Caption="строительству";->QRLabel9->Caption="";->QRLabel10->Caption="";->QRLabel12->Caption="";->QRLabel13->Caption="";
}(sCheckBox4->Checked==true)
{Form11->QRLabel8->Caption="дате";->QRLabel9->Caption="с";->QRLabel10->Caption=sDateEdit1->Date;->QRLabel12->Caption="по";->QRLabel13->Caption=sDateEdit1->Date;
}->QuickRep1->Preview (); }
}
//
---------------------------------------------------------------------------__fastcall
TForm6:: sCheckBox1Click (TObject *Sender)
{(sCheckBox1->Checked==true)
{->Checked=false;->Text="Действующее строительство";
}{->Text=""; }
}
//
---------------------------------------------------------------------------__fastcall
TForm6:: sCheckBox2Click (TObject *Sender)
{(sCheckBox2->Checked==true) {->Checked=false;->Text="Строительство
прекращено"; }{->Text=""; }
}
//
---------------------------------------------------------------------------__fastcall
TForm6:: sEdit4Change (TObject *Sender)
{->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear
();->ADOQuery12->SQL->Add ("select * from obj where tip_stoj LIKE
'%"+sEdit4->Text+"%'; ");->ADOQuery12->Active=true;
}
//
---------------------------------------------------------------------------__fastcall
TForm6:: sEdit5Change (TObject *Sender)
{->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear
();->ADOQuery12->SQL->Add ("select * from obj where tip_stoj LIKE
'%"+sEdit5->Text+"%'; ");->ADOQuery12->Active=true;
}
//
---------------------------------------------------------------------------__fastcall
TForm6:: sButton5Click (TObject *Sender)
{->Visible=false;->Visible=true;->ADOQuery12->Active=false;->ADOQuery12->SQL->Clear
();->ADOQuery12->SQL->Add ("select * from
obj");->ADOQuery12->Active=true;
}
// ---------------------------------------------------------------------------__fastcall
TForm6:: FormKeyDown (TObject *Sender, WORD &Key,Shift)
{(Key==VK_ESCAPE) {sButton6Click (sButton6); }
}
//
---------------------------------------------------------------------------__fastcall
TForm6:: Timer1Timer (TObject *Sender)
{(sEdit7->Text! ="" && sEdit8->Text!
="" && sEdit6->Text! ="")
{sButton1->Enabled=true; }{sButton1->Enabled=false; }
}
//
---------------------------------------------------------------------------__fastcall
TForm6:: sButton1Click (TObject *Sender)
{a;->QRLabel2->Caption=sEdit6->Text;->QRLabel5->Caption=sEdit7->Text+"
"+sEdit8->Text;(int i=0;
DataModule4->ADOQuery14->RecordCount>i; i++) {=a+
(DataModule4->ADOQuery14->FieldValues ["Stoimoct"]);->ADOQuery14->Next
(); }->QRLabel27->Caption=IntToStr (a) +" руб.
";->QuickRep1->Preview ();
}
//
---------------------------------------------------------------------------
Настройки/Сервис
//
---------------------------------------------------------------------------
#include <vcl. h>
#pragma hdrstop
#include "Unit1. h"
#include "Unit2. h"
#include "Unit3. h"
#include "Unit4. h"
#include "Unit5. h"
#include "Unit6. h"
#include "Unit7. h"
//
---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma link "sButton"
#pragma link "sPageControl"
#pragma link "sPanel"
#pragma link "sStatusBar"
#pragma link "sComboBox"
#pragma link "sGauge"
#pragma link "sGroupBox"
#pragma link "sCustomComboEdit"
#pragma link "sLabel"
#pragma link "sMaskEdit"
#pragma link "sTooledit"
#pragma link "acProgressBar"
#pragma link "sMemo"
#pragma resource "*. dfm"*Form7;
//
---------------------------------------------------------------------------
__fastcall TForm7:: TForm7 (TComponent* Owner)
: TForm (Owner)
{
}
//
---------------------------------------------------------------------------__fastcall
TForm7:: sButton1Click (TObject *Sender)
{();->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm7:: sButton3Click (TObject *Sender)
{->Timer1->Enabled=false;->Timer1->Enabled=false;->ADOQuery1->Active=false;->ADOQuery2->Active=false;->ADOQuery3->Active=false;->ADOQuery4->Active=false;->ADOQuery5->Active=false;->ADOQuery6->Active=false;->ADOQuery7->Active=false;->ADOQuery8->Active=false;->ADOQuery9->Active=false;->ADOQuery10->Active=false;->ADOQuery11->Active=false;->ADOQuery12->Active=false;->ADOQuery13->Active=false;->ADOQuery14->Active=false;->ADOQuery15->Active=false;->ADOTable1->Active=false;->ADOTable2->Active=false;->ADOTable3->Active=false;->ADOTable4->Active=false;->ADOTable5->Active=false;->ADOTable6->Active=false;->ADOTable7->Active=false;->ADOTable8->Active=false;->ADOTable9->Active=false;->ADOTable10->Active=false;->ADOTable11->Active=false;->ADOTable12->Active=false;->ADOTable13->Active=false;->ADOTable14->Active=false;->ADOTable15->Active=false;->ADOTable16->Active=false;->ADOConnection1->Connected=false;->Enabled=true;
}
//
---------------------------------------------------------------------------__fastcall
TForm7:: Timer1Timer (TObject *Sender)
{->Progress++;(sGauge1->Progress==1)
{sGauge1->Suffix="% Отключение базы данных. ";
}(sGauge1->Progress==2) {sGauge1->Suffix="% Копирование базы данных.
"; }(sGauge1->Progress==sGauge1->MaxValue) {sGauge1->Suffix="%
Подключение базы данных. ";->Enabled=false;( (ExtractFilePath (ParamStr
(0)) +"backup // "+"PTO_"+Date () +". mdb").
c_str (), (ExtractFilePath (ParamStr (0)) +"PTO. mdb"). c_str
(),false);->ADOConnection1->Connected=true;->ADOQuery1->Active=true;->ADOQuery2->Active=true;->ADOQuery3->Active=true;->ADOQuery4->Active=true;->ADOQuery5->Active=true;->ADOQuery6->Active=true;->ADOQuery7->Active=true;->ADOQuery8->Active=true;->ADOQuery9->Active=true;->ADOQuery10->Active=true;->ADOQuery11->Active=true;->ADOQuery12->Active=true;->ADOQuery13->Active=true;->ADOQuery14->Active=true;->ADOQuery15->Active=true;->ADOTable1->Active=true;->ADOTable2->Active=true;->ADOTable3->Active=true;->ADOTable4->Active=true;->ADOTable5->Active=true;->ADOTable6->Active=true;->ADOTable7->Active=true;->ADOTable8->Active=true;->ADOTable9->Active=true;->ADOTable10->Active=true;->ADOTable11->Active=true;->ADOTable12->Active=true;->ADOTable13->Active=true;->ADOTable14->Active=true;->ADOTable15->Active=true;->ADOTable16->Active=true;>MessageBoxA
("Backup базы данных завершён успешно!","Копирование базы
данных",64);->Suffix="%";->MaxValue=0;->Timer1->Enabled=true;->Timer1->Enabled=true;
}
}
//
---------------------------------------------------------------------------__fastcall
TForm7:: sButton2Click (TObject *Sender)
{char *FileTo = (ExtractFilePath (ParamStr (0)) +"backup
// "+"PTO_"+Date () +". mdb"). c_str ();(StrToInt
(Date (). FormatString ("dd")) ==DaysPerMonth (StrToInt (Date ().
FormatString ("yyyy")),StrToInt (Date (). FormatString
("mm")))) {(FileExists (FileTo) ==false) {( (ExtractFilePath
(ParamStr (0)) +"PTO. mdb"). c_str (),FileTo,true);>MessageBoxA
("Backup базы данных завершён успешно!","Копирование базы
данных",64); }{ if (Application->MessageBoxA ("База существует,
перезаписать?","Копирование базы данных",4+32) == 6) {(
(ExtractFilePath (ParamStr (0)) +"PTO. mdb"). c_str
(),FileTo,true);>MessageBoxA ("Backup базы данных завершён
успешно!","Копирование базы данных",64); }}}{Application->MessageBoxA
("Копирование БД возможно в последний день месяца!","Копирование
базы данных",64); }
}
//
---------------------------------------------------------------------------__fastcall
TForm7:: sButton4Click (TObject *Sender)
{(sButton4->Caption=="Инфо")
{->Width=297;->Visible=true;->Visible=true;->Caption="Закрыть";
}{->Width=0;->Visible=false;->Caption="Инфо"; }
}
//
---------------------------------------------------------------------------__fastcall
TForm7:: sButton5Click (TObject *Sender)
{(sButton5->Caption=="Инфо")
{->Width=297;->Visible=true;->Visible=true;->Caption="Закрыть";
}{->Width=0;->Visible=false;->Caption="Инфо"; }
}
//
---------------------------------------------------------------------------__fastcall
TForm7:: sWebLabel26Click (TObject *Sender)
{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index
// "+"01.2012. xls"). c_str ();(FileExists (FileTo)) {(Handle,
"open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA
(NULL,"Индекс отсутствует!","Ошибка",16);; }
}
//
---------------------------------------------------------------------------__fastcall
TForm7:: sWebLabel27Click (TObject *Sender)
{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index
// "+"02.2012. xls"). c_str ();(FileExists (FileTo)) {(Handle,
"open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA
(NULL,"Индекс отсутствует!","Ошибка",16);; }
}
//
---------------------------------------------------------------------------__fastcall
TForm7:: sWebLabel28Click (TObject *Sender)
{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index
// "+"03.2012. xls"). c_str ();(FileExists (FileTo)) {(Handle,
"open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA
(NULL,"Индекс отсутствует!","Ошибка",16);; }
}
//
---------------------------------------------------------------------------__fastcall
TForm7:: sWebLabel29Click (TObject *Sender)
{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index
// "+"04.2012. xls"). c_str ();(FileExists (FileTo)) {(Handle,
"open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA
(NULL,"Индекс отсутствует!","Ошибка",16);; }
//
---------------------------------------------------------------------------__fastcall
TForm7:: sWebLabel30Click (TObject *Sender)
{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index
// "+"05.2012. xls"). c_str ();(FileExists (FileTo)) {(Handle,
"open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA
(NULL,"Индекс отсутствует!","Ошибка",16);; }
}
//
---------------------------------------------------------------------------__fastcall
TForm7:: sWebLabel31Click (TObject *Sender)
{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index
// "+"2012.05. xls"). c_str ();(FileExists (FileTo)) {(Handle,
"open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA
(NULL,"Индекс отсутствует!","Ошибка",16);; }
}
// ---------------------------------------------------------------------------__fastcall
TForm7:: sWebLabel32Click (TObject *Sender)
{char *FileTo = (ExtractFilePath (ParamStr (0)) +"index
// "+"2012.06. xls"). c_str ();(FileExists (FileTo)) {(Handle,
"open", FileTo, 0, 0, SW_SHOWNORMAL);; }{MessageBoxA
(NULL,"Индекс отсутствует!","Ошибка",16);; }
}
//
---------------------------------------------------------------------------__fastcall
TForm7:: sPageControl3Change (TObject *Sender)
{->ActivePage=sTabSheet8;
}
// ---------------------------------------------------------------------------__fastcall
TForm7:: sPageControl1Change (TObject *Sender)
{->ActivePage=sTabSheet3;->ActivePage=sTabSheet5;->ActivePage=sTabSheet8;
}
//
---------------------------------------------------------------------------__fastcall
TForm7:: FormKeyDown (TObject *Sender, WORD &Key,Shift) {(Key==VK_ESCAPE)
{sButton1Click (sButton1); } }
//
---------------------------------------------------------------------------
Приложение 2
Структурная схема программного продукта представлена на
рисунке 2.1.
Рисунок 2.1 - Структурная схема программного продукта
Приложение 3
Блок-схема алгоритма работы основных расчётных модулей
представлена на рисунке 3.1.
Рисунок 3.1 - Блок-схема алгоритма работы основных расчётных
модулей
Приложение 4
Распечатка контрольных тестов
.1 Тест "Приветствие"
Тест проверяет загрузку программы. Его результатом являются:
Индикатор загрузки программы (см. рис.4.1).
Рисунок 4.1 - Индикатор загрузки программы
.2 Тест "Расчёт"
Рисунок 4.2 - Расчёт цена на строительство
.3 Тест "Добавление"
Корректное добавление информации в базу данных тестировалось
на примере нормативно-справочной информации (см. рис.4.3).
Рисунок 4.3 - Добавление информации в базу данных
.4 Тест "Редактирование"
Корректное редактировании информации в базе данных
тестировалось на примере нормативно-справочной информации. Редактировалась
запись 1, которая была добавлена при добавлении (см. рис.4.4).
Рисунок 4.4 - Редактирование информации в базе данных
.5 Тест "Поиск"
Поиск информации тестировался на примере
нормативно-справочной информации
(см. рис.4.5).
Рисунок 4.5 - Поиск информации
.6 Тест "Удаление"
Удаление информации рассматривалось на примере
нормативно-справочной информации. Удаление объекта привело к удалению записи и
все информации по нему (см. рис.4.6).
Рисунок 4.6 - Удаление объекта
Данное удаление сопровождалось сообщением (см. рис.4.7)
Рисунок 4.7 - Сообщение о удалении записи
.7 Тест "Справка"
Вызов справки осуществляется нажатием клавиши F1 (см.
рис.4.8).
Рисунок 4.8 - Справочная информация
.8 Тест "Корректность"
Корректность ввода информации и её сохранение, а также
попытке удалить не существующую запись. Корректность представлена сообщениями и
невозможностью вводить, сохранять и удалять эти данные (см. рис.4.9).
Рисунок 4.9 - Сообщение о попытке сохранить в базу запись с
пустым полем
Рисунок 4.10 - Сообщение о попытку удалить пустую запись
Приложение 5
Руководство пользователя
П5.1 ПРАВИЛА ЭКСПЛУАТАЦИИ ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ
П5.1.1 Условия эксплуатации программного обеспечения
П5.1.1.1 Требования к аппаратному обеспечению
Для эксплуатации программы к программному обеспечению
предъявляются следующие требования:
процессор с тактовой частотой 600 МГц и выше;
объем оперативной памяти 128 Мб и выше;
объем дискового пространства 100 Мб;
монитор 1024Ч768 VGA;
манипулятор типа мышь;
принтер.
П5.1.1.2 Климатические условия эксплуатации
Помещения с видео-дисплейными терминалами (ВДТ) и ПЭВМ должны
оборудоваться системами отопления, кондиционирования воздуха или эффективной
приточной вытяжной вентиляцией. Эти помещения также должны иметь естественное и
искусственное освещение.
Естественное освещение должно осуществляться через
светопроемы, ориентированные преимущественно на север и северо-восток, и
обеспечивать коэффициент естественной освещенности (КЕО) не ниже 1,2% в зонах с
устойчивым снежным покровом и не ниже 1,5% на остальной территории. Указанные
значения КЕО нормируются для зданий, расположенных в III климатическом поясе.
Расчет КЕО для других поясов светового климата проводится по общепринятой
методике.
Искусственное освещение в помещениях эксплуатации ВДТ и ПЭВМ
должно осуществляться системой общего равномерного освещения. В
производственных и административно-общественных помещениях, в случаях
преимущественной работы с документами, допускается применение системы
комбинированного освещения (к общему освещению дополнительно устанавливаются
светильники местного освещения, предназначенные для освещения зоны расположения
документов).
Искусственное освещение должно обеспечивать на рабочих местах
с ВДТ и ПЭВМ в производственных и административно-общественных, дошкольных и
учебных помещениях освещенность не ниже нормируемых значений.
Следует ограничивать неравномерность распределения яркости в
поле зрения пользователя ВДТ и ПЭВМ, при этом соотношение яркости между
рабочими поверхностями не должно превышать 3: 1-5: 1, а между рабочими
поверхностями и поверхностями стен и оборудования - 10: 1.
В качестве источников света при искусственном освещении
должны применяться преимущественно люминесцентные лампы типа ЛБ. При устройстве
отраженного освещения в производственных и административно-общественных
помещениях допускается применение металлогалогенных ламп мощностью до 250 Вт.
Допускается применение ламп накаливания в светильниках местного освещения.
Общее освещение следует выполнять в виде сплошных или
прерывистых линий светильников, расположенных сбоку от рабочих мест,
преимущественно слева, параллельно линии зрения пользователей. При
периметральном расположении рабочих мест с ВДТ и ПЭВМ в дошкольных и учебных
помещениях, светильники общего освещения следует располагать локализовано
относительно рабочих мест.
Яркость светильников общего освещения в зоне углов излучения
от 50 град. До 90 град. с вертикалью в продольной и поперечной плоскостях
должна составлять не более 200 кд/м, защитный угол светильников должен быть не
менее 40 град.
Для обеспечения нормируемых значений освещенности в
помещениях использования ВДТ и ПЭВМ следует проводить чистку остекленения
световых проемов и светильников не реже двух раз в год, а также современную
замену перегоревших ламп.
Расположение рабочих мест с ВДТ и ПЭВМ в цокольных и
подвальных помещениях не допускается.
В случае производственной необходимости, эксплуатация ВДТ и
ПЭВМ в помещениях без естественного света может проводиться только по
согласованию с органами Государственного санитарно-эпидемиологического надзора.
Площадь на одно рабочее место с ВДТ и ПЭВМ для взрослых
пользователей должна составлять не менее 6,0 м2, а объем - не менее
20,0 м3. Площадь на одно рабочее место с ВДТ и ПЭВМ во всех учебных
и дошкольных учреждениях должна быть не менее 6,0 м2, а объем - не
менее 24 м3.
Звукоизоляция ограждающих конструкций помещения с ВДТ и ПЭВМ
должна отвечать гигиеническим требованиям и обеспечивать нормируемые параметры
шума согласно требованиям раздела 5 настоящих Санитарных правил и норм.
Поверхность пола в помещениях эксплуатации ВДТ и ПЭВМ должна
быть ровной, без выбоин, нескользкой, удобной для очистки и влажной уборки,
обладать антистатическими свойствами.
П5.1.1.3 Требования к организации рабочих мест
Расположение рабочих мест в ВДТ и ПЭВМ для пользователей в
подвальных помещениях не допускается.
Площадь на одно рабочее место с ВДТ и ПЭВМ для пользователей
должна составлять не менее 6 кв. м, а объем не менее 20 куб. м.
Неправильный выбор ВДТ приводит к ухудшению здоровья
пользователя. Поэтому все ВДТ должны иметь гигиенический сертификат включающий,
в том числе оценку визуальных параметров.
Конструкция ВДТ, его дизайн и совокупность эргономических
параметров должны обеспечивать надежное и комфортное считывание отображаемой
информации в условиях эксплуатации.
Конструкция ВДТ должна обеспечивать возможность фронтального
наблюдения экрана путем поворота корпуса в горизонтальной плоскости вокруг
вертикальной оси в пределах плюс - минус 30 градусов.
Дизайн ВДТ должен предусматривать окраску корпуса в мягкие
тона с диффузионным рассеиванием света. Корпус ВДТ и ПЭВМ, клавиатура и другие
блоки и устройства ПЭВМ должны иметь матовую поверхность одного цвета с
коэффициентом отражения 0.4-0.6 и не иметь блестящих деталей, способных
создавать блики.
П5.1.1.4 Требования к освещению помещений для эксплуатации
аппаратных средств и рабочих мест
Искусственное освещение в помещениях эксплуатации ВДТ и ПЭВМ
должно осуществляться системой общего равномерного освещения. В
производственных и административно-общественных помещениях, в случаях
преимущественной работы с документами, допускается применение системы
комбинированного освещения (к общему освещению дополнительно устанавливаются
светильники местного освещения, предназначенные для освещения зоны расположения
документов).
Искусственное освещение должно обеспечивать на рабочих местах
с ВДТ и ПЭВМ в производственных и административно-общественных, дошкольных и
учебных помещениях освещенность не ниже нормируемых значений.
Следует ограничивать неравномерность распределения яркости в
поле зрения пользователя ВДТ и ПЭВМ, при этом соотношение яркости между
рабочими поверхностями не должно превышать 3: 1-5: 1, а между рабочими
поверхностями и поверхностями стен и оборудования - 10: 1.
В качестве источников света при искусственном освещении
должны применяться преимущественно люминесцентные лампы типа ЛБ. При устройстве
отраженного освещения в производственных и административно-общественных
помещениях допускается применение металлогалогенных ламп мощностью до 250 Вт.
Общее освещение следует выполнять в виде сплошных или
прерывистых линий светильников, расположенных сбоку от рабочих мест,
преимущественно слева, параллельно линии зрения пользователей. При
периметральном расположении рабочих мест с ВДТ и ПЭВМ в дошкольных и учебных
помещениях, светильники общего освещения следует располагать локализовано
относительно рабочих мест.
Яркость светильников общего освещения в зоне углов излучения
от 50 град. До 90 град. с вертикалью в продольной и поперечной плоскостях
должна составлять не более 200 кд/м, защитный угол светильников должен быть не
менее 40 град.
Для обеспечения нормируемых значений освещенности в
помещениях использования ВДТ и ПЭВМ следует проводить чистку остекленения
световых проемов и светильников не реже двух раз в год, а также современную
замену перегоревших ламп.
П5.1.1.5 Требования к организации режима труда и отдыха при
работе с аппаратным обеспечением
Режимы труда и отдыха при профессиональной работе с ПЭВМ и
ВТД должны организовываться в зависимости от вида и категории трудовой
деятельности.
Виды трудовой деятельности разделяются на три группы:
группа А - работа по считыванию информации с экрана ВТД и
ПЭВМ с предварительным запросом;
группа Б - работа по поводу информации;
группа В - творческая работа в режиме диалога с ЭВМ. При
выполнении в течении рабочей смены работ, относящихся к разным видам трудовой
деятельности, за основную работу с ПЭВМ и ВТД следует принимать такую, которая
занимает не менее 50% времени в течение рабочей смены или рабочего дня.
Для видов трудовой деятельности устанавливается три категории
тяжести и напряженности работы с ВТД и ПЭВМ, которые определяются: для групп А
и Б - по суммарному числу считываемых или вводимых знаков за рабочую смену; для
группы В - по суммарному времени непосредственной работы с ВТД и ПЭВМ за
рабочую смену.
Нагрузка на рабочую смену любой продолжительности не должна
превышать: для группы А - 60000 знаков, для групп Б - 45000 знаков, для группы
В - суммарное время непосредственной работы с ВТД и ПЭВМ за смену не более 6
часов.
Продолжительность работы педагогов при ведении занятий с ВТД
и ПЭВМ во всех учебных заведениях не должна превышать 4 часов в день. Для
обеспечения оптимальной работоспособности и сохранения здоровья
профессиональных пользователей, на протяжении рабочей смены должны
устанавливаться регламентированные перерывы. Время регламентированных перерывов
в течение рабочей смены следует устанавливать в зависимости от ее
продолжительности, вида и категории трудовой деятельности с ВТД и ПЭВМ.
Во время регламентированных перерывов, с целью снижения
нервно-эмоционального напряжения, устранения влияния гиподинамии гипокинезии,
предотвращения развития познотонического утомления следует выполнять комплексы
упражнений.
Продолжительность непрерывной работы с ВТД и ПЭВМ без
регламентированного перерыва не должна превышать 2 часов.
Для профилактики зрительного утомления после каждых 25 минут
работы следует выполнять комплекс упражнений для глаз.
В случаях возникновения у работающих с ВТД и ПЭВМ зрительного
дискомфорта или неблагоприятных субъективных ощущений, несмотря на соблюдение
санитарно-гигиенических и эргономических требований и режимов труда и отдыха,
следует применять индивидуальный подход в ограничении времени работы с ВТД и
ПЭВМ и коррекцию длительности перерывов для отдыха или проводить смену
деятельности, заменив ее на работу, не связанную с использованием ВТД и ПЭВМ.
П5.2 ЭКСПЛУАТАЦИЯ ПРОГРАММНОГО ОБЕСПЕЧЕНИЯ
П5.2.1 Установка программного обеспечения на ЭВМ
Для установки данного программного продукта необходимо
запустить файл PTO_Setup. exe, прочитать лицензионное соглашение и установить
программу на ПК выбрав папку установки.
П5.2.2 Вызов программного обеспечения
Вызов приложения "Автоматизированное рабочее место
производственно-технического отдела" осуществляется запуском ярлыка ARM
PTO, который располагается на рабочем столе, либо любым из известных способов
загрузки исполняемых файлов в среде Windows. В данном случае исполняемым файлом
является файл ARM PTO. exe, расположенный в директории с программой.
П5.2.3 Ввод исходных данных
Ввод исходных данных при использовании программы
осуществляется в соответствии со структурой записей. Данные вносятся с
клавиатуры самим пользователем или выбираются из списка предложенных записей
при помощи двойного щелчка мыши.
П5.2.4 Действия пользователя по обработке информации
При работе с программой пользователь должен заполнить все
справочники из меню "Формирование справочников", после этого
необходимо заполнить расценку перейдя в меня "Заполнение базы
расценок" где пользователь заполняет наименоание расценки, используемые
материлы, ед. измерения, их количество и чтоисмоть за единицу, а также затраты
на транспорт и механизмы которыми доставляются данные материалы. Перед тем, как
начать заполнять информацию для открытия объекта в меню "Добавление нового
объекта", пользователю необходимо заполнить базы материалов по видам работ
в меню "Видыв работ". После того как все необходимые базы заполнены,
пользователь начинает формировать объекты на начало строительства. Отчёты
получить можно по различным затратам на материалы, транспорт и механизмы.
П5.2.5 Вывод результатов обработки информации
При работе с программой результаты обработки информации
выводятся на экран - в виде таблиц, на бумагу - в виде отчётов и графиков.
П5.2.6 Сообщения программного продукта
При работе с программой выдаются различные сообщения, на
которые пользователь должен правильно реагировать.
В данной программе предусмотрены различные сообщения:
После того, как будут загружены все компоненты программы
откроется меню программы (см. рис.5.1.11). Вся дальнейшая работа будет состоять
из последовательности действий, которые приведут к формированию нового объекта
и составления отчётов по ценам на материалы транспорт и т.д.:
. Нормативно-справочная информация (см. рис.5.1.12).
. Формирование нового объекта (см. рис.5.1.13).
. Формирование справочников (см. рис.5.1.14).
. Заполнение базы расценок (см. рис.5.1.15).
. Виды работ (см. рис.5.1.16).
. Формирование документов по объектам (см. рис.5.1.17.1,
5.1.17.2).
. Редактирование (см. рис.5.1.1.8).
. Настройки (см. рис.5.1.1.9).
. Сервис (см. рис.5.1.20).
. Расценки 1 (см. рис.5.1.21).
. Расценки 2 (см. рис.5.1.22).
Рисунок 5.1.11 - Форма "Меню программы"
Рисунок 5.1.12 - Форма "Нормативно-справочной
информации"
Рисунок 5.1.13 - Форма "Формирование нового
объекта"
Рисунок 5.1.14 - Форма "Формирование справочников"
Рисунок 5.1.15 - Форма "Заполнения базы расценок"
Рисунок 5.1.16 - Форма "Виды работ"
Рисунок 5.1.17.1 - Форма "Формирование документов по
объектам"
Рисунок 5.1.17.2 - Форма "Формирование документов по
объектам"
Рисунок 5.1.18 - Форма "Редактирования"
Рисунок 5.1.19 - Форма "Настройки"
Рисунок 5.1.20 - Форма "Сервис"
Рисунок 5.1.21 - Форма "Расценки 1"
Рисунок 5.1.22 - Форма "Расценки 2"
Приложение 6
Протокол испытаний программного продукта
Комиссия в составе:
·председатель цикловой
комиссии - С.Г. Тыбербай
·руководитель дипломного
проекта - А.А. Брылёва
·представитель заказчика -
Н.Н. Иванова
произвела проверку работоспособности
программного продукта, разработанного в порядке выполнения дипломного проекта.
. Информация о программном
продукте:
.1. Название программного продукта
"Автоматизированное рабочее место производственно-технического
отдела"
1.2 Номер версии программного продукта 2.01
.3 Дата разработки версии программного
продукта 10.06.2012
1.4 Назначение программного продукта
Программа "Автоматизированное рабочее место
производственно-технического отдела" предназначена для составления
документов для строительства и ведения отчётности.
1.5 Функции программного продукта: С помощью данной
программы пользователь с легкостью сможет рассчитать розничную цену материалов,
узнать сумму на затраты по материалам, транспорту, механизмам.
1.6. Язык программирования: Embarcadero C++Builder 2006
.7 Наличие программы: Есть
1.8 Тип компьютера (ов): Pentium (R) Dual-Core T4300 2.10GHz
1.9 Требования к компьютеру:
.9.1 Оперативная память: 128 Мбайт и выше
1.9.2 Ёмкость жесткого диска (ов) 100 Мбайт
1.9.3 Монитор (ы) 1024Ч768 VGA
1.9.4 Дополнительное периферийное
оборудование: манипулятор, клавиатура, мышь, принтер
.10 Тип операционной системы (систем): Windows
XP,7,8
2. Информация о разработчике программного
продукта.
.1 Полное официальное наименование: Учреждение
образования "Витебский государственный политехнический колледж"
2.2 Место нахождения (почтовый адрес): 210027
г. Витебск пр-т. Черняховского 14а
2.3 Номер контактного телефона (ов): (8-0212)
21-90-80
.4 Номер факса: (8-0212) 21-90-80
.5 Адрес электронной почты: VGPT@tut. by
.6 Фамилия, имя, отчество учащегося,
разработавшего программный продукт: Загудаев Кирилл Сергеевич
Работоспособность программного продукта проверена на
контрольных примерах, предусматривающих все возможные варианты исходных и
промежуточных данных.
Программный продукт признан работоспособным, соответствующим
техническому заданию и позволяет решать поставленные перед ним производственные
задачи.
Председатель цикловой комиссии С.Г.
Тыбербай
Руководитель дипломного проекта А.А. Брылёва
Представитель заказчика Н.Н. Иванова