unit2.~cpp

来自「射频卡发卡管理系统的PC端软件」· ~CPP 代码 · 共 32 行

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

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDM1 *DM1;
//---------------------------------------------------------------------------
__fastcall TDM1::TDM1(TComponent* Owner)
        : TDataModule(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TDM1::DataModuleCreate(TObject *Sender)
{
        try
        {
               IBDatabase1->DatabaseName = ExpandFileName("Db") + AnsiString("\\Demo1.gdb");
               IBDatabase1->Connected = true;
        }catch(...)
        {
                Application->MessageBox("打开数据库失败！","警告",MB_OK);
        }         
}
//---------------------------------------------------------------------------