order.~cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "order.h"
#include "datamodule.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
int i;
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------



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





void __fastcall TForm5::ListBox2Click(TObject *Sender)
{
 switch(ListBox2->ItemIndex)
 {    
         case 0:
         {
         DataModule1->roomQuery->SQL->Clear();
         DataModule1->roomQuery->SQL->Add("Select * From Room");

         DataModule1->roomQuery->ExecSQL();
         DataModule1->roomQuery->Active=true;

         TDataSet *roomSet=DataModule1->roomDataSource->DataSet;
         ListView1->Clear();
         for(i=0;i<DataModule1->roomQuery->RecordCount;i++)
          {

            String caption=roomSet->Fields->FieldByName("RoomNo")->AsString;
            TListItems *items=ListView1->Items;
            TListItem *item=items->Add();
            //TListItem *item=new TListItem(items);
            item->Caption=caption;
            if(roomSet->Fields->FieldByName("RoomState")->AsString=="空闲")
            item->ImageIndex=1;
            else if(roomSet->Fields->FieldByName("RoomState")->AsString=="维修")
            item->ImageIndex=0;
            else if(roomSet->Fields->FieldByName("RoomState")->AsString=="在住")
            item->ImageIndex=2;
            else
            item->ImageIndex=3;
            //items->AddItem(item,i);
         //ListView1->Items->AddItem(item,i);
           roomSet->Next();
           }

  }

       break;
         case 1:
         {DataModule1->roomQuery->Active=true;
         DataModule1->roomQuery->SQL->Clear();
         DataModule1->roomQuery->SQL->Add("Select * From Room where RoomType='单人间'");
         DataModule1->roomQuery->ExecSQL();
         DataModule1->roomDataSource->DataSet->Open();
         TDataSet *roomSet=DataModule1->roomDataSource->DataSet;
         ListView1->Clear();
         for(i=0;i<roomSet->RecordCount;i++)
          {

            String caption=roomSet->Fields->FieldByName("RoomNo")->AsString;
            TListItems *items=ListView1->Items;
            TListItem *item=items->Add();
            //TListItem *item=new TListItem(items);
            item->Caption=caption;
            if(roomSet->Fields->FieldByName("RoomState")->AsString=="空闲")
            item->ImageIndex=1;
            else if(roomSet->Fields->FieldByName("RoomState")->AsString=="维修")
            item->ImageIndex=0;
            else if(roomSet->Fields->FieldByName("RoomState")->AsString=="在住")
            item->ImageIndex=2;
            else
            item->ImageIndex=3;
            //items->AddItem(item,i);
         //ListView1->Items->AddItem(item,i);
           roomSet->Next();
           }

  }
  break;

        case 2:
         {DataModule1->roomQuery->Active=true;
         DataModule1->roomQuery->SQL->Clear();
         DataModule1->roomQuery->SQL->Add("Select * From Room where RoomType='标准间'");
         DataModule1->roomQuery->ExecSQL();
         DataModule1->roomDataSource->DataSet->Open();
         TDataSet *roomSet=DataModule1->roomDataSource->DataSet;
         ListView1->Clear();
         for(i=0;i<roomSet->RecordCount;i++)
          {

            String caption=roomSet->Fields->FieldByName("RoomNo")->AsString;
            TListItems *items=ListView1->Items;
            TListItem *item=items->Add();
            //TListItem *item=new TListItem(items);
            item->Caption=caption;
            if(roomSet->Fields->FieldByName("RoomState")->AsString=="空闲")
            item->ImageIndex=1;
            else if(roomSet->Fields->FieldByName("RoomState")->AsString=="维修")
            item->ImageIndex=0;
           else if(roomSet->Fields->FieldByName("RoomState")->AsString=="在住")
            item->ImageIndex=2;
            else
            item->ImageIndex=3;
            //items->AddItem(item,i);
         //ListView1->Items->AddItem(item,i);
           roomSet->Next();
           }

  }
  break;
  case 3:
         {DataModule1->roomQuery->Active=true;
         DataModule1->roomQuery->SQL->Clear();
         DataModule1->roomQuery->SQL->Add("Select * From Room where RoomType='套间'");
         DataModule1->roomQuery->ExecSQL();
         DataModule1->roomDataSource->DataSet->Open();
         TDataSet *roomSet=DataModule1->roomDataSource->DataSet;
         ListView1->Clear();
         for(i=0;i<roomSet->RecordCount;i++)
          {

            String caption=roomSet->Fields->FieldByName("RoomNo")->AsString;
            TListItems *items=ListView1->Items;
            TListItem *item=items->Add();
            //TListItem *item=new TListItem(items);
            item->Caption=caption;
            if(roomSet->Fields->FieldByName("RoomState")->AsString=="空闲")
            item->ImageIndex=1;
            else if(roomSet->Fields->FieldByName("RoomState")->AsString=="维修")
            item->ImageIndex=0;
            else if(roomSet->Fields->FieldByName("RoomState")->AsString=="在住")
            item->ImageIndex=2;
            else
            item->ImageIndex=3;
            //items->AddItem(item,i);
         //ListView1->Items->AddItem(item,i);
           roomSet->Next();
           }

  }
  break;
  case 4:
         {DataModule1->roomQuery->Active=true;
         DataModule1->roomQuery->SQL->Clear();
         DataModule1->roomQuery->SQL->Add("Select * From Room where RoomType='三人间'");
         DataModule1->roomQuery->ExecSQL();
         DataModule1->roomDataSource->DataSet->Open();
         TDataSet *roomSet=DataModule1->roomDataSource->DataSet;
         ListView1->Clear();
         for(i=0;i<roomSet->RecordCount;i++)
          {

            String caption=roomSet->Fields->FieldByName("RoomNo")->AsString;
            TListItems *items=ListView1->Items;
            TListItem *item=items->Add();
            //TListItem *item=new TListItem(items);
            item->Caption=caption;
            if(roomSet->Fields->FieldByName("RoomState")->AsString=="空闲")
            item->ImageIndex=1;
            else if(roomSet->Fields->FieldByName("RoomState")->AsString=="维修")
            item->ImageIndex=0;
           else if(roomSet->Fields->FieldByName("RoomState")->AsString=="在住")
            item->ImageIndex=2;
            else
            item->ImageIndex=3;
            //items->AddItem(item,i);
         //ListView1->Items->AddItem(item,i);
           roomSet->Next();
           }

  }
  break;

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


void __fastcall TForm5::ListBox1Click(TObject *Sender)
{switch(ListBox1->ItemIndex)
 {     case 0:
      {  DataModule1->roomQuery->Active=true;
         DataModule1->roomQuery->SQL->Clear();
         DataModule1->roomQuery->SQL->Add("Select * From Room ");
         DataModule1->roomQuery->ExecSQL();
         DataModule1->roomDataSource->DataSet->Open();
         TDataSet *roomSet=DataModule1->roomDataSource->DataSet;
         ListView1->Clear();
         for(i=0;i<roomSet->RecordCount;i++)
          {

            String caption=roomSet->Fields->FieldByName("RoomNo")->AsString;
            TListItems *items=ListView1->Items;
            TListItem *item=items->Add();
            //TListItem *item=new TListItem(items);
            item->Caption=caption;
            if(roomSet->Fields->FieldByName("RoomState")->AsString=="空闲")
            item->ImageIndex=1;
            else if(roomSet->Fields->FieldByName("RoomState")->AsString=="维修")
            item->ImageIndex=0;
           else if(roomSet->Fields->FieldByName("RoomState")->AsString=="在住")
            item->ImageIndex=2;
            else
            item->ImageIndex=3;
            //items->AddItem(item,i);
         //ListView1->Items->AddItem(item,i);
           roomSet->Next();
           }

     }
       break;
    case 1:
         {DataModule1->roomQuery->Active=true;
         DataModule1->roomQuery->SQL->Clear();
         DataModule1->roomQuery->SQL->Add("Select * From Room where RoomState='空闲'");
         DataModule1->roomQuery->ExecSQL();
         DataModule1->roomDataSource->DataSet->Open();
         TDataSet *roomSet=DataModule1->roomDataSource->DataSet;
         ListView1->Clear();
         for(i=0;i<roomSet->RecordCount;i++)
          {

            String caption=roomSet->Fields->FieldByName("RoomNo")->AsString;
            TListItems *items=ListView1->Items;
            TListItem *item=items->Add();
            //TListItem *item=new TListItem(items);
            item->Caption=caption;
            if(roomSet->Fields->FieldByName("RoomState")->AsString=="空闲")
            item->ImageIndex=1;
            else if(roomSet->Fields->FieldByName("RoomState")->AsString=="维修")
            item->ImageIndex=0;
           else if(roomSet->Fields->FieldByName("RoomState")->AsString=="在住")
            item->ImageIndex=2;
            else
            item->ImageIndex=3;

           roomSet->Next();
           }

  }
  break;
  case 2:
         {DataModule1->roomQuery->Active=true;
         DataModule1->roomQuery->SQL->Clear();
         DataModule1->roomQuery->SQL->Add("Select * From Room where RoomState='在住'");
         DataModule1->roomQuery->ExecSQL();
         DataModule1->roomDataSource->DataSet->Open();
         TDataSet *roomSet=DataModule1->roomDataSource->DataSet;
         ListView1->Clear();
         for(i=0;i<roomSet->RecordCount;i++)
          {

            String caption=roomSet->Fields->FieldByName("RoomNo")->AsString;
            TListItems *items=ListView1->Items;
            TListItem *item=items->Add();
            //TListItem *item=new TListItem(items);
            item->Caption=caption;
            if(roomSet->Fields->FieldByName("RoomState")->AsString=="空闲")
            item->ImageIndex=1;
            else if(roomSet->Fields->FieldByName("RoomState")->AsString=="维修")
            item->ImageIndex=0;
           else if(roomSet->Fields->FieldByName("RoomState")->AsString=="在住")
            item->ImageIndex=2;
            else
            item->ImageIndex=3;

           roomSet->Next();
           }



  }
  break;
 case 3:
         {

         DataModule1->roomQuery->Active=true;
         DataModule1->roomQuery->SQL->Clear();
         DataModule1->roomQuery->SQL->Add("Select * From Room where RoomState='预定'");
         DataModule1->roomQuery->ExecSQL();
         DataModule1->roomDataSource->DataSet->Open();
         TDataSet *roomSet=DataModule1->roomDataSource->DataSet;
         ListView1->Clear();
         for(i=0;i<roomSet->RecordCount;i++)
          {

            String caption=roomSet->Fields->FieldByName("RoomNo")->AsString;
            TListItems *items=ListView1->Items;
            TListItem *item=items->Add();
            //TListItem *item=new TListItem(items);
            item->Caption=caption;
            if(roomSet->Fields->FieldByName("RoomState")->AsString=="空闲")
            item->ImageIndex=1;
            else if(roomSet->Fields->FieldByName("RoomState")->AsString=="维修")
            item->ImageIndex=0;
           else if(roomSet->Fields->FieldByName("RoomState")->AsString=="在住")
            item->ImageIndex=2;
            else
            item->ImageIndex=3;

           roomSet->Next();
           }

  }
  break;
  case 4:
         {DataModule1->roomQuery->Active=true;
         DataModule1->roomQuery->SQL->Clear();
         DataModule1->roomQuery->SQL->Add("Select * From Room where RoomState='维修'");
         DataModule1->roomQuery->ExecSQL();
         DataModule1->roomDataSource->DataSet->Open();
         TDataSet *roomSet=DataModule1->roomDataSource->DataSet;
         ListView1->Clear();
         for(i=0;i<roomSet->RecordCount;i++)
          {

            String caption=roomSet->Fields->FieldByName("RoomNo")->AsString;
            TListItems *items=ListView1->Items;
            TListItem *item=items->Add();
            //TListItem *item=new TListItem(items);
            item->Caption=caption;
            if(roomSet->Fields->FieldByName("RoomState")->AsString=="空闲")
            item->ImageIndex=1;
            else if(roomSet->Fields->FieldByName("RoomState")->AsString=="维修")
            item->ImageIndex=0;
           else if(roomSet->Fields->FieldByName("RoomState")->AsString=="在住")
            item->ImageIndex=2;
            else
            item->ImageIndex=3;

           roomSet->Next();
           }

  }
  break;
}
}
//---------------------------------------------------------------------------



void __fastcall TForm5::ListView1Click(TObject *Sender)
{
if(ListView1->Selected==NULL)
{
    return;
}
AnsiString queryString="Select * from Room ";
queryString+="Where RoomNo= ";
queryString+="'";
queryString+=ListView1->Selected->Caption;
queryString+="'";
DataModule1->roomQuery->Active=false;
DataModule1->roomQuery->SQL->Clear();
DataModule1->roomQuery->Close();
DataModule1->roomQuery->SQL->Add(queryString);
DataModule1->roomQuery->ExecSQL();
DataModule1->roomQuery->Active=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm5::FormShow(TObject *Sender)
{
DataModule1->roomQuery->Close();
DataModule1->roomQuery->Open();
}
//---------------------------------------------------------------------------