www.pudn.com > vod2007.rar > Unit_XBXZForm.cpp

//--------------------------------------------------------------------------- 
 
#include  
#pragma hdrstop 
 
#include "Unit_XBXZForm.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TfrmXBXZ *frmXBXZ; 
AnsiString strXB; 
//--------------------------------------------------------------------------- 
__fastcall TfrmXBXZ::TfrmXBXZ(TComponent* Owner) 
        : TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmXBXZ::FormCreate(TObject *Sender) 
{ 
   Left = 0; 
   Top = 0; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmXBXZ::lblHomeClick(TObject *Sender) 
{ 
   this->Visible = false; 
   frmHome->Visible = true; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmXBXZ::lblSelectedManClick(TObject *Sender) 
{ 
   strXB = "ÄÐ"; 
   Dm->adoQuery->Close(); 
   Dm->adoQuery->SQL->Clear(); 
   Dm->adoQuery->SQL->Add("select xm from songstar where xb = 'ÄÐ'"); 
   Dm->adoQuery->Open(); 
   this->Visible = false; 
   frmGXDG->Visible = true; 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TfrmXBXZ::lblSelectedClick(TObject *Sender) 
{ 
   this->Visible = false; 
   frmBFLB->Visible = true; 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TfrmXBXZ::lblSelectWomanClick(TObject *Sender) 
{ 
   strXB = "Å®"; 
   Dm->adoQuery->Close(); 
   Dm->adoQuery->SQL->Clear(); 
   Dm->adoQuery->SQL->Add("select xm from songstar where xb = 'Å®'"); 
   Dm->adoQuery->Open(); 
   this->Visible = false; 
   frmGXDG->Visible = true; 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TfrmXBXZ::lblSelectOtherClick(TObject *Sender) 
{ 
   strXB = "¶Ô"; 
   Dm->adoQuery->Close(); 
   Dm->adoQuery->SQL->Clear(); 
   Dm->adoQuery->SQL->Add("select xm from songstar where xb = '¶Ô'"); 
   Dm->adoQuery->Open(); 
   this->Visible = false; 
   frmGXDG->Visible = true; 
} 
//---------------------------------------------------------------------------