roomcontrol.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "roomcontrol.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm26 *Form26;
//---------------------------------------------------------------------------
__fastcall TForm26::TForm26(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm26::Button1Click(TObject *Sender)
{  if(Edit1->Text=="")
  {ShowMessage("请输入房间号码！");

   }
   else

   {Query1->Last();
    Query1->Insert();
    Query1->FieldByName("RoomNo")->AsString=Edit1->Text;
    if(Edit2->Text!="")
    Query1->FieldByName("RoomType")->AsString=Edit2->Text;
    if(Edit3->Text!="")
    Query1->FieldByName("RoomPrice")->AsString=Edit3->Text;
    Query1->FieldByName("RoomState")->AsString=RadioGroup1->Items->operator [](RadioGroup1->ItemIndex);
    Query1->FieldByName("Aircondition")->AsString=RadioGroup2->Items->operator [](RadioGroup2->ItemIndex);
    Query1->FieldByName("Bath")->AsString=RadioGroup3->Items->operator [](RadioGroup2->ItemIndex);


    Query1->Post();
    Query1->Close();
    Query1->Open();
    }























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

void __fastcall TForm26::Button2Click(TObject *Sender)
{
 if(MessageDlg("确认要删除该客房吗？",mtInformation,TMsgDlgButtons()<< mbOK << mbCancel, 0)==IDOK)
  Query1->Delete();      
}
//---------------------------------------------------------------------------

void __fastcall TForm26::Button3Click(TObject *Sender)
{
Form26->Close();
}
//---------------------------------------------------------------------------