stum.~cpp

以学生本班的成绩管理为应用、开发一个小小和成绩管理系统。设计了如下类： Person 、Student、Teacher、Credit。利用builder的可视化编程.

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

#include <vcl.h>
#pragma hdrstop
 #include"StuInfo.h"
 #include "Unit6.h"
#include "StuM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------





void __fastcall TForm2::Label6Click(TObject *Sender)
{
   TForm8 *form8 =new TForm8(this);
   form8->Edit1->ReadOnly=1;
   form8->Edit2->ReadOnly=1;
   form8->Edit1->Text=this->lander->GetName();
   form8->Edit2->Text=this->lander->GetNO();
   form8->Edit3->Text=this->lander->GetClass();
   form8->Edit4->Text=this->lander->GetPhone();
   form8->Edit5->Text=this->lander->GetAddress();
   form8->Edit6->Text=this->lander->GetAge();
   form8->RadioButton1->Checked=this->lander->GetSex();
   if(form8->RadioButton1->Checked!=1)
      form8->RadioButton2->Checked=1;
   form8->ShowModal();
   delete  form8;
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Label7Click(TObject *Sender)
{
   this->Close();
}
//---------------------------------------------------------------------------


void __fastcall TForm2::Label5Click(TObject *Sender)
{
   TForm6 *form6 =new TForm6(this);
    form6->Label4->Visible=0;
    form6->Label6->Visible=0;
    form6->Edit5->Visible=0;
    form6->Button1->Visible=0;
    form6->Button2->Visible=0;
    form6->Label5->Caption="查看的科目" ;
    form6->Edit1->ReadOnly=1;
    form6->Button4->Visible=1;
    form6->Edit1->Text=this->lander->GetNO();
    form6->Edit2->Text=this->lander->GetName();
    form6->Edit3->Text=this->lander->GetClass();
    form6->ShowModal();
    delete form6;
}
//---------------------------------------------------------------------------