Дипломная работа: Автоматизация учета посещений клиентов в ООО "Bagira"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
//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();
Источник: https://baza.diplomsite.ru/previewfile/2401

Смотрите также:

3328
Альбом изломов за 2009г
Анализ изобретений в области валковых дробилок
Антикоррупционное просвещение как фактор обеспечения социальной безопасности
Види страхування
Интерьер загородного жилого дома. методические указания к выполнению курсового проекта для студентов 3-го курса. Невокшенова А.Е., Лапина Н.Е
Историческое и современное положение в произведениях И. Эфендиева
Как устроен Интернет. IP-адрес компьютера
Метеочувствительность, влияние на организм и механизмы коррекции
Структурно-блоковая модель видов реабилитационно-туристических услуг в системе географических наук