unit4.cpp

来自「第一次尝试开发数据库方面的系统」· C++ 代码 · 共 42 行

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

#include <vcl.h>
#pragma hdrstop

#include "Unit4.h"
#include "Unit5.h"
#include "time.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm4 *Form4;
//---------------------------------------------------------------------------
__fastcall TForm4::TForm4(TComponent* Owner)
  : TForm(Owner)
{

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

void __fastcall TForm4::FormShow(TObject *Sender)
{
  for(int i=0;i<this->ComponentCount;i++)
  {
    if(AnsiString(this->Components[i]->ClassName())=="TDBEdit"||AnsiString(this->Components[i]->ClassName())=="TDBImage")
    {
      dynamic_cast<TDBEdit *>(this->Components[i])->Text=="";
      dynamic_cast<TDBImage *>(this->Components[i])=="";
    }
  }
}
//---------------------------------------------------------------------------



void __fastcall TForm4::FormCreate(TObject *Sender)
{
  Label3->Caption=DateTimeToStr(TDateTime::CurrentDate());
}
//---------------------------------------------------------------------------