stusearch.cpp

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

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

#include <vcl.h>
#pragma hdrstop
#include"TPerson.h"
#include"StuInfo.h"
#include "Stusearch.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm7 *Form7;
//---------------------------------------------------------------------------
__fastcall TForm7::TForm7(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button1Click(TObject *Sender)
{
    FILE *fp=NULL;
    fp= fopen("e:\\c\\student","r");
    Person *t=NewStudent();
    this->Memo1->Clear();
    if(fp==NULL) ShowMessage("不明错误");
    else
    {
      while(!feof(fp))
      {
        t->Read(fp);
          if(t->GetName().Length()>3){
           if(t->GetSex())
                this->Memo1->Lines->Add("姓名:"+t->GetName()+"  学号:"+t->GetNO()+"  班级:"+t->GetClass()+"  电话:"+t->GetPhone()+"  年龄:"+t->GetAge()+"  性别：男  地址："+t->GetAddress());
           else  this->Memo1->Lines->Add("姓名:"+t->GetName()+"  学号:"+t->GetNO()+"  班级:"+t->GetCourse()+"  电话:"+t->GetPhone()+"  年龄:"+t->GetAge()+"  性别：女  地址："+t->GetAddress());
           this->Memo1->Lines->Add("");
          }
       }

    }
    delete t;
    fclose(fp);
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button3Click(TObject *Sender)
{
  this->Close();        
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button2Click(TObject *Sender)
{
       if(this->Edit1->Text.Length()!=10)
       ShowMessage("帐号错误，请重新输入");
       else
       {
         Person *t=NewStudent();
         FILE *fp=NULL;
         fp=fopen("e:\\c\\student","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)
               {
                   TForm8 * form8=new TForm8(this);
                   form8->Edit2->Text=t->GetNO();
                   form8->Edit1->Text=t->GetName();
                   form8->Edit3->Text=t->GetClass();
                   form8->Edit4->Text=t->GetPhone();
                   form8->Edit5->Text=t->GetAddress();
                   form8->Edit6->Text=t->GetAge();
                   form8->RadioButton1->Checked=t->GetSex();
                   if(t->GetSex())
                        form8->RadioButton2->Checked=1;
                   form8->ShowModal() ;
                   delete form8;
               }
               else
               {
                  ShowMessage("没有该帐号，请重新输入！");
               }
               fclose(fp);

            }
            delete t;

       }
}
//---------------------------------------------------------------------------
void __fastcall TForm7::Button4Click(TObject *Sender)
{
 TForm8 * form8=new TForm8(this);
   form8->ShowModal() ;
   delete form8;
}
//---------------------------------------------------------------------------