archives_breturn.pas

delphi7.0+ACCESS,是以前做过的一个档案资料管理信息系统

unit Archives_BReturn;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Inherit, DBCtrls, Grids, DBGrids, StdCtrls, Mask, ExtCtrls,
  ComCtrls, ImgList, ToolWin;

type
  TBReturnFrm = class(TTInherit)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    ME_Borrow: TMaskEdit;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBGrid1: TDBGrid;
    TabSheet2: TTabSheet;
    Panel2: TPanel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    ME_Return: TMaskEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBGrid2: TDBGrid;
    DBNavigator1: TDBNavigator;
    procedure PageControl1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure ME_BorrowChange(Sender: TObject);
    procedure ME_ReturnChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BReturnFrm: TBReturnFrm;

implementation
   uses DataModule;
{$R *.dfm}

//PageControl不同标签页切换事件
procedure TBReturnFrm.PageControl1Change(Sender: TObject);
begin
  inherited;
    case PageControl1.ActivePageIndex of  //判断PageControl现在切换到了那一页，对导航条控件数据源进行动态赋值，实现动态切换数据源的目的
     0 :   begin
             DBNavigator1.DataSource := DM.DS_Borrow; //导航导数据源为档案借用信息表
             DM.DS_Borrow.Enabled := true;  //档案借用管理数据源控件处于使能态，
             DM.DS_Return.Enabled := false; //档案归还管理数据源控件处于非使能态，
           end;
     1 :   begin
             DBNavigator1.DataSource := DM.DS_Return; //导航导数据源为档案归还信息表
             DM.DS_Borrow.Enabled := false; //档案借用管理数据源控件处于非使能态，
             DM.DS_Return.Enabled := true;  //档案归还管理数据源控件处于使能态，
           end;
    end;
end;

//档案借用和归还管理窗体创建事件
procedure TBReturnFrm.FormCreate(Sender: TObject);
begin
  inherited;
    if (PageControl1.ActivePageIndex=0) then     //判断创建时PageControl目录处在是那一页
      DBNavigator1.DataSource := DM.DS_Borrow   //导航导数据源为档案借用信息表
    else
      DBNavigator1.DataSource := DM.DS_Return;   //导航导数据源为档案归还信息表
end;


//借用档案编号输入框OnChange事件
procedure TBReturnFrm.ME_BorrowChange(Sender: TObject);
begin
  inherited;
    if not (TrimRight(ME_Borrow.Text)='') then  //借用档案编号输入框右边去空格后字符串为空判断
      begin
      DM.AQ_Manage.Filtered:=false;  //关闭过滤器
      DM.AQ_Manage.Filter:='Content_ID ='+ME_Borrow.Text;      //设置过滤值
      DM.AQ_Manage.Filtered:=true;   //启动过滤器
      if (DM.AQ_Manage.RecordCount>0) then   //找到输入框中输入档案编号的档案记录
        begin
        DM.A_BorrowBorrow_ID.Value:=DM.AQ_Manage['Content_ID'];  //档案借用信息表档案编号字段赋值
        DM.A_BorrowBorrow_Name.Value:=DM.AQ_Manage['Content_Name'];  //档案借用信息表档案名称字段赋值
        end;
      end;
end;

//归还档案编号输入框OnChange事件
procedure TBReturnFrm.ME_ReturnChange(Sender: TObject);
begin
  inherited;
    if not (TrimRight(ME_Return.Text)='') then  //借用档案编号输入框右边去空格后字符串为空判断
      begin
      DM.AQ_Manage.Filtered:=false;  //关闭过滤器
      DM.AQ_Manage.Filter:='Content_ID ='+ME_Return.Text;      //设置过滤值
      DM.AQ_Manage.Filtered:=true;   //启动过滤器
      if (DM.AQ_Manage.RecordCount>0) then   //找到输入框中输入档案编号的档案记录
        begin
        DM.A_ReturnReturn_ID.Value:=DM.AQ_Manage['Content_ID'];  //档案借用信息表档案编号字段赋值
        DM.A_ReturnReturn_Name.Value:=DM.AQ_Manage['Content_Name'];  //档案借用信息表档案名称字段赋值
        end;
      end;
end;

//增加工具条快捷按钮单击事件*
procedure TBReturnFrm.ToolButton1Click(Sender: TObject);
begin
  inherited;
    if (PageControl1.ActivePageIndex=0) then     //判断PageControl目录处在是那一页
      ME_Borrow.Enabled:=true   //可以查询档案记录，查到后再来添加借用记录
    else
      ME_Return.Enabled:=true;   //可以查询档案记录，查到后再来添加归还记录
    ToolButton1.Enabled:=false;  //增加按钮非使能
    ToolButton2.Enabled:=false;  //编辑按钮非使能
    ToolButton3.Enabled:=false;  //删除按钮非使能
    DBNavigator1.BtnClick(nbInsert); //数据源处于插入记录状态
end;

//编辑工具条快捷按钮单击事件
procedure TBReturnFrm.ToolButton2Click(Sender: TObject);
begin
  inherited;
    if (PageControl1.ActivePageIndex=0) then  //判断PageControl目录处在是那一页
      begin
      ME_Borrow.Enabled:=false;        //档案记录字段不可编辑
      ME_Borrow.Color:=clBtnFace;      //档案记录字段输入框变颜色
      end
    else
      begin
      ME_Return.Enabled:=false;        //档案记录字段不可编辑
      ME_Return.Color:=clBtnFace;      //档案记录字段输入框变颜色
      end;
    ToolButton1.Enabled:=false;  //增加按钮非使能
    ToolButton2.Enabled:=false;  //编辑按钮非使能
    ToolButton3.Enabled:=false;  //删除按钮非使能
    DBNavigator1.BtnClick(nbEdit);       //数据源进入编辑记录状态
end;

//删除工具条快捷按钮单击事件
procedure TBReturnFrm.ToolButton3Click(Sender: TObject);
begin
  inherited;
    if Application.MessageBox('真的要删除记录吗？','提示对话框',MB_OKCANCEL)=IDOK then  //弹出提示对话框
    begin
      DBNavigator1.BtnClick(nbDelete); //删除记录
      with DM.AQ_Manage do
        begin
        Close;  //关闭数据集
        SQL.Clear;   //清除SQL语句
        SQL.Add('PDATE Archives_Content SET Content_State=''在库'' WHERE ');  //添加更新Content_State字段值语句
        SQL.Add('Content_ID:='+IntToStr(DM.A_Borrow['Borrow_ID']));  //添加更新记录条件语句
        ExecSQL; //执行更新操作
        end;
      end;
end;

//保存工具条快捷按钮单击事件
procedure TBReturnFrm.ToolButton4Click(Sender: TObject);
begin
  inherited;
    DM.AQ_Manage.Close;  //关闭数据集
    DM.AQ_Manage.SQL.Clear;   //清除SQL语句
    if (PageControl1.ActivePageIndex=0) then  //判断PageControl目录处在是那一页
      begin
      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.A_Borrow['Borrow_ID']));  //添加更新记录条件语句
      end
    else
      begin
      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.A_Return['Return_ID']));  //添加更新记录条件语句
      end;
    DM.AQ_Manage.ExecSQL; //执行更新操作
    DBNavigator1.BtnClick(nbPost); //删除记录
    ToolButton1.Enabled:=true;  //增加按钮使能
    ToolButton2.Enabled:=true;  //编辑按钮使能
    ToolButton3.Enabled:=true;  //删除按钮使能
end;

//取消工具条快捷按钮单击事件
procedure TBReturnFrm.ToolButton5Click(Sender: TObject);
begin
  inherited;
    DBNavigator1.BtnClick(nbCancel); //取消对数据集的操作
    ToolButton1.Enabled:=true;  //增加按钮使能
    ToolButton2.Enabled:=true;  //编辑按钮使能
    ToolButton3.Enabled:=true;  //删除按钮使能
end;

//最前条工具条快捷按钮单击事件
procedure TBReturnFrm.ToolButton6Click(Sender: TObject);
begin
  inherited;
    DBNavigator1.BtnClick(nbFirst);  //移动当前活动记录为第一条记录
end;

//前一条工具条快捷按钮单击事件
procedure TBReturnFrm.ToolButton7Click(Sender: TObject);
begin
  inherited;
     DBNavigator1.BtnClick(nbPrior);  //当前活动记录前移一条
end;

//后一条工具条快捷按钮单击事件
procedure TBReturnFrm.ToolButton8Click(Sender: TObject);
begin
  inherited;
    DBNavigator1.BtnClick(nbNext);    //当前活动记录后移一条
end;

//最后条工具条快捷按钮单击事件
procedure TBReturnFrm.ToolButton9Click(Sender: TObject);
begin
  inherited;
    DBNavigator1.BtnClick(nbLast);   //移动当前活动记录为最后一条记录
end;

//关闭工具条快捷按钮单击事件
procedure TBReturnFrm.ToolButton12Click(Sender: TObject);
begin  
  inherited;
    BReturnFrm.Close;  //关闭档案借用和归还窗口
end;

end.