PropertyManagement/About.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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "About.h"
#include "ObjectsSearch.h"
#include "DataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TAboutForm *AboutForm;
//---------------------------------------------------------------------------
__fastcall TAboutForm::TAboutForm(TComponent* Owner)
	: TForm(Owner)
{
    Memo1->Text = "";
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::ÍàçàäClick(TObject *Sender)
{
    AboutForm->CleanupInstance();
	AboutForm->Close();
    ObjectsSearchForm->Show();
}
//---------------------------------------------------------------------------
void __fastcall TAboutForm::Button1Click(TObject *Sender)
{
	AnsiString ID = Edit1->Text;

	DM->ADOTObjects->First();
    DM->ADOTSellers->First();

	while(!DM->ADOTObjects->Eof)
	{
		if(DM->ADOTObjects->FieldByName("Object ID")->AsString == ID)
			break;

		DM->ADOTObjects->Next();
	}

	AnsiString OwnerID = DM->ADOTObjects->FieldByName("Owner")->AsString;

	while(!DM->ADOTSellers->Eof)
	{
		if(DM->ADOTSellers->FieldByName("Seller ID")->AsString == OwnerID)
			break;

        DM->ADOTSellers->Next();
    }


	Edit2->Text = DM->ADOTObjects->FieldByName("Type")->AsString;
	Edit3->Text = DM->ADOTSellers->FieldByName("Name, surname")->AsString;
	Edit4->Text = DM->ADOTObjects->FieldByName("Verification status")->AsString;
	Edit5->Text = DM->ADOTObjects->FieldByName("Rent/Sell")->AsString;
	Edit6->Text = DM->ADOTObjects->FieldByName("Region")->AsString;
	Edit7->Text = DM->ADOTObjects->FieldByName("City")->AsString;
	Edit8->Text = DM->ADOTObjects->FieldByName("Address")->AsString;
	Edit9->Text = DM->ADOTObjects->FieldByName("Area")->AsString;
	Edit10->Text = DM->ADOTObjects->FieldByName("Number of rooms")->AsString;
	Edit11->Text = DM->ADOTObjects->FieldByName("Floor")->AsString;
	Edit12->Text = DM->ADOTObjects->FieldByName("Price")->AsString;
	Edit13->Text = DM->ADOTSellers->FieldByName("Rating")->AsString;
	Edit14->Text = DM->ADOTSellers->FieldByName("Contact number")->AsString;
	Memo1->Text = DM->ADOTObjects->FieldByName("Description")->AsString;
}
//---------------------------------------------------------------------------