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

#include <vcl.h>
#pragma hdrstop

#include "main.h"
#include "DataConnection.h"  //SQL Server數據庫服務器窗體頭文件

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::MaskEdit1Change(TObject *Sender)
{   /*****個人信息管理標簽頁上學號屏蔽輸入框OnChange事件*****/
    //輸入學號ONChange事件
    if(!MaskEdit1->Text.IsEmpty()){ //MaskEdit1內容為空不觸發
    ADOTable1->Filter = "student_ID="+MaskEdit1->Text;   //設置學號過濾器
    ADOTable1->Filtered = true;                               //激活過濾器
    ADOTable1->Active = true;   //激活與SQL Server數據庫的連接
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::TabSheet1Enter(TObject *Sender)
{   /*****個人信息管理標簽頁OnEnter事件*****/
    DBNavigator1->DataSource = DBGrid1->DataSource;  //指向當前DBGrid1的DataSource
    StatusBar1->SimpleText = "學生個人信息輸入、查詢、修改和刪除窗口";
    StatusBar1->SimplePanel = true;
    DBGrid1->Columns->Items[0]->Width = 60;    //設置6個數據字段的列寬
    DBGrid1->Columns->Items[1]->Width = 60;
    DBGrid1->Columns->Items[2]->Width = 60;
    DBGrid1->Columns->Items[3]->Width = 30;
    DBGrid1->Columns->Items[4]->Width = 80;
    DBGrid1->Columns->Items[5]->Width = 80;
    DBGrid1->Columns->Items[6]->Width = 160;
    //Columns[0].Visible = true;
    //Columns
    //    DBGrid1->
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ModifyClick(TObject *Sender)
{   /*****個人信息管理標簽頁上修改按鈕單擊事件*****/
    ADOTable1->Post();     //確認對個人學生信息的修改
}
//---------------------------------------------------------------------------

void __fastcall TForm1::CancelClick(TObject *Sender)
{   /*****個人信息管理標簽頁上取消按鈕單擊事件*****/
    ADOTable1->Cancel();   //取消對個人學生信息的修改
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormShow(TObject *Sender)
{   /*****主窗體OnShow事件*****/
    Form2->ShowModal();
}
//---------------------------------------------------------------------------


void __fastcall TForm1::MaskEdit2Change(TObject *Sender)
{   /*****選課信息管理標簽頁上學號屏蔽輸入框OnChange事件*****/
    if(!MaskEdit2->Text.IsEmpty()){ //MaskEdit內容為空不觸發
    ADOTable1->Filter = "student_ID="+MaskEdit2->Text;//設置個人信息表學號過濾器
    ADOTable1->Filtered = true;                            //激活過濾器
    ADOTable3->Filter ="course_ID="+MaskEdit2->Text; //設置選課信息表學號過濾器
    ADOTable3->Filtered = true;                            //激活過濾器
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::TabSheet2Enter(TObject *Sender)
{ /*****選課信息管理標簽頁OnEnter事件*****/
  DBNavigator1->DataSource = DBGrid3->DataSource; //指向當前DBGrid3的DataSource
  ADOTable1->Active = true;        //激活與SQL Server數據庫學生個人信息表的連接
  StatusBar1->SimpleText = "學生個人選課、退課和查詢窗口"; //狀態欄內容
  StatusBar1->SimplePanel = true;               //顯示狀態欄內容
}
//---------------------------------------------------------------------------

void __fastcall TForm1::TabSheet3Enter(TObject *Sender)
{ /*****獎勵信息管理標簽頁OnEnter事件*****/
  DBNavigator1->DataSource = DBGrid4->DataSource; //指向當前DBGrid3的DataSource
  StatusBar1->SimpleText = "個人獎勵信息查詢、增加、修改和刪除窗口"; //狀態欄內容
  StatusBar1->SimplePanel = true;               //顯示狀態欄內容
}
//---------------------------------------------------------------------------

void __fastcall TForm1::MaskEdit3Change(TObject *Sender)
{   /*****獎勵信息管理標簽頁上學號屏蔽輸入框OnChange事件*****/
    if(!MaskEdit3->Text.IsEmpty()){ //MaskEdit內容為空不觸發
    ADOTable1->Filter = "student_ID="+MaskEdit3->Text;  //設置個人信息學號過濾器
    ADOTable1->Filtered = true;                            //激活過濾器
    ADOTable4->Filter = "gcheck_No="+MaskEdit3->Text;   //設置獎勵信息數據表的學號過濾器
    ADOTable4->Filtered = true;                            //激活過濾器
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{   /*****獎勵信息管理標簽頁上增加按鈕單擊事件*****/
    int gcheck_ID;              //定義獎勵信息記錄號變量
    ADOT_Count->First();        //設定計數表活動記錄為第一條記錄
    ADOT_Count->MoveBy(1);      //當前活動記錄為第二條記錄
    gcheck_ID = ADOT_Count->FieldByName("count_Value")->AsInteger; //取得honour記錄號的值
    gcheck_ID+=1;    //記錄號加1
    if(!Edit4->Text.IsEmpty()) { //獲項名稱不為空
      ADOTable4->Insert();       //插入一條記錄
      ADOTable4->FieldByName("gcheck_ID")->AsInteger = gcheck_ID; //記錄號
      ADOTable4->FieldByName("gcheck_No")->AsInteger = MaskEdit3->Text.ToInt(); //學號
      ADOTable4->FieldByName("gcheck_Time")->Value = StrToDate(Edit1->Text+'-'+Edit2->Text+'-'+Edit3->Text); //獲獎時間
      ADOTable4->FieldByName("gcheck_Title")->Value = Edit4->Text; //獲獎內容
      ADOTable4->Post();
      ADOT_Count->Edit();  //設置計數表為可編輯
      ADOT_Count->FieldByName("count_Value")->AsInteger = gcheck_ID;  //course記錄號加1存入數據表
      ADOT_Count->Post();  //執行編輯操作
      }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{   /*****選課按鈕單擊事件*****/
    int count_ID;              //定義選課信息記錄號變量
//    ADOT_Count->RecNo = 1;     //設定計數表指針指向第一條記錄
    ADOT_Count->First();       //設定計數表活動記錄為第一條記錄
//    ADOT_Count->MoveBy(1);
    count_ID = ADOT_Count->FieldByName("count_Value")->AsInteger; //取得course記錄號的值
    count_ID+=1;      //記錄號加1
    ADOTable3->Insert();       //插入一條記錄
    ADOTable3->FieldByName("count_ID")->AsInteger = count_ID; //選課信息記錄號
    ADOTable3->FieldByName("course_ID")->AsInteger = MaskEdit2->Text.ToInt(); //先課人學號
    ADOTable3->FieldByName("course_Name")->AsString = ADOTable1->FieldByName("student_Name")->AsString; //選課人姓名
    ADOTable3->FieldByName("course_No")->AsInteger = ADOTable2->FieldByName("course_Code")->AsInteger ; //所選課程代碼
    ADOTable3->Post(); //執行插入操作
    ADOT_Count->Edit();  //設置計數表為可編輯
    ADOT_Count->FieldByName("count_Value")->AsInteger = count_ID; //course記錄號加1存入數據表
    ADOT_Count->Post();  //執行編輯操作
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{   /*****退課按鈕單擊事件*****/
    ADOTable3->Delete();  //刪除一條當前激活記錄
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{   /*****獎勵信息管理標簽頁上取消按鈕單擊事件*****/
    ADOTable4->Cancel();  //取消對數據表的修改操作
}
//---------------------------------------------------------------------------