readerinfo.cpp

C++ Builder数据库开发经典案例解析 示例程序都是在C++ Builder 6.0（Enterprise）和SQL Server 2000个人版下调试通过的

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

#include <vcl.h>
#pragma hdrstop

#include "ReaderInfo.h"
//-------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Parent"
#pragma resource "*.dfm"
TfmReaderInfo *fmReaderInfo;
//---------------------------------------------------------------------------
__fastcall TfmReaderInfo::TfmReaderInfo(TComponent* Owner)
    : TfmParent(Owner)
{
    this->szCondition1 = "条形码";
    this->szCondition2 = "编号";
    this->szCondition3 = "姓名";
    // 设置查询条件
    this->SetSeekEditStatus();
}
//---------------------------------------------------------------------------
// 设置出生日期datetimepick的值
void __fastcall TfmReaderInfo::EditDBEdit7Change(TObject *Sender)
{
    // 如果为空,取当天数值
    if(EditDBEdit7->Text.Length()==0)
        dtPickerBirthday->Date = dtPickerBirthday->Date.CurrentDate();
    else
        dtPickerBirthday->Date = EditDBEdit7->Text;
}
//---------------------------------------------------------------------------
// 根据选择的日期设置出生日期
void __fastcall TfmReaderInfo::dtPickerBirthdayChange(TObject *Sender)
{
    EditDBEdit7->Text = dtPickerBirthday->Date.DateString();
}
//---------------------------------------------------------------------------
// 设置登记日期datetimepick的值
void __fastcall TfmReaderInfo::EditDBEdit10Change(TObject *Sender)
{
    // 如果为空,取当天数值
    if(EditDBEdit10->Text.Length()==0)
        dtPickerCreDate->Date = dtPickerCreDate->Date.CurrentDate();
    else
        dtPickerCreDate->Date = EditDBEdit10->Text;
}
//---------------------------------------------------------------------------
// 根据选择的日期设置登记日期
void __fastcall TfmReaderInfo::dtPickerCreDateChange(TObject *Sender)
{
    EditDBEdit10->Text = dtPickerCreDate->Date.DateString();
}
// 设置到期日期datetimepick的值
//---------------------------------------------------------------------------
void __fastcall TfmReaderInfo::EditDBEdit11Change(TObject *Sender)
{
    // 如果为空,取当天数值
    if(EditDBEdit11->Text.Length()==0)
        dtPickerDueDate->Date = dtPickerDueDate->Date.CurrentDate();
    else
        dtPickerDueDate->Date = EditDBEdit11->Text;
}
//---------------------------------------------------------------------------
// 根据选择的日期设置到期日期
void __fastcall TfmReaderInfo::dtPickerDueDateChange(TObject *Sender)
{
    EditDBEdit11->Text = dtPickerDueDate->Date.DateString();
}
//---------------------------------------------------------------------------