team.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "TeaM.h"
#include "Unit6.h"
#include"TeaInfo.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm9 *Form9;
//---------------------------------------------------------------------------
__fastcall TForm9::TForm9(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm9::Label6Click(TObject *Sender)
{
   TForm4 * form4 =new TForm4(this);
   form4->flag=1;
   form4->Edit1->ReadOnly=1;
   form4->Edit2->ReadOnly=1;
   form4->Edit4->Text=this->lander->GetAddress();
   form4->Edit3->Text=this->lander->GetPhone();
   form4->Edit1->Text=this->lander->GetNO();
   form4->Edit6->Text =this->lander->GetCourse();
   form4->Edit7->Text =this->lander->GetDegree() ;
   form4->Edit2->Text=this->lander->GetName();
   form4->Edit5->Text=this->lander->GetAge();
   form4->RadioButton1->Checked=this->lander->GetSex();
   if(form4->RadioButton1->Checked!=1)
       form4->RadioButton2->Checked=1;
   form4->ShowModal();
   delete form4;

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

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



void __fastcall TForm9::Label5Click(TObject *Sender)
{
    TForm6 *form6=new TForm6(this);
    form6->ShowModal();
    delete form6;
}
//---------------------------------------------------------------------------