-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathBuyerAdd.cpp
More file actions
57 lines (48 loc) · 1.9 KB
/
BuyerAdd.cpp
File metadata and controls
57 lines (48 loc) · 1.9 KB
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
47
48
49
50
51
52
53
54
55
56
57
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "BuyerAdd.h"
#include "Buyers.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TBuyerAddForm *BuyerAddForm;
//---------------------------------------------------------------------------
__fastcall TBuyerAddForm::TBuyerAddForm(TComponent* Owner)
: TForm(Owner)
{
int numFav;
DM->ADOTObjects->First();
while(!DM->ADOTObjects->Eof)
{
numFav = DM->ADOTObjects->FieldByName("Object ID")->AsInteger;
ComboBox1->Items->Add(numFav);
DM->ADOTObjects->Next();
}
}
//---------------------------------------------------------------------------
void __fastcall TBuyerAddForm::Button2Click(TObject *Sender)
{
DM->ADOTBuyers->Active = false;
DM->ADOTBuyers->Active = true;
BuyerAddForm->Close();
BuyersForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TBuyerAddForm::Button1Click(TObject *Sender)
{
DM->ADOTBuyers->Last();
int ID = DM->ADOTBuyers->FieldByName("Buyers ID")->AsInteger + 1;
AnsiString Favorite = ComboBox1->Text;
AnsiString NameAndSurname = Edit2->Text;
AnsiString Phone = Edit3->Text;
DM->ADOQ->SQL->Text = ("INSERT INTO Buyers([Buyers ID], [Name, surname], [Contact number], [Favorites]) VALUES(:ID, :NameAndSurname, :Phone, :Favorite)");
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("Favorite")->Value = Favorite;
DM->ADOQ->ExecSQL();
ShowMessage("Íîâèé êîðèñòóâà÷ óñï³øíî äîäàí.");
}
//---------------------------------------------------------------------------