setdate.cpp

BCB 级联表的设计源代码。有需要的朋友可以看看。BCB这个东西不知道还有人用么。以往是我的最爱。

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

#include <vcl.h>
#pragma hdrstop

#include "SetDate.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmSetDate *frmSetDate;
//---------------------------------------------------------------------------
__fastcall TfrmSetDate::TfrmSetDate(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
TDate __fastcall TfrmSetDate::GetDate(void)
{
        return MonthCalendar1->Date; 
}
//---------------------------------------------------------------------------
void __fastcall TfrmSetDate::SetDate(TDate Value)
{
        MonthCalendar1->Date = Value;
}
//---------------------------------------------------------------------------
void __fastcall TfrmSetDate::FormCreate(TObject *Sender)
{
        MonthCalendar1->Date = Now();
}
//---------------------------------------------------------------------------