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

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