📄 archives_manage.pas

📁 delphi7.0+ACCESS,是以前做过的一个档案资料管理信息系统
💻 PAS
字号:
unit Archives_Manage;

interface

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

type
  TManageFrm = class(TTInherit)
    ImageList2: TImageList;
    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;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBGrid1: TDBGrid;
    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 ToolButton10Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure TV_ManageDblClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ManageFrm: TManageFrm;

implementation
  uses  DataModule, MonthCalendar,Archives_Query;
{$R *.dfm}

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

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

//删除工具条快捷按钮单击事件
procedure TManageFrm.ToolButton3Click(Sender: TObject);
begin
  inherited;
  //弹出确认对话框
  if Application.MessageBox('真的要删除记录吗？','提示对话框',MB_OKCANCEL)=IDOK then
   DM.AQ_Manage.Delete;
end;

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

//取消工具条快捷按钮单击事件
procedure TManageFrm.ToolButton5Click(Sender: TObject);
begin
  inherited;
  DM.AQ_Manage.Cancel;    //q取消对档案管理信息表数据集的操作，回到前一后提交的数据集
  ToolButton1.Enabled:=true;    //增加按钮非使能
  ToolButton2.Enabled:=true;   //编辑按钮非使能
  ToolButton3.Enabled:=true;   //删除按钮非使能
  SpeedButton1.Enabled:=false;   //日期选择按钮使能
  SpeedButton2.Enabled:=false;   //日期选择按钮使能
end;

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

//前一笔工具条快捷按钮单击事件
procedure TManageFrm.ToolButton7Click(Sender: TObject);
begin
  inherited;
  DM.AQ_Manage.Prior;  //当前活动记录前移一条
end;

//后一笔工具条快捷按钮单击事件
procedure TManageFrm.ToolButton8Click(Sender: TObject);
begin
  inherited;
  DM.AQ_Manage.Next;  //当前活动记录后移一条
end;

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

//查找工具条快捷按钮单击事件
procedure TManageFrm.ToolButton10Click(Sender: TObject);
begin
  inherited;
  DM.AQ_Manage.Filtered:=false;  //关闭档案管理信息表过滤器
  try
    Application.CreateForm(TQueryFrm,QueryFrm);//动态创建数据记录查询窗体
    QueryFrm.ShowModal;                       //显示数据记录查询窗体
    QueryFrm.Free;                            //释放数据记录查询窗体
  except
    on e:Exception do
    Application.ShowException(e);  //弹出异常对话框
  end;
end;

//关闭工具条快捷按钮单击事件
procedure TManageFrm.ToolButton12Click(Sender: TObject);
begin
  inherited;
  ManageFrm.Close;    //关闭档案分类管理窗口
end;

procedure TManageFrm.TV_ManageDblClick(Sender: TObject);
begin
   inherited;
   if TV_Manage.Selected.Text<>'档案分类' then
     begin
      DM.AQ_Manage.Close;         //关闭数据集
      DM.AQ_Manage.SQL.Clear;     //清除SQL语句
      DM.AQ_Manage.SQL.Add('Select * from Archives_Content Where ');
      DM.AQ_Manage.SQL.Add('Content_Class='''+TV_Manage.Selected.Text+'''');
      DM.AQ_Manage.Open;
     end;
end;

procedure TManageFrm.SpeedButton1Click(Sender: TObject);
begin
    inherited;
    DateFrm.Left:=ManageFrm.Left+SpeedButton1.Left; //控件日期选择窗口显示位置
    DateFrm.Top:=ManageFrm.Top+SpeedButton1.Top;
    DateFrm.ShowModal;   //弹出日期选择窗口
    if DateFrm.ModalResult = mrOk then  //用户确定选择的日期
      DM.AQ_Manage['Content_MTime'] := DateFrm.MC_Date.Date; //选择的日期赋建档日期字段
end;

procedure TManageFrm.SpeedButton2Click(Sender: TObject);
begin
    inherited;
    DateFrm.Left:=ManageFrm.Left+SpeedButton2.Left; //控件日期选择窗口显示位置
    DateFrm.Top:=ManageFrm.Top+SpeedButton2.Top;
    DateFrm.ShowModal;   //弹出日期选择窗口
    if DateFrm.ModalResult = mrOk then  //用户确定选择的日期
      DM.AQ_Manage['Content_STime']:=DateFrm.MC_Date.Date; //选择的日期赋建档日期字段
end;

procedure TManageFrm.FormCreate(Sender: TObject);
var    {*****档案管理窗体创建事件*****}
    root,node:TTreeNode;    //定义二个存放节点元件TTreeNode
    str:AnsiString;
    i,num:integer;
begin
  inherited;
  DM.A_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.A_Class.First;              //设定当前活动记录为第一条记录
  for i:=0 to DM.A_Class.RecordCount-1 do
    //填写档案分类信息表中所有记录的分类名字段到TreeView
    begin
      //取得档案分类信息表中分类名字段值并去掉后面空格
      str:=TrimRight(DM.A_Class['Class_Name']);
      node:=TV_Manage.Items.AddChild(root,str);//增加一个子节点
      node.ImageIndex:=2;            //设定档案分类子节点前面图标
      node.SelectedIndex:=3;         //设定档案分类子节点选中时图标
      DM.A_Class.Next;               //当前活动记录下移一条记录
      end;
  root.Expand(true);               //展开档案分类父结点
  DM.A_Tank.First;
  for i:=0 to DM.A_Class.RecordCount-1 do
    //填写档案分类信息表中所有记录的分类名字段到TreeView
    begin
      //取得档案分类信息表中分类名字段值并去掉后面空格
      num:=DM.A_Tank['Tank_ID'];
      DBComboBox1.Items.Add(IntToStr(num));
      DM.A_Tank.Next;               //当前活动记录下移一条记录
      end;
end;
procedure TManageFrm.ToolButton11Click(Sender: TObject);
begin
  inherited;
  DM.A_Content.Active:=true;
  DM.ContentRP.Execute;
end;

end.
💿 文件大小 713 K
👤 上传用户 dan_che
📂 所属分类其他数据库
🏷️ 相关标签

#delphi #ACCESS #7.0 #管理信息系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -