www.pudn.com > vod2007.rar > Unit_PYXZForm.cpp

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