unit_gdxzform.cpp

VOD点歌系统

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

#include <vcl.h>
#pragma hdrstop

#include "Unit_GDXZForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmGDXZ *frmGDXZ;
extern AnsiString strGX;
extern AnsiString strGM;
extern int iForms;

void TfrmGDXZ::InitList(int value)
{
   lstGD->Clear();
   for( int i = 0; i < value; ++i)
   {
      if(!Dm->adoGDXZ->Eof)
      {
         lstGD->Items->Add(Dm->adoGDXZ->Fields->Fields[0]->AsString);
         Dm->adoGDXZ->Next();
      }
   }
}
void TfrmGDXZ::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 TfrmGDXZ::TfrmGDXZ(TComponent* Owner)
        : TForm(Owner)
{

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

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

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

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

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

void __fastcall TfrmGDXZ::imgEnterMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   imgEnter->Picture->LoadFromFile(".\\bmp\\紫红\\简体\\左排\\确定.jpg");
}
//---------------------------------------------------------------------------
void __fastcall TfrmGDXZ::imgAClick(TObject *Sender)
{
     edtInput->Text += "A";
}
//---------------------------------------------------------------------------
void __fastcall TfrmGDXZ::imgBClick(TObject *Sender)
{
     edtInput->Text = edtInput->Text + "B";
}
//---------------------------------------------------------------------------
void __fastcall TfrmGDXZ::imgCClick(TObject *Sender)
{
     edtInput->Text = "C";

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

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

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

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

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

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

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

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

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

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

void __fastcall TfrmGDXZ::imgZClick(TObject *Sender)
{
   edtInput->Text = edtInput->Text + "Z";
}
void __fastcall TfrmGDXZ::imgDeleteMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   imgDelete->Picture->LoadFromFile(".\\bmp\\紫红\\简体\\右排\\删除-1.jpg");
}
//---------------------------------------------------------------------------

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

void __fastcall TfrmGDXZ::imgDeleteClick(TObject *Sender)
{
   if(!edtInput->Text.IsEmpty())
      edtInput->Text = edtInput->Text.SubString(1, edtInput->Text.Length() - 1);
}
//---------------------------------------------------------------------------

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


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

void __fastcall TfrmGDXZ::lblBackClick(TObject *Sender)
{
   this->Visible = false;
   if(Dm->adoQuery->Active)
      Dm->adoQuery->First();
   frmGXDG->Visible = true;
}
//---------------------------------------------------------------------------


void __fastcall TfrmGDXZ::imgPageDownClick(TObject *Sender)
{
   if(Count > 13 && curPages + 1 < Pages)
   {
      curPages++;
      InitPages(13);
      InitList(13);
   }else if( Count > 13 && curPages + 1 == Pages){
      curPages++;
      InitPages(13);
      InitList(Others);;
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmGDXZ::imgPageUpClick(TObject *Sender)
{
   if(Count > 13 && curPages > 1)
   {
      curPages--;
      InitPages(13);
      if(curPages == Pages)
      {
         for(int i = 0; i < 13 + Others; ++i)
            Dm->adoGDXZ->Prior();
      } else
         for(int i = 0; i < 26; ++i)
            Dm->adoGDXZ->Prior();
      InitList(13);
      
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmGDXZ::lstGDDblClick(TObject *Sender)
{
   if(lstGD->Items->Count > 0)
   {
      strGM = lstGD->Items->Strings[lstGD->ItemIndex];
      this->Visible = false;
      frmBFLB->Visible = true;
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmGDXZ::FormActivate(TObject *Sender)
{
   curPages = 1;
   Count = Dm->adoGDXZ->RecordCount;
   if( Count > 13 )
   {
      if( (Others = Count % 13) == 0 )
         Pages = Count / 13;
      else
         Pages = Count / 13 + 1;

      InitPages(13);
      InitList( 13 );
   } else {
      InitPages(13);
      InitList( Count);
   }
}
//---------------------------------------------------------------------------