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

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