unit1.cpp

数据库管理

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TForm2*ChildForm;
   ChildForm=new TForm2(this);
   ChildForm->Caption="学生管理";
   ChildForm->Show();

}
//---------------------------------------------------------------------------


//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
     Form1->Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
   TForm3*ChildForm;
   ChildForm=new TForm3(this);
   ChildForm->Caption="成绩管理";
   ChildForm->Show();

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{
    TForm4*ChildForm;
    ChildForm=new TForm4(this);
    ChildForm->Caption="活动类型设置";
    ChildForm->Show();

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button5Click(TObject *Sender)
{
    TForm5*ChildForm;
    ChildForm=new TForm5(this);
    ChildForm->Caption="活动成绩查询";
    ChildForm->Show();
    if(ChildForm->Table1->Active==false)
       ChildForm->Table1->Open();
       ChildForm->Table1->First();
   while(!(ChildForm->Table1->Eof))
    {
      ChildForm->Table1->Edit();
      ChildForm->Table1->FieldByName("实际得分")->Value=(ChildForm->Table1->FieldByName("得分")->Value)*(ChildForm->Table1->FieldByName("分值")->Value);
      ChildForm->Table1->Post();
      ChildForm->Table1->Next();
    }
    ChildForm->Table1->First();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button6Click(TObject *Sender)
{
   TForm6*ChildForm;
   ChildForm=new TForm6(this);
   ChildForm->Caption="英语成绩曲线";
   ChildForm->Show();
}
//---------------------------------------------------------------------------