checkin.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "checkin.h"
#include "data.h"
#include "hotelmanagement.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzButton"
#pragma resource "*.dfm"
TForm7 *Form7;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm7::RzButton1Click(TObject *Sender)
{      if(Edit1->Text=="")
        ShowMessage("请输入预住天数并确定！");
        else
     {
             if(Edit2->Text=="")
             ShowMessage("请收取押金！");
        else
        {DataModule2->IncuQuery->Edit();
        DataModule2->IncuQuery->FieldByName("DestineDays")->AsString=Edit1->Text;
        DataModule2->IncuQuery->FieldByName("CustomerState")->AsString="在住";
        DataModule2->IncuQuery->FieldByName("CheckInDate")->AsString=DateTimePicker1->Date;
        TDateTime dt=TDateTime().CurrentDate();
        TDateTime date=dt-DateTimePicker1->Date;
        DataModule2->IncuQuery->FieldByName("StayDays")->AsString= (Integer)date;

        DataModule2->IncuQuery->FieldByName("RoomNo")->AsString=DataModule2->InroQuery->FieldByName("RoomNo")->AsString;
        DataModule2->IncuQuery->FieldByName("RoomType")->AsString=DataModule2->InroQuery->FieldByName("RoomType")->AsString;
        DataModule2->IncuQuery->FieldByName("Deposit")->AsString=Edit5->Text;

        int staydays=StrToInt(DataModule2->IncuQuery->FieldByName("StayDays")->AsString);
        double price=DataModule2->InroQuery->FieldByName("RoomPrice")->AsFloat;
        DataModule2->IncuQuery->FieldByName("CustomerPay")->AsString=Edit2->Text;
        DataModule2->IncuQuery->FieldByName("Account")->AsString=DataModule2->IncuQuery->FieldByName("CustomerPay")->AsFloat-price*staydays;

        DataModule2->IncuQuery->FieldByName("DestineDays")->AsString=Edit1->Text;

        DataModule2->InroQuery->Edit();
        DataModule2->InroQuery->FieldByName("RoomState")->AsString="在住";
        DataModule2->InroQuery->FieldByName("CustomerId")->AsString=DataModule2->IncuQuery->FieldByName("CustomerId")->AsString;
        DataModule2->InroQuery->FieldByName("CustomerName")->AsString=DataModule2->IncuQuery->FieldByName("CustomerName")->AsString;



        DataModule2->InroQuery->Post();
        DataModule2->InroQuery->Close();
        DataModule2->InroQuery->ExecSQL();
        DataModule2->InroQuery->Active=true;







        DataModule2->IncuQuery->Post();
        DataModule2->IncuQuery->Close();
        DataModule2->IncuQuery->ExecSQL();
        DataModule2->IncuQuery->Active=true;

        Edit1->Clear();
        Edit2->Clear();


        }

     }



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

void __fastcall TForm7::DBGrid2CellClick(TColumn *Column)
{
        Edit3->Text=DataModule2->InroQuery->FieldByName("RoomNo")->AsString;
        Edit4->Text=DataModule2->InroQuery->FieldByName("RoomType")->AsString;
}
//---------------------------------------------------------------------------

void __fastcall TForm7::RzButton2Click(TObject *Sender)
{
Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
Edit4->Clear();

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

void __fastcall TForm7::RzButton3Click(TObject *Sender)
{
Form7->Close();
}
//---------------------------------------------------------------------------


void __fastcall TForm7::BitBtn1Click(TObject *Sender)
{

 AnsiString money;
 money=IntToStr(StrToInt(Edit1->Text)*StrToInt(DataModule2->InroQuery->FieldByName("RoomPrice")->AsString));
 Edit5->Text=money;
}
//---------------------------------------------------------------------------

void __fastcall TForm7::FormShow(TObject *Sender)
{
DataModule2->IncuQuery->Close();
DataModule2->IncuQuery->Open();
DataModule2->InroQuery->Close();
DataModule2->InroQuery->Open();
DateTimePicker1->Date=TDateTime().CurrentDate();



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

void __fastcall TForm7::Button1Click(TObject *Sender)
{
 DataModule2->IncuQuery->SQL->Clear();
 AnsiString name="Select * From Customer Where CustomerName=";
 name+="'";
 name+=Edit6->Text;
 name+="'";
 DataModule2->IncuQuery->SQL->Add(name);
 DataModule2->IncuQuery->Close();
 DataModule2->IncuQuery->ExecSQL();
 DataModule2->IncuQuery->Open();
}
//---------------------------------------------------------------------------

void __fastcall TForm7::Button2Click(TObject *Sender)
{
   DataModule2->IncuQuery->SQL->Clear();
 AnsiString name="Select * From Customer";

 DataModule2->IncuQuery->SQL->Add(name);
 DataModule2->IncuQuery->Close();
 DataModule2->IncuQuery->ExecSQL();
 DataModule2->IncuQuery->Open();


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