braket_unt.pas

煤矿行业采掘接替计划自动生成系统

unit Braket_Unt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DataEdit_BaseUnt, DB, Grids, DBGrids, StdCtrls, Buttons,
  ExtCtrls;

type
  TBraket_Frm = class(TDataEdit_BaseFrm)
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Braket_Frm: TBraket_Frm;

implementation
uses Data_Unt,Tools_Unt;
{$R *.dfm}

procedure TBraket_Frm.BitBtn1Click(Sender: TObject);
var
LastId:integer;
begin
  inherited;
  try
    if Base_DataS.DataSet.RecordCount=0 then LastId:=0
       else LastId:=GetLastRecId(Base_DataS.DataSet,'Braket_Id');
    Base_DataS.DataSet.Append;
    Base_DataS.DataSet.FieldByName('Braket_Id').Value:=LastId+1;
  except
    showmessage('数据库未连接正确！');
  end;
end;

procedure TBraket_Frm.BitBtn2Click(Sender: TObject);
begin
  if Base_DataS.DataSet.FieldByName('Braket_Id').Value=-1 then
    begin
      showmessage('不能删除此条记录!');
      exit;
    end;
  inherited;

end;

procedure TBraket_Frm.BitBtn8Click(Sender: TObject);
begin
  inherited;
  showmessage('请直接在表中进行修改,修改后请按下确定按钮!');
end;

end.