www.pudn.com > vod2007.rar > Unit_LogForm.cpp

//--------------------------------------------------------------------------- 
 
#include  
#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); 
} 
//---------------------------------------------------------------------------