//ADOQuery1->Connection=ADOConnection1;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N5Click(TObject *Sender)
{
Form2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N6Click(TObject *Sender)
{
Form4->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N8Click(TObject *Sender)
{
Form6->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N9Click(TObject *Sender)
{
Form8->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N7Click(TObject *Sender)
{
Form11->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N2Click(TObject *Sender)
{
Form12->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N4Click(TObject *Sender)
{
Form1->Close();
Form17->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N10Click(TObject *Sender)
{
Form2->ShowModal();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
Form17->Close();
}
//---------------------------------------------------------------------------
Unit 2
#include <vcl.h>
#pragma hdrstop
#include "Unit2.h"
#include "Unit1.h"
#include "Unit3.h"
#include "Unit10.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject *Sender)
{
Form2->Color = RGB(255,203,219);
TForm1 *Form1;
TForm3 *Form3;
TForm10 *Form10;
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from клиент ") ;
ADOQuery1->ExecSQL();
ADOQuery1->Active=true;
DBEdit1->DataField="фио";
DBEdit2->DataField="телефон";
}
//---------------------------------------------------------------------------
void __fastcall TForm2::DBEdit2KeyPress(TObject *Sender, System::WideChar &Key)
{
if (isdigit(Key) || (Key == VK_BACK)) {
return;
}
Key = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Edit1Change(TObject *Sender)
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from клиент where фио like '%" +
Edit1->Text + "%'");
ADOQuery1->ExecSQL();
ADOQuery1->Active = false;
ADOQuery1->Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
Form3->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
Form10->ShowModal();
}
//---------------------------------------------------------------------------
Unit3
#include <vcl.h>
#pragma hdrstop
#include "Unit3.h"
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormCreate(TObject *Sender)
{
Form3->Color = RGB(255,203,219);
TForm1 *Form1;
TForm2 *Form2;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
if (Edit1->Text.Length()==0 & Edit2->Text.Length()==0 ) {
ShowMessage("Заполните все поля!") ;
}
else
{
ADOQuery2->SQL->Clear();
ADOQuery2->SQL->Add("insert into клиент (фио,телефон) values ('"+Edit1-
>Text+"', '"+StrToInt(Edit2->Text)+"')");
ADOQuery2->ExecSQL();
Form2->ADOQuery1->Active=false;
Form2->ADOQuery1->Active=true;
Form3->Close();
}
}
//---------------------------------------------------------------------------
Unit4
#include <vcl.h>
#pragma hdrstop
#include "Unit4.h"
#include "Unit5.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm4::FormCreate(TObject *Sender)
{
Form4->Color = RGB(255,203,219);
TForm5 *Form5;
TForm1 *Form1;
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from парикмахер ") ;
ADOQuery1->ExecSQL();
ADOQuery1->Active=true;
DBEdit1->DataField="фио";
DBEdit2->DataField="телефон";
DBEdit3->DataField="стаж";
DBEdit4->DataField="адрес";
DBEdit5->DataField="курсы";
}
//---------------------------------------------------------------------------
void __fastcall TForm4::DBEdit2KeyPress(TObject *Sender, System::WideChar &Key)
{
if (isdigit(Key) || (Key == VK_BACK)) {
return;
}
Key = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm4::DBEdit3KeyPress(TObject *Sender, System::WideChar &Key)
{
if (isdigit(Key) || (Key == VK_BACK)) {
return;
}
Key = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Edit4Change(TObject *Sender)
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from парикмахер where фио like '%" +
Edit4->Text + "%'");
ADOQuery1->ExecSQL();
ADOQuery1->Active = false;
ADOQuery1->Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm4::Button1Click(TObject *Sender)
{
Form5->Show();
}
//---------------------------------------------------------------------------
Unit5
#include <vcl.h>
#pragma hdrstop
#include "Unit5.h"
#include "Unit1.h"
#include "Unit4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
void __fastcall TForm5::FormCreate(TObject *Sender)
{
Form5->Color = RGB(255,203,219);
TForm4 *Form4;
TForm1 *Form1;
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button1Click(TObject *Sender)
{
if (Edit1->Text.Length()==0 & Edit2->Text.Length()==0 & Edit3->Text.Length()==0 &
Edit4->Text.Length()==0 & Edit5->Text.Length()==0 ) {
ShowMessage("Заполните все поля!") ;
}
else
{
ADOQuery2->SQL->Clear();
ADOQuery2->SQL->Add("insert into парикмахер
(фио,телефон,стаж,адрес,курсы) values ('"+Edit1->Text+"', '"+StrToInt(Edit2-
>Text)+"', '"+StrToInt(Edit3->Text)+"','"+Edit4->Text+"','"+Edit5->Text+"')");
ADOQuery2->ExecSQL();
Form4->ADOQuery1->Active=false;
Form4->ADOQuery1->Active=true;
Form5->Close();
}
}
//---------------------------------------------------------------------------
Unit6
#include <vcl.h>
#pragma hdrstop
#include "Unit6.h"
#include "Unit7.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm6::Edit4Change(TObject *Sender)
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from средства where название like '%" +
Edit4->Text + "%'");
ADOQuery1->ExecSQL();
ADOQuery1->Active = false;
ADOQuery1->Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm6::FormCreate(TObject *Sender)
{
Form6->Color = RGB(255,203,219);
TForm1 *Form1;
TForm7 *Form7;
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from средства ") ;
ADOQuery1->ExecSQL();
ADOQuery1->Active=true;
DBEdit1->DataField="название";
DBEdit2->DataField="цена";
DBEdit3->DataField="Производитель";
DBEdit4->DataField="Срок_годности";
}
//---------------------------------------------------------------------------
void __fastcall TForm6::DBEdit2KeyPress(TObject *Sender, System::WideChar &Key)
{
if (isdigit(Key) || (Key == VK_BACK)) {
return;
}
Key = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm6::Button1Click(TObject *Sender)
{
Form7->Show();
}
//---------------------------------------------------------------------------
Unit 7
#include <vcl.h>
#pragma hdrstop
#include "Unit7.h"
#include "Unit6.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm7 *Form7;
//---------------------------------------------------------------------------
void __fastcall TForm7::FormCreate(TObject *Sender)
{
Form7->Color = RGB(255,203,219);
TForm6 *Form6;
TForm1 *Form1;
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button1Click(TObject *Sender)
{
if (Edit1->Text.Length()==0 & Edit2->Text.Length()==0 & Edit3->Text.Length()==0
& Edit4->Text.Length()==0) {
ShowMessage("Заполните все поля!") ;
}
else
{
ADOQuery2->SQL->Clear();
ADOQuery2->SQL->Add("insert into средства
(название,цена,производитель,срок_годности) values ('"+Edit1->Text+"',
'"+StrToInt(Edit2->Text)+"', '"+Edit3->Text+"', '"+Edit4->Text+"')");
ADOQuery2->ExecSQL();
Form6->ADOQuery1->Active=false;
Form6->ADOQuery1->Active=true;
Form7->Close();
}
}
//---------------------------------------------------------------------------
Unit8
#include <vcl.h>
#pragma hdrstop
#include "Unit8.h"
#include "Unit1.h"
#include "Unit9.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm8 *Form8;
//---------------------------------------------------------------------------
void __fastcall TForm8::DBEdit2KeyPress(TObject *Sender, System::WideChar &Key)
{
if (isdigit(Key) || (Key == VK_BACK)) {
return;
}
Key = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm8::FormCreate(TObject *Sender)
{
Form8->Color = RGB(255,203,219);
TForm1 *Form1;
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from услуги ") ;
ADOQuery1->ExecSQL();
ADOQuery1->Active=true;
DBEdit1->DataField="название";
DBEdit2->DataField="цена";
}
//---------------------------------------------------------------------------
void __fastcall TForm8::Edit4Change(TObject *Sender)
{
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from услуги where название like '%" +
Edit4->Text + "%'");
ADOQuery1->ExecSQL();
ADOQuery1->Active = false;
ADOQuery1->Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm8::Button1Click(TObject *Sender)
{
Form9->Show();
}
//---------------------------------------------------------------------------
Unit9
#include <vcl.h>
#pragma hdrstop
#include "Unit9.h"
#include "Unit8.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm9 *Form9;
//---------------------------------------------------------------------------
void __fastcall TForm9::Button1Click(TObject *Sender)
{
if (Edit1->Text.Length()==0 & Edit2->Text.Length()==0 ) {
ShowMessage("Заполните все поля!") ;
}
else
{
ADOQuery2->SQL->Clear();
ADOQuery2->SQL->Add("insert into услуги (название,цена) values ('"+Edit1-
>Text+"', '"+StrToInt(Edit2->Text)+"')");
ADOQuery2->ExecSQL();
Form8->ADOQuery1->Active=false;
Form8->ADOQuery1->Active=true;
Form9->Close();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm9::FormCreate(TObject *Sender)
{
Form9->Color = RGB(255,203,219);
TForm8*Form8;
TForm1*Form1;
}
//---------------------------------------------------------------------------
Unit10
#include <vcl.h>
#pragma hdrstop
#include "Unit10.h"
#include "Unit1.h"
#include "Unit2.h"
#include "Unit14.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm10 *Form10;
//---------------------------------------------------------------------------
void __fastcall TForm10::FormCreate(TObject *Sender)
{
Form10->Color = RGB(255,203,219);
TForm1 *Form1;
TForm14 *Form14;
TForm2 *Form2;
DBText1->DataField="фио";
ADOQuery6->SQL->Clear();
ADOQuery6->SQL->Add("select max(Номер_заявки)+1 as id from заявки ") ;
ADOQuery6->ExecSQL();
ADOQuery6->Active=true;
DBEdit1->DataField="id";
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("select * from парикмахер");
ADOQuery1->ExecSQL();
ADOQuery1->Active=true;
DBLookupComboBox1->KeyField="номер_парикмахера";
DBLookupComboBox1->ListField="Фио";
ADOQuery3->SQL->Clear();
ADOQuery3->SQL->Add("select * from средства");
ADOQuery3->ExecSQL();
ADOQuery3->Active=true;
DBLookupComboBox3->KeyField="номер_средства";
DBLookupComboBox3->ListField="название";
ADOQuery2->SQL->Clear();
ADOQuery2->SQL->Add("select * from услуги");
ADOQuery2->ExecSQL();
ADOQuery2->Active=true;
DBLookupComboBox2->KeyField="номер_услуги";
DBLookupComboBox2->ListField="название";
}
//---------------------------------------------------------------------------
void __fastcall TForm10::DBLookupComboBox1Click(TObject *Sender)
{
Edit2->Text=DBLookupComboBox1->KeyValue;
}
//---------------------------------------------------------------------------
void __fastcall TForm10::DBLookupComboBox2Click(TObject *Sender)
{
Edit3->Text=DBLookupComboBox1->KeyValue;
//ADOQuery4->SQL->Clear();
//ADOQuery4->SQL->Add("select sum (услуги.цена,средсва.цена) from
услуги,средства where ");
}