unit_logform.cpp

这是一个采用bcb写的vod

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

#include <vcl.h>
#pragma hdrstop

#include "Unit_LogForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmInput *frmInput;
extern TDateTime dtInstallDate;
//---------------------------------------------------------------------------
__fastcall TfrmInput::TfrmInput(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmInput::Button1Click(TObject *Sender)
{
   try
   {
      ModalResult = mrOk;
   }catch(...){
      MessageBox(NULL, "输入的格式不正确", "错误", MB_OK);
      edtInput->Clear();
      edtInput->SetFocus();
   }
}
//---------------------------------------------------------------------------
void __fastcall TfrmInput::Button2Click(TObject *Sender)
{
   dtInstallDate = 0;
   ModalResult = mrCancel;
}
//---------------------------------------------------------------------------
void __fastcall TfrmInput::FormCreate(TObject *Sender)
{
   dtInstallDate = Date();
   edtInput->Text = FormatDateTime("yyyy-mm-dd", dtInstallDate + 0.125);
}
//---------------------------------------------------------------------------