www.pudn.com > vod2007.rar > Unit_GQLBForm.cpp, change:2003-06-14,size:3614b

//--------------------------------------------------------------------------- 
 
#include  
#pragma hdrstop 
 
#include "Unit_GQLBForm.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TfrmGQLB *frmGQLB; 
extern AnsiString strGL; 
extern int iForms; 
//--------------------------------------------------------------------------- 
__fastcall TfrmGQLB::TfrmGQLB(TComponent* Owner) 
        : TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmGQLB::lblSelectedManClick(TObject *Sender) 
{ 
    strGL = "美声"; 
    Dm->adoGQLB->Close(); 
    Dm->adoGQLB->SQL->Text = "select gm from song where qz = '" + strGL +"'"; 
    Dm->adoGQLB->Open(); 
    this->Visible = false; 
    frmPYXZ->Visible = true; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmGQLB::lblSelectWomanClick(TObject *Sender) 
{ 
   strGL = "民歌"; 
   Dm->adoGQLB->Close(); 
   Dm->adoGQLB->SQL->Text = "select gm from song where qz = '" + strGL +"'"; 
   Dm->adoGQLB->Open(); 
   this->Visible = false; 
   frmPYXZ->Visible = true; 
 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmGQLB::Label23Click(TObject *Sender) 
{ 
   strGL = "民族"; 
   Dm->adoGQLB->Close(); 
   Dm->adoGQLB->SQL->Text = "select gm from song where qz = '" + strGL +"'"; 
   Dm->adoGQLB->Open(); 
   this->Visible = false; 
   frmPYXZ->Visible = true; 
 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmGQLB::lblSelectOtherClick(TObject *Sender) 
{ 
   strGL = "通俗"; 
   Dm->adoGQLB->Close(); 
   Dm->adoGQLB->SQL->Text = "select gm from song where qz = '" + strGL +"'"; 
   Dm->adoGQLB->Open(); 
   this->Visible = false; 
   frmPYXZ->Visible = true; 
 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmGQLB::Label15Click(TObject *Sender) 
{ 
   strGL = "外国民歌"; 
   Dm->adoGQLB->Close(); 
   Dm->adoGQLB->SQL->Text = "select gm from song where qz = '" + strGL +"'"; 
   Dm->adoGQLB->Open(); 
   this->Visible = false; 
   frmPYXZ->Visible = true; 
 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmGQLB::Label17Click(TObject *Sender) 
{ 
   strGL = "现代京剧"; 
   Dm->adoGQLB->Close(); 
   Dm->adoGQLB->SQL->Text = "select gm from song where qz = '" + strGL +"'"; 
   Dm->adoGQLB->Open(); 
   this->Visible = false; 
   frmPYXZ->Visible = true; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmGQLB::Label20Click(TObject *Sender) 
{ 
   strGL = "戏剧"; 
   Dm->adoGQLB->Close(); 
   Dm->adoGQLB->SQL->Text = "select gm from song where qz = '" + strGL +"'"; 
   Dm->adoGQLB->Open(); 
   this->Visible = false; 
   frmPYXZ->Visible = true; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmGQLB::lblHomeClick(TObject *Sender) 
{ 
   this->Visible = false; 
   frmHome->Visible = true; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmGQLB::lblSelectedClick(TObject *Sender) 
{ 
   this->Visible = false; 
   frmBFLB->Visible = true; 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmGQLB::FormActivate(TObject *Sender) 
{ 
   iForms = 3; 
} 
//---------------------------------------------------------------------------