teainfo.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include<stdio.h>
#include "TeaInfo.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;

//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm4::Button1Click(TObject *Sender)
{


  if(this->Edit1->Text.Length() !=10||this->Edit2->Text.IsEmpty())
  ShowMessage("帐号或其他不正确，请输入正确信息");
  else
  {
     int n=0;
     int i=0;
     Person *New=NewTeacher();
     Person *old=NewTeacher(this->Edit2->Text,StrToInt(this->Edit5->Text),this->RadioButton1->Checked);
     old->SetAddress(this->Edit4->Text );
     old->SetPhone(this->Edit3->Text);
     old->SetNO(this->Edit1->Text);
     old->SetCourse(this->Edit6->Text );
     old->SetDegree(this->Edit7->Text ) ;
      FILE *fp=NULL;
     if(this->flag==1)
         fp=fopen("e:\\c\\teacher","rb+");
     else
         fp=fopen("e:\\c\\manager","rb+");
     if(fp==NULL) ShowMessage("不明错误");
     else
     {

       while (!feof(fp))
       {
          New->Read(fp);  //Tread(fp,New);
          n++;
          if(New->GetNO() ==old->GetNO() )
          {
            i=1;
            ShowMessage("finded");
            break;
          }
       }
       if(i==1)
       {
         fseek(fp,(n-1)*sizeof(char[131]),SEEK_SET);
         old->Write(fp); //Twrite(fp,old);
         ShowMessage("有记录，更新保存成功");
       }
       else
       {
         old->Write(fp);  //Twrite(fp,old);
          ShowMessage("保存成功!!");

       }

     }
     fclose(fp);
      delete New;
      delete old;
  }


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

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