inherit.~cpp

很经典的数据库代码

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

#include <vcl.h>
#pragma hdrstop

#include "Inherit.h"         //MDIChild被继承子窗体头文件
#include "DataModule.h"      //数据模块窗体头文件
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TF_Inherit *F_Inherit;
//---------------------------------------------------------------------------
__fastcall TF_Inherit::TF_Inherit(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TF_Inherit::FormClose(TObject *Sender,
      TCloseAction &Action)
{   /*****窗口关闭事件*****/
/*    switch(dynamic_cast <TForm *>(Sender)->Tag){  //判断关闭窗口的标志值
      case 1:
             DM->DS_Class->Enabled = false;  //档案分类资料数据源控件处于非使能态，与提交、取消按钮数据感知控件失去关联关系
             break;
      case 2:
             DM->DS_Borrow->Enabled = false; //档案借用管理数据源控件处于非使能态，
             break;
      case 3:
             DM->DS_Manage->Enabled = false; //档案管理数据源控件处于非使能态，
             break;
      case 4:
             DM->DS_Borrow->Enabled = false; //档案借用管理数据源控件处于非使能态，
             DM->DS_Return->Enabled = false; //档案归还管理数据源控件处于非使能态，
      }
*/      
    Action = caFree;  //释放空间
}
//---------------------------------------------------------------------------