addroom.cpp

机器须安装SQL Server2000 程序安装完之后

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

#include <vcl.h>
#pragma hdrstop

#include "AddRoom.h"
#include "DataMoudle.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TAddRoomForm *AddRoomForm;
//---------------------------------------------------------------------------
__fastcall TAddRoomForm::TAddRoomForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TAddRoomForm::FormShow(TObject *Sender)
{
    ADOTable1->Active=true;
   // ADOTable1->Append();
}
//---------------------------------------------------------------------------

void __fastcall TAddRoomForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Action=caFree;    
}
//---------------------------------------------------------------------------