changeroom.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "changeroom.h"
#include "data.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RzButton"
#pragma resource "*.dfm"
TForm9 *Form9;
//---------------------------------------------------------------------------
__fastcall TForm9::TForm9(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm9::DBGrid1CellClick(TColumn *Column)
{
    DataModule2->changeroomQuery->Edit();
    DataModule2->stayinQuery->Edit();
    DataModule2->changeroomQuery->SQL->Clear();
    AnsiString queryString="Select * From Room where (RoomType=";
    queryString+="'";
    queryString+=DataModule2->stayinQuery->FieldByName("RoomType")->AsString;
    queryString+="')";
    queryString+="And RoomState='空闲'";
    DataModule2->changeroomQuery->SQL->Add(queryString);
    DataModule2->changeroomQuery->Close();
    DataModule2->changeroomQuery->ExecSQL();
    DataModule2->changeroomQuery->Active=true;
    DataModule2->stayinQuery->Active=true;


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

void __fastcall TForm9::FormShow(TObject *Sender)
{
DataModule2->stayinQuery->Close();
DataModule2->stayinQuery->Open();
DataModule2->changeroomQuery->Close();
DataModule2->changeroomQuery->Open();


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

void __fastcall TForm9::RzBitBtn1Click(TObject *Sender)
{
Form9->Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm9::RzButton1Click(TObject *Sender)
{

    DataModule2->changeroomQuery->Edit();
    DataModule2->InroQuery->Edit();
    DataModule2->InroQuery->SQL->Clear();
    AnsiString foreroom="Select * From Room Where RoomNo=";
    foreroom+="'";
    foreroom+=DataModule2->stayinQuery->FieldByName("RoomNo")->AsString;
    foreroom+="'";
    DataModule2->InroQuery->SQL->Add(foreroom);
    DataModule2->InroQuery->Close();
    DataModule2->InroQuery->ExecSQL();
    DataModule2->InroQuery->Active=true;
    DataModule2->InroQuery->Edit();
    DataModule2->InroQuery->FieldByName("RoomState")->AsString="空闲";
    DataModule2->InroQuery->FieldByName("CustomerId")->AsString="";
    DataModule2->InroQuery->FieldByName("CustomerName")->AsString="";


    DataModule2->stayinQuery->FieldByName("RoomNo")->AsString=DataModule2->changeroomQuery->FieldByName("RoomNo")->AsString;
    DataModule2->changeroomQuery->FieldByName("RoomState")->AsString="在住";
    DataModule2->changeroomQuery->FieldByName("CustomerId")->AsString=DataModule2->stayinQuery->FieldByName("CustomerId")->AsString;
    DataModule2->changeroomQuery->FieldByName("CustomerName")->AsString=DataModule2->stayinQuery->FieldByName("CustomerName")->AsString;



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


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

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

    DataModule2->changeroomQuery->Close();
    DataModule2->changeroomQuery->Open();


    Edit1->Clear();







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

void __fastcall TForm9::DBGrid2CellClick(TColumn *Column)
{
Edit1->Text=DataModule2->changeroomQuery->FieldByName("RoomNo")->AsString;
}
//---------------------------------------------------------------------------

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

void __fastcall TForm9::Button2Click(TObject *Sender)
{
  DataModule2->stayinQuery->SQL->Clear();
 AnsiString name="Select * From Customer";
 name+="'";
 name+=Edit2->Text;
 name+="'";
 DataModule2->stayinQuery->SQL->Add(name);
 DataModule2->stayinQuery->Close();
 DataModule2->stayinQuery->ExecSQL();
 DataModule2->stayinQuery->Open();



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