unit_dgform.cpp

VOD点歌系统

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

#include <vcl.h>
#pragma hdrstop

#include "Unit_DGForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmGXDG *frmGXDG;
extern AnsiString strGX;
extern AnsiString strXB;
//---------------------------------------------------------------------------
void TfrmGXDG::InitList(int value)
{
   lstGD->Clear();
   for(int i = 0; i < value; ++i)
   {
      if(!Dm->adoQuery->Eof)
      {
         lstGD->Items->Add(Dm->adoQuery->Fields->Fields[0]->AsString);
         Dm->adoQuery->Next();
      }
   }
}
void TfrmGXDG::InitEdit2()
{
   if(Count > 16)
      Edit2->Text = "第" + IntToStr(curPages) + "页/共" + IntToStr(Pages) + "页";
   else if(Count >0)
      Edit2->Text = "第1页/共1页";
   else if(Count == 0)
      Edit2->Text = "第0页/共0页";
}

//---------------------------------------------------------------------------
__fastcall TfrmGXDG::TfrmGXDG(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmGXDG::imgAClick(TObject *Sender)
{
     Edit1->Text = "A";
}
//---------------------------------------------------------------------------
void __fastcall TfrmGXDG::imgBClick(TObject *Sender)
{
     Edit1->Text = "B";
}
//---------------------------------------------------------------------------
void __fastcall TfrmGXDG::imgCClick(TObject *Sender)
{
     Edit1->Text = "C";

}
//---------------------------------------------------------------------------
void __fastcall TfrmGXDG::imgDClick(TObject *Sender)
{
     Edit1->Text = "D";
}
//---------------------------------------------------------------------------
void __fastcall TfrmGXDG::imgEClick(TObject *Sender)
{
     Edit1->Text = "E";
}
//---------------------------------------------------------------------------
void __fastcall TfrmGXDG::imgFClick(TObject *Sender)
{
     Edit1->Text = "F";
}
//---------------------------------------------------------------------------
void __fastcall TfrmGXDG::imgGClick(TObject *Sender)
{
     Edit1->Text = "G";
}
//---------------------------------------------------------------------------
void __fastcall TfrmGXDG::imgHClick(TObject *Sender)
{
     Edit1->Text = "H";
}
//---------------------------------------------------------------------------
void __fastcall TfrmGXDG::imgIClick(TObject *Sender)
{
     Edit1->Text = "I";
}
//---------------------------------------------------------------------------
void __fastcall TfrmGXDG::imgJClick(TObject *Sender)
{
     Edit1->Text = "J";
}
//---------------------------------------------------------------------------
void __fastcall TfrmGXDG::imgKClick(TObject *Sender)
{
     Edit1->Text = "K";
}
//---------------------------------------------------------------------------
void __fastcall TfrmGXDG::imgLClick(TObject *Sender)
{
     Edit1->Text = "L";
}
//---------------------------------------------------------------------------
void __fastcall TfrmGXDG::imgMClick(TObject *Sender)
{
     Edit1->Text = "M";
}
//---------------------------------------------------------------------------
void __fastcall TfrmGXDG::imgNClick(TObject *Sender)
{
     Edit1->Text = "N";

}
//---------------------------------------------------------------------------
void __fastcall TfrmGXDG::imgOClick(TObject *Sender)
{
     Edit1->Text = "O";
}
//---------------------------------------------------------------------------
void __fastcall TfrmGXDG::imgPClick(TObject *Sender)
{
   Edit1->Text = "P";        
}
//---------------------------------------------------------------------------

void __fastcall TfrmGXDG::imgQClick(TObject *Sender)
{
   Edit1->Text = "Q";        
}
//---------------------------------------------------------------------------

void __fastcall TfrmGXDG::imgRClick(TObject *Sender)
{
   Edit1->Text = "R";
}
//---------------------------------------------------------------------------

void __fastcall TfrmGXDG::FormCreate(TObject *Sender)
{
   Label6->Caption = "按鼠标选择歌\n星名首字母按\n确定键确认";
}
//---------------------------------------------------------------------------

void __fastcall TfrmGXDG::imgSClick(TObject *Sender)
{
   Edit1->Text = "S";
}
//---------------------------------------------------------------------------

void __fastcall TfrmGXDG::imgTClick(TObject *Sender)
{
   Edit1->Text = "T";        
}
//---------------------------------------------------------------------------

void __fastcall TfrmGXDG::imgUClick(TObject *Sender)
{
   Edit1->Text = "U";
}
//---------------------------------------------------------------------------

void __fastcall TfrmGXDG::imgVClick(TObject *Sender)
{
   Edit1->Text = "V";        
}
//---------------------------------------------------------------------------

void __fastcall TfrmGXDG::imgWClick(TObject *Sender)
{
   Edit1->Text = "W";        
}
//---------------------------------------------------------------------------

void __fastcall TfrmGXDG::imgXClick(TObject *Sender)
{
   Edit1->Text = "X";        
}
//---------------------------------------------------------------------------

void __fastcall TfrmGXDG::imgYClick(TObject *Sender)
{
   Edit1->Text = "Y";        
}
//---------------------------------------------------------------------------

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

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

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

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

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

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

void __fastcall TfrmGXDG::lblBackClick(TObject *Sender)
{
   this->Visible = false;
   frmXBXZ->Visible = true;
}
//---------------------------------------------------------------------------

void __fastcall TfrmGXDG::lblHomeClick(TObject *Sender)
{
   this->Visible = false;
   frmHome->Visible = true;        
}
//---------------------------------------------------------------------------

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


void __fastcall TfrmGXDG::imgEnterClick(TObject *Sender)
{
   if(!Edit1->Text.IsEmpty())
   {
     curPages = 1;
     Dm->adoQuery->Close();
     Dm->adoQuery->SQL->Clear();
     Dm->adoQuery->SQL->Text = "select xm from songstar where xb = '" + strXB + "' and zt like '" + Edit1->Text + "%'";
     Dm->adoQuery->Open();

     Count = Dm->adoQuery->RecordCount;
     if( Count > 16 )
     {
        if( (Others = Count % 16) == 0 )
        {
           Pages = Count / 16;
        } else {
           Pages = Count / 16 + 1;
        }
           InitEdit2();
           InitList( 16 );
     } else if(Count > 0){
           InitEdit2();
           InitList( Count );
     } else if(Count == 0)
           InitEdit2();
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmGXDG::imgPageDownClick(TObject *Sender)
{
   if(Count > 6 && curPages + 1 < Pages)
   {
      curPages++;
      InitEdit2();
      InitList(16);
   }else if( Count > 16 && curPages  + 1 == Pages){
      curPages++;
      InitEdit2();
      InitList(Others);
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmGXDG::imgPageUpClick(TObject *Sender)
{
   if(Count > 16 && curPages > 1)
   {
      curPages--;
      InitEdit2();

      if(curPages == Pages)
      {
         for(int i = 0; i < 16 + Others; ++i)
         {
            if(!Dm->adoQuery->Bof)
               Dm->adoQuery->Prior();
         }
      }else
         for(int i = 0; i < 32; ++i)
            Dm->adoQuery->Prior();
      InitList(16);
   }
}
//---------------------------------------------------------------------------


void __fastcall TfrmGXDG::lstGDDblClick(TObject *Sender)
{
   if(lstGD->Items->Count > 0)
   {
      strGX = lstGD->Items->Strings[lstGD->ItemIndex];
      Dm->adoGDXZ->Close();
      Dm->adoGDXZ->SQL->Text = "select gm from song where gx = '" + strGX + "'";
      Dm->adoGDXZ->Open();
      this->Visible = false;
      frmGDXZ->Visible = true;
   }        
}
//---------------------------------------------------------------------------

void __fastcall TfrmGXDG::FormActivate(TObject *Sender)
{
   frmGXDG->curPages = 1;
   frmGXDG->Count = Dm->adoQuery->RecordCount;
   if( frmGXDG->Count > 16 )
   {
      if( (frmGXDG->Others = frmGXDG->Count % 16) == 0 )
         frmGXDG->Pages = frmGXDG->Count / 16;
      else
         frmGXDG->Pages = frmGXDG->Count / 16 + 1;

      frmGXDG->InitEdit2();
      frmGXDG->InitList( 16 );
   } else {
      frmGXDG->InitEdit2();
      frmGXDG->InitList( frmGXDG->Count);
   }
}
//---------------------------------------------------------------------------