, TTable, TQuery, TDataSource, TDBGrid. Customer.db Orders.db, BCDEMOS, Borland C++ Builder. Customer, Orders, .
CUST1.CPP, CUST.MAK.
" ". TDBGrid, TGroupBox, TTable, TQuery, TDataSource. GroupBox1 TRadioButton TButton. GroupBox2 TEdit, TEdit TButton.
. 11. CUST
:
Table1 | DatabaseName | BCDEMOS |
TableName | CUSTOMER.DB | |
Active | false | |
DataSource1 | DataSet | Table1 |
DBGrid1 | DataSource | DataSource1 |
Query1 | Database Name | BCDEMOS |
SQL | select * from orders | |
Active | false | |
DataSource2 | DataSet | Query1 |
Query2 | DatabaseName | BCDEMOS |
DataSource3 | DataSet | Query2 |
Button1 | Caption | & |
Button2 | Caption | & |
RadioButton1 | Caption | |
Checked | true | |
RadioButton2 | Caption | |
GroupBox1 | Caption | |
GroupBox2 | Caption | |
Button3 | Caption | & |
Edit1 | Text | |
Edit2 | Text | |
Label1 | Caption | : |
Label2 | Caption | : |
RadioButton3 | Caption |
OnClick Button1:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (Table1->Active)
{
Table1->Close();
Button1->Caption = "Ioe?uou nienie &eeeaioia";
}
else
{
Table1->Open();
Button1->Caption= "Cae?uou nienie &eeeaioia";
}
}
Customer , , .
OnClick Button2:
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (Query1->Active)
{
Query1->Active = false;
Button2->Caption = "Ioe?uou &caeacia";
}
else
{
Query1->Active = true;
Button2->Caption = "e?uou &caeacia";
}
}
Button2 , Query1, :
OnClick RadioButton1 RadioButton2:
void __fastcall TForm1::RadioButton1Click(TObject *Sender)
{
DBGrid1->DataSource = DataSource1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RadioButton2Click(TObject *Sender)
{
DBGrid1->DataSource =DataSource2;
}
|
|
.
OnClick Button3:
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (Table1->Active)
{
Table1->SetRangeStart();
Table1->Fields[0]->AsString = Edit1->Text;
Table1->SetRangeEnd();
Table1->Fields[0]->AsString = Edit2->Text;
Table1->ApplyRange();
}
}
Edit1 Edit2 Button3 DBGrid1.
Visual Query Builder SQL Query2. BCDEMOS CUSTOMER ORDERS. , CustNo CUSTOMER CustNo ORDERS.
:
- Customer.CustNo
- Customer.Company
- Orders.OrderNo
- Orders.AmountPaid
. 12. Visual Query Builder
Visual Query Builder.
, Query2 Active true.
OnClick RadioButton3:.
void __fastcall TForm1::RadioButton3Click(TObject *Sender)
{
DBGrid1->DataSource= DataSource3;
}
. " ", . , , .
. 13.
" ". "" "" (, 1200 1700 ) " ". , .
" " , .