optionunit.cpp

EasyClass是针对某大学Web选课子系统一个自动的课程检索程序。EasyClass允许用户对希望关注的课程自动检测空位

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

#include <vcl.h>
#pragma hdrstop
#include "MMSystem.h"
#include "OptionUnit.h"
#include "MainUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TOptionForm *OptionForm;
//---------------------------------------------------------------------------
__fastcall TOptionForm::TOptionForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TOptionForm::CH02Click(TObject *Sender)
{
 if(CH02->Checked)
 {
  CH02_OP01->Enabled = 1;
  CH02_OP02->Enabled = 1;
  if(CH02_OP02->Checked)
  {
   CH02_OP02_ADD->Enabled = 1;
   CH02_OP02_VIEW->Enabled = 1;
   CH02_OP02_PLAY->Enabled = 1;
  }
 }
 else
 {
  CH02_OP01->Enabled = 0;
  CH02_OP02->Enabled = 0;
  CH02_OP02_ADD->Enabled = 0;
  CH02_OP02_VIEW->Enabled = 0;
  CH02_OP02_PLAY->Enabled = 0;
 }
}
//---------------------------------------------------------------------------
void __fastcall TOptionForm::CH02_OP01Click(TObject *Sender)
{
  CH02_OP02_ADD->Enabled = 0;
  CH02_OP02_VIEW->Enabled = 0;
  CH02_OP02_PLAY->Enabled = 0;
}
//---------------------------------------------------------------------------
void __fastcall TOptionForm::CH02_OP02Click(TObject *Sender)
{
  CH02_OP02_ADD->Enabled = 1;
  CH02_OP02_VIEW->Enabled = 1;
  CH02_OP02_PLAY->Enabled = 1;
}
//---------------------------------------------------------------------------
void __fastcall TOptionForm::OKClick(TObject *Sender)
{
 MainForm->UseAutoCopy=CH01->Checked;
 if(CH02_OP01->Checked) MainForm->RingFile="SYSTEMBEEP";
 else MainForm->RingFile=CH02_OP02_ADD->Text;
 MainForm->UseRing = CH02->Checked;
 MainForm->UseAutoRelink = CH00->Checked;
 MainForm->Hotkey = HotKey->HotKey;
 MainForm->RegHotkey();
 Close();
}
//---------------------------------------------------------------------------
void __fastcall TOptionForm::CANCELClick(TObject *Sender)
{
 Close();        
}
//---------------------------------------------------------------------------
void __fastcall TOptionForm::CH02_OP02_VIEWClick(TObject *Sender)
{
 if(OpenDialog->Execute())
  CH02_OP02_ADD->Text = OpenDialog->FileName;
}
//---------------------------------------------------------------------------

void __fastcall TOptionForm::CH02_OP02_PLAYClick(TObject *Sender)
{
 if(FileExists(CH02_OP02_ADD->Text)) PlaySound(CH02_OP02_ADD->Text.c_str(),NULL,SND_ASYNC);
}
//---------------------------------------------------------------------------