teaseach.~cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include"TeaInfo.h"
#include "TeaSeach.h"
#include "TPerson.h"
#include <stdio.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm5::Button4Click(TObject *Sender)
{
   TForm4 * form4=new TForm4(this);
   if(this->flag==1)
     form4->flag=1;
     else form4->flag=0;
   form4->ShowModal() ;
   delete form4;
}
//---------------------------------------------------------------------------

void __fastcall TForm5::Button3Click(TObject *Sender)
{
     if(this->Edit1->Text.Length()!=10)
       ShowMessage("帐号错误，请重新输入");
       else
       {
         Person *t=NewTeacher();
         FILE *fp=NULL;
         if(this->flag==1)
         {
            fp=fopen("e:\\c\\teacher","r");
         }
         else
         {
            fp=fopen("e:\\c\\manager","r");
         }
         if(fp==NULL)
            ShowMessage("不明错误！！");
            else
            {
               int i=0;
               while(!feof(fp))
               {
                 t->Read(fp);
                 if(t->GetNO()==this->Edit1->Text)
                 {
                   i=1;
                   break;
                 }
               }
               if(i==1)
               {
                   TForm4 * form4=new TForm4(this);
                   form4->Edit1->Text=t->GetNO();
                   form4->Edit2->Text=t->GetName();
                   form4->Edit3->Text=t->GetPhone();
                   form4->Edit4->Text=t->GetAddress();
                   form4->Edit5->Text=t->GetAge();
                   form4->Edit6->Text=t->GetCourse();
                   form4->RadioButton1->Checked=t->GetSex();
                   if(form4->RadioButton1->Checked)
                        form4->RadioButton2->Checked=1;
                   form4->Edit7->Text=t->GetDegree();
                   form4->ShowModal() ;
                   delete form4;
               }
               else
               {
                  ShowMessage("没有该帐号，请重新输入！");
               }
               fclose(fp);

            }
            delete t;

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




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

void __fastcall TForm5::Button1Click(TObject *Sender)
{
  FILE *fp=NULL;
  if(this->flag ==1)
   fp=fopen("e:\\c\\teacher","r");
   else
    fp= fopen("e:\\c\\manager","r");

   Person *t=NewTeacher();
   Person *old=NewTeacher();
   this->Memo1->Clear();
   if(fp==NULL) ShowMessage("不明错误");
   else
   {
       while(!feof(fp))
       {
        t->Read(fp);
        if(
           this->Memo1->Lines->Add("姓名:"+t->GetName()+"  学号:"+t->GetNO()+"  课程:"+t->GetCourse()+"  学位:"+t->GetDegree()+"  电话:"+t->GetPhone()+"  年龄:"+t->GetAge()+"  性别：男  地址："+t->GetAddress());
        else  this->Memo1->Lines->Add("姓名:"+t->GetName()+"  学号:"+t->GetNO()+"  课程:"+t->GetCourse()+"  学位:"+t->GetDegree()+"  电话:"+t->GetPhone()+"  年龄:"+t->GetAge()+"  性别：女  地址："+t->GetAddress());
       this->Memo1->Lines->Add("");
       old->SetName(t->GetName());
       }

   }
    delete t;
    fclose(fp);
}
//---------------------------------------------------------------------------