PropertyManagement/SellerAdd.cpp at main · GabrielSpelchuk/PropertyManagement · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "SellerAdd.h"
#include "Sellers.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSellerAddForm *SellerAddForm;
//---------------------------------------------------------------------------
__fastcall TSellerAddForm::TSellerAddForm(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TSellerAddForm::Button2Click(TObject *Sender)
{
	DM->ADOTSellers->Active = false;
	DM->ADOTSellers->Active = true;
	SellerAddForm->Close();
	SellersForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TSellerAddForm::Button1Click(TObject *Sender)
{
    DM->ADOTSellers->Last();
	int ID = DM->ADOTSellers->FieldByName("Seller ID")->AsInteger + 1;

    AnsiString Rating = Edit1->Text;
	AnsiString NameAndSurname = Edit2->Text;
	AnsiString Phone = Edit3->Text;

	DM->ADOQ->SQL->Text = ("INSERT INTO Sellers([Seller ID], [Name, surname], [Contact number], [Rating]) VALUES(:ID, :NameAndSurname, :Phone, :Rating)");
	DM->ADOQ->Parameters->ParamByName("ID")->Value = ID;
	DM->ADOQ->Parameters->ParamByName("NameAndSurname")->Value = NameAndSurname;
	DM->ADOQ->Parameters->ParamByName("Phone")->Value = Phone;
    DM->ADOQ->Parameters->ParamByName("Rating")->Value = Rating;

	DM->ADOQ->ExecSQL();

	ShowMessage("Íîâèé êîðèñòóâà÷ óñï³øíî äîäàí.");
}
//---------------------------------------------------------------------------