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

//--------------------------------------------------------------------------- 
 
#include  
#pragma hdrstop 
 
#include "Unit_HomeForm.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TfrmHome *frmHome; 
bool Conned = false; 
AnsiString strGX; 
AnsiString strGM; 
AnsiString strGL; 
int iForms; 
//--------------------------------------------------------------------------- 
__fastcall TfrmHome::TfrmHome(TComponent* Owner) 
        : TForm(Owner) 
{ 
   try{ 
      mplayer = new TMPlayer(frmHome->Handle); 
      mplayer->TMPOpenDriver(); 
   }catch(...){ 
      MessageBox(NULL,"硬件错误,请立刻关闭计算机电源!", "严重警告", MB_OK); 
      Application->Terminate(); 
   } 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmHome::FormCreate(TObject *Sender) 
{   //打开数据库 
   try 
   { 
         AnsiString FilePath = ".\\db\\all-ktvdb.mdb"; 
         AnsiString strConn = "Provider=MSDataShape.1;Persist Security Info=False;Mode=Share Deny None;Data Provider=Microsoft.Jet.OLEDB.4.0;"; 
         AnsiString strDataSource = "Data Source=" + FilePath; 
         strConn = strConn + strDataSource; 
         Dm->adoConn->ConnectionString = strConn; 
         Dm->adoConn->Open(); 
         Conned = true; 
   }catch(...){ 
         MessageBox(NULL,"数据库连接错误。", "提示", MB_OK); 
         Conned = false; 
         Application->Terminate(); 
   } 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmHome::Label12Click(TObject *Sender) 
{  //歌星点歌 
   iForms = 2; 
   this->Visible = false; 
   frmXBXZ->Visible = true; 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TfrmHome::Label9Click(TObject *Sender) 
{  //播放列表 
   iForms = 4; 
   this->Visible = false; 
   frmBFLB->Visible = true; 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TfrmHome::Label5Click(TObject *Sender) 
{  //拼音选择 
   iForms = 1; 
   this->Visible = false; 
   frmPYXZ->Visible = true; 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TfrmHome::Label10Click(TObject *Sender) 
{  //关闭程序 
   try{ 
      if(mplayer->TMPGetStatusMode() == MCI_MODE_PLAY) 
      { 
         mplayer->TMPause(); 
         mplayer->TMPClose(); 
      } 
      mplayer->TMPCloseDriver(); 
      Application->Terminate(); 
      if(Dm->adoConn->Connected == true) 
      { 
         Dm->adoConn->Close(); 
      } 
   }catch(...){ 
      MessageBox(NULL,"硬件错误,请立刻关闭计算机电源!", "严重警告", MB_OK); 
      Application->Terminate(); 
   } 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmHome::OnNotify(Messages::TMessage& Msg) 
{  //下一首歌曲消息 
   if (Msg.WParam == MCI_NOTIFY_SUCCESSFUL) 
   { 
       frmBFLB->Next(NULL); 
   } 
} 
//--------------------------------------------------------------------------- 
void __fastcall TfrmHome::Label11Click(TObject *Sender) 
{  //歌曲列表 
   iForms = 3; 
   this->Visible = false; 
   frmGQLB->Visible = true;         
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TfrmHome::FormActivate(TObject *Sender) 
{  //将窗口标记设置为Home 
   iForms = 0;         
} 
//---------------------------------------------------------------------------