info.~cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include "TPerson.h"
#include<stdio.h>
#include "Info.h"
#include"TeaM.h"
#include "StuM.h"
#include "ManageM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Label5Click(TObject *Sender)
{

    if(this->Edit1->Text.Length()!=10)
    ShowMessage("请填入正确的帐号");
    else
    {
     FILE *fp;
     Person *t=NewStudent();
     fp=fopen("e:\\c\\student","r");
     if(fp==NULL)
         ShowMessage("无法打开文件");
      else
      {
         int b=0;
         while(!feof(fp) )
         {
             t->Read(fp);

             //ShowMessage(str);
            if(this->Edit1->Text==t->GetNO())
            {
               fclose(fp);
               TForm2 * form2=new TForm2(this);
               form2->Edit1->Text=t->GetName();
               form2->Edit2->Text=t->GetNO();
               form2->Edit3->Text=t->GetClass();
               form2->lander=t;
               form2->ShowModal();
               delete form2;
                b=1;
               break;
            }

         }

         if(b==0)
         {
          fclose(fp);
           ShowMessage("你的帐号错误，请重新输入!");
         }
      }
      delete t;
    }

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

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






void __fastcall TForm1::Label8Click(TObject *Sender)
{
    if(this->Edit1->Text.Length()!=10)
    ShowMessage("请填入正确的帐号");
    else
    {
     FILE *fp;
     Person *t=NewTeacher();
     fp=fopen("e:\\c\\manager","r");
     if(fp==NULL)
         ShowMessage("无法打开文件");
      else
      {
         char str[11];
          int b=0;
         while(!feof(fp) )
         {
             t->Read(fp);

             //ShowMessage(str);
            if(this->Edit1->Text==t->GetNO())
            {
                fclose(fp);
               TForm3 *form3=new TForm3(this);
               form3->Edit2->Text=t->GetNO();
               form3->Edit1->Text=t->GetName();
               form3->ShowModal();
               delete form3;
                b=1;
               break;
            }

         }

         if(b==0)
         {
          fclose(fp);
           ShowMessage("你的帐号错误，请重新输入!");
         }
      }
    }
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Label4Click(TObject *Sender)
{


   if(this->Edit1->Text.Length()!=10)
    ShowMessage("请填入正确的帐号");
    else
    {
     FILE *fp;
     Person *t=NewTeacher();
     fp=fopen("e:\\c\\teacher","r");
     if(fp==NULL)
         ShowMessage("未知的错误");
      else
      {
         int b=0;
         while(!feof(fp) )
         {
             t->Read(fp);

             //ShowMessage(str);
            if(this->Edit1->Text==t->GetNO())
            {
               fclose(fp);
               TForm9 * form9=new TForm9(this);
               form9->Edit1->Text=t->GetName();
               form9->Edit2->Text=t->GetNO();
               form9->Edit3->Text=t->GetCourse();
               form9->Edit4->Text=t->GetDegree();
               form9->lander=t;
               form9->ShowModal();
               delete form9;
                b=1;
               break;
            }

         }

         if(b==0)
         {
          fclose(fp);
           ShowMessage("你的帐号错误，请重新输入!");
         }
      }
      delete t;
    }
}
//---------------------------------------------------------------------------




void __fastcall TForm1::Button1Click(TObject *Sender)
{
 if(this->Edit1->Text.Length()!=10)
    ShowMessage("请填入正确的帐号");
    else
    {
     FILE *fp;
     Person *t=NewTeacher();
     fp=fopen("e:\\c\\manager","r");
     if(fp==NULL)
         ShowMessage("无法打开文件");
      else
      {
         char str[11];
          int b=0;
         while(!feof(fp) )
         {
             t->Read(fp);

             //ShowMessage(str);
            if(this->Edit1->Text==t->GetNO())
            {
                fclose(fp);
               TForm3 *form3=new TForm3(this);
               form3->Edit2->Text=t->GetNO();
               form3->Edit1->Text=t->GetName();
               form3->ShowModal();
               delete form3;
                b=1;
               break;
            }

         }

         if(b==0)
         {
          fclose(fp);
           ShowMessage("你的帐号错误，请重新输入!");
         }
      }
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
   if(this->Edit1->Text.Length()!=10)
    ShowMessage("请填入正确的帐号");
    else
    {
     FILE *fp;
     Person *t=NewTeacher();
     fp=fopen("e:\\c\\teacher","r");
     if(fp==NULL)
         ShowMessage("未知的错误");
      else
      {
         int b=0;
         while(!feof(fp) )
         {
             t->Read(fp);

             //ShowMessage(str);
            if(this->Edit1->Text==t->GetNO())
            {
               fclose(fp);
               TForm9 * form9=new TForm9(this);
               form9->Edit1->Text=t->GetName();
               form9->Edit2->Text=t->GetNO();
               form9->Edit3->Text=t->GetCourse();
               form9->Edit4->Text=t->GetDegree();
               form9->lander=t;
               form9->ShowModal();
               delete form9;
                b=1;
               break;
            }

         }

         if(b==0)
         {
          fclose(fp);
           ShowMessage("你的帐号错误，请重新输入!");
         }
      }
      delete t;
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
   if(this->Edit1->Text.Length()!=10)
    ShowMessage("请填入正确的帐号");
    else
    {
     FILE *fp;
     Person *t=NewStudent();
     fp=fopen("e:\\c\\student","r");
     if(fp==NULL)
         ShowMessage("无法打开文件");
      else
      {
         int b=0;
         while(!feof(fp) )
         {
             t->Read(fp);

             //ShowMessage(str);
            if(this->Edit1->Text==t->GetNO())
            {
               fclose(fp);
               TForm2 * form2=new TForm2(this);
               form2->Edit1->Text=t->GetName();
               form2->Edit2->Text=t->GetNO();
               form2->Edit3->Text=t->GetClass();
               form2->lander=t;
               form2->ShowModal();
               delete form2;
                b=1;
               break;
            }

         }

         if(b==0)
         {
          fclose(fp);
           ShowMessage("你的帐号错误，请重新输入!");
         }
      }
      delete t;
    }
        
}
//---------------------------------------------------------------------------




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