archives_tank.~pas

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

unit Archives_Tank;    //MDIChild档案柜资料管理窗体项目

interface

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

type
  TF_Tank = class(TF_Inherit)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBGrid1: TDBGrid;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
   // function setbuttons(vbal:boolean);
    procedure cmdaddClick(Sender: TObject);
    procedure cmdmodiClick(Sender: TObject);
    procedure cmddelClick(Sender: TObject);
    procedure cmdstoreClick(Sender: TObject);
    procedure cmdquitClick(Sender: TObject);
    procedure cmdpreClick(Sender: TObject);
    procedure cmdnextClick(Sender: TObject);
    procedure cmdfirstClick(Sender: TObject);
    procedure cmdlastClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Tank: TF_Tank;

implementation
uses  DataModule;     //引用数据模块项目
{$R *.dfm}

procedure TF_Tank.ToolButton1Click(Sender: TObject);
var    {*****增加工具条快捷按钮单击事件*****}
    Serial:integer;
begin
  inherited;
    DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.MoveBy(4); //当前活动记录下移到第五条记录
    Serial := DM.AT_Count['Count_Value']; //取得档案柜资料序号值
    DM.AT_Tank.Append;  //档案柜资料信息表处于追加记录状态
    DM.AT_Tank['Tank_ID'] := Serial+1;  //显示当前记录序号
end;

procedure TF_Tank.ToolButton2Click(Sender: TObject);
begin  {*****编辑工具条快捷按钮单击事件*****}
  inherited;
    DM.AT_Tank.Edit;    //档案柜资料信息表处于编辑记录状态
end;

procedure TF_Tank.ToolButton3Click(Sender: TObject);
begin  {*****删除工具条快捷按钮单击事件*****}
  inherited;
    DM.AT_Tank.Delete;  //删除一条档案柜资料信息表记录
end;

procedure TF_Tank.ToolButton4Click(Sender: TObject);
begin  {*****提交工具条快捷按钮单击事件*****}
  inherited;
    DM.AT_Tank.Post;    //提交对档案柜资料信息表数据集的操作，操作生效
    DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.MoveBy(4); //当前活动记录下移到第三条记录
    DM.AT_Count.Edit;    //记录号计数数据表处于编辑状态
    DM.AT_Count['Count_Value'] := StrToInt(DBEdit1.Text); //赋分类号字段为分类序列号值
    DM.AT_Count.Post;    //提交分类序列号编辑操作
end;

procedure TF_Tank.ToolButton6Click(Sender: TObject);
begin  {*****取消工具条快捷按钮单击事件*****}
  inherited;
    DM.AT_Tank.Cancel;  //取消对档案柜资料信息表数据集的操作，回到前一后提交的数据集
end;

procedure TF_Tank.ToolButton12Click(Sender: TObject);
begin  {*****取消或关闭按钮单击事件*****}
  inherited;
  if cmdquit.Caption='取消' then
      begin
       DM.AT_Tank.Cancel;  //取消对档案柜资料信息表数据集的操作，回到前一后提交的数据集
      end
  else
    F_Tank.Close;        //关闭档案分类管理窗口
end;

procedure TF_Tank.cmdaddClick(Sender: TObject);
var    {*****增加按钮单击事件*****}
    Serial:integer;
begin
  inherited;
    DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.MoveBy(4); //当前活动记录下移到第五条记录
    Serial := DM.AT_Count['Count_Value']; //取得档案柜资料序号值
    DM.AT_Tank.Append;  //档案柜资料信息表处于追加记录状态
    DM.AT_Tank['Tank_ID'] := Serial+1;  //显示当前记录序号
end;

procedure TF_Tank.cmdmodiClick(Sender: TObject);
begin  {*****修改按钮单击事件*****}
  inherited;
    DM.AT_Tank.Edit;    //档案柜资料信息表处于编辑记录状态
end;

procedure TF_Tank.cmddelClick(Sender: TObject);
begin  {*****删除按钮单击事件*****}
  inherited;
    DM.AT_Tank.Delete;  //删除一条档案柜资料信息表记录
end;

procedure TF_Tank.cmdstoreClick(Sender: TObject);
begin  {*****保存按钮单击事件*****}
  inherited;
    DM.AT_Tank.Post;    //提交对档案柜资料信息表数据集的操作，操作生效
    DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.MoveBy(4); //当前活动记录下移到第三条记录
    DM.AT_Count.Edit;    //记录号计数数据表处于编辑状态
    DM.AT_Count['Count_Value'] := StrToInt(DBEdit1.Text); //赋分类号字段为分类序列号值
    DM.AT_Count.Post;    //提交分类序列号编辑操作
end;

procedure TF_Tank.cmdquitClick(Sender: TObject);
begin  {*****取消或关闭按钮单击事件*****}
 // inherited;
  if cmdquit.Caption='取消' then
      begin
       DM.AT_Tank.Cancel;  //取消对档案柜资料信息表数据集的操作，回到前一后提交的数据集
       inherited;
      end
  else
    F_Tank.Close;        //关闭档案柜资料管理窗口
end;

procedure TF_Tank.cmdpreClick(Sender: TObject);
begin
  inherited;
  DM.AT_Tank.MoveBy(-1);
end;

procedure TF_Tank.cmdnextClick(Sender: TObject);
begin
  inherited;
   DM.AT_Tank.MoveBy(1);
end;

procedure TF_Tank.cmdfirstClick(Sender: TObject);
begin
  inherited;
  DM.AT_Tank.First;
end;

procedure TF_Tank.cmdlastClick(Sender: TObject);
begin
  inherited;
  DM.AT_Tank.Last;
end;

//function setbuttons(vbal:boolean);

end.