mainform.cpp

C++ BUILDER精彩编程实例集锦(源码)3 第五部分 系统编程 第六部分 数据库应用

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

#include <vcl.h>
#pragma hdrstop

#include "MainForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DataSource1StateChange(TObject *Sender)
{ //获取数据库的操作状态
  switch(this->Table1->State)
  {
   case dsInactive:
       MessageBox(Handle,"数据库已经关闭","信息提示",MB_OK);
       break;
   case dsBrowse:
       MessageBox(Handle,"数据库处于浏览状态","信息提示",MB_OK);
       break;
   case dsEdit:
       MessageBox(Handle,"数据库处于编辑状态","信息提示",MB_OK);
       break;
   case dsInsert:
       MessageBox(Handle,"数据库插入一条新记录","信息提示",MB_OK);
       break;
   case dsSetKey:
       MessageBox(Handle,"数据库被搜索或由SetRange限制了范围，只能浏览","信息提示",MB_OK);
       break;
   case dsCalcFields:
       MessageBox(Handle,"数据库的计算字段的OnCalcFields事件正在进行","信息提示",MB_OK);
       break;
   case dsFilter:
       MessageBox(Handle,"数据库OnFilterRecord事件正在进行","信息提示",MB_OK);
       break;
   case dsNewValue:
       MessageBox(Handle,"数据库正在访问TField::NewValue属性","信息提示",MB_OK);
       break;
   case dsOldValue:
       MessageBox(Handle,"数据库正在访问TField::OldValue属性","信息提示",MB_OK);
       break;
   case dsCurValue:
       MessageBox(Handle,"数据库正在访问TField::CurValue属性","信息提示",MB_OK);
       break;
   case dsBlockRead:
       MessageBox(Handle,"当指针移动时，数据库没有更新数据控制控件和没有引发事件","信息提示",MB_OK);
       break;
   case dsInternalCalc:
       MessageBox(Handle,"数据库正处于计算状态","信息提示",MB_OK);
       break;
   case dsOpening:
       MessageBox(Handle,"数据库正处于打开状态（还没有完全打开）","信息提示",MB_OK);
       break;
  }
}
//---------------------------------------------------------------------------