unit_gqlbform.cpp

来自「中文词性标注子程序第一步」· C++ 代码 · 共 110 行

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

#include <vcl.h>
#pragma hdrstop

#include "Unit_GQLBForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmGQLB *frmGQLB;
extern AnsiString strGL;
extern int iForms;
//---------------------------------------------------------------------------
__fastcall TfrmGQLB::TfrmGQLB(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmGQLB::lblSelectedManClick(TObject *Sender)
{
    strGL = "美声";
    Dm->adoGQLB->Close();
    Dm->adoGQLB->SQL->Text = "select gm from song where qz = '" + strGL +"'";
    Dm->adoGQLB->Open();
    this->Visible = false;
    frmPYXZ->Visible = true;
}
//---------------------------------------------------------------------------
void __fastcall TfrmGQLB::lblSelectWomanClick(TObject *Sender)
{
   strGL = "民歌";
   Dm->adoGQLB->Close();
   Dm->adoGQLB->SQL->Text = "select gm from song where qz = '" + strGL +"'";
   Dm->adoGQLB->Open();
   this->Visible = false;
   frmPYXZ->Visible = true;

}
//---------------------------------------------------------------------------
void __fastcall TfrmGQLB::Label23Click(TObject *Sender)
{
   strGL = "民族";
   Dm->adoGQLB->Close();
   Dm->adoGQLB->SQL->Text = "select gm from song where qz = '" + strGL +"'";
   Dm->adoGQLB->Open();
   this->Visible = false;
   frmPYXZ->Visible = true;

}
//---------------------------------------------------------------------------
void __fastcall TfrmGQLB::lblSelectOtherClick(TObject *Sender)
{
   strGL = "通俗";
   Dm->adoGQLB->Close();
   Dm->adoGQLB->SQL->Text = "select gm from song where qz = '" + strGL +"'";
   Dm->adoGQLB->Open();
   this->Visible = false;
   frmPYXZ->Visible = true;

}
//---------------------------------------------------------------------------
void __fastcall TfrmGQLB::Label15Click(TObject *Sender)
{
   strGL = "外国民歌";
   Dm->adoGQLB->Close();
   Dm->adoGQLB->SQL->Text = "select gm from song where qz = '" + strGL +"'";
   Dm->adoGQLB->Open();
   this->Visible = false;
   frmPYXZ->Visible = true;

}
//---------------------------------------------------------------------------
void __fastcall TfrmGQLB::Label17Click(TObject *Sender)
{
   strGL = "现代京剧";
   Dm->adoGQLB->Close();
   Dm->adoGQLB->SQL->Text = "select gm from song where qz = '" + strGL +"'";
   Dm->adoGQLB->Open();
   this->Visible = false;
   frmPYXZ->Visible = true;
}
//---------------------------------------------------------------------------
void __fastcall TfrmGQLB::Label20Click(TObject *Sender)
{
   strGL = "戏剧";
   Dm->adoGQLB->Close();
   Dm->adoGQLB->SQL->Text = "select gm from song where qz = '" + strGL +"'";
   Dm->adoGQLB->Open();
   this->Visible = false;
   frmPYXZ->Visible = true;
}
//---------------------------------------------------------------------------
void __fastcall TfrmGQLB::lblHomeClick(TObject *Sender)
{
   this->Visible = false;
   frmHome->Visible = true;
}
//---------------------------------------------------------------------------
void __fastcall TfrmGQLB::lblSelectedClick(TObject *Sender)
{
   this->Visible = false;
   frmBFLB->Visible = true;
}
//---------------------------------------------------------------------------
void __fastcall TfrmGQLB::FormActivate(TObject *Sender)
{
   iForms = 3;
}
//---------------------------------------------------------------------------