main.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Main.h"
#include "Search.h"
#include "Modify.h"
#include "CustomSerach.h"
#include "RoomSt.h"
#include "Login.h"
#include "VilueInfor.h"
#include "AddRoom.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{
   search=0;
   Modify=0;
   CustomSearch=0;
   RoomSt=0;

}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N8Click(TObject *Sender)
{
       if(search==0)
        {
            TSearchForm * SearchForm=new TSearchForm (this);
            SearchForm->Show();
            search=1;

        }
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::N3Click(TObject *Sender)
{
   if(Modify==0)
   {
        TModifyForm * ModifyFrm=new TModifyForm(this);
        ModifyFrm->Show();
        Modify=1;
   }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N4Click(TObject *Sender)
{
    if(CustomSearch==0)
    {
        TCustomSearchForm *CustomSearchForm=new TCustomSearchForm (this);
        CustomSearchForm->Show();
        CustomSearch=1;

    }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N9Click(TObject *Sender)
{
      if(RoomSt==0)
    {
        TRoomStForm *RoomStForm=new TRoomStForm (this);
        RoomStForm->Show();
        RoomSt=1;

    }
}
//---------------------------------------------------------------------------



void __fastcall TMainForm::N11Click(TObject *Sender)
{
       TVilueInforForm *VilueInforForm=new TVilueInforForm (this);
        VilueInforForm->Show();    
}
//---------------------------------------------------------------------------



void __fastcall TMainForm::FormCreate(TObject *Sender)
{
LoginForm=new TLoginForm(this);
    LoginForm->Hide();
   if(LoginForm->ShowModal()!=mrOk)
   {
         delete LoginForm;
         Application->Terminate();
   }
   else delete LoginForm;

}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N5Click(TObject *Sender)
{
    TAddRoomForm *AddRoomForm=new TAddRoomForm(this);
    AddRoomForm->Show();
}
//---------------------------------------------------------------------------