unit_xbxzform.cpp

来自「VOD点歌系统」· C++ 代码 · 共 73 行

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

#include <vcl.h>
#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;
}
//---------------------------------------------------------------------------