workchange.cpp

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

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

#include <vcl.h>
#pragma hdrstop

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


void __fastcall TForm3::RzButton1Click(TObject *Sender)
{
        DataModule1->cutableQuery->Edit();
        if(Edit1->Text=="")
        ShowMessage("请输入预定天数");
        else
        {DataModule1->cutableQuery->FieldByName("DestineDays")->AsString=Edit1->Text;
        DataModule1->cutableQuery->FieldByName("CustomerState")->AsString="预定";
        DataModule1->cutableQuery->FieldByName("RoomNo")->AsString=DataModule1->rotableQuery->FieldByName("RoomNo")->AsString;
        DataModule1->cutableQuery->FieldByName("RoomType")->AsString=DataModule1->rotableQuery->FieldByName("RoomType")->AsString;
        DataModule1->cutableQuery->FieldByName("CheckInDay")->AsString=Form3->DateTimePicker1->Date;
        DataModule1->cutableQuery->FieldByName("Deposit")->AsString=IntToStr(StrToInt(DataModule1->rotableQuery->FieldByName("RoomPrice")->AsString)*StrToInt(DataModule1->cutableQuery->FieldByName("DestineDays")->AsString));


        DataModule1->rotableQuery->Edit();
        DataModule1->rotableQuery->FieldByName("RoomState")->AsString="预定";
        DataModule1->rotableQuery->FieldByName("CustomerId")->AsString=DataModule1->cutableQuery->FieldByName("CustomerId")->AsString;
        DataModule1->rotableQuery->FieldByName("CustomerName")->AsString=DataModule1->cutableQuery->FieldByName("CustomerName")->AsString;

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

        DataModule1->cutableQuery->Post();
        DataModule1->cutableQuery->Close();
        DataModule1->cutableQuery->ExecSQL();
        DataModule1->cutableQuery->Active=true;
        Edit1->Clear();
        }

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


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


void __fastcall TForm3::DBGrid2CellClick(TColumn *Column)
{
        Edit2->Text=DataModule1->rotableQuery->FieldByName("RoomNo")->AsString;
        Edit3->Text=DataModule1->rotableQuery->FieldByName("RoomType")->AsString;
}
//---------------------------------------------------------------------------

void __fastcall TForm3::FormShow(TObject *Sender)
{       DataModule1->cutableQuery->Close();
        DataModule1->cutableQuery->Open();
        DataModule1->rotableQuery->Close();
        DataModule1->rotableQuery->Open();
        DateTimePicker1->Date=TDateTime().CurrentDate();


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

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

void __fastcall TForm3::Button2Click(TObject *Sender)
{
  DataModule1->cutableQuery->SQL->Clear();
 AnsiString name="Select * From Customer";
 
 DataModule1->cutableQuery->SQL->Add(name);
 DataModule1->cutableQuery->Close();
 DataModule1->cutableQuery->ExecSQL();
 DataModule1->cutableQuery->Open();
}
//---------------------------------------------------------------------------