hotelmanagement.cpp

Raize控件包的安装路径为D:Program Files(一定要安装到正确位置,否则代码不能运行),配置好C++bulider的数据库环境. 本代码为课程设计的报告,有相当多不完善地方,适合初学C

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

#include <vcl.h>
#pragma hdrstop

#include "hotelmanagement.h"
#include "workchange.h"
#include "customer.h"
#include "order.h"
#include "orderdeal.h"
#include "checkin.h"
#include "continue.h"
#include "changeroom.h"
#include "checkout.h"
#include "systdate.h"
#include "dos.h"
#include "bill.h"
#include "fangjian.h"
#include "keren.h"
#include "quanxian.h"
#include "worker.h"
#include "roomcontrol.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzGroupBar"
#pragma link "RzButton"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------








void __fastcall TForm1::RzBitBtn2Click(TObject *Sender)
{

Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::N17Click(TObject *Sender)
{
ShowMessage("您将退出系统！");
Close();
}
//---------------------------------------------------------------------------






void __fastcall TForm1::RzBitBtn1Click(TObject *Sender)
{
Form3->ShowModal();
Form1->Close();
}
//---------------------------------------------------------------------------






void __fastcall TForm1::RzBitBtn4Click(TObject *Sender)
{  Form3->ShowModal();

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


void __fastcall TForm1::FormCreate(TObject *Sender)
{
        Application->CreateForm(__classid(TForm4), &Form4);
        Application->CreateForm(__classid(TForm3), &Form3);
        Application->CreateForm(__classid(TForm5), &Form5);
        Application->CreateForm(__classid(TForm7), &Form7);
        Application->CreateForm(__classid(TForm8), &Form8);
        Application->CreateForm(__classid(TForm9), &Form9);
        Application->CreateForm(__classid(TForm10), &Form10);
        MonthCalendar1->Date=TDateTime().CurrentDate();
        Application->CreateForm(__classid(TForm11), &Form11);
        Application->CreateForm(__classid(TForm12), &Form12);
        Application->CreateForm(__classid(TForm21), &Form21);
        Application->CreateForm(__classid(TForm22), &Form22);
        Application->CreateForm(__classid(TForm23), &Form23);
        Application->CreateForm(__classid(TForm25), &Form25);
        Application->CreateForm(__classid(TForm26), &Form26);


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

void __fastcall TForm1::RzBitBtn3Click(TObject *Sender)
{
Form4->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
        Form3->Close();
        Form4->Close();
        Form5->Close();

        Form7->Close();
        Form8->Close();
        Form9->Close();
        Form10->Close();
        Form11->Close();
        Form12->Close();
        Form21->Close();
        Form22->Close();
        Form23->Close();
        Form25->Close();
        Form26->Close();

        


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



void __fastcall TForm1::RzBitBtn9Click(TObject *Sender)
{
Form5->ShowModal();
}
//---------------------------------------------------------------------------
 void __fastcall TForm1::RzGroup1Items2Click(TObject *Sender)
{
Form3->ShowModal();
}


void __fastcall TForm1::RzBitBtn5Click(TObject *Sender)
{
Form7->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RzGroup1Items5Click(TObject *Sender)
{
Form8->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RzGroup1Items6Click(TObject *Sender)
{
Form9->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RzGroup1Items8Click(TObject *Sender)
{
Form10->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RzBitBtn6Click(TObject *Sender)
{
Form10->ShowModal();
 }
//---------------------------------------------------------------------------


void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
  DateTimePicker1->Time=TDateTime().CurrentTime();

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



void __fastcall TForm1::RzGroup1Items3Click(TObject *Sender)
{
        Form11->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RzGroup2Items1Click(TObject *Sender)
{
Form21->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RzGroup4Items2Click(TObject *Sender)
{
Form22->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RzGroup2Items0Click(TObject *Sender)
{
Form23->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RzGroup4Items3Click(TObject *Sender)
{
  Form25->ShowModal();        
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RzGroup4Items1Click(TObject *Sender)
{
 Form26->ShowModal();        
}
//---------------------------------------------------------------------------