group.cpp

机器须安装SQL Server2000 程序安装完之后

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

#include <vcl.h>
#pragma hdrstop

#include "Group.h"
#include "DataMoudle.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TGroupForm *GroupForm;
//---------------------------------------------------------------------------
__fastcall TGroupForm::TGroupForm(TComponent* Owner)
    : TForm(Owner)
{
    Total=0;
}
//---------------------------------------------------------------------------
void __fastcall TGroupForm::FormShow(TObject *Sender)
{
      LabelOper->Caption=DataModule2->GetName();


     DataModule2->CDSRoomType->Active=true;   //选出据有的房间类别
         while(!DataModule2->CDSRoomType->Eof)
        {         //动态的把所有房间的类别添加在ComboBox组件里。

                CBRoomRevel->Items->Add(DataModule2->CDSRoomType->FieldByName("RoomTypeName")->AsString);
                DataModule2->CDSRoomType->Next();
        }
        DataModule2->CDSRoomType->Active=false;

         ////选取出证件类别
        DataModule2->CDSPassType->Active=true;
          while(!DataModule2->CDSPassType->Eof)
        {         //动态的把所有房间的类别添加在ComboBox组件里。

                CBPassTypeName->Items->Add(DataModule2->CDSPassType->FieldByName("ThePassTypeName")->AsString);
                DataModule2->CDSPassType->Next();
        }
        DataModule2->CDSPassType->Active=false;
        GroupBox1->Visible=false;
}
//---------------------------------------------------------------------------

void __fastcall TGroupForm::CBRoomRevelChange(TObject *Sender)
{
     CBRoomNumber->Items->Text="";
            DataModule2->CDSRoom->Close();
           DataModule2->CDSRoom->CommandText="";
           DataModule2->CDSRoom->CommandText="select * from Room where RoomTypeNumber="+QuotedStr(CBRoomRevel->ItemIndex+1)+"and RoomUsed=0";
           DataModule2->CDSRoom->Open();
               while(!DataModule2->CDSRoom->Eof)
        {         //动态的把所有房间的类别添加在ComboBox组件里。
            //     ListBox1->Items->Add(DataModule2->CDSRoom->FieldByName("RoomNo")->AsString);
                CBRoomNumber->Items->Add(DataModule2->CDSRoom->FieldByName("RoomNo")->AsString);
                DataModule2->CDSRoom->Next();
        }
        DataModule2->CDSRoom->Active=true;

          //从数据库加选取出折扣变量


        DataModule2->CDSRoomType->Active=false;
        DataModule2->CDSRoomType->CommandText="";
        DataModule2->CDSRoomType->CommandText="select * from RoomType where RoomTypeName="+QuotedStr(CBRoomRevel->Text);
        DataModule2->CDSRoomType->Active=true;

        EditZeKou->Text=DataModule2->CDSRoomType->FieldByName("ZeKou")->AsString;

        DataModule2->CDSRoomType->Active=false  ;
}
//---------------------------------------------------------------------------


void __fastcall TGroupForm::CBRoomNumberChange(TObject *Sender)
{
      ListBox1->Items->Add(CBRoomNumber->Text);
      ListBox2->Items->Add(CBRoomRevel->Text);
}
//---------------------------------------------------------------------------

void __fastcall TGroupForm::ListBox1DblClick(TObject *Sender)
{
    ListBox1->Items->Clear();
    ListBox2->Items->Clear();
}
//---------------------------------------------------------------------------

void __fastcall TGroupForm::BitBtnAddClick(TObject *Sender)
{
     DataModule2->CDSPeopleWith->Insert();
      DataModule2->CDSPeopleWith->FieldByName("TheOrderNumber")->AsString=QuotedStr(EdtTheOrderNumber->Text);
}
//---------------------------------------------------------------------------

void __fastcall TGroupForm::CheckBox1Click(TObject *Sender)
{
        if(CheckBox1->Checked==true)
       {
           GroupBox1->Visible=true;
          DataModule2->CDSPeopleWith->Open();
          DataModule2->CDSPeopleWith->Insert();
          DataModule2->CDSPeopleWith->FieldByName("TheOrderNumber")->AsString=QuotedStr(EdtTheOrderNumber->Text);
       }
       else if(CheckBox1->Checked==false)
       {
          GroupBox1->Visible=false;
          DataModule2->CDSPeopleWith->Close();
       }

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

void __fastcall TGroupForm::BitBtnGropuInClick(TObject *Sender)
{
        int Zekou;
       Zekou=StrToInt(EditZeKou->Text);
       if(Zekou>10||Zekou<1)
       {
          ShowMessage("你输入的折扣不合理");
             return ;
       }

       int i=0;

      i=DataModule2->GetID(1);


      DataModule2->CDSRegIn->CommandText="";
      AnsiString SQL;
      SQL="insert into RegIn(Id ,TheOrderNumber,Name,Sex,PassNo,InDay,OutDay,Deposit,WaiterName,ThePassType,ZeKou,GroupName )Values("+ QuotedStr(IntToStr(i))+","+QuotedStr(EdtTheOrderNumber->Text)+","+QuotedStr(EdtName->Text)+","+QuotedStr(ComBoSex->Text)+","+QuotedStr(EdtPassNo->Text)+","+QuotedStr(DTPIn->Date)+","+QuotedStr(DTPOut->Date)+","+QuotedStr(EdtDeposit->Text)+","+QuotedStr(LabelOper->Caption)+","+QuotedStr(CBPassTypeName->Text)+","+QuotedStr(EditZeKou->Text)+","+QuotedStr(EditGroupName->Text)+")" ;
    //  SQL="insert into RegIn(Id ,TheOrderNumber,Name,Sex,Age,Compay,PassNo,Address,WhyIn,InDay,OutDay)Values(" +QuotedStr(IntToStr(x))+ "," + QuotedStr(EdtTheOrderNumber->Text)+","+QuotedStr(EdtName->Text)+","+QuotedStr(EdtSex->Text)+","+QuotedStr(EdtAge->Text)+","+QuotedStr(EdtCompay->Text)+","+QuotedStr(EdtPassNo->Text)+","+QuotedStr(EdtAddress->Text)+","+QuotedStr(MeoWhyIn->Text)+","+QuotedStr(DTPIn->Date)+","+QuotedStr(DTPOut->Date)+")";
      DataModule2->CDSRegIn->CommandText=SQL;
      Application->MessageBox("确定登记", "注意", MB_OKCANCEL)== IDOK;
      DataModule2->CDSRegIn->Execute();
       DataModule2->CDSRegIn->Active=false;

        //输入团队房间
        int j;
       // j=ListBox1->Columns;
       j=ListBox1->Items->Count;

      for(i=0;i<j;i++)
        {   //j=j-1;
            DataModule2->CDSRoomGroup->Active=false;
            DataModule2->CDSRoomGroup->CommandText="";
            DataModule2->CDSRoomGroup->CommandText="Insert into RoomGuoup(RoomNo,TheOrderNumber) values("+QuotedStr( ListBox1->Items->Strings[i])+","+QuotedStr(EdtTheOrderNumber->Text)+")";
            DataModule2->CDSRoomGroup->Execute();
            DataModule2->CDSRoomGroup->Active=false;

        }

       //输入同行人
       if(CheckBox1->Checked==true)
       {
           DataModule2->CDSPeopleWith->ApplyUpdates(0);
       }

       //清空
       EdtTheOrderNumber->Text="";
       EditGroupName->Text="";
       EdtName->Text="";
       EdtTellphone->Text="";
       EdtPassNo->Text="";
       EditZeKou->Text="";
       ListBox1->Items->Text="";
       EdtDeposit->Text="";

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


void __fastcall TGroupForm::BitBtnSearchClick(TObject *Sender)
{
    
     if(Edit1->Text=="")
    {
       ShowMessage("请输入编号");
       return;
    }
    Edit2->Text=Now();
    if(RadioButton1->Checked==true)
    {
        DataModule2->CDSRegIn->Active=false;
        DataModule2->CDSRegIn->CommandText="";
        DataModule2->CDSRegIn->CommandText="select * from RegIn where TheOrderNumber="+QuotedStr(Edit1->Text);
        DataModule2->CDSRegIn->Active=true;
    }
    else if(RadioButton2->Checked==true)
    {
        DataModule2->CDSRegIn->Active=false;
        DataModule2->CDSRegIn->CommandText="";
        DataModule2->CDSRegIn->CommandText="select * from RegIn where PassNo="+QuotedStr(Edit1->Text);
        DataModule2->CDSRegIn->Active=true;
    }

     else if(RadioButton3->Checked==true)
    {
        DataModule2->CDSRegIn->Active=false;
        DataModule2->CDSRegIn->CommandText="";
        DataModule2->CDSRegIn->CommandText="select * from RegIn where Name="+QuotedStr(Edit1->Text);
        DataModule2->CDSRegIn->Active=true;
    }








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

void __fastcall TGroupForm::DBEdit1Change(TObject *Sender)
{
    //选取出团队所住的房间
        DataModule2->CDSRoomGroup->Active=false;
        DataModule2->CDSRoomGroup->CommandText="";
        DataModule2->CDSRoomGroup->CommandText="select * from RoomGuoup where TheOrderNumber="+QuotedStr(DBEdit1->Text);
        DataModule2->CDSRoomGroup->Active=true;

          while(!DataModule2->CDSRoomGroup->Eof)
        {         //动态的把所有房间的类别添加在ComboBox组件里。
                ListBox3->Items->Add(DataModule2->CDSRoomGroup->FieldByName("RoomNo")->AsString);

                DataModule2->CDSRoomGroup->Next();
        }
        DataModule2->CDSRoomGroup->Active=false;

        ////////////计算出价钱
        //先算出天数DayNo
        int DayNo;
            DayNo=0;
            Total=0;
            DayNo=StrToDateTime(Edit2->Text)-StrToDateTime(DBEdit5->Text);
          //  ShowMessage(DayNo);
          //选出每一单房的价钱

            int j,i;
       j=ListBox3->Items->Count;

      for(i=0;i<j;i++)
        {
          String RoomType;
           int money;
            DataModule2->CDSRoom->Active=false;
            DataModule2->CDSRoom->CommandText="";
            DataModule2->CDSRoom->CommandText="Select * from Room where RoomNo="+QuotedStr(ListBox3->Items->Strings[i]);
            DataModule2->CDSRoom->Active=true;
          // DataModule2->CDSRoom->Active=false;
            RoomType=DataModule2->CDSRoom->FieldByName("RoomTypeNumber")->AsString;
            ///////////  选出标准价钱
            DataModule2->CDSRoomType->Active=false;
            DataModule2->CDSRoomType->CommandText="";
            DataModule2->CDSRoomType->CommandText="Select * from RoomType where RoomTypeNumber="+QuotedStr( RoomType);
            DataModule2->CDSRoomType->Active=true;
          //DataModule2->CDSRoomType->Active=false;
            money=StrToInt(DataModule2->CDSRoomType->FieldByName("RoomMoney")->AsString);
          Total+=money* DayNo;
       //   ShowMessage(IntToStr(money));

        }
        //已计算出不找折的价钱。

        Edit3->Text=IntToStr(Total);
        
        if(DBEdit11->Text!="")
        {

            Total=Total*StrToInt(DBEdit11->Text)/10;

            if(Total>StrToInt(DBEdit10->Text))
            {
               Total=Total-StrToInt(DBEdit10->Text);
               Label34->Caption="应付款为 :"+IntToStr(Total);
                Total=0;
            }
            else if(Total<StrToInt(DBEdit10->Text))
            {
               Total=StrToInt(DBEdit10->Text)-Total;
               Label34->Caption="应退款为:"+IntToStr(Total);
               Total=0;
            }
            return;
        }

        else if(DBEdit11->Text=="")
        {
           
         if(Total>StrToInt(DBEdit10->Text))
            {
               Total=Total-StrToInt(DBEdit10->Text);
               Label34->Caption="应付款为 :"+IntToStr(Total);
                Total=0;
            }
            else if(Total<StrToInt(DBEdit10->Text))
            {
               Total=StrToInt(DBEdit10->Text)-Total;
               Label34->Caption="应退款为:"+IntToStr(Total);
                Total=0;
            }
            return;
         }
         DataModule2->CDSRoomType->Active=false;
           DataModule2->CDSRoom->Active=false;
           Total=0;

     


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

void __fastcall TGroupForm::Edit1Change(TObject *Sender)
{
      DBEdit1->Text="";
      DBEdit2->Text="";
      DBEdit3->Text="";
      DBEdit4->Text="";
      DBEdit5->Text="";
      DBEdit6->Text="";
      DBEdit7->Text="";
      Edit3->Text="";
      DBEdit9->Text="";
      DBEdit10->Text="";
      DBEdit11->Text="";
      ListBox3->Items->Clear();
}
//---------------------------------------------------------------------------