main.cpp

AbsDataBase5.16 最新版

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ABSMain"
#pragma resource "*.dfm"
TfrmMain *frmMain;

const AnsiString DataBaseFileName = "..\\..\\Data\\Demos.abs";

//---------------------------------------------------------------------------
__fastcall TfrmMain::TfrmMain(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::FormCreate(TObject *Sender)
{
  dbDemos->DatabaseFileName = ExtractFilePath(Application->ExeName) + DataBaseFileName;
  TStrings* Tables = new TStringList();
  dbDemos->GetTablesList(Tables);
  TListItem  *ListItem;
  lvTables->Items->BeginUpdate();
  lvTables->Items->Clear();
  for (int i = 0; i < Tables->Count; i++)
  {
    ListItem = lvTables->Items->Add();
    ListItem->Caption = Tables->Strings[i];
    ListItem->Checked = (i==0);
  }
  lvTables->Items->EndUpdate();
  Tables->Free();
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::cbStructureClick(TObject *Sender)
{
  cbAddDropTable->Enabled = cbStructure->Checked;
  cbBlobSettings->Enabled = cbStructure->Checked;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::cbDataClick(TObject *Sender)
{
  cbFieldNamesInInsert->Enabled = cbData->Checked;
}
//---------------------------------------------------------------------------
void TfrmMain::ExportSelectedTablesToSQL(TStrings* SQL)
{
  SQL->Clear();
  tblTable->ExportToSqlOptions->Structure = cbStructure->Checked;
  tblTable->ExportToSqlOptions->AddDropTable = cbAddDropTable->Checked;
  tblTable->ExportToSqlOptions->BlobSettings = cbBlobSettings->Checked;
  tblTable->ExportToSqlOptions->Data = cbData->Checked;
  tblTable->ExportToSqlOptions->FieldNamesInInserts = cbFieldNamesInInsert->Checked;

  for (int i = 0; i < lvTables->Items->Count; i++)
  {
    if (lvTables->Items->Item[i]->Checked)
    {
      tblTable->TableName = lvTables->Items->Item[i]->Caption;
      SQL->Add(tblTable->ExportToSQL());
    }
  }
}

void __fastcall TfrmMain::btnExpotrAsSqlToScreeenClick(TObject *Sender)
{
 ExportSelectedTablesToSQL(reExportToSql->Lines);
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::btnExpotrAsSqlToFileClick(TObject *Sender)
{
  if (dlgSave->Execute())
  {
    TStrings* SQL = new TStringList();
    ExportSelectedTablesToSQL(SQL);
    SQL->SaveToFile(dlgSave->FileName);
    SQL->Free();
  }
}
//---------------------------------------------------------------------------