archives_manage.pas

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

    //ToolButton3.Enabled := true;  //删除按钮使能
    SButton1.Enabled := false;     //日期选择按钮非使能
    SButton2.Enabled := false;
end;

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

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

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

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

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

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

procedure TF_Manage.TV_ManageDblClick(Sender: TObject);
begin  {*****TreeView控件双击事件*****}
  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;         //执行SQL语句，打开数据集
      end;
end;

procedure TF_Manage.SButton1Click(Sender: TObject);
begin  {*****修改日期选择按钮SButton1单击事件*****}
  inherited;
    F_Date.Left := F_Manage.Left+SButton1.Left; //控件日期选择窗口显示位置
    F_Date.Top := F_Manage.Top+SButton1.Top;
    F_Date.ShowModal;   //弹出日期选择窗口
    if F_Date.ModalResult = mrOk then  //用户确定选择的日期
      DM.AQ_Manage['Content_MTime'] := F_Date.MC_Date.Date; //选择的日期赋建档日期字段
end;

procedure TF_Manage.SButton2Click(Sender: TObject);
begin  {*****建档日期选择按钮SButton2单击事件*****}
  inherited;
    F_Date.Left := F_Manage.Left+SButton2.Left; //控件日期选择窗口显示位置
    F_Date.Top := F_Manage.Top+SButton2.Top;
    F_Date.ShowModal;   //弹出日期选择窗口
    if F_Date.ModalResult = mrOk then  //用户确定选择的日期
      DM.AQ_Manage['Content_STime'] := F_Date.MC_Date.Date; //选择的日期赋建档日期字段
end;

procedure TF_Manage.cmdaddClick(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.cmdmodiClick(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.cmddelClick(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.cmdstoreClick(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.cmdquitClick(Sender: TObject);
begin  {*****取消或退出按钮单击事件*****}
  //inherited;
  if cmdquit.Caption='取消' then
      begin
        DM.AQ_Manage.Cancel;  //取消对档案管理信息表数据集的操作，回到前一后提交的数据集
   // ToolButton1.Enabled := true;  //增加按钮使能
  //  ToolButton2.Enabled := true;  //编辑按钮使能
   // ToolButton3.Enabled := true;  //删除按钮使能
       SButton1.Enabled := false;     //日期选择按钮非使能
       SButton2.Enabled := false;
       inherited;
      end
  else
     F_Manage.Close;
end;

procedure TF_Manage.cmdsearchClick(Sender: TObject);
begin
   inherited;
    DM.AQ_Manage.Filtered := false;   //关闭档案管理信息表过滤器
    try
      F_Query := TF_Query.Create(Application);  //动态创建数据记录查询窗体
      F_Query.ShowModal;              //显示数据记录查询窗口
      F_Query.Free;                   //释放数据记录查询窗体
    except
      on e:Exception do
      Application.ShowException(e);   //弹出异常对话框
    end;
end;

end.