maincrs.cpp

学生选课管理信息系统原码

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

#include <vcl.h>
#pragma hdrstop

#include "MainCRS.h"
#include "Certify.h"
#include "MngQuery.h"
#include "StudentQuery.h"

#include "DataUnit.h"
#include "SltCourse.h"
#include "DataManager.h"
#include "Producer.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ExitBtnClick(TObject *Sender)
{
  Close() ;        
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::QueryBtnClick(TObject *Sender)
{
  TCertifyDlg *CertifyDlg = new TCertifyDlg(this) ;
  CertifyDlg->Label3->Visible = false ;
  CertifyDlg->TermComboBox->Visible = false ;
  if(CertifyDlg->ShowModal() == mrOk)
  {
    if(CertifyDlg->RadioGroup1->ItemIndex == 0)
    {
      //进入教务查询窗口
      TMngQryForm *MngQryForm = new TMngQryForm(this) ;
      MngQryForm->m_strManagerName = CertifyDlg->UserEdt->Text ;
      MngQryForm->ShowModal() ;
      delete MngQryForm ;
    }
    else
    {
      //进入学生查询窗口
      TStuQryForm *StuQryForm = new TStuQryForm(this) ;
      StuQryForm->m_strStudentNo = CertifyDlg->UserEdt->Text ;
      StuQryForm->m_strName = CertifyDlg->m_strStuName ;
      StuQryForm->ShowModal() ;
      delete StuQryForm ;
    }
  }
  delete CertifyDlg ;        
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::DataManagBtnClick(TObject *Sender)
{
  TCertifyDlg *CertifyDlg = new TCertifyDlg(this) ;
  CertifyDlg->RadioGroup1->Enabled = false ;
  CertifyDlg->Label3->Visible = false ;
  CertifyDlg->TermComboBox->Visible = false ;
  if(CertifyDlg->ShowModal() == mrOk )
  {
    //进入系统管理窗口
    TDataManagerForm *DataManagerForm = new TDataManagerForm(this) ;
    DataManagerForm->ShowModal() ;
    delete DataManagerForm ;
  }
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::SelCourseBtnClick(TObject *Sender)
{
  TCertifyDlg *CertifyDlg = new TCertifyDlg(this) ;
  CertifyDlg->RadioGroup1->ItemIndex = 1 ;
  CertifyDlg->RadioGroup1->Enabled = false ;
  if(CertifyDlg->ShowModal() == mrOk )
  {
    //进入学生选课窗口
    TSltCourseForm *SltCourseForm = new TSltCourseForm(this) ;
    SltCourseForm->m_strStudentNo = CertifyDlg->UserEdt->Text ;
    SltCourseForm->m_strName = CertifyDlg->m_strStuName ;
    SltCourseForm->m_strTerm = CertifyDlg->TermComboBox->Text ;
    SltCourseForm->ShowModal() ;
    delete SltCourseForm ;
  }
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::ProducerBtnClick(TObject *Sender)
{
  //进入关于(CRS)窗口
  TProducerForm *ProducerForm = new TProducerForm(this) ;
  ProducerForm->ShowModal() ;
  delete ProducerForm ;
}
//---------------------------------------------------------------------------