unt_base.pas

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

unit Unt_Base;

interface

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

type  TFrm_Base = class(TFrm_CBase)
    GroupBox2: TGroupBox;
    Panel5: TPanel;
    Btn_Prior: TBitBtn;
    Btn_Next: TBitBtn;
    Btn_First: TBitBtn;
    Btn_Last: TBitBtn;
    DBGrid1: TDBGrid;
    Ds_Ado: TDataSource;
    Btn_Add: TBitBtn;
    Btn_Con: TBitBtn;
    Btn_Del: TBitBtn;
    ActionList1: TActionList;
    procedure Btn_Enable;
    procedure Btn_FirstClick(Sender: TObject);
    procedure Btn_PriorClick(Sender: TObject);
    procedure Btn_NextClick(Sender: TObject);
    procedure Btn_LastClick(Sender: TObject);
    procedure Btn_ConClick(Sender: TObject);
    procedure Btn_DelClick(Sender: TObject);
    procedure Ds_AdoDataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Base: TFrm_Base;
  
implementation
  Uses Unt_CAD_Pro_Tool;
{$R *.dfm}

procedure TFrm_Base.Btn_FirstClick(Sender: TObject);
begin
  inherited;
  Ds_Ado.DataSet.First;
end;

procedure TFrm_Base.Btn_PriorClick(Sender: TObject);
begin
  inherited;
  Ds_Ado.DataSet.Prior;
end;

procedure TFrm_Base.Btn_NextClick(Sender: TObject);
begin
  inherited;
  Ds_Ado.DataSet.Next;
end;

procedure TFrm_Base.Btn_LastClick(Sender: TObject);
begin
  inherited;
  Ds_Ado.DataSet.Last;
end;

procedure TFrm_Base.Btn_ConClick(Sender: TObject);
begin
  inherited;
  Confirm(Ds_Ado.DataSet);
end;

procedure TFrm_Base.Btn_DelClick(Sender: TObject);
begin
  inherited;
  DelRec(Ds_Ado.DataSet);
end;

procedure TFrm_Base.Btn_Enable;
var Con, Del, Fir, Pri, Nex, Las: Boolean;
begin
   Con:=true;Del:=true;Fir:=true;Pri:=true;Nex:=true;Las:=true;
   if Ds_Ado.DataSet.RecordCount=0
   then begin
         Con:=false;Del:=false;
         Fir:=false;Pri:=false;
         Nex:=false;Las:=false;
        end
   else begin
         if Ds_Ado.DataSet.RecNo=1 then
         begin
          Fir:=false;Pri:=false;
         end;
         if Ds_Ado.DataSet.RecNo=Ds_Ado.DataSet.RecordCount then
         begin
          Nex:=false;Las:=false;
         end;
        end;
   Btn_Con.Enabled:=Con;
   Btn_Del.Enabled:=Del;
   Btn_First.Enabled:=Fir;
   Btn_Prior.Enabled:=Pri;
   Btn_Next.Enabled:=Nex;
   Btn_Last.Enabled:=Las;
end;

procedure TFrm_Base.Ds_AdoDataChange(Sender: TObject; Field: TField);
begin
  inherited;
  if IsModify then exit;
  Btn_Enable;
end;

end.