main.cpp

学生信息管理系统

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

#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();  //取消对数据表的修改操作
}
//---------------------------------------------------------------------------