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

#include <vcl.h>
#pragma hdrstop

#include "SelCourse.h"
#include "DataUnit.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSelectCourseDlg *SelectCourseDlg;
//---------------------------------------------------------------------------
__fastcall TSelectCourseDlg::TSelectCourseDlg(TComponent* Owner)
        : TForm(Owner)
{
  m_strSelCourse = "" ;
  m_strSelCourseNo = "" ;
}
//---------------------------------------------------------------------------
void __fastcall TSelectCourseDlg::FormCreate(TObject *Sender)
{
  AnsiString queryString = "Select CourseNo,CourseName from Course" ;
  DataMod->SelCourseNameQuery->SQL->Clear() ;
  DataMod->SelCourseNameQuery->SQL->Add(queryString) ;
  DataMod->SelCourseNameQuery->ExecSQL() ;
  DataMod->SelCourseNameQuery->Active = True ;
  DataMod->SelCourseNameQuery->FieldByName("CourseNo")->DisplayLabel ="課程號" ;
  DataMod->SelCourseNameQuery->FieldByName("CourseName")->DisplayLabel ="課程名稱" ;
}
//---------------------------------------------------------------------------

void __fastcall TSelectCourseDlg::OKBtnClick(TObject *Sender)
{
  m_strSelCourseNo = DataMod->SelCourseNameQuery->FieldValues["CourseNo"] ;
  m_strSelCourse = DataMod->SelCourseNameQuery->FieldValues["CourseName"] ;
}
//---------------------------------------------------------------------------