stubmain.cpp

来自「AbsDataBase5.16 最新版」· C++ 代码 · 共 41 行

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

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


//---------------------------------------------------------------------------
__fastcall TfrmMain::TfrmMain(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------





void __fastcall TfrmMain::FormCreate(TObject *Sender)
{
  dbExecutable->DatabaseFileName = Application->ExeName;
  try
  {
    dbExecutable->Open();
  }
  catch(...)
  {
    ShowMessage("This file doesn't contain a database. Please use MakeExecutableDB project to append a database to this stub application");
    Application->Terminate();
  }
  tblEmployee->Open();
}
//---------------------------------------------------------------------------