datamodule.cpp

客户管理系统C++6.0

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

#include <vcl.h>
#pragma hdrstop

#include "DataModule.h"  //数据模块头文件
#include "Main.h"        //主窗体头文件
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDM *DM;
//---------------------------------------------------------------------------
__fastcall TDM::TDM(TComponent* Owner)
        : TDataModule(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TDM::DS_ForecastStateChange(TObject *Sender)
{   /*****天气预报信息表数据源状态改变事件*****/
    //仅当数据源的状态处于编辑态或插入态时，天气预报、系统设置标签页上的提交和取消按钮处于使能态
    F_Main->BitBtn1->Enabled = DS_Forecast->State == dsEdit||DS_Forecast->State == dsInsert;
    F_Main->BitBtn2->Enabled = F_Main->BitBtn1->Enabled;  //BitBtn1的Enabled属性赋值给BitBtn2的Enabled属性
}
//---------------------------------------------------------------------------

void __fastcall TDM::DS_BulletinStateChange(TObject *Sender)
{   /*****公告信息表数据源状态改变事件*****/
    //仅当数据源的状态处于编辑态或插入态时，公告栏标签页上的修改和取消按钮处于使能态
    F_Main->BitBtn3->Enabled = DS_Bulletin->State == dsEdit||DS_Bulletin->State == dsInsert;
    F_Main->BitBtn4->Enabled = F_Main->BitBtn3->Enabled;  //BitBtn3的Enabled属性赋值给BitBtn4的Enabled属性
}
//---------------------------------------------------------------------------

void __fastcall TDM::DS_BulletinDataChange(TObject *Sender, TField *Field)
{   /*****公告信息表数据源数据改变事件*****/
    F_Main->BitBtn5->Enabled = T_Bulletin->RecordCount;  //数据集中到少有一条记录时，删除按钮处于使能态
}
//---------------------------------------------------------------------------


void __fastcall TDM::DS_NewsStateChange(TObject *Sender)
{   /*****文字新闻信息表数据源状态改变事件*****/
    //仅当数据源的状态处于编辑态或插入态时，文字新闻标签页上的提交和取消按钮处于使能态
    F_Main->BitBtn7->Enabled = DS_News->State == dsEdit||DS_News->State == dsInsert;
    F_Main->BitBtn8->Enabled = F_Main->BitBtn7->Enabled;  //BitBtn7的Enabled属性赋值给BitBtn8的Enabled属性
}
//---------------------------------------------------------------------------

void __fastcall TDM::DS_NewsDataChange(TObject *Sender, TField *Field)
{   /*****文字新闻信息表数据源数据改变事件*****/
    F_Main->BitBtn10->Enabled = T_News->RecordCount;  //数据集中到少有一条记录时，删除按钮处于使能态
    F_Main->BitBtn11->Enabled = !T_News->Bof;         //数据集中当前活动记录不是首记录时，首记录按钮处于使能态
    F_Main->BitBtn12->Enabled = !T_News->Eof;         //数据集中当前活动记录不是未记录时，未记录按钮处于使能态
}
//---------------------------------------------------------------------------

void __fastcall TDM::DS_PicNewsStateChange(TObject *Sender)
{   /*****图片新闻信息表数据源状态改变事件*****/
    //仅当数据源的状态处于编辑态或插入态时，文字新闻标签页上的提交和取消按钮处于使能态
    F_Main->BitBtn13->Enabled = DS_PicNews->State == dsEdit||DS_PicNews->State == dsInsert;
    F_Main->BitBtn14->Enabled = F_Main->BitBtn13->Enabled;  //BitBtn13的Enabled属性赋值给BitBtn14的Enabled属性
}
//---------------------------------------------------------------------------