u_add.cpp

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

//--------------  u_add  -------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "u_add.h"
#include "u_main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmAdd *frmAdd;
struct person_struct
{
  String name;
  int year;
};
extern person_struct person[];
extern int tot;
//---------------------------------------------------------------------------
__fastcall TfrmAdd::TfrmAdd(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmAdd::FormActivate(TObject *Sender)
{
  if(tot==0)
    lblHead->Caption="材 1 掸";
  else
    lblHead->Caption="材 "+IntToStr(tot+1)+" 掸";
  }
//---------------------------------------------------------------------------
void __fastcall TfrmAdd::btnOkClick(TObject *Sender)
{
  tot++;
  person[tot-1].name=edtName->Text;
  person[tot-1].year=StrToInt(edtBirth->Text);
  lblHead->Caption="材 "+IntToStr(tot+1)+" 掸";
  edtName->Text="";
  edtBirth->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TfrmAdd::btnExitClick(TObject *Sender)
{
  frmAdd->Hide();
  frmMain->Show();
}
//---------------------------------------------------------------------------