u14_3_1.cpp

C++Builde5程序设计—基础教学篇程序源代码1。

//----------------  u14_3_1  -----------------------------------------------------------
#include <stdio.h>
#include <vcl.h>
#pragma hdrstop
#include "U14_3_1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Tf14_3_1 *f14_3_1;
//---------------------------------------------------------------------------
__fastcall Tf14_3_1::Tf14_3_1(TComponent* Owner)
    : TForm(Owner)
{
}
//------------  u14_3_1  --------------------------------------
FILE *outf;
void __fastcall Tf14_3_1::FormCreate(TObject *Sender)
{
  outf=fopen("a:\\ch14\\student.sco","w");
}
//---------------------------------------------------------------------------
void __fastcall Tf14_3_1::btmNextClick(TObject *Sender)
{
  String s_name;
  int chi,eng,math;
  s_name=edtName->Text;
  chi=StrToInt(edtChinese->Text);
  eng=StrToInt(edtEnglish->Text);
  math=StrToInt(edtMath->Text);
  fprintf(outf," %s %d %d %d",s_name,chi,eng,math);
  edtName->Text="";      edtChinese->Text="";
  edtEnglish->Text="";   edtMath->Text="";
}
//---------------------------------------------------------------------------
void __fastcall Tf14_3_1::btmEndClick(TObject *Sender)
{
  String s_name;
  int chi,eng,math;
  if (edtName->Text != "")
  {
    s_name=edtName->Text;
    chi=StrToInt(edtChinese->Text);
    eng=StrToInt(edtEnglish->Text);
    math=StrToInt(edtMath->Text);
    fprintf(outf," %s %d %d %d",s_name,chi,eng,math);
  }
  fclose(outf);
  Close();
}
//---------------------------------------------------------------------------