Автоматизированное рабочее место производственно-технического отдела
Создание программного продукта для автоматизации системы оформления документов по реставрации и реконструкции зданий. Требования к операционной системе и языку программирования. Роль рекламы в реализации программного обеспечения, стимулирование сбыта.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | дипломная работа |
| Язык | русский |
| Дата добавления | 08.07.2012 |
| Размер файла | 3,7 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
DataModule4->ADOTable3->Active=false; DataModule4->ADOTable3->Active=true;
DataModule4->ADOTable4->Active=false; DataModule4->ADOTable4->Active=true;
DataModule4->ADOTable5->Active=false; DataModule4->ADOTable5->Active=true;
DataModule4->ADOTable6->Active=false; DataModule4->ADOTable6->Active=true;
DataModule4->ADOTable7->Active=false; DataModule4->ADOTable7->Active=true;
DataModule4->ADOTable8->Active=false; DataModule4->ADOTable8->Active=true;
DataModule4->ADOTable9->Active=false; DataModule4->ADOTable9->Active=true; */
}
// ---------------------------------------------------------------------------
void __fastcall TForm2:: N7Click (TObject *Sender)
{
Form8->Show ();
}
// ---------------------------------------------------------------------------
void __fastcall TForm2:: sButton9Click (TObject *Sender)
{
if (sGroupBox1->Visible==true) {
DataModule4->ADOTable1->First ();
sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }
if (sGroupBox2->Visible==true && sRadioButton1->Checked==true) {
DataModule4->ADOTable6->First ();
sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }
if (sGroupBox2->Visible==true && sRadioButton2->Checked==true) {
DataModule4->ADOTable7->First ();
sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }
if (sGroupBox2->Visible==true && sRadioButton3->Checked==true) {
DataModule4->ADOTable8->First ();
sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }
if (sGroupBox5->Visible==true && sDBGrid2->Visible==true) {
DataModule4->ADOTable2->First ();
sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }
if (sGroupBox5->Visible==true && sDBGrid3->Visible==true) {
DataModule4->ADOTable3->First ();
sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }
if (sGroupBox4->Visible==true) {
DataModule4->ADOTable4->First ();
sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }
if (sGroupBox3->Visible==true) {
DataModule4->ADOTable5->First ();
sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }
}
// ---------------------------------------------------------------------------
void __fastcall TForm2:: sButton10Click (TObject *Sender)
{
if (sGroupBox1->Visible==true) {
if (DataModule4->ADOTable1->RecNo>1)
{sButton11->Enabled=true; sButton12->Enabled=true; }
else
{sButton9->Enabled=false; sButton10->Enabled=false; }
if (DataModule4->ADOTable1->RecNo==1)
{sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }
DataModule4->ADOTable1->Prior (); }
if (sGroupBox5->Visible==true && sDBGrid2->Visible==true) {
if (DataModule4->ADOTable2->RecNo>1)
{sButton11->Enabled=true; sButton12->Enabled=true; }
else
{sButton9->Enabled=false; sButton10->Enabled=false; }
if (DataModule4->ADOTable2->RecNo==1)
{sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }
DataModule4->ADOTable2->Prior (); }
if (sGroupBox5->Visible==true && sDBGrid3->Visible==true) {
if (DataModule4->ADOTable3->RecNo>1)
{sButton11->Enabled=true; sButton12->Enabled=true; }
else
{sButton9->Enabled=false; sButton10->Enabled=false; }
if (DataModule4->ADOTable3->RecNo==1)
{sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }
DataModule4->ADOTable3->Prior (); }
if (sGroupBox4->Visible==true) {
if (DataModule4->ADOTable4->RecNo>1)
{sButton11->Enabled=true; sButton12->Enabled=true; }
else
{sButton9->Enabled=false; sButton10->Enabled=false; }
if (DataModule4->ADOTable4->RecNo==1)
{sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }
DataModule4->ADOTable4->Prior (); }
if (sGroupBox3->Visible==true) {
if (DataModule4->ADOTable5->RecNo>1)
{sButton11->Enabled=true; sButton12->Enabled=true; }
else
{sButton9->Enabled=false; sButton10->Enabled=false; }
if (DataModule4->ADOTable5->RecNo==1)
{sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }
DataModule4->ADOTable5->Prior (); }
if (sGroupBox2->Visible==true && sRadioButton1->Checked==true) {
if (DataModule4->ADOTable6->RecNo>1)
{sButton11->Enabled=true; sButton12->Enabled=true; }
else
{sButton9->Enabled=false; sButton10->Enabled=false; }
if (DataModule4->ADOTable6->RecNo==1)
{sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }
DataModule4->ADOTable6->Prior (); }
if (sGroupBox2->Visible==true && sRadioButton2->Checked==true) {
if (DataModule4->ADOTable7->RecNo>1)
{sButton11->Enabled=true; sButton12->Enabled=true; }
else
{sButton9->Enabled=false; sButton10->Enabled=false; }
if (DataModule4->ADOTable7->RecNo==1)
{sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }
DataModule4->ADOTable7->Prior (); }
if (sGroupBox2->Visible==true && sRadioButton3->Checked==true) {
if (DataModule4->ADOTable8->RecNo>1)
{sButton11->Enabled=true; sButton12->Enabled=true; }
else
{sButton9->Enabled=false; sButton10->Enabled=false; }
if (DataModule4->ADOTable8->RecNo==1)
{sButton9->Enabled=false; sButton10->Enabled=false; sButton11->Enabled=true; sButton12->Enabled=true; }
DataModule4->ADOTable8->Prior (); }
}
// ---------------------------------------------------------------------------
void __fastcall TForm2:: sButton12Click (TObject *Sender)
{
if (sGroupBox1->Visible==true) {
DataModule4->ADOTable1->Last ();
sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }
if (sGroupBox2->Visible==true && sRadioButton1->Checked==true) {
DataModule4->ADOTable6->Last ();
sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }
if (sGroupBox2->Visible==true && sRadioButton2->Checked==true) {
DataModule4->ADOTable7->Last ();
sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }
if (sGroupBox2->Visible==true && sRadioButton3->Checked==true) {
DataModule4->ADOTable8->Last ();
sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }
if (sGroupBox5->Visible==true && sDBGrid2->Visible==true) {
DataModule4->ADOTable2->Last ();
sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }
if (sGroupBox5->Visible==true && sDBGrid3->Visible==true) {
DataModule4->ADOTable3->Last ();
sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }
if (sGroupBox4->Visible==true) {
DataModule4->ADOTable4->Last ();
sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }
if (sGroupBox3->Visible==true) {
DataModule4->ADOTable5->Last ();
sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }
}
// ---------------------------------------------------------------------------
void __fastcall TForm2:: sButton11Click (TObject *Sender)
{
if (sGroupBox1->Visible==true) {
if (DataModule4->ADOTable1->RecNo<DataModule4->ADOTable1->RecordCount)
{sButton9->Enabled=true; sButton10->Enabled=true; }
else
{sButton11->Enabled=false; sButton12->Enabled=false; }
if (DataModule4->ADOTable1->RecNo==DataModule4->ADOTable1->RecordCount)
{sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }
DataModule4->ADOTable1->Next (); }
if (sGroupBox2->Visible==true && sRadioButton1->Checked==true) {
if (DataModule4->ADOTable6->RecNo<DataModule4->ADOTable6->RecordCount)
{sButton9->Enabled=true; sButton10->Enabled=true; }
else
{sButton11->Enabled=false; sButton12->Enabled=false; }
if (DataModule4->ADOTable6->RecNo==DataModule4->ADOTable6->RecordCount)
{sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }
DataModule4->ADOTable6->Next (); }
if (sGroupBox2->Visible==true && sRadioButton2->Checked==true) {
if (DataModule4->ADOTable7->RecNo<DataModule4->ADOTable7->RecordCount)
{sButton9->Enabled=true; sButton10->Enabled=true; }
else
{sButton11->Enabled=false; sButton12->Enabled=false; }
if (DataModule4->ADOTable7->RecNo==DataModule4->ADOTable7->RecordCount)
{sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }
DataModule4->ADOTable7->Next (); }
if (sGroupBox2->Visible==true && sRadioButton3->Checked==true) {
if (DataModule4->ADOTable8->RecNo<DataModule4->ADOTable8->RecordCount)
{sButton9->Enabled=true; sButton10->Enabled=true; }
else
{sButton11->Enabled=false; sButton12->Enabled=false; }
if (DataModule4->ADOTable8->RecNo==DataModule4->ADOTable8->RecordCount)
{sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }
DataModule4->ADOTable8->Next (); }
if (sGroupBox5->Visible==true && sDBGrid2->Visible==true) {
if (DataModule4->ADOTable2->RecNo<DataModule4->ADOTable2->RecordCount)
{sButton9->Enabled=true; sButton10->Enabled=true; }
else
{sButton11->Enabled=false; sButton12->Enabled=false; }
if (DataModule4->ADOTable2->RecNo==DataModule4->ADOTable2->RecordCount)
{sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }
DataModule4->ADOTable2->Next (); }
if (sGroupBox5->Visible==true && sDBGrid3->Visible==true) {
if (DataModule4->ADOTable3->RecNo<DataModule4->ADOTable3->RecordCount)
{sButton9->Enabled=true; sButton10->Enabled=true; }
else
{sButton11->Enabled=false; sButton12->Enabled=false; }
if (DataModule4->ADOTable3->RecNo==DataModule4->ADOTable3->RecordCount)
{sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }
DataModule4->ADOTable3->Next (); }
if (sGroupBox4->Visible==true) {
if (DataModule4->ADOTable4->RecNo<DataModule4->ADOTable4->RecordCount)
{sButton9->Enabled=true; sButton10->Enabled=true; }
else
{sButton11->Enabled=false; sButton12->Enabled=false; }
if (DataModule4->ADOTable4->RecNo==DataModule4->ADOTable4->RecordCount)
{sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }
DataModule4->ADOTable4->Next (); }
if (sGroupBox3->Visible==true) {
if (DataModule4->ADOTable5->RecNo<DataModule4->ADOTable5->RecordCount)
{sButton9->Enabled=true; sButton10->Enabled=true; }
else
{sButton11->Enabled=false; sButton12->Enabled=false; }
if (DataModule4->ADOTable5->RecNo==DataModule4->ADOTable5->RecordCount)
{sButton11->Enabled=false; sButton12->Enabled=false; sButton9->Enabled=true; sButton10->Enabled=true; }
DataModule4->ADOTable5->Next (); }
}
// ---------------------------------------------------------------------------
void __fastcall TForm2:: sButton17Click (TObject *Sender)
{
Form2->Close ();
Form6->Show ();
Form6->sGroupBox2->Visible=true;
Form6->sGroupBox1->Visible=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm2:: FormKeyDown (TObject *Sender, WORD &Key,
TShiftState Shift)
{
if (Key==VK_ESCAPE) {sButton8Click (sButton8); }
}
// ---------------------------------------------------------------------------
void __fastcall TForm2:: N16Click (TObject *Sender)
{
Form12->Close ();
}
// ---------------------------------------------------------------------------
void __fastcall TForm2:: N4Click (TObject *Sender)
{
Form7->Show ();
Form7->sPageControl1->ActivePage=Form7->sTabSheet1;
Form7->sPageControl2->ActivePage=Form7->sTabSheet3;
}
// ---------------------------------------------------------------------------
void __fastcall TForm2:: N17Click (TObject *Sender)
{
Form7->Show ();
Form7->sPageControl1->ActivePage=Form7->sTabSheet1;
Form7->sPageControl2->ActivePage=Form7->sTabSheet4;
}
// ---------------------------------------------------------------------------
void __fastcall TForm2:: N18Click (TObject *Sender)
{
Form7->Show ();
Form7->sPageControl1->ActivePage=Form7->sTabSheet2;
Form7->sPageControl3->ActivePage=Form7->sTabSheet5;
}
// ---------------------------------------------------------------------------
void __fastcall TForm2:: N19Click (TObject *Sender)
{
Form7->Show ();
Form7->sPageControl1->ActivePage=Form7->sTabSheet2;
Form7->sPageControl3->ActivePage=Form7->sTabSheet6;
}
// ---------------------------------------------------------------------------
void __fastcall TForm2:: N21Click (TObject *Sender)
{
Form7->Show ();
Form7->sPageControl1->ActivePage=Form7->sTabSheet2;
Form7->sPageControl3->ActivePage=Form7->sTabSheet7;
Form7->sPageControl4->ActivePage=Form7->sTabSheet8;
}
// ---------------------------------------------------------------------------
void __fastcall TForm2:: N22Click (TObject *Sender)
{
Form7->Show ();
Form7->sPageControl1->ActivePage=Form7->sTabSheet2;
Form7->sPageControl3->ActivePage=Form7->sTabSheet7;
Form7->sPageControl4->ActivePage=Form7->sTabSheet9;
}
// ---------------------------------------------------------------------------
void __fastcall TForm2:: N13Click (TObject *Sender)
{
Form2->Close ();
Form6->Show ();
Form6->sGroupBox1->Visible=true;
Form6->sGroupBox2->Visible=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm2:: N3Click (TObject *Sender)
{
Form2->Close ();
Form5->Show ();
Form5->sPageControl1->ActivePage=Form5->sTabSheet2;
Form5->sPageControl2->ActivePage=Form5->sTabSheet3;
Form5->sPageControl4->ActivePage=Form5->sTabSheet18;
}
// ---------------------------------------------------------------------------
void __fastcall TForm2:: N23Click (TObject *Sender)
{
Form2->Close ();
Form5->Show ();
Form5->sPageControl1->ActivePage=Form5->sTabSheet1;
Form5->sButton1->SetFocus ();
Form5->sGroupBox2->Visible=false;
Form5->sGroupBox1->Visible=true;
Form5->sGroupBox3->Visible=false;
Form5->sGroupBox6->Visible=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm2:: N24Click (TObject *Sender) {
Form2->Close ();
Form5->Show ();
Form5->sPageControl1->ActivePage=Form5->sTabSheet1;
Form5->sButton2->SetFocus ();
Form5->sGroupBox1->Visible=false;
Form5->sGroupBox2->Visible=true;
Form5->sGroupBox3->Visible=false;
Form5->sGroupBox6->Visible=false; }
// ---------------------------------------------------------------------------
void __fastcall TForm2:: N25Click (TObject *Sender) {
Form2->Close ();
Form5->Show ();
Form5->sPageControl1->ActivePage=Form5->sTabSheet1;
Form5->sButton3->SetFocus ();
Form5->sGroupBox1->Visible=false;
Form5->sGroupBox2->Visible=false;
Form5->sGroupBox3->Visible=true;
Form5->sGroupBox6->Visible=false; }
// ---------------------------------------------------------------------------
void __fastcall TForm2:: N26Click (TObject *Sender) {
Form2->Close ();
Form5->Show ();
Form5->sPageControl1->ActivePage=Form5->sTabSheet1;
Form5->sButton20->SetFocus ();
Form5->sGroupBox1->Visible=false;
Form5->sGroupBox2->Visible=false;
Form5->sGroupBox3->Visible=false;
Form5->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"
TForm3 *Form3;
// ---------------------------------------------------------------------------
__fastcall TForm3:: TForm3 (TComponent* Owner)
: TForm (Owner)
{
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: sButton3Click (TObject *Sender)
{
DataModule4->ADOQuery14->Active=false;
DataModule4->ADOQuery14->Active=true;
Form3->Close ();
Form2->Show ();
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: sEdit1Change (TObject *Sender)
{
if (sEdit1->Text! ="") {Timer1->Enabled=true; }
for (int i=0; i<=0; i++) {
if ( (sEdit1->Text==" [") || (sEdit1->Text=="] ")) { MessageBoxA (NULL,"Не корректное значение для поиска! Проверьте и повторите ввод данных!","Ошибка",MB_OK); break; }
else{
DataModule4->ADOQuery14->Close ();
DataModule4->ADOQuery14->SQL->Clear ();
DataModule4->ADOQuery14->SQL->Add ("select * from Razcenki where nameobosnov LIKE '%"+sEdit1->Text+"%' and Name Like '%"+sEdit7->Text+"%'; ");
DataModule4->ADOQuery14->Open ();
sEdit2->Visible=true;
sEdit2->Text="Найдено записей: " + (IntToStr (DataModule4->ADOQuery14->RecordCount));
if (IntToStr (DataModule4->ADOQuery14->RecordCount) ==1) {sGroupBox1->Visible=true; sGroupBox2->Visible=false; }
if (IntToStr (DataModule4->ADOQuery14->RecordCount) ==2) {sEdit7->Visible=true; sLabel4->Visible=true; }
else {sEdit7->Visible=false; sEdit7->Clear (); sLabel4->Visible=false; }
if ( (IntToStr (DataModule4->ADOQuery14->RecordCount)! =1) && (IntToStr (DataModule4->ADOQuery14->RecordCount)! =0)) {sGroupBox1->Visible=false; sGroupBox2->Visible=true; }
if ( (IntToStr (DataModule4->ADOQuery14->RecordCount) ==0) || (sEdit1->Text=="")) {sEdit2->Visible=false; sGroupBox1->Visible=false; sGroupBox2->Visible=false; sGroupBox3->Visible=false; }}}
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: sButton1Click (TObject *Sender)
{
if (sButton1->Caption=="Поиск по наименованию") {
DataModule4->ADOQuery14->Close ();
DataModule4->ADOQuery14->SQL->Clear ();
DataModule4->ADOQuery14->SQL->Add ("select * from Razcenki");
DataModule4->ADOQuery14->Open ();
sEdit1->Clear ();
sEdit7->Clear ();
sEdit7->Visible=false;
sLabel4->Visible=false;
sEdit1->Visible=false;
sLabel1->Visible=false;
sGroupBox3->Visible=true;
sGroupBox2->Visible=false;
sGroupBox1->Visible=false;
sButton1->Caption="Закрыть"; }
else {
DataModule4->ADOQuery14->Close ();
DataModule4->ADOQuery14->SQL->Clear ();
DataModule4->ADOQuery14->SQL->Add ("select * from Razcenki");
DataModule4->ADOQuery14->Open ();
sEdit7->Visible=true;
sLabel4->Visible=true;
sEdit1->Visible=true;
sLabel1->Visible=true;
sGroupBox3->Visible=false;
sGroupBox2->Visible=false;
sGroupBox1->Visible=false;
sButton1->Caption="Поиск по наименованию"; }
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: sEdit3Change (TObject *Sender)
{
if (sEdit3->Text! ="") {Timer1->Enabled=true; }
for (int i=0; i<=0; i++) {
if ( (sEdit3->Text==" [") || (sEdit3->Text=="] ")) { Application->MessageBoxA ("Не корректное значение для поиска! Повторите ввод данных!","Ошибка",16);; break; }
DataModule4->ADOQuery14->Active=false;
DataModule4->ADOQuery14->SQL->Clear ();
DataModule4->ADOQuery14->SQL->Add ("select * from Razcenki where Name LIKE '%"+sEdit3->Text+"%'; ");
DataModule4->ADOQuery14->Active=true; }
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: FormKeyDown (TObject *Sender, WORD &Key,
TShiftState Shift) {
if (Key==VK_ESCAPE) {sButton3Click (sButton3); }
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: Timer1Timer (TObject *Sender)
{
sGauge1->Progress++;
if (sGauge1->Progress==sGauge1->MaxValue) {Timer1->Enabled=false; sGauge1->Progress=0; }
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: Timer2Timer (TObject *Sender)
{
if (sEdit4->Text! ="" && sEdit5->Text! ="" && sEdit6->Text! ="") {sButton4->Enabled=true; }
else {sButton4->Enabled=false; }
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: sButton4Click (TObject *Sender)
{
int a;
Form9->QRLabel2->Caption=sEdit4->Text;
Form9->QRLabel5->Caption=sEdit5->Text+" "+sEdit6->Text;
for (int i=0; DataModule4->ADOQuery14->RecordCount>i; i++) {
a=a+ (DataModule4->ADOQuery14->FieldValues ["Stoimoct"]);
DataModule4->ADOQuery14->Next (); }
Form9->QRLabel21->Caption=IntToStr (a) +" руб. ";
Form9->QuickRep1->Preview ();
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: sEdit7Change (TObject *Sender)
{
for (int i=0; i<=0; i++) {
if ( (sEdit1->Text==" [") || (sEdit1->Text=="] ")) { MessageBoxA (NULL,"Не корректное значение для поиска! Проверьте и повторите ввод данных!","Ошибка",MB_OK); break; }
else{
DataModule4->ADOQuery14->Close ();
DataModule4->ADOQuery14->SQL->Clear ();
DataModule4->ADOQuery14->SQL->Add ("select * from Razcenki where nameobosnov LIKE '%"+sEdit1->Text+"%' and Name Like '%"+sEdit7->Text+"%'; ");
DataModule4->ADOQuery14->Open (); }}
sEdit2->Text="Найдено записей: " + (IntToStr (DataModule4->ADOQuery14->RecordCount));
if (IntToStr (DataModule4->ADOQuery14->RecordCount) ==1) {sGroupBox1->Visible=true; sGroupBox2->Visible=false; }
if ( (IntToStr (DataModule4->ADOQuery14->RecordCount)! =1) && (IntToStr (DataModule4->ADOQuery14->RecordCount)! =0)) {sGroupBox1->Visible=false; sGroupBox2->Visible=true; }
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: sButton7Click (TObject *Sender)
{
sPanel2->Visible=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: sButton5Click (TObject *Sender)
{
if (DataModule4->ADOQuery16Name->Text==DataModule4->ADOQuery14Name->Text) {Application->MessageBoxA ("Запись существует, добавление не возможно!","Ошибка. ",16); }
else {
DataModule4->ADOQuery16->Append ();
DataModule4->ADOQuery16Name->Text=DataModule4->ADOQuery14Name->Text;
DataModule4->ADOQuery16cena_city_otp->Text=DataModule4->ADOQuery14cena_city_otp->Text;
DataModule4->ADOQuery16cena_selo_otp->Text=DataModule4->ADOQuery14cena_selo_otp->Text;
DataModule4->ADOQuery16cena_city_smet->Text=DataModule4->ADOQuery14cena_city_smet->Text;
DataModule4->ADOQuery16cena_selo_smet->Text=DataModule4->ADOQuery14cena_selo_smet->Text;
DataModule4->ADOQuery16->Post (); }
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: sButton11Click (TObject *Sender)
{
sPanel2->Visible=true;
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: sButton6Click (TObject *Sender)
{
int i;
float a1,a2,a3,a4;
for (i=0; DataModule4->ADOQuery16->RecordCount>i; i++) {
a1=a1+ (DataModule4->ADOQuery16->FieldValues ["cena_city_otp"]);
a2=a2+ (DataModule4->ADOQuery16->FieldValues ["cena_selo_otp"]);
a3=a3+ (DataModule4->ADOQuery16->FieldValues ["cena_city_smet"]);
a4=a4+ (DataModule4->ADOQuery16->FieldValues ["cena_selo_smet"]);
DataModule4->ADOQuery16->Next (); }
Form13->QRLabel9->Caption=FormatFloat ("0.00",a1) +" руб. ";
Form13->QRLabel10->Caption=FormatFloat ("0.00",a2) +" руб. ";
Form13->QRLabel11->Caption=FormatFloat ("0.00",a3) +" руб. ";
Form13->QRLabel12->Caption=FormatFloat ("0.00",a4) +" руб. ";
Form13->QuickRep1->Preview ();
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: sButton8Click (TObject *Sender)
{
DataModule4->ADOQuery16->Delete ();
}
// ---------------------------------------------------------------------------
void __fastcall TForm3:: sButton2Click (TObject *Sender) {
Form3->Close ();
Form5->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"
TForm5 *Form5;
// ---------------------------------------------------------------------------
__fastcall TForm5:: TForm5 (TComponent* Owner)
: TForm (Owner)
{
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton4Click (TObject *Sender)
{
Form5->Close ();
Form1->Show ();
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton3Click (TObject *Sender)
{
sGroupBox1->Visible=false;
sGroupBox3->Visible=true;
sGroupBox2->Visible=false;
sGroupBox6->Visible=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton2Click (TObject *Sender)
{
sGroupBox1->Visible=false;
sGroupBox2->Visible=true;
sGroupBox3->Visible=false;
sGroupBox6->Visible=false;
sGroupBox12->Visible=true;
sGroupBox13->Visible=false;
sGroupBox14->Visible=false;
sGroupBox15->Visible=false;
sGroupBox16->Visible=false;
sGroupBox17->Visible=false;
sGroupBox18->Visible=false;
sGroupBox19->Visible=false;
sGroupBox20->Visible=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton1Click (TObject *Sender)
{
sGroupBox2->Visible=false;
sGroupBox1->Visible=true;
sGroupBox3->Visible=false;
sGroupBox6->Visible=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton8Click (TObject *Sender)
{
sGroupBox12->Visible=true;
sGroupBox13->Visible=false;
sGroupBox14->Visible=false;
sGroupBox15->Visible=false;
sGroupBox16->Visible=false;
sGroupBox17->Visible=false;
sGroupBox27->Visible=false;
sGroupBox18->Visible=false;
sGroupBox19->Visible=false;
sGroupBox20->Visible=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton9Click (TObject *Sender)
{
sGroupBox13->Visible=true;
sGroupBox12->Visible=false;
sGroupBox14->Visible=false;
sGroupBox15->Visible=false;
sGroupBox16->Visible=false;
sGroupBox17->Visible=false;
sGroupBox27->Visible=false;
sGroupBox18->Visible=false;
sGroupBox19->Visible=false;
sGroupBox20->Visible=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton10Click (TObject *Sender)
{
sGroupBox14->Visible=true;
sGroupBox13->Visible=false;
sGroupBox12->Visible=false;
sGroupBox15->Visible=false;
sGroupBox16->Visible=false;
sGroupBox27->Visible=false;
sGroupBox17->Visible=false;
sGroupBox18->Visible=false;
sGroupBox19->Visible=false;
sGroupBox20->Visible=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton11Click (TObject *Sender)
{
sGroupBox15->Visible=true;
sGroupBox13->Visible=false;
sGroupBox14->Visible=false;
sGroupBox12->Visible=false;
sGroupBox16->Visible=false;
sGroupBox17->Visible=false;
sGroupBox18->Visible=false;
sGroupBox19->Visible=false;
sGroupBox27->Visible=false;
sGroupBox20->Visible=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton12Click (TObject *Sender)
{
sGroupBox16->Visible=true;
sGroupBox13->Visible=false;
sGroupBox14->Visible=false;
sGroupBox15->Visible=false;
sGroupBox12->Visible=false;
sGroupBox17->Visible=false;
sGroupBox18->Visible=false;
sGroupBox27->Visible=false;
sGroupBox19->Visible=false;
sGroupBox20->Visible=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton13Click (TObject *Sender)
{
sGroupBox17->Visible=true;
sGroupBox13->Visible=false;
sGroupBox14->Visible=false;
sGroupBox15->Visible=false;
sGroupBox16->Visible=false;
sGroupBox27->Visible=false;
sGroupBox12->Visible=false;
sGroupBox18->Visible=false;
sGroupBox19->Visible=false;
sGroupBox20->Visible=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton14Click (TObject *Sender)
{
sGroupBox18->Visible=true;
sGroupBox13->Visible=false;
sGroupBox14->Visible=false;
sGroupBox15->Visible=false;
sGroupBox16->Visible=false;
sGroupBox17->Visible=false;
sGroupBox12->Visible=false;
sGroupBox27->Visible=false;
sGroupBox19->Visible=false;
sGroupBox20->Visible=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton15Click (TObject *Sender)
{
sGroupBox19->Visible=true;
sGroupBox13->Visible=false;
sGroupBox14->Visible=false;
sGroupBox15->Visible=false;
sGroupBox16->Visible=false;
sGroupBox17->Visible=false;
sGroupBox27->Visible=false;
sGroupBox18->Visible=false;
sGroupBox12->Visible=false;
sGroupBox20->Visible=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton19Click (TObject *Sender)
{
Form5->Close ();
Form2->Show ();
Form2->sGroupBox1->Visible=true;
Form2->sGroupBox2->Visible=false;
Form2->sGroupBox3->Visible=false;
Form2->sGroupBox4->Visible=false;
Form2->sGroupBox5->Visible=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton16Click (TObject *Sender)
{
sButton18->Caption="Отмена";
sButton16->Enabled=false;
sButton17->Enabled=true;
sDBEdit1->ReadOnly=false;
DataModule4->ADOTable4->Append ();
sDBGrid1->Enabled=false;
sDBEdit1->SetFocus ();
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton17Click (TObject *Sender)
{
// Области
if (sDBEdit1->Text=="") {Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей. ",16); }
else {
sButton16->Enabled=true;
sButton17->Enabled=false;
sButton18->Caption="Редактировать";
DataModule4->ADOTable4->Post ();
sDBGrid1->Enabled=true;
sDBEdit1->ReadOnly=true; }
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton5Click (TObject *Sender)
{
DataModule4->ADOTable1->Append (); // добавляет пустую запись в конец таблицы
sButton5->Enabled=false;
sButton6->Enabled=true;
sButton7->Enabled=true;
sRadioButton3->Enabled=true;
sRadioButton4->Enabled=true;
sDBLookupComboBox1->Enabled=true;
sDBLookupComboBox2->Enabled=true;
sDBLookupComboBox3->Enabled=true;
sDBLookupComboBox4->Enabled=true;
sDBLookupComboBox5->Enabled=true;
sDBLookupComboBox6->Enabled=true;
sDBLookupComboBox7->Enabled=true;
sDBLookupComboBox8->Enabled=true;
sDateEdit1->Enabled=true;
sDateEdit2->Enabled=true;
Memo1->Enabled=true;
Memo2->Enabled=true;
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton6Click (TObject *Sender)
{ int i=0*1;
if (sDBLookupComboBox1->Text=="" || sDBLookupComboBox2->Text=="" || sDBLookupComboBox3->Text=="" || sDBLookupComboBox4->Text=="" || sDBLookupComboBox5->Text=="" || sDBLookupComboBox6->Text=="" || sDBLookupComboBox7->Text=="" || sDBLookupComboBox8->Text=="" || sDateEdit1->Text=="" || sDateEdit2->Text=="" || Memo2->Text=="") {
Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей",16);
}
else{
DataModule4->ADOTable1new_stroj->Value=sDateEdit1->Date;
DataModule4->ADOTable1close_stoj->Value=sDateEdit2->Date;
for (i=0; i<Memo2->Lines->Count; i++) {
if (i<Memo2->Lines->Count-1) {
DataModule4->ADOTable1materiali->Text=DataModule4->ADOTable1materiali->Text+Memo2->Lines->Strings [i] +", "; }
else DataModule4->ADOTable1materiali->Text=DataModule4->ADOTable1materiali->Text+Memo2->Lines->Strings [i];
}
if (sRadioButton3->Checked) {DataModule4->ADOTable1tip_stoj->Text="Действующее строительство"; }
else{DataModule4->ADOTable1tip_stoj->Text="Строительство прекращено"; }
DataModule4->ADOTable1->Post ();
sButton5->Enabled=true;
sButton6->Enabled=false;
sButton7->Enabled=false;
sRadioButton3->Enabled=false;
sRadioButton4->Enabled=false;
sDBLookupComboBox1->Enabled=false;
sDBLookupComboBox2->Enabled=false;
sDBLookupComboBox3->Enabled=false;
sDBLookupComboBox4->Enabled=false;
sDBLookupComboBox5->Enabled=false;
sDBLookupComboBox6->Enabled=false;
sDBLookupComboBox7->Enabled=false;
sDBLookupComboBox8->Enabled=false;
sDateEdit1->Enabled=false;
sDateEdit2->Enabled=false;
sDateEdit1->Clear ();
sDateEdit2->Clear ();
Memo1->Clear ();
Memo2->Clear ();
Memo1->Enabled=false;
Memo2->Enabled=false;
Application->MessageBoxA ("Запись сохранена!","Сохранение. ",64); }
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton7Click (TObject *Sender)
{
DataModule4->ADOTable1->Cancel ();
sButton5->Enabled=true;
sButton6->Enabled=false;
sButton7->Enabled=false;
sRadioButton3->Enabled=false;
sRadioButton4->Enabled=false;
sDBLookupComboBox1->Enabled=false;
sDBLookupComboBox2->Enabled=false;
sDBLookupComboBox3->Enabled=false;
sDBLookupComboBox4->Enabled=false;
sDBLookupComboBox5->Enabled=false;
sDBLookupComboBox6->Enabled=false;
sDBLookupComboBox7->Enabled=false;
sDBLookupComboBox8->Enabled=false;
sDateEdit1->Enabled=false;
sDateEdit2->Enabled=false;
sDateEdit1->Clear ();
sDateEdit2->Clear ();
Memo1->Clear ();
Memo2->Clear ();
Memo1->Enabled=false;
Memo2->Enabled=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton20Click (TObject *Sender)
{
sGroupBox2->Visible=false;
sGroupBox6->Visible=true;
sGroupBox3->Visible=false;
sGroupBox1->Visible=false;
sGroupBox8->Visible=true;
sGroupBox9->Visible=true;
sGroupBox10->Visible=false;
sGroupBox11->Visible=false;
sGroupBox23->Visible=false;
sGroupBox24->Visible=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton21Click (TObject *Sender)
{
sGroupBox20->Visible=true;
sGroupBox13->Visible=false;
sGroupBox14->Visible=false;
sGroupBox15->Visible=false;
sGroupBox16->Visible=false;
sGroupBox17->Visible=false;
sGroupBox18->Visible=false;
sGroupBox19->Visible=false;
sGroupBox27->Visible=false;
sGroupBox12->Visible=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton22Click (TObject *Sender)
{
sGroupBox8->Visible=true;
sGroupBox9->Visible=true;
sGroupBox10->Visible=false;
sGroupBox11->Visible=false;
sGroupBox23->Visible=false;
sGroupBox24->Visible=false;
sDBGrid12->Enabled=true;
sButton93->Enabled=true;
sButton94->Enabled=false;
sButton95->Enabled=false;
DataModule4->ADOTable12->Cancel ();
sDBEdit22->Enabled=false;
sDBLookupComboBox11->Enabled=false;
sDBLookupComboBox14->Enabled=false;
sDBGrid11->Enabled=true;
sButton90->Enabled=true;
sButton91->Enabled=false;
sButton92->Enabled=false;
DataModule4->ADOTable11->Cancel ();
sDBEdit17->Enabled=false;
sDBLookupComboBox10->Enabled=false;
sDBLookupComboBox12->Enabled=false;
sDBGrid10->Enabled=true;
sButton25->Enabled=true;
sButton26->Enabled=false;
sButton27->Enabled=false;
DataModule4->ADOTable10->Cancel ();
sDBEdit12->Enabled=false;
sDBLookupComboBox13->Enabled=false;
sDBLookupComboBox9->Enabled=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton23Click (TObject *Sender)
{
sGroupBox10->Visible=true;
sGroupBox23->Visible=true;
sGroupBox8->Visible=false;
sGroupBox11->Visible=false;
sGroupBox9->Visible=false;
sGroupBox24->Visible=false;
sDBGrid12->Enabled=true;
sButton93->Enabled=true;
sButton94->Enabled=false;
sButton95->Enabled=false;
DataModule4->ADOTable12->Cancel ();
sDBEdit22->Enabled=false;
sDBLookupComboBox11->Enabled=false;
sDBLookupComboBox14->Enabled=false;
sDBGrid11->Enabled=true;
sButton90->Enabled=true;
sButton91->Enabled=false;
sButton92->Enabled=false;
DataModule4->ADOTable11->Cancel ();
sDBEdit17->Enabled=false;
sDBLookupComboBox10->Enabled=false;
sDBLookupComboBox12->Enabled=false;
sDBGrid10->Enabled=true;
sButton25->Enabled=true;
sButton26->Enabled=false;
sButton27->Enabled=false;
DataModule4->ADOTable10->Cancel ();
sDBEdit12->Enabled=false;
sDBLookupComboBox13->Enabled=false;
sDBLookupComboBox9->Enabled=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton24Click (TObject *Sender)
{
sGroupBox11->Visible=true;
sGroupBox24->Visible=true;
sGroupBox10->Visible=false;
sGroupBox8->Visible=false;
sGroupBox23->Visible=false;
sGroupBox9->Visible=false;
sDBGrid12->Enabled=true;
sButton93->Enabled=true;
sButton94->Enabled=false;
sButton95->Enabled=false;
DataModule4->ADOTable12->Cancel ();
sDBEdit22->Enabled=false;
sDBLookupComboBox11->Enabled=false;
sDBLookupComboBox14->Enabled=false;
sDBGrid11->Enabled=true;
sButton90->Enabled=true;
sButton91->Enabled=false;
sButton92->Enabled=false;
DataModule4->ADOTable11->Cancel ();
sDBEdit17->Enabled=false;
sDBLookupComboBox10->Enabled=false;
sDBLookupComboBox12->Enabled=false;
sDBGrid10->Enabled=true;
sButton25->Enabled=true;
sButton26->Enabled=false;
sButton27->Enabled=false;
DataModule4->ADOTable10->Cancel ();
sDBEdit12->Enabled=false;
sDBLookupComboBox13->Enabled=false;
sDBLookupComboBox9->Enabled=false;
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton25Click (TObject *Sender)
{
// новое строительство
if (sGroupBox9->Visible==true) {
DataModule4->ADOTable10->Append ();
sDBGrid10->Enabled=false;
sButton26->Enabled=true;
sButton27->Enabled=true;
sButton25->Enabled=false;
sDBEdit12->Enabled=true;
sDBLookupComboBox13->Enabled=true;
sDBLookupComboBox9->Enabled=true; }
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton26Click (TObject *Sender)
{
// новое строительство
if ( (sGroupBox9->Visible==true) && (sDBEdit12->Text=="" || sDBLookupComboBox13->Text=="" || sDBLookupComboBox9->Text=="")) {
Application->MessageBoxA ("Заполнены не все поля!","Заполнение полей",16); }
else {
sDBGrid10->Enabled=true;
sButton25->Enabled=true;
sButton26->Enabled=false;
sButton27->Enabled=false;
DataModule4->ADOTable10name_newstroj->Text="Новое строительство";
DataModule4->ADOQuery9->Active=false;
DataModule4->ADOQuery9->Active=true;
DataModule4->ADOTable10->Post ();
sDBEdit12->Enabled=false;
sDBLookupComboBox13->Enabled=false;
sDBLookupComboBox9->Enabled=false; }
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sButton27Click (TObject *Sender)
{
// новое строительство
if (sGroupBox9->Visible==true) {
sDBGrid10->Enabled=true;
sButton25->Enabled=true;
sButton26->Enabled=false;
sButton27->Enabled=false;
DataModule4->ADOTable10->Cancel ();
sDBEdit12->Enabled=false;
sDBLookupComboBox13->Enabled=false;
sDBLookupComboBox9->Enabled=false; }
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sPageControl1Change (TObject *Sender)
{
if (sPageControl1->ActivePage==sTabSheet1) {sButton1->SetFocus (); }
sPageControl2->ActivePage=sTabSheet3;
sPageControl4->ActivePage=sTabSheet18;
sGroupBox2->Visible=false;
sGroupBox1->Visible=true;
sGroupBox3->Visible=false;
sGroupBox6->Visible=false;
// SQL reset
DataModule4->ADOQuery1->Active=false; DataModule4->ADOQuery1->Active=true;
DataModule4->ADOQuery2->Active=false; DataModule4->ADOQuery2->Active=true;
DataModule4->ADOQuery3->Active=false; DataModule4->ADOQuery3->Active=true;
DataModule4->ADOQuery4->Active=false; DataModule4->ADOQuery4->Active=true;
DataModule4->ADOQuery5->Active=false; DataModule4->ADOQuery5->Active=true;
DataModule4->ADOQuery6->Active=false; DataModule4->ADOQuery6->Active=true;
DataModule4->ADOQuery7->Active=false; DataModule4->ADOQuery7->Active=true;
DataModule4->ADOQuery8->Active=false; DataModule4->ADOQuery8->Active=true;
DataModule4->ADOQuery9->Active=false; DataModule4->ADOQuery9->Active=true;
DataModule4->ADOQuery10->Active=false; DataModule4->ADOQuery10->Active=true;
DataModule4->ADOQuery11->Active=false; DataModule4->ADOQuery11->Active=true;
DataModule4->ADOQuery12->Active=false; DataModule4->ADOQuery12->Active=true;
DataModule4->ADOQuery13->Active=false; DataModule4->ADOQuery13->Active=true;
DataModule4->ADOQuery14->Active=false; DataModule4->ADOQuery14->Active=true;
// BD reset
DataModule4->ADOTable1->Active=false; DataModule4->ADOTable1->Active=true;
DataModule4->ADOTable2->Active=false; DataModule4->ADOTable2->Active=true;
DataModule4->ADOTable3->Active=false; DataModule4->ADOTable3->Active=true;
DataModule4->ADOTable4->Active=false; DataModule4->ADOTable4->Active=true;
DataModule4->ADOTable5->Active=false; DataModule4->ADOTable5->Active=true;
DataModule4->ADOTable6->Active=false; DataModule4->ADOTable6->Active=true;
DataModule4->ADOTable7->Active=false; DataModule4->ADOTable7->Active=true;
DataModule4->ADOTable8->Active=false; DataModule4->ADOTable8->Active=true;
DataModule4->ADOTable9->Active=false; DataModule4->ADOTable9->Active=true;
DataModule4->ADOTable10->Active=false; DataModule4->ADOTable10->Active=true;
DataModule4->ADOTable11->Active=false; DataModule4->ADOTable11->Active=true;
DataModule4->ADOTable12->Active=false; DataModule4->ADOTable12->Active=true;
DataModule4->ADOTable13->Active=false; DataModule4->ADOTable13->Active=true;
DataModule4->ADOTable14->Active=false; DataModule4->ADOTable14->Active=true;
DataModule4->ADOTable15->Active=false; DataModule4->ADOTable15->Active=true;
// блокировка полей редактирования
// объекты
sDBEdit13->ReadOnly=true;
sDBEdit28->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;
sDBEdit31->ReadOnly=true; sDBEdit32->ReadOnly=true;
sDBEdit34->ReadOnly=true; sDBEdit35->ReadOnly=true; sDBEdit38->ReadOnly=true;
sDBEdit39->ReadOnly=true;
sDateEdit3->ReadOnly=true; sDateEdit4->ReadOnly=true;
sDBLookupComboBox15->Enabled=false; sDBLookupComboBox16->Enabled=false; sDBLookupComboBox17->Enabled=false;
sDBLookupComboBox18->Enabled=false; sDBLookupComboBox19->Enabled=false; sDBLookupComboBox20->Enabled=false;
sDBLookupComboBox21->Enabled=false; sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;
sDateEdit5->Enabled=false; sDateEdit6->Enabled=false;
// виды работ
sDBEdit51->ReadOnly=true; sDBEdit52->ReadOnly=true;
sDBEdit54->ReadOnly=true; sDBEdit55->ReadOnly=true;
sDBEdit37->ReadOnly=true; sDBEdit58->ReadOnly=true;
// прорабы - материалы
sDBEdit36->ReadOnly=true; sDBEdit37->ReadOnly=true; sDBEdit42->ReadOnly=true;
sDBEdit43->ReadOnly=true; sDBEdit44->ReadOnly=true; sDBEdit45->ReadOnly=true;
sDBEdit46->ReadOnly=true; sDBEdit47->ReadOnly=true; sDBEdit48->ReadOnly=true;
sDBEdit50->ReadOnly=true;
// расценки
}
// ---------------------------------------------------------------------------
void __fastcall TForm5:: sPageControl2Change (TObject *Sender)
{
sPageControl3->ActivePage=sTabSheet15;
sPageControl4->ActivePage=sTabSheet18;
// SQL reset
DataModule4->ADOQuery1->Active=false; DataModule4->ADOQuery1->Active=true;
DataModule4->ADOQuery2->Active=false; DataModule4->ADOQuery2->Active=true;
DataModule4->ADOQuery3->Active=false; DataModule4->ADOQuery3->Active=true;
DataModule4->ADOQuery4->Active=false; DataModule4->ADOQuery4->Active=true;
DataModule4->ADOQuery5->Active=false; DataModule4->ADOQuery5->Active=true;
DataModule4->ADOQuery6->Active=false; DataModule4->ADOQuery6->Active=true;
DataModule4->ADOQuery7->Active=false; DataModule4->ADOQuery7->Active=true;
DataModule4->ADOQuery8->Active=false; DataModule4->ADOQuery8->Active=true;
DataModule4->ADOQuery9->Active=false; DataModule4->ADOQuery9->Active=true;
DataModule4->ADOQuery10->Active=false; DataModule4->ADOQuery10->Active=true;
DataModule4->ADOQuery11->Active=false; DataModule4->ADOQuery11->Active=true;
DataModule4->ADOQuery12->Active=false; DataModule4->ADOQuery12->Active=true;
DataModule4->ADOQuery13->Active=false; DataModule4->ADOQuery13->Active=true;
DataModule4->ADOQuery14->Active=false; DataModule4->ADOQuery14->Active=true;
// BD reset
DataModule4->ADOTable1->Active=false; DataModule4->ADOTable1->Active=true;
DataModule4->ADOTable2->Active=false; DataModule4->ADOTable2->Active=true;
DataModule4->ADOTable3->Active=false; DataModule4->ADOTable3->Active=true;
DataModule4->ADOTable4->Active=false; DataModule4->ADOTable4->Active=true;
DataModule4->ADOTable5->Active=false; DataModule4->ADOTable5->Active=true;
DataModule4->ADOTable6->Active=false; DataModule4->ADOTable6->Active=true;
DataModule4->ADOTable7->Active=false; DataModule4->ADOTable7->Active=true;
DataModule4->ADOTable8->Active=false; DataModule4->ADOTable8->Active=true;
DataModule4->ADOTable9->Active=false; DataModule4->ADOTable9->Active=true;
DataModule4->ADOTable10->Active=false; DataModule4->ADOTable10->Active=true;
DataModule4->ADOTable11->Active=false; DataModule4->ADOTable11->Active=true;
DataModule4->ADOTable12->Active=false; DataModule4->ADOTable12->Active=true;
DataModule4->ADOTable13->Active=false; DataModule4->ADOTable13->Active=true;
DataModule4->ADOTable14->Active=false; DataModule4->ADOTable14->Active=true;
DataModule4->ADOTable15->Active=false; DataModule4->ADOTable15->Active=true;
// блокировка полей редактирования
// объекты
sDBEdit13->ReadOnly=true;
sDBEdit28->ReadOnly=true; sDBEdit29->ReadOnly=true; sDBEdit30->ReadOnly=true;
sDBEdit31->ReadOnly=true; sDBEdit32->ReadOnly=true;
sDBEdit34->ReadOnly=true; sDBEdit35->ReadOnly=true; sDBEdit38->ReadOnly=true;
sDBEdit39->ReadOnly=true;
sDateEdit3->ReadOnly=true; sDateEdit4->ReadOnly=true;
sDBLookupComboBox15->Enabled=false; sDBLookupComboBox16->Enabled=false; sDBLookupComboBox17->Enabled=false;
sDBLookupComboBox18->Enabled=false; sDBLookupComboBox19->Enabled=false; sDBLookupComboBox20->Enabled=false;
sDBLookupComboBox21->Enabled=false; sDBLookupComboBox22->Enabled=false; sDBLookupComboBox23->Enabled=false;
sDateEdit5->Enabled=false; sDateEdit6->Enabled=false;
Подобные документы
Постановка задачи, системные требования, требования к входным данным и выходным формам. Описание пользовательского интерфейса, применяемых алгоритмов и их реализация. Определение логической и функциональной структуры программного продукта, его алгоритм.
дипломная работа [1,1 M], добавлен 03.07.2014Обзор программного обеспечения для оформления контрольных документов, выбор средства реализации системы автоматизации оформления сопровождающей документации. Создание, наладка и тестирование программы для автоматизации работы с рекламными шаблонами.
дипломная работа [2,0 M], добавлен 17.06.2017Суть автоматизации малого бизнеса, альтернативы выбора ее средств. Цели, функции, свойства автоматизированной системы менеджера. Технические средства в разрабатываемом программном комплексе. Основные функции операционной системы, требования к ней.
контрольная работа [219,4 K], добавлен 17.09.2013Проект информационной системы "АРМ заведующего хозяйством" для заведующего хозяйством ОАО "Красноярский машиностроительный завод". Анализ предметной области. Требования к концепции информационной системы. Концептуальная модель программного обеспечения.
курсовая работа [2,3 M], добавлен 12.04.2015Создание автоматизированной системы хранения и обработки данных, обеспечивающей хранение всех сведений о персонале. Структура таблиц, запросов, отчетов и форм. Инструкция пользователя. Отладка и экономическое обоснование программного продукта.
дипломная работа [5,5 M], добавлен 07.05.2012Особенности алгоритмов, критерии качества. Создание и применение программного продукта на языке Delphi. Тип операционной системы. Внутренняя структура программного продукта. Руководство пользователя и программиста, расчет себестоимости и цены программы.
дипломная работа [1,5 M], добавлен 12.06.2009Создание программного продукта, автоматизирующего деятельность сотрудника пожарного контроля. Задача информационной системы - учет информации о пожарах. Средства разработки, структура данных. Описание продукта, экономические преимущества от внедрения.
курсовая работа [1,6 M], добавлен 06.12.2012Проблема автоматизации процессов управления производством. АРМ как средство повышения производительности труда и освобождения персонала от рутинных работ. Конфигурации программного обеспечения АРМ для реальных видов экономической и управленческой работы.
презентация [114,5 K], добавлен 26.01.2015Обоснование выбора языка программирования. Анализ входных и выходных документов. Логическая структура базы данных. Разработка алгоритма работы программы. Написание программного кода. Тестирование программного продукта. Стоимость программного продукта.
дипломная работа [1008,9 K], добавлен 13.10.2013Описание программного обеспечения и языка программирования. Структуризация записей файлов, таблица компонентов. Организация производства: комплекс технических средств, инструкция пользователя. Листинг разработанной программы и оценка ее эффективности.
дипломная работа [868,3 K], добавлен 29.04.2013
