//---------------------------------------------------------------------------

#include <clx.h>
#pragma hdrstop

#include "SimpleDbxDemo.h"
#include "SimpleDbxDataModule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.xfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
    DataModule1->SQLConnection1->LoginPrompt = false;
    DataModule1->SQLConnection1->Connected = true;
    DBNavigator1->DataSource = DataModule1->DataSource1;
    DBGrid1->DataSource = DataModule1->DataSource1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if (DataModule1->ClientDataSet1->Active)
        DataModule1->ClientDataSet1->Active = false;
    DataModule1->DataSetProvider1->DataSet = DataModule1->SQLTable1;
    DataModule1->DataSource1->DataSet = DataModule1->ClientDataSet1;
    DataModule1->DataSource1->DataSet->Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    if (DataModule1->ClientDataSet1->Active)
        DataModule1->ClientDataSet1->Active = false;
    DataModule1->DataSetProvider1->DataSet = DataModule1->SQLQuery1;
    DataModule1->DataSource1->DataSet = DataModule1->ClientDataSet1;
    DataModule1->DataSource1->DataSet->Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    if (DataModule1->ClientDataSet1->Active)
        DataModule1->ClientDataSet1->Active = false;
    DataModule1->DataSetProvider1->DataSet = DataModule1->SQLDataSet1;
    DataModule1->SQLDataSet1->CommandText = "MY_ADDRESS_BOOK";
    DataModule1->SQLDataSet1->CommandType = ctTable;
    DataModule1->DataSource1->DataSet = DataModule1->ClientDataSet1;
    DataModule1->DataSource1->DataSet->Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
    if (DataModule1->ClientDataSet1->Active)
        DataModule1->ClientDataSet1->Active = false;
    AnsiString queryString = "SELECT * FROM MY_ADDRESS_BOOK ";
    queryString = queryString + " WHERE STATE_CODE = 'TX'";
    DataModule1->SQLClientDataSet1->CommandText = queryString;
    DataModule1->SQLClientDataSet1->CommandType = ctQuery;
    DataModule1->DataSource1->DataSet = DataModule1->SQLClientDataSet1;
    DataModule1->DataSource1->DataSet->Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
    if (DataModule1->ClientDataSet1->Active)
        DataModule1->ClientDataSet1->Active = false;
    if (DataModule1->SQLClientDataSet1->Active)
        DataModule1->SQLClientDataSet1->Active = false;
}
//---------------------------------------------------------------------------