david
fff1b2a4dc
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.SDAC@3 6f543ec7-021b-7e4c-98c9-62eafc7fb9a8
61 lines
1.8 KiB
C++
61 lines
1.8 KiB
C++
//---------------------------------------------------------------------------
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "Main.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma package(smart_init)
|
|
#pragma link "MemDS"
|
|
#pragma link "DBAccess"
|
|
#pragma link "MSAccess"
|
|
#pragma link "SdacVcl"
|
|
#pragma resource "*.dfm"
|
|
TfmMain *fmMain;
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TfmMain::TfmMain(TComponent* Owner)
|
|
: TForm(Owner)
|
|
{
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TfmMain::btOpenClick(TObject *Sender)
|
|
{
|
|
MSQuery->Open();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TfmMain::btCloseClick(TObject *Sender)
|
|
{
|
|
MSQuery->Close();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TfmMain::btDisconnectClick(TObject *Sender)
|
|
{
|
|
MSConnection->Disconnect();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TfmMain::btExecuteClick(TObject *Sender)
|
|
{
|
|
MSQuery->Execute();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TfmMain::FormShow(TObject *Sender)
|
|
{
|
|
meSQL->Lines->Assign(MSQuery->SQL);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TfmMain::meSQLExit(TObject *Sender)
|
|
{
|
|
if (meSQL->Lines->Text != MSQuery->SQL->Text)
|
|
MSQuery->SQL->Assign(meSQL->Lines);
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TfmMain::btConnectClick(TObject *Sender)
|
|
{
|
|
MSConnection->Connect();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|