?? group.cpp
字號:
//---------------------------------------------------------------------------
#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();
}
//---------------------------------------------------------------------------
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -