基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

客房管理系统能方便酒店进行日常客房服务管理,操作流程简单使用,方便建立酒店员工,客房,以及顾客之间的信息档案,进行日常消费管理.

        系统采用目前先进的客户机/服务器结构，开发工具是美国BORLAND公司的C BUILDER 6。该开发工具以其优异的稳定性，强大的功能成为业界最先进的数据库开发工具,移植性好,灵活性强，开发效率高。数据库采用MS SQL SERVER 2000企业版。

【实例截图】

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;