borrow_return.cpp

档案管理系统源码

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

#include <vcl.h>
#pragma hdrstop

#include "Borrow_Return.h"   //档案借用和归还管理窗体头文件
#include "DataModule.h"      //数据模块窗体头文件
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Inherit"
#pragma resource "*.dfm"
TF_BReturn *F_BReturn;
//---------------------------------------------------------------------------
__fastcall TF_BReturn::TF_BReturn(TComponent* Owner)
        : TF_Inherit(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TF_BReturn::FormCreate(TObject *Sender)
{   /*****档案借用和归还管理窗体创建事件*****/
    if(!PageControl1->ActivePageIndex)     //判断创建时PageControl目录处在是那一页
      DBNavigator->DataSource = DM->DS_Borrow;   //导航导数据源为档案借用信息表
    else
      DBNavigator->DataSource = DM->DS_Return;   //导航导数据源为档案归还信息表
}
//---------------------------------------------------------------------------

void __fastcall TF_BReturn::PageControl1Change(TObject *Sender)
{   /*****PageControl不同标签页切换事件*****/
    switch(PageControl1->ActivePageIndex){  //判断PageControl现在切换到了那一页，对导航条控件数据源进行动态赋值，实现动态切换数据源的目的
    case 0 : DBNavigator->DataSource = DM->DS_Borrow; //导航导数据源为档案借用信息表
             DM->DS_Borrow->Enabled = true;  //档案借用管理数据源控件处于使能态，
             DM->DS_Return->Enabled = false; //档案归还管理数据源控件处于非使能态，
             break;
    case 1 : DBNavigator->DataSource = DM->DS_Return; //导航导数据源为档案归还信息表
             DM->DS_Borrow->Enabled = false; //档案借用管理数据源控件处于非使能态，
             DM->DS_Return->Enabled = true;  //档案归还管理数据源控件处于使能态，
             break;
    }
}
//---------------------------------------------------------------------------
void __fastcall TF_BReturn::ToolButton1Click(TObject *Sender)
{   /*****增加工具条快捷按钮单击事件*****/
    if(!PageControl1->ActivePageIndex)     //判断PageControl目录处在是那一页
      ME_Borrow->Enabled = true;   //可以查询档案记录，查到后再来添加借用记录
    else
      ME_Return->Enabled = true;   //可以查询档案记录，查到后再来添加归还记录
    ToolButton1->Enabled = false;  //增加按钮非使能
    ToolButton2->Enabled = false;  //编辑按钮非使能
    ToolButton3->Enabled = false;  //删除按钮非使能
    DBNavigator->BtnClick(nbInsert); //数据源处于插入记录状态
}
//---------------------------------------------------------------------------

void __fastcall TF_BReturn::ToolButton2Click(TObject *Sender)
{   /*****编辑工具条快捷按钮单击事件*****/
    if(!PageControl1->ActivePageIndex){  //判断PageControl目录处在是那一页
      ME_Borrow->Enabled = false;        //档案记录字段不可编辑
      ME_Borrow->Color = clBtnFace;      //档案记录字段输入框变颜色
      }
    else{
      ME_Return->Enabled = false;        //档案记录字段不可编辑
      ME_Return->Color = clBtnFace;      //档案记录字段输入框变颜色
      }
    ToolButton1->Enabled = false;  //增加按钮非使能
    ToolButton2->Enabled = false;  //编辑按钮非使能
    ToolButton3->Enabled = false;  //删除按钮非使能
    DBNavigator->BtnClick(nbEdit);       //数据源进入编辑记录状态
}
//---------------------------------------------------------------------------

void __fastcall TF_BReturn::ToolButton3Click(TObject *Sender)
{   /*****删除工具条快捷按钮单击事件*****/
    int Button = MessageBox(NULL,"真的要删除记录吗？","提示对话框",MB_ICONASTERISK);  //弹出提示对话框
    if(Button == IDOK){  //单击OK按钮
      DM->AQ_Manage->Close();  //关闭数据集
      DM->AQ_Manage->SQL->Clear();   //清除SQL语句
      DM->AQ_Manage->SQL->Add("UPDATE Archives_Content SET Content_State='在库' WHERE");  //添加更新Content_State字段值语句
      DM->AQ_Manage->SQL->Add("Content_ID="+IntToStr(DM->AT_BorrowBorrow_ID->Value));  //添加更新记录条件语句
      DM->AQ_Manage->ExecSQL(); //执行更新操作
      DBNavigator->BtnClick(nbDelete); //删除记录
      }
}
//---------------------------------------------------------------------------

void __fastcall TF_BReturn::ME_BorrowChange(TObject *Sender)
{   /*****借用档案编号输入框OnChange事件*****/
    if(!ME_Borrow->Text.IsEmpty()){  //借用档案编号输入框为空判断
      DM->AQ_Manage->Filtered = false;  //关闭过滤器
      DM->AQ_Manage->Filter = "Content_ID ="+ME_Borrow->Text;      //设置过滤值
      DM->AQ_Manage->Filtered = true;   //启动过滤器
      if(DM->AQ_Manage->RecordCount){   //找到输入框中输入档案编号的档案记录
        DM->AT_BorrowBorrow_ID->Value = DM->AQ_ManageContent_ID->Value;  //档案借用信息表档案编号字段赋值
        DM->AT_BorrowBorrow_Name->Value = DM->AQ_ManageContent_Name->Value;  //档案借用信息表档案名称字段赋值
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TF_BReturn::ToolButton4Click(TObject *Sender)
{    /*****提交工具条快捷按钮单击事件*****/
    DM->AQ_Manage->Close();  //关闭数据集
    DM->AQ_Manage->SQL->Clear();   //清除SQL语句
    if(!PageControl1->ActivePageIndex){  //判断PageControl目录处在是那一页
      ME_Borrow->Enabled = false;        //档案记录字段不可编辑
      ME_Borrow->Color = clWindow;      //档案记录字段输入框变颜色
      DM->AQ_Manage->SQL->Add("UPDATE Archives_Content SET Content_State='借出' WHERE");  //添加更新Content_State字段值语句
      DM->AQ_Manage->SQL->Add("Content_ID="+IntToStr(DM->AT_BorrowBorrow_ID->Value));  //添加更新记录条件语句
      }
    else{
      ME_Return->Enabled = false;        //档案记录字段不可编辑
      ME_Return->Color = clWindow;      //档案记录字段输入框变颜色
      DM->AQ_Manage->SQL->Add("UPDATE Archives_Content SET Content_State='归还' WHERE");  //添加更新Content_State字段值语句
      DM->AQ_Manage->SQL->Add("Content_ID="+IntToStr(DM->AT_ReturnReturn_ID->Value));  //添加更新记录条件语句
      }
    DM->AQ_Manage->ExecSQL(); //执行更新操作
    DBNavigator->BtnClick(nbPost); //删除记录
    ToolButton1->Enabled = true;  //增加按钮使能
    ToolButton2->Enabled = true;  //编辑按钮使能
    ToolButton3->Enabled = true;  //删除按钮使能
}
//---------------------------------------------------------------------------

void __fastcall TF_BReturn::ToolButton6Click(TObject *Sender)
{   /*****取消工具条快捷按钮单击事件*****/
    DBNavigator->BtnClick(nbCancel); //取消对数据集的操作
    ToolButton1->Enabled = true;  //增加按钮使能
    ToolButton2->Enabled = true;  //编辑按钮使能
    ToolButton3->Enabled = true;  //删除按钮使能
}
//---------------------------------------------------------------------------

void __fastcall TF_BReturn::ToolButton5Click(TObject *Sender)
{   /*****最前条工具条快捷按钮单击事件*****/
    DBNavigator->BtnClick(nbFirst);  //移动当前活动记录为第一条记录
}
//---------------------------------------------------------------------------

void __fastcall TF_BReturn::ToolButton7Click(TObject *Sender)
{   /*****前一条工具条快捷按钮单击事件*****/
     DBNavigator->BtnClick(nbPrior);  //当前活动记录前移一条
}
//---------------------------------------------------------------------------

void __fastcall TF_BReturn::ToolButton8Click(TObject *Sender)
{   /*****后一条工具条快捷按钮单击事件*****/
    DBNavigator->BtnClick(nbNext);    //当前活动记录后移一条
}
//---------------------------------------------------------------------------

void __fastcall TF_BReturn::ToolButton9Click(TObject *Sender)
{   /*****最后条工具条快捷按钮单击事件*****/
    DBNavigator->BtnClick(nbLast);   //移动当前活动记录为最后一条记录
}
//---------------------------------------------------------------------------

void __fastcall TF_BReturn::ToolButton12Click(TObject *Sender)
{   /*****关闭工具条快捷按钮单击事件*****/
    F_BReturn->Close();  //关闭档案借用和归还窗口
}
//---------------------------------------------------------------------------

void __fastcall TF_BReturn::ME_ReturnChange(TObject *Sender)
{   /*****归还档案编号输入框OnChange事件*****/
    if(!ME_Return->Text.IsEmpty()){  //借用档案编号输入框为空判断
      DM->AQ_Manage->Filtered = false;  //关闭过滤器
      DM->AQ_Manage->Filter = "Content_ID ="+ME_Return->Text;      //设置过滤值
      DM->AQ_Manage->Filtered = true;   //启动过滤器
      if(DM->AQ_Manage->RecordCount){   //找到输入框中输入档案编号的档案记录
        DM->AT_ReturnReturn_ID->Value = DM->AQ_ManageContent_ID->Value;  //档案借用信息表档案编号字段赋值
        DM->AT_ReturnReturn_Name->Value = DM->AQ_ManageContent_Name->Value;  //档案借用信息表档案名称字段赋值
        }
    }
}
//---------------------------------------------------------------------------