archives_manage.pas

适合新手 绝对精品 档案管理系统 本人花钱购买来的源代

unit Archives_Manage;      //档案管理MDI子窗体项目

interface

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

type
  TF_Manage = class(TF_Inherit)
    GroupBox1: TGroupBox;
    TV_Manage: TTreeView;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    SButton1: TSpeedButton;
    SButton2: TSpeedButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBGrid1: TDBGrid;
    ImageList2: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure TV_ManageDblClick(Sender: TObject);
    procedure SButton1Click(Sender: TObject);
    procedure SButton2Click(Sender: TObject);
    procedure cmdaddClick(Sender: TObject);
    procedure cmdmodiClick(Sender: TObject);
    procedure cmddelClick(Sender: TObject);
    procedure cmdstoreClick(Sender: TObject);
    procedure cmdquitClick(Sender: TObject);
    procedure cmdsearchClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Manage: TF_Manage;

implementation
uses  DataModule,Archives_Query,MonthCalendar;  //引用数据模块窗体、数据记录查询窗体、日期选择窗体项目
{$R *.dfm}

procedure TF_Manage.FormCreate(Sender: TObject);
var    {*****档案管理窗体创建事件*****}
    root,node:TTreeNode;      //定义二个存放节点元件TTreeNode
    str:AnsiString;
    i,num:integer;
begin
  inherited;
    DM.AT_Class.Filtered := false;  //关闭档案分类资料信息表过滤器
    DM.AQ_Manage.Filtered := false; //关闭档案管理信息表过滤器
    TV_Manage.Items.Clear;  //清空TreeView所有节点
    root := TTreeNode.Create(TV_Manage.Items); //声明节点元件指标变量
    node := TTreeNode.Create(TV_Manage.Items);
    root := TV_Manage.Items.AddChild(NIL,'档案分类'); //增加一个根节点
    root.ImageIndex := 0;      //设定档案分类父节点前面图标
    root.SelectedIndex := 1;   //设定档案分类父节点选中时图标
    DM.AT_Class.First;     //设定当前活动记录为第一条记录
    for i:=0 to DM.AT_Class.RecordCount-1 do       //填写档案分类信息表中所有记录的分类名字段到TreeView
      begin
      str := TrimRight(DM.AT_Class['Class_Name']); //取得档案分类信息表中分类名字段值并去掉后面的空格
      node := TV_Manage.Items.AddChild(root,str);      //增加一个子节点
      node.ImageIndex := 2;    //设定档案分类子节点前面图标
      node.SelectedIndex := 3; //设定档案分类子节点选中时图标
      DM.AT_Class.Next;                            //当前活动记录下移一条记录
      end;
    root.Expand(true);                                //展开档案分类父结点
    DM.AT_Tank.First;      //设定当前活动记录为第一条记录
    for i:=0 to DM.AT_Tank.RecordCount-1 do      //填写档案柜资料信息表中所有记录的柜号字段到DBComboBox1
      begin
      num := DM.AT_Tank['Tank_ID'];                //取得档案柜资料信息表中柜号字段值
      DBComboBox1.Items.Add(IntToStr(num));         //添加一条记录到DBComboBox1
      DM.AT_Tank.Next;                            //当前活动记录下移一条记录
      end;
end;

procedure TF_Manage.ToolButton1Click(Sender: TObject);
var    {*****增加工具条快捷按钮单击事件*****}
    Serial:integer;
begin
  inherited;
    DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    Serial := DM.AT_Count['Count_Value']; //取得档案记录序号值
    DM.AQ_Manage.Append; //档案管理信息表处于追加记录状态
    DM.AQ_Manage['Content_ID'] := Serial+1;  //显示当前记录序号
    DM.AQ_Manage['Content_Class'] := TV_Manage.Selected.Text; //填写档案分类名字段
    DM.AT_Class.Filtered := false;  //关闭过滤器
    DM.AT_Class.Filter := 'Class_Name = '''+TV_Manage.Selected.Text+'''';      //设置过滤值
    DM.AT_Class.Filtered := true;   //启动过滤器
    DM.AQ_Manage['Content_SPerson'] := DM.AT_Class['Archives_SPerson'];  //自动填写建档人员字段
    DM.AQ_Manage['Content_STime'] := DM.AT_Class['Archives_SDate'];      //自动填写建档日期字段
    DM.AQ_Manage['Content_MPerson'] := DM.AT_Class['Archives_MPerson'];  //自动填写修改人员字段
    DM.AQ_Manage['Content_MTime'] := DM.AT_Class['Archives_MDate'];      //自动填写修改日期字段
    //ToolButton1.Enabled := false;  //增加按钮非使能
   // ToolButton2.Enabled := false;  //编辑按钮非使能
   // ToolButton3.Enabled := false;  //删除按钮非使能
    SButton1.Enabled := true;      //日期选择按钮使能
    SButton2.Enabled := true;
end;

procedure TF_Manage.ToolButton2Click(Sender: TObject);
begin  {*****编辑工具条快捷按钮单击事件*****}
  inherited;
    DM.AQ_Manage.Edit;    //档案管理信息表处于编辑记录状态
   // ToolButton1.Enabled := false;  //增加按钮非使能
   // ToolButton2.Enabled := false;  //编辑按钮非使能
   // ToolButton3.Enabled := false;  //删除按钮非使能
    SButton1.Enabled := true;      //日期选择按钮使能
    SButton2.Enabled := true;
end;

procedure TF_Manage.ToolButton3Click(Sender: TObject);
var    {*****删除工具条快捷按钮单击事件*****}
    Button:integer;
begin
  inherited;
    Button := Application.MessageBox('真的要删除记录吗？','提示对话框',MB_OKCANCEL);  //弹出确认对话框
    if Button = IDOK then  //单击OK按钮
      DM.AQ_Manage.Delete;  //删除一条档案管理信息表记录
end;

procedure TF_Manage.ToolButton4Click(Sender: TObject);
begin  {*****提交工具条快捷按钮单击事件*****}
  inherited;
    DM.AQ_Manage.Post;   //提交对档案管理信息表数据集的操作，操作生效
    DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.Edit;    //记录号计数数据表处于编辑状态
    DM.AT_Count['Count_Value'] := StrToInt(DBEdit1.Text); //赋分类号字段为分类序列号值
    DM.AT_Count.Post;    //提交分类序列号编辑操作
   // ToolButton1.Enabled := true;  //增加按钮使能
   // ToolButton2.Enabled := true;  //编辑按钮使能
   // ToolButton3.Enabled := true;  //删除按钮使能
    SButton1.Enabled := false;     //日期选择按钮非使能
    SButton2.Enabled := false;
end;

procedure TF_Manage.ToolButton6Click(Sender: TObject);
begin  {*****取消工具条快捷按钮单击事件*****}
  inherited;
    DM.AQ_Manage.Cancel;  //取消对档案管理信息表数据集的操作，回到前一后提交的数据集
   // ToolButton1.Enabled := true;  //增加按钮使能
   // ToolButton2.Enabled := true;  //编辑按钮使能