unit_pyxzform.cpp

VOD点歌系统

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

#include <vcl.h>
#pragma hdrstop

#include "Unit_PYXZForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmPYXZ *frmPYXZ;
extern AnsiString strGM;      //歌名
extern AnsiString strGL;      //歌曲类型
extern int iForms;            //窗口标记
void TfrmPYXZ::InitList(int value)
{  //更新列表
   lstGD->Clear();
   if(Count > 0)
   {
      for( int i = 0; i < value; ++i)
      {
         if(iForms == 1)
         {
            lstGD->Items->Add(Dm->adoPYXZ->Fields->Fields[0]->AsString);
            Dm->adoPYXZ->Next();
         }else if(iForms == 3){
            lstGD->Items->Add(Dm->adoGQLB->Fields->Fields[0]->AsString);
            Dm->adoGQLB->Next();
         }
      }
   }
}
void TfrmPYXZ::InitPages(int value)
{  //更新页标
   if(Count > value)
      edtPages->Text = "第" + IntToStr(curPages) + "页/共" + IntToStr(Pages) + "页";
   else if(Count > 0)
      edtPages->Text = "第1页/共1页";
   else if(Count == 0)
      edtPages->Text = "第0页/共0页";
}
//---------------------------------------------------------------------------
__fastcall TfrmPYXZ::TfrmPYXZ(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::imgAClick(TObject *Sender)
{
     edtInput->Text = edtInput->Text + "A";
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::imgBClick(TObject *Sender)
{
     edtInput->Text = edtInput->Text + "B";
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::imgCClick(TObject *Sender)
{
     edtInput->Text = edtInput->Text + "C";
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::imgDClick(TObject *Sender)
{
     edtInput->Text = edtInput->Text + "D";
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::imgEClick(TObject *Sender)
{
     edtInput->Text = edtInput->Text + "E";
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::imgFClick(TObject *Sender)
{
     edtInput->Text = edtInput->Text + "F";
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::imgGClick(TObject *Sender)
{
     edtInput->Text = edtInput->Text + "G";
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::imgHClick(TObject *Sender)
{
     edtInput->Text = edtInput->Text + "H";
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::imgIClick(TObject *Sender)
{
     edtInput->Text = edtInput->Text + "I";
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::imgJClick(TObject *Sender)
{
     edtInput->Text = edtInput->Text + "J";
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::imgKClick(TObject *Sender)
{
     edtInput->Text = edtInput->Text + "K";
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::imgLClick(TObject *Sender)
{
     edtInput->Text = edtInput->Text + "L";
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::imgMClick(TObject *Sender)
{
     edtInput->Text = edtInput->Text + "M";
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::imgNClick(TObject *Sender)
{
     edtInput->Text = edtInput->Text + "N";
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::imgOClick(TObject *Sender)
{
     edtInput->Text = edtInput->Text + "O";
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::imgPClick(TObject *Sender)
{
   edtInput->Text = edtInput->Text + "P";        
}
//---------------------------------------------------------------------------

void __fastcall TfrmPYXZ::imgQClick(TObject *Sender)
{
   edtInput->Text = edtInput->Text + "Q";        
}
//---------------------------------------------------------------------------

void __fastcall TfrmPYXZ::imgRClick(TObject *Sender)
{
   edtInput->Text = edtInput->Text + "R";
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::imgSClick(TObject *Sender)
{
   edtInput->Text = edtInput->Text + "S";
}
//---------------------------------------------------------------------------

void __fastcall TfrmPYXZ::imgTClick(TObject *Sender)
{
   edtInput->Text = edtInput->Text + "T";
}
//---------------------------------------------------------------------------

void __fastcall TfrmPYXZ::imgUClick(TObject *Sender)
{
   edtInput->Text = edtInput->Text + "U";
}
//---------------------------------------------------------------------------

void __fastcall TfrmPYXZ::imgVClick(TObject *Sender)
{
   edtInput->Text = edtInput->Text + "V";
}
//---------------------------------------------------------------------------

void __fastcall TfrmPYXZ::imgWClick(TObject *Sender)
{
   edtInput->Text = edtInput->Text + "W";
}
//---------------------------------------------------------------------------

void __fastcall TfrmPYXZ::imgXClick(TObject *Sender)
{
   edtInput->Text = edtInput->Text + "X";
}
//---------------------------------------------------------------------------

void __fastcall TfrmPYXZ::imgYClick(TObject *Sender)
{
   edtInput->Text = edtInput->Text + "Y";
}
//---------------------------------------------------------------------------

void __fastcall TfrmPYXZ::imgZClick(TObject *Sender)
{
   edtInput->Text = edtInput->Text + "Z";
}

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

void __fastcall TfrmPYXZ::imgDeleteMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   imgDelete->Picture->LoadFromFile(".\\bmp\\紫红\\简体\\右排\\删除.jpg");
}
//---------------------------------------------------------------------------

void __fastcall TfrmPYXZ::imgDeleteClick(TObject *Sender)
{  //删除输入的最后一个字母
   if(!edtInput->Text.IsEmpty())
      edtInput->Text = edtInput->Text.SubString(1, edtInput->Text.Length() - 1);
}
//---------------------------------------------------------------------------

void __fastcall TfrmPYXZ::imgPageDownMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   imgPageDown->Picture->LoadFromFile(".\\bmp\\紫红\\简体\\左排\\下页.jpg");
}
//---------------------------------------------------------------------------

void __fastcall TfrmPYXZ::imgPageDownMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   imgPageDown->Picture->LoadFromFile(".\\bmp\\紫红\\简体\\左排\\下页-1.jpg");
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::imgPageDownClick(TObject *Sender)
{  //下一页
   if(Count > MAXPAGES && curPages + 1 < Pages)
   {
      curPages++;
      InitPages(MAXPAGES);
      InitList(MAXPAGES);
   }else if( Count > MAXPAGES && curPages == Pages){
      curPages++;
      InitPages(MAXPAGES);
      InitList(Others);
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmPYXZ::imgPageUpClick(TObject *Sender)
{  //上一页
   if(Count > MAXPAGES && curPages > 1)
   {
      curPages--;
      InitPages(MAXPAGES);
      if(curPages == Pages)
      {
         for(int i = 0; i < (MAXPAGES + Others); ++i)
         {
            if(iForms == 1)
            {
               Dm->adoPYXZ->Prior();
            }else if(iForms == 3){
               Dm->adoGQLB->Prior();
            }
         }
      } else {
         for(int i = 0; i < (MAXPAGES * 2); ++i)
         {
            if(iForms == 1)
            {
               Dm->adoPYXZ->Prior();
            }else if(iForms == 3){
               Dm->adoGQLB->Prior();
            }
         }
      }
      InitList(MAXPAGES);
   }
}

//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::imgPageUpMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   imgPageUp->Picture->LoadFromFile(".\\bmp\\紫红\\简体\\左排\\上页-1.jpg");
}
//---------------------------------------------------------------------------

void __fastcall TfrmPYXZ::imgPageUpMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   imgPageUp->Picture->LoadFromFile(".\\bmp\\紫红\\简体\\左排\\上页.jpg");
}

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

void __fastcall TfrmPYXZ::imgEnterMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   imgEnter->Picture->LoadFromFile(".\\bmp\\紫红\\简体\\左排\\确定-1.jpg");
}
//---------------------------------------------------------------------------

void __fastcall TfrmPYXZ::imgEnterMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   imgEnter->Picture->LoadFromFile(".\\bmp\\紫红\\简体\\左排\\确定.jpg");
}
//---------------------------------------------------------------------------

void __fastcall TfrmPYXZ::imgDeleteMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   imgDelete->Picture->LoadFromFile(".\\bmp\\紫红\\简体\\右排\\删除-1.jpg");
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::lstGDDblClick(TObject *Sender)
{  //选择歌曲
   if(lstGD->Items->Count > 0)
   {
      strGM = lstGD->Items->Strings[lstGD->ItemIndex];
      this->Visible = false;
      frmBFLB->Visible = true;
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmPYXZ::FormActivate(TObject *Sender)
{
//   lstGD->Clear();
   if(iForms == 3)
   {
      Label1->Caption = "歌 曲 类 别";

      curPages = 1;
      Dm->adoGQLB->First();
      Count = Dm->adoGQLB->RecordCount;
      if( Count > MAXPAGES )
      {
         if( (Others = Count % MAXPAGES) == 0 )
            Pages = Count / MAXPAGES;
         else
            Pages = Count / MAXPAGES + 1;
         InitPages(MAXPAGES);
         InitList( MAXPAGES );
      } else {
         InitPages(MAXPAGES);
         InitList( Count);
      }
   }else if(iForms == 1)
      Label1->Caption = "拼 音 选 择";
}
//---------------------------------------------------------------------------

void __fastcall TfrmPYXZ::imgEnterClick(TObject *Sender)
{
   if( !edtInput->Text.IsEmpty() && edtInput->Text != strTmp)
   {
     curPages = 1;
     strTmp = edtInput->Text;
     try{
        if(Dm->adoPYXZ->Active == true)
        {
           Dm->adoPYXZ->Close();
        }
        Dm->adoPYXZ->SQL->Clear();
        if(iForms == 3)
           Dm->adoPYXZ->SQL->Add("select gm from song where zt like '" + edtInput->Text + "%' and qz = '" + strGL + "'");
        else
           Dm->adoPYXZ->SQL->Add("select gm from song where zt like '" + edtInput->Text + "%'");
        Dm->adoPYXZ->Open();
        Count = Dm->adoPYXZ->RecordCount;
     }catch(...){
        Count = 0;
     }
     if( Count > MAXPAGES )
     {
        if( (Others = Count % MAXPAGES) == 0 )
           Pages = Count / MAXPAGES;
        else
           Pages = Count / MAXPAGES + 1;

        InitPages(MAXPAGES);
        InitList(MAXPAGES);
     } else {
        InitPages(MAXPAGES);
        InitList(Count);
     }
   }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPYXZ::lblHomeClick(TObject *Sender)
{
   this->Visible = false;
   frmHome->Visible = true;
}
//---------------------------------------------------------------------------

void __fastcall TfrmPYXZ::lblSelectedClick(TObject *Sender)
{
   this->Visible = false;
   frmBFLB->Visible = true;
}