Автоматизированное рабочее место производственно-технического отдела
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
---------------------------------------------------------------------------__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
#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; iVisible=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; iActive=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; }
}
// ----------------