orderdeal.cpp

来自「Raize控件包的安装路径为D:Program Files(一定要安装到正确位置」· C++ 代码 · 共 142 行

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

#include <vcl.h>
#pragma hdrstop

#include "orderdeal.h"
#include "datamodule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzButton"
#pragma resource "*.dfm"
TForm11 *Form11;
//---------------------------------------------------------------------------
__fastcall TForm11::TForm11(TComponent* Owner)
        : TForm(Owner)
{
        
}
//---------------------------------------------------------------------------


void __fastcall TForm11::RzButton2Click(TObject *Sender)
{
 if(MessageDlg("确认要取消预定吗？",mtInformation,TMsgDlgButtons()<< mbOK << mbCancel, 0)==IDOK)
 {DataModule1->orderroomQuery->SQL->Clear();
         AnsiString queryString="Select * From Room Where RoomNo= ";
         queryString+="'";
         queryString+=DataModule1->orderQuery->FieldByName("RoomNo")->AsString;
         queryString+="'";
         DataModule1->orderroomQuery->SQL->Add(queryString);
         DataModule1->orderroomQuery->ExecSQL();
         DataModule1->orderroomQuery->Active=true;
         DataModule1->orderroomQuery->Edit();
         DataModule1->orderroomQuery->FieldByName("RoomState")->AsString="空闲";
         DataModule1->orderroomQuery->FieldByName("CustomerId")->AsString="";
         DataModule1->orderroomQuery->FieldByName("CustomerName")->AsString="";

         DataModule1->orderroomQuery->Post();
         DataModule1->orderroomQuery->Close();
         DataModule1->orderroomQuery->ExecSQL();
         DataModule1->orderroomQuery->Active=true;

DataModule1->orderQuery->Delete();
}       
}
//---------------------------------------------------------------------------

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

void __fastcall TForm11::RzButton1Click(TObject *Sender)
{
        if(Edit2->Text=="")
        ShowMessage("请收取押金");
         else
      {  DataModule1->orderQuery->Edit();
        DataModule1->orderQuery->FieldByName("CheckInDate")->AsString=DateTimePicker1->Date;
         TDateTime dt=TDateTime().CurrentDate();
         TDateTime date=dt-DateTimePicker1->Date;
         DataModule1->orderQuery->FieldByName("StayDays")->AsString= (Integer)date;


         DataModule1->orderroomQuery->SQL->Clear();
         AnsiString queryString="Select * From Room Where RoomNo= ";
         queryString+="'";
         queryString+=DataModule1->orderQuery->FieldByName("RoomNo")->AsString;
         queryString+="'";
         DataModule1->orderroomQuery->SQL->Add(queryString);
         DataModule1->orderroomQuery->ExecSQL();
         DataModule1->orderroomQuery->Active=true;

  double price=DataModule1->orderroomQuery->FieldByName("RoomPrice")->AsFloat;
  int staydays=StrToInt(DataModule1->orderQuery->FieldByName("StayDays")->AsString);
  DataModule1->orderQuery->FieldByName("CustomerPay")->AsString=Edit2->Text;
  DataModule1->orderQuery->FieldByName("Account")->AsString=DataModule1->orderQuery->FieldByName("CustomerPay")->AsFloat-price*staydays;
  DataModule1->orderQuery->FieldByName("CustomerState")->AsString="在住";

  DataModule1->orderroomQuery->Edit();
  DataModule1->orderroomQuery->FieldByName("RoomState")->AsString="在住";




         DataModule1->orderQuery->Post();
         DataModule1->orderQuery->Close();
         DataModule1->orderQuery->ExecSQL();
         DataModule1->orderQuery->Active=true;


         DataModule1->orderroomQuery->Post();
         DataModule1->orderroomQuery->Close();
         DataModule1->orderroomQuery->ExecSQL();
         DataModule1->orderroomQuery->Active=true;


     }



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

void __fastcall TForm11::FormShow(TObject *Sender)
{
DataModule1->orderQuery->Close();
DataModule1->orderQuery->Open();
Form11->DateTimePicker1->Date=TDateTime().CurrentDate();
}
//---------------------------------------------------------------------------

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

void __fastcall TForm11::Button2Click(TObject *Sender)
{
DataModule1->orderQuery->SQL->Clear();
 AnsiString name="Select * From Customer";

 DataModule1->orderQuery->SQL->Add(name);
 DataModule1->orderQuery->Close();
 DataModule1->orderQuery->ExecSQL();
 DataModule1->orderQuery->Open();

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