archives_tank.cpp

档案管理系统源码

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

#include <vcl.h>
#pragma hdrstop

#include "Archives_Tank.h"   //MDIChild档案柜资料管理窗体头文件
#include "DataModule.h"      //数据模块窗体头文件
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Inherit"
#pragma resource "*.dfm"
TF_Tank *F_Tank;
//---------------------------------------------------------------------------
__fastcall TF_Tank::TF_Tank(TComponent* Owner)
        : TF_Inherit(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TF_Tank::FormCreate(TObject *Sender)
{   /*****档案柜资料管理窗体创建事件*****/
//    F_Tank->Tag = 2;          //设定档案柜资料管理窗体标记为2
}
//---------------------------------------------------------------------------

void __fastcall TF_Tank::ToolButton1Click(TObject *Sender)
{   /*****增加工具条快捷按钮单击事件*****/
    DM->AT_Count->First();   //移动记录号计数数据表当前活动记录是第一条记录
    DM->AT_Count->MoveBy(4); //当前活动记录下移到第五条记录
    int Serial = DM->AT_CountCount_Value->Value; //取得档案柜资料序号值
    DM->AT_Tank->Append();  //档案柜资料信息表处于追加记录状态
    DM->AT_TankTank_ID->Value = Serial+1;  //显示当前记录序号
}
//---------------------------------------------------------------------------

void __fastcall TF_Tank::ToolButton2Click(TObject *Sender)
{   /*****编辑工具条快捷按钮单击事件*****/
    DM->AT_Tank->Edit();    //档案柜资料信息表处于编辑记录状态
}
//---------------------------------------------------------------------------

void __fastcall TF_Tank::ToolButton3Click(TObject *Sender)
{   /*****删除工具条快捷按钮单击事件*****/
    DM->AT_Tank->Delete();  //删除一条档案柜资料信息表记录
}
//---------------------------------------------------------------------------

void __fastcall TF_Tank::ToolButton4Click(TObject *Sender)
{  /*****提交工具条快捷按钮单击事件*****/
    DM->AT_Tank->Post();    //提交对档案柜资料信息表数据集的操作，操作生效
    DM->AT_Count->First();   //移动记录号计数数据表当前活动记录是第一条记录
    DM->AT_Count->MoveBy(4); //当前活动记录下移到第三条记录
    DM->AT_Count->Edit();    //记录号计数数据表处于编辑状态
    DM->AT_CountCount_Value->Value = DBEdit1->Text.ToInt(); //赋分类号字段为分类序列号值
    DM->AT_Count->Post();    //提交分类序列号编辑操作
}
//---------------------------------------------------------------------------

void __fastcall TF_Tank::ToolButton6Click(TObject *Sender)
{   /*****取消工具条快捷按钮单击事件*****/
    DM->AT_Tank->Cancel();  //取消对档案柜资料信息表数据集的操作，回到前一后提交的数据集
}
//---------------------------------------------------------------------------

void __fastcall TF_Tank::ToolButton12Click(TObject *Sender)
{   /*****关闭工具条快捷按钮单击事件*****/
    F_Tank->Close();        //关闭档案柜资料管理窗口 
}
//---------------------------------------------------------------------------