3.3 Текст программы

/****************************************************************/

/*Unit1

*/

/*Copyright (c) v 1.0 ККТиС

*/

/* Разработчик: Сидорова А. А.

*/

/* Создано 17.12.2017

*/

/****************************************************************/

//--------------------------------------------------------------

#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"

//--------------------------------------------------------------#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//--------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//--------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)

{

Form1->Height=295;

PC1->Height=241;

}

//--------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{

PC1->Height=385;

Form1->Height=439;

}

//--------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)

{

DM2->AT1->Insert();

}

//--------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)

{

DM2->AT1->Edit();

}

//--------------------------------------------------------------

void __fastcall TForm1::Button5Click(TObject *Sender)

{

char s[200]="Вы действительно хотите удалить клиента\n";

AnsiString s2=DM2->AT1->FieldByName("Фамилия")->AsString+" "+DM2->AT1->FieldByName("Имя")->AsString;

char *s1=s2.c_str();

if (Application->MessageBoxA(strcat(s,s1),

"Внимание!", MB_OKCANCEL) == IDOK)

{

DM2->AT1->Delete();

}

}

//--------------------------------------------------------------

void __fastcall TForm1::Button6Click(TObject *Sender)

{

if (DM2->AT1->Modified)

{

DM2->AT1->Post();

}

}

//--------------------------------------------------------------

void __fastcall TForm1::Button7Click(TObject *Sender)

{

DM2->AT1->Cancel();

}

//--------------------------------------------------------------

void __fastcall TForm1::Edit1Change(TObject *Sender)

{

TLocateOptions Opts;

Opts << loPartialKey << loCaseInsensitive;

DM2->AT1->Locate("Фамилия",Edit1->Text,Opts);

}

//--------------------------------------------------------------

void __fastcall TForm1::Button8Click(TObject *Sender)

{

DM2->AQ2->Close();

DM2->AQ1->SQL->Clear();

DBGrid3->DataSource=NULL;

DBGrid3->DataSource=DM2->DS3;

DM2->AQ1->SQL->Add("SELECT СписокКлиентов.[№_Клиента], СписокКлиентов.Фамилия, СписокКлиентов.Имя, Count(Касса.[№_Посещения]) AS [Количество_Посещений]");

DM2->AQ1->SQL->Add("FROM СписокКлиентов INNER JOIN Касса ON СписокКлиентов.[№_Клиента] = Касса.[№_Клиента]");

DM2->AQ1->SQL->Add("GROUP BY СписокКлиентов.[№_Клиента], СписокКлиентов.Фамилия, СписокКлиентов.Имя");

DM2->AQ1->SQL->Add("HAVING (((Count(Касса.[№_Посещения]))>=5));");

DM2->AQ1->Open();

}

//--------------------------------------------------------------

void __fastcall TForm1::Button9Click(TObject *Sender)

{

DM2->AQ2->Close();

DM2->AQ1->SQL->Clear();

DBGrid3->DataSource=NULL;

DBGrid3->DataSource=DM2->DS3;

DM2->AQ1->SQL->Add("SELECT a.№_Клиента, b.Фамилия, COUNT(Фамилия) AS");

DM2->AQ1->SQL->Add("Кол_Посещений");

DM2->AQ1->SQL->Add("FROM Касса a, СписокКлиентов b");

DM2->AQ1->SQL->Add("WHERE a.№_Клиента = b.№_Клиента");

DM2->AQ1->SQL->Add("GROUP BY a.№_Клиента, b.Фамилия");

DM2->AQ1->Open();

}

//--------------------------------------------------------------

void __fastcall TForm1::Button10Click(TObject *Sender)

{

DM2->AQ2->Close();

DM2->AQ1->SQL->Clear();

DBGrid3->DataSource=NULL;

DBGrid3->DataSource=DM2->DS3;

DM2->AQ1->SQL->Add("SELECT СписокКлиентов.[№_Клиента], СписокКлиентов.Фамилия, СписокКлиентов.Имя, Count(Касса.[№_Посещения]) AS [Количество_Посещений]");

DM2->AQ1->SQL->Add("FROM СписокКлиентов INNER JOIN Касса ON СписокКлиентов.[№_Клиента] = Касса.[№_Клиента]");

DM2->AQ1->SQL->Add("GROUP BY СписокКлиентов.[№_Клиента], СписокКлиентов.Фамилия, СписокКлиентов.Имя");

DM2->AQ1->SQL->Add("HAVING (((Count(Касса.[№_Посещения]))<5));");

DM2->AQ1->Open();

}

//--------------------------------------------------------------

//--------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit3.h"

#include "Unit2.h"

#include "Unit1.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

//--------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm3 *Form3;

//---------------------------------------------------------------------------

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{

}

//--------------------------------------------------------------

void __fastcall TForm3::CheckBox1Click(TObject *Sender)

{

if(CheckBox1->Checked)

{

DM2->AT4->MasterFields="";

DM2->AT4->IndexFieldNames="Стоимость";

DM2->AT4->Filtered=true;

}

else

{

DM2->AT4->IndexFieldNames="";

DM2->AT4->Filtered=false;

}

DM2->AT4->Filter=AnsiString("Стоимость >= '" + Edit1->Text +

"' and Стоимость <= '" + Edit2->Text + "'");

}

//--------------------------------------------------------------

void __fastcall TForm3::Button1Click(TObject *Sender)

{

AnsiString s;

s=ComboBox1->Text;

DM2->AT4->IndexFieldNames=s;

}

//--------------------------------------------------------------

void __fastcall TForm3::Button2Click(TObject *Sender)

{

Memo1->Clear();

Memo1->Lines->Add("Прайс-лист:");

if (DM2->AT4->IsEmpty() == false)

{

DM2->AT4->First();

while(DM2->AT4->Eof == false)

{

Memo1->Lines->Add(DM2->AT4->Fields->Fields[1]->AsString+" - "+

DM2->AT4->Fields->Fields[2]->AsString+". = "+

DM2->AT4->FieldByName("Стоимость")->AsString+" руб.");

DM2->AT4->Next();

}

}

}

//--------------------------------------------------------------

void __fastcall TForm3::ComboBox2Click(TObject *Sender)

{

TLocateOptions Opts;

Opts << loPartialKey << loCaseInsensitive;

DM2->AT4->Locate("Название",Edit3->Text,Opts);

}

//--------------------------------------------------------------

void __fastcall TForm3::Button3Click(TObject *Sender)

{

DM2->AT4->Insert();

}

//--------------------------------------------------------------

void __fastcall TForm3::Button4Click(TObject *Sender)

{

DM2->AT4->Edit();

}

//--------------------------------------------------------------

void __fastcall TForm3::Button5Click(TObject *Sender)

{

char s[200]="Вы действительно хотите удалить причёску\n";

AnsiString s2=DM2->AT4->FieldByName("Название")->AsString;

char *s1=s2.c_str();

if (Application->MessageBoxA(strcat(s,s1),

"Внимание!", MB_OKCANCEL) == IDOK)

{

DM2->AT4->Delete();

}

}

//--------------------------------------------------------------

void __fastcall TForm3::Button6Click(TObject *Sender)

{

if (DM2->AT4->Modified)

{

DM2->AT4->Post();

}

}

//--------------------------------------------------------------

void __fastcall TForm3::Button7Click(TObject *Sender)

{

DM2->AT4->Cancel();

}

//--------------------------------------------------------------

void __fastcall TForm3::DBEdit4KeyPress(TObject *Sender, char &Key)

{

if ((Key >= '0') && (Key <= '9')) {}

else {

AnsiString msg,ttl;

msg = "Пожалуйста не вводите в это поле буквы и другие символы, оно предназначено для цифр.";

ttl = "Ошибка";

Application->MessageBox(msg.c_str(),ttl.c_str(),MB_OK) == IDYES;

}

}

//--------------------------------------------------------------

//--------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit4.h"

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit5.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

//--------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm4 *Form4;

//--------------------------------------------------------------

__fastcall TForm4::TForm4(TComponent* Owner)

: TForm(Owner)

{

}

//--------------------------------------------------------------

void __fastcall TForm4::Edit1Change(TObject *Sender)

{

DM2->AQ3->Close();

DM2->AQ3->SQL->Clear();

DBGrid1->DataSource=NULL;

DBGrid1->DataSource=DM2->DS7;

DM2->AQ3->SQL->Add("SELECT * FROM Парикмахеры");

DM2->AQ3->SQL->Add("WHERE Фамилия LIKE" "'%"+Edit1->Text+"%'");

DM2->AQ3->Open();

}

//--------------------------------------------------------------

void __fastcall TForm4::Button1Click(TObject *Sender)

{

DM2->AQ3->Insert();

}

//--------------------------------------------------------------

void __fastcall TForm4::Button2Click(TObject *Sender)

{

DM2->AQ3->Edit();

}

//--------------------------------------------------------------

void __fastcall TForm4::Button3Click(TObject *Sender)

{

char s[200]="Вы действительно хотите удалить Парикмахера\n";

AnsiString s2=DM2->AQ3->FieldByName("Фамилия")->AsString+" "+DM2->AQ3->FieldByName("Имя")->AsString;

char *s1=s2.c_str();

if (Application->MessageBoxA(strcat(s,s1),

"Внимание!", MB_OKCANCEL) == IDOK)

{

DM2->AQ3->Delete();

}

}

//--------------------------------------------------------------

void __fastcall TForm4::Button4Click(TObject *Sender)

{

if (DM2->AQ3->Modified)

{

DM2->AQ3->Post();

}

}

//--------------------------------------------------------------

void __fastcall TForm4::Button5Click(TObject *Sender)

{

DM2->AQ3->Cancel();

}

//--------------------------------------------------------------

void __fastcall TForm4::DBEdit1KeyPress(TObject *Sender, char &Key)

{

if ((Key == '-') && (Key >= '0') && (Key <= '9')) {}

}

//--------------------------------------------------------------

//--------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit5.h"

#include "Unit2.h"

#include "Unit3.h"

#include "Unit4.h"

#include "Unit1.h"

#include "Unit6.h"

#include "Unit7.h"

#include "Unit8.h"

//--------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm5 *Form5;

//---------------------------------------------------------------------------

__fastcall TForm5::TForm5(TComponent* Owner)

: TForm(Owner)

{

}

//--------------------------------------------------------------

//--------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit6.h"

#include "Unit1.h"

#include "Unit2.h"

#include "Unit4.h"

#include "Unit5.h"

#include "Unit3.h"

#include "Unit7.h"

#include "Unit8.h"

//--------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm6 *Form6;

//--------------------------------------------------------------

__fastcall TForm6::TForm6(TComponent* Owner)

: TForm(Owner)

{

}

//--------------------------------------------------------------

void __fastcall TForm6::Button6Click(TObject *Sender)

{

double sum=0;

sum=StrToFloat(Edit1->Text)*0.97;

//ShowMessage("Сумма со скидкой составит "+ FloatToStr(sum) + " руб.");

AnsiString msg,ttl;

msg = "Сумма со скидкой составит "+ FloatToStr(sum) + " руб.";

ttl = "Расчитать скидку";

Application->MessageBox(msg.c_str(),ttl.c_str(),MB_OK) == IDYES;

}

//--------------------------------------------------------------

void __fastcall TForm6::Button7Click(TObject *Sender)

{

DM2->ADS3->Close();

DM2->ADS3->CommandText="select * from "+ComboBox1->Items->Strings[ComboBox1->ItemIndex];

DM2->ADS3->Active=true;

Label1->Caption= ComboBox1->Items->Strings[ComboBox1->ItemIndex];

}

//--------------------------------------------------------------

void __fastcall TForm6::Button1Click(TObject *Sender)

{

DM2->AT5->Insert();

}

//--------------------------------------------------------------

void __fastcall TForm6::Button2Click(TObject *Sender)

{

DM2->AT5->Edit();

}

//--------------------------------------------------------------

void __fastcall TForm6::Button3Click(TObject *Sender)

{

char s[200]="Вы действительно хотите удалить посещение №\n";

AnsiString s2=DM2->AT5->FieldByName("№_Посещения")->AsString;

char *s1=s2.c_str();

if (Application->MessageBoxA(strcat(s,s1),

"Внимание!", MB_OKCANCEL) == IDOK)

{

DM2->AT5->Delete();

}

}

//--------------------------------------------------------------

void __fastcall TForm6::Button4Click(TObject *Sender)

{

if (DM2->AT5->Modified)

{

if(StrToDate(DBEdit6->Text) <= Date())

{

DM2->AT5->Post();

}

else {

AnsiString msg,ttl;

msg = "Дата не может быть будующей";

ttl = "Ошибка";

Application->MessageBox(msg.c_str(),ttl.c_str(),MB_OK) == IDYES;

}

}

}

//--------------------------------------------------------------

void __fastcall TForm6::Button5Click(TObject *Sender)

{

DM2->AT5->Cancel();

}

//--------------------------------------------------------------

void __fastcall TForm6::Button8Click(TObject *Sender)

{

DM2->ADS4->Active=false;

DM2->ADS5->Active=false;

DM2->ADS4->Parameters->ParamByName("СписокКлиентов.Фамилия")->Value=Edit2->Text;

DM2->ADS4->Active=true;

DM2->ADS5->Active=true;

}

//--------------------------------------------------------------

void __fastcall TForm6::DBEdit7KeyPress(TObject *Sender, char &Key)

{

if ((Key >= '0') && (Key <= '9')) {}

else {

AnsiString msg,ttl;

msg = "Пожалуйста не вводите в это поле буквы и другие символы, оно предназначено для цифр.";

ttl = "Ошибка";

Application->MessageBox(msg.c_str(),ttl.c_str(),MB_OK) == IDYES;

}

}

//--------------------------------------------------------------

void __fastcall TForm6::Edit1KeyPress(TObject *Sender, char &Key)

{

if ((Key >= '0') && (Key <= '9')) {}

else {

AnsiString msg,ttl;

msg = "Пожалуйста не вводите в это поле буквы и другие символы, оно предназначено для цифр.";

ttl = "Ошибка";

Application->MessageBox(msg.c_str(),ttl.c_str(),MB_OK) == IDYES;

}

}

//--------------------------------------------------------------

/****************************************************************/

/*Unit8

*/

/*Copyright (c) v 1.0 ККТиС

*/

/* Разработчик: Сидорова А. А.

*/

/* Создано 17.12.2017

*/

/****************************************************************/