drillassurance_unt.pas

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

unit DrillAssurance_Unt;

interface

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

type
  TDrillAssurance_Frm = class(TDataEdit_BaseFrm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBComboBox1: TDBComboBox;
    DBEdit1: TDBEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DrillAssurance_Frm: TDrillAssurance_Frm;

implementation
uses Data_Unt;
{$R *.dfm}

procedure TDrillAssurance_Frm.BitBtn1Click(Sender: TObject);
var
LastId:integer;
begin
  inherited;

  if Base_DataS.DataSet.RecordCount=0
    then
      begin
        Base_DataS.DataSet.Append;
        Base_DataS.DataSet.FieldByName('Id').AsInteger:=1;
      end
    else
      begin
        LastId:=GetLastRecId(Base_DataS.DataSet,'Id');
        Base_DataS.DataSet.Append;
        Base_DataS.DataSet.FieldByName('Id').AsInteger:=LastId+1;
      end;
  DBComboBox1.SetFocus;
end;

procedure TDrillAssurance_Frm.BitBtn3Click(Sender: TObject);
begin
  if VarIsNull(Base_DataS.DataSet.fieldbyname('LaneType').Value) then
    begin
      showmessage('请确定巷道类别！');
      //Base_DataS.DataSet.Cancel;
      DBComboBox1.SetFocus;
      exit;
    end;
  //if VarIsNull(Base_DataS.DataSet.fieldbyname('Coeff').Value) then
    //begin
      //showmessage('请确定保险系数！');
      //Base_DataS.DataSet.Cancel;
      //DBEdit1.SetFocus;
      //exit;
    //end;
  inherited;

end;

procedure TDrillAssurance_Frm.DBComboBox1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=VK_RETURN then DBEdit1.SetFocus;

end;

procedure TDrillAssurance_Frm.DBEdit1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=VK_RETURN then BitBtn3.SetFocus;

end;

end.