fieldtext.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "FieldText.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmFieldText *frmFieldText;
//---------------------------------------------------------------------------
__fastcall TfrmFieldText::TfrmFieldText(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFieldText::GetDataFiled(void)
{
        return dmmoFieldText->DataField;
}
//---------------------------------------------------------------------------
TDataSource* __fastcall TfrmFieldText::GetDataSource(void)
{
        return dmmoFieldText->DataSource;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFieldText::SetDataField(AnsiString Value)
{
        if(Value != "")
                dmmoFieldText->DataField = Value;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFieldText::SetDataSource(TDataSource* Value)
{
        if(Value != NULL)
                dmmoFieldText->DataSource = Value;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFieldText::FormShow(TObject *Sender)
{
        IsEditing = false;
}
//---------------------------------------------------------------------------
void __fastcall TfrmFieldText::dmmoFieldTextKeyPress(TObject *Sender,
      char &Key)
{
        if(IsEditing)
        //  如果用户正在修改记录，则并不需要给出任何提示信息
                return;
        //  用户开始修改记录，必须给出提示信息
        if(Application->MessageBox(
                "正在修改记录，如果这里修改记录的内容,则关闭窗口后记录将修改。\n确实需要修改记录吗?",
                NULL, MB_YESNO) != IDYES)
        {
                //  撤销用户的按键
                Key = 0;
        }
        else
        {
                IsEditing = true;
        }
}
//---------------------------------------------------------------------------