, , , , . , , . C++ Builder. , C++ Builder , , -, , , -, , .
- :
(project source fail) (Project1.cpp)- WinMain , C++ Builder .
(form source file) (Unit1.cpp) (form header file) (Unit1.h)- , (C++ Builder , ).
(form resource file) (Unit1.dfm)- , .
(application resource fail) (Project1.res) - , ( ..)
(Project1.bpr)- .
: Project1.cpp, Project1.bpr, Project1.res, Project1.exe, Unit1.dfm, Unit3.dfm, Unit5.dfm, Unit6.dfm, Unit7.dfm, Unit8.dfm, Unit1.cpp, Unit3.cpp, Unit5.cpp, Unit1.h, Unit3.h, Unit5.h. Unit6.cpp Unit7.cpp Unit8.cpp , .
˳ Project1.bpr
# , , , , . , , . C++ Builder. , C++ Builder , , -, , , -, , .
- :
(project source fail) (Project1.cpp)- WinMain , C++ Builder .
(form source file) (Unit1.cpp) (form header file) (Unit1.h)- , (C++ Builder , ).
(form resource file) (Unit1.dfm)- , .
(application resource fail) (Project1.res) - , ( ..)
(Project1.bpr)- .
|
|
|
: Project1.cpp, Project1.bpr, Project1.res, Project1.exe, Unit1.dfm, Unit3.dfm, Unit5.dfm, Unit1.cpp, Unit3.cpp, Unit5.cpp. , .
˳ Project1.bpr
#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("Unit1.cpp", Form1);
USEFORM("Unit2.cpp", Form2);
USEFORM("Unit3.cpp", Form3);
USEFORM("Unit4.cpp", Form4);
USEFORM("Unit5.cpp", Form5);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
try
{
Application->Initialize();
Application->CreateForm(__classid(TForm1), &Form1);
Application->CreateForm(__classid(TForm2), &Form2);
Application->CreateForm(__classid(TForm3), &Form3);
Application->CreateForm(__classid(TForm4), &Form4);
Application->CreateForm(__classid(TForm5), &Form5);
Application->CreateForm(__classid(TForm6), &Form6);
Application->Run();
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
catch (...)
{
try
{
throw Exception("");
}
catch (Exception &exception)
{
Application->ShowException(&exception);
}
}
return 0;
}
//---------------------------------------------------------------------------
˳ Unit 1. h
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form3->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Form4->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Form5->Show();
}
˳ Unit 2.h
#include <vcl.h>
#pragma hdrstop
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
|
|
|
void __fastcall TForm2::Button1Click(TObject *Sender)
{
Form2->Close();
}
//---------------------------------------------------------------------------
˳ Unit 3.h
#include <vcl.h>
#pragma hdrstop
#include "Unit3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Edit6KeyPress(TObject *Sender, char &Key)
{
if ((Key>='0' && Key<='9') || (Key=='-') || (Key==(char)8)) {}
else Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
Form3->ADOTable1->Insert();
Form3->ADOTable1->FieldByName("Marka")->AsString=Form3->Edit2->Text;
Form3->ADOTable1->FieldByName("Imya")->AsString=Form3->Edit3->Text;
Form3->ADOTable1->FieldByName("Familia")->AsString=Form3->Edit4->Text;
Form3->ADOTable1->FieldByName("Gorod")->AsString=Form3->Edit5->Text;
Form3->ADOTable1->FieldByName("Telefon")->AsString=Form3->Edit6->Text;
Form3->ADOTable1->FieldByName("Kod")->AsString=Form3->Edit7->Text;
Form3->ADOTable1->FieldByName("Zaplatil")->AsString=Form3->Edit7->Text;
Form3->ADOTable1->Refresh();
}
//˳ Uni4.h
#include <vcl.h>
#pragma hdrstop
#include "Unit4.h"
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
˳ Unit5.h
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button1Click(TObject *Sender)
{
GroupBox2->Visible=true;
//GroupBox3->Visible=false;
//GroupBox4->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button2Click(TObject *Sender)
{
//GroupBox2->Visible=false;
GroupBox3->Visible=true;
//GroupBox4->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button3Click(TObject *Sender)
{
//GroupBox2->Visible=false;
//GroupBox3->Visible=false;
GroupBox4->Visible=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm8::Button1Click(TObject *Sender)
{
//Form8->ComboBox1->Text=Form8->Edit1->Text;
//Form6->Edit6->Text=Form2->ComboBox2->Text;
ComboBox1->Items->Add(Edit1->Text);
ComboBox1->ItemIndex=1;
ComboBox2->Items->Add(Edit2->Text);
ComboBox2->ItemIndex=1;
|
|
|
double v1,v2;
int i1,i2;
if (Edit1->Text=="")
{
ShowMessage(" ");
return;
}
Form8->Edit2->Clear();
i1=Form8->ComboBox1->ItemIndex;
i2=Form8->ComboBox2->ItemIndex;
//v1=Form8->Edit1->Text.ToDouble();
switch (i1)
{
case 0:v1=v1/1000.0; break;
case 1:v1=v1/100.0; break;
case 2:v1=v1; break;
case 3:v1=v1*1000; break;
case 4:v1=v1*1609; break;
case 5:v1=v1*0.305; break;
case 6:v1=v1*0.914; break;
}
switch (i2)
{
case 0:v2=v1*1000; break;
case 1:v2=v1*100; break;
case 2:v2=v1; break;
case 3:v2=v1/1000; break;
case 4:v2=v1/1609; break;
case 5:v2=v1/0.305; break;
case 6:v2=v1/0.914; break;
}
Form8->Edit2->Text=FloatToStr(v2);
if (Edit2->Text=="")
{
ShowMessage(" ");
return;
}
}
