unit_homeform.cpp

VOD点歌系统

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

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