continue.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "continue.h"
#include "data.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzButton"
#pragma resource "*.dfm"
TForm8 *Form8;
//---------------------------------------------------------------------------
__fastcall TForm8::TForm8(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm8::Button1Click(TObject *Sender)
{
        DataModule2->InroQuery->SQL->Clear();
        AnsiString queryString="Select * From Room Where RoomNo= ";
        queryString+="'";
        queryString+=DataModule2->stayinQuery->FieldByName("RoomNo")->AsString;
        queryString+="'";
        DataModule2->InroQuery->SQL->Add(queryString);
        DataModule2->InroQuery->ExecSQL();
        DataModule2->InroQuery->Active=true;
        DataModule2->InroQuery->Edit();

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

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

void __fastcall TForm8::RzButton1Click(TObject *Sender)
{
        if(Edit1->Text=="")
        ShowMessage("请输入续房天数！");
        else

      {    if(Edit3->Text=="")
        {
        ShowMessage("请收取押金");

         }

        else
       {

         DataModule2->stayinQuery->Edit();
         DataModule2->InroQuery->SQL->Clear();
         AnsiString queryString="Select * From Room Where RoomNo= ";
         queryString+="'";
         queryString+=DataModule2->stayinQuery->FieldByName("RoomNo")->AsString;
         queryString+="'";
         DataModule2->InroQuery->SQL->Add(queryString);
         DataModule2->InroQuery->ExecSQL();
         DataModule2->InroQuery->Active=true;

  double price=DataModule2->InroQuery->FieldByName("RoomPrice")->AsFloat;
         TDateTime dt=TDateTime().CurrentDate();
        TDateTime date=dt-DataModule2->stayinQuery->FieldByName("CheckInDate")->AsString;

        DataModule2->stayinQuery->FieldByName("StayDays")->AsString= (Integer)date;
          int staydays=StrToInt(DataModule2->stayinQuery->FieldByName("StayDays")->AsString);
         DataModule2->stayinQuery->FieldByName("DestineDays")->AsInteger+=StrToInt(Edit1->Text);
         DataModule2->stayinQuery->FieldByName("CustomerPay")->AsString=IntToStr(StrToInt(DataModule2->stayinQuery->FieldByName("CustomerPay")->AsString)+StrToInt(Edit3->Text));
         DataModule2->stayinQuery->FieldByName("Account")->AsString=DataModule2->stayinQuery->FieldByName("CustomerPay")->AsFloat-price*staydays;
         DataModule2->stayinQuery->FieldByName("Deposit")->AsString=IntToStr( DataModule2->stayinQuery->FieldByName("Deposit")->AsInteger+StrToInt(Edit2->Text));

         DataModule2->stayinQuery->Post();
         DataModule2->stayinQuery->Close();
         DataModule2->stayinQuery->ExecSQL();
         DataModule2->stayinQuery->Active=true;
         Edit1->Clear();
         Edit2->Clear();
         Edit3->Clear();
       }
      }

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

void __fastcall TForm8::FormShow(TObject *Sender)
{
DataModule2->stayinQuery->Close();
DataModule2->stayinQuery->Open();
}
//---------------------------------------------------------------------------

void __fastcall TForm8::RzButton2Click(TObject *Sender)
{
Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
}
//---------------------------------------------------------------------------

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

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

void __fastcall TForm8::DBGrid1CellClick(TColumn *Column)
{
        DataModule2->stayinQuery->Edit();
        TDateTime dt=TDateTime().CurrentDate();
        TDateTime date=dt-DataModule2->stayinQuery->FieldByName("CheckInDate")->AsString;
        DataModule2->stayinQuery->FieldByName("StayDays")->AsString= (Integer)date;
        Edit5->Text=DataModule2->stayinQuery->FieldByName("StayDays")->AsString;

        DataModule2->stayinQuery->Post();
        

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

void __fastcall TForm8::Button3Click(TObject *Sender)
{
   DataModule2->stayinQuery->SQL->Clear();
 AnsiString name="Select * From Customer";

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




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