archives_tank.pas

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

unit Archives_Tank;

interface

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

type
  TTankFrm = class(TTInherit)
    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 ToolButton5Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TankFrm: TTankFrm;

implementation

uses DataModule;

{$R *.dfm}

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

//编辑工具条快捷按钮单击事件
procedure TTankFrm.ToolButton2Click(Sender: TObject);
begin
  inherited;
  DM.A_Tank.Edit;     //档案分类信息表处于编辑记录状态
end;

//删除工具条快捷按钮单击事件
procedure TTankFrm.ToolButton3Click(Sender: TObject);
begin
  inherited;
  DM.A_Tank.Delete;     //删除一条档案分类信息表记录
end;

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

//取消工具条快捷按钮单击事件
procedure TTankFrm.ToolButton5Click(Sender: TObject);
begin
  inherited;
  DM.A_Tank.Cancel;  //取消对档案分类信息表数据集的操作，回到前一后提交的数据集
end;

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

end.