drillequip_unt.pas

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

unit DrillEquip_Unt;

interface

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

type
  TDrillEquip_Frm = class(TDataEdit_BaseFrm)
    Label1: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label2: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    Label3: TLabel;
    DBLookupComboBox3: TDBLookupComboBox;
    Label4: TLabel;
    DBLookupComboBox4: TDBLookupComboBox;
    Label5: TLabel;
    DBEdit1: TDBEdit;
    Label6: TLabel;
    DBEdit2: TDBEdit;
    DrillTech_DataS: TDataSource;
    DrillMachine_DataS: TDataSource;
    ReshipMachine_DataS: TDataSource;
    CarryMachine_DataS: TDataSource;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBLookupComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBLookupComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBLookupComboBox3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBLookupComboBox4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DrillEquip_Frm: TDrillEquip_Frm;
  DrillMachineCreate,ReshipMachineCreate,CarryMachineCreate:boolean;
implementation
uses Data_Unt,Tools_Unt,DrillMachine_Unt,ReshipMachine_Unt,CarryMachine_Unt;
{$R *.dfm}

procedure TDrillEquip_Frm.BitBtn8Click(Sender: TObject);
begin
  inherited;
  DBLookUpComboBox1.SetFocus;
end;

procedure TDrillEquip_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,'DrillEquip_Id');
    Base_DataS.DataSet.Append;
    Base_DataS.DataSet.FieldByName('DrillEquip_Id').Value:=LastId+1;
  except
    showmessage('数据库未连接正确！');
  end;
  DBLookUpComboBox1.SetFocus;
end;

procedure TDrillEquip_Frm.BitBtn3Click(Sender: TObject);
begin
  if VarIsNull(Base_DataS.DataSet.FieldByName('DrillType_Id').Value)
    then
      begin
        showmessage('请输入适用的回采工艺后再确定！');
        BitBtn3.Enabled:=true;
        DBLookUpComboBox1.Enabled:=true;
        DBLookUpComboBox1.SetFocus;
        exit;
      end;
  if Base_DataS.DataSet.FieldByName('DrillType_Id').Value=1 then //若是炮掘,则无掘进机
    begin
      Base_DataS.DataSet.FieldByName('DrillMachine').Value:=-1;
    end;
  if VarIsNull(Base_DataS.DataSet.FieldByName('DrillMachine').Value)
    then
      begin
        if messagedlg('您确定这套设备不需要掘进机吗？',
                mtConfirmation,[mbyes,mbno],0)=mryes then
          begin
           Base_DataS.DataSet.FieldByName('DrillMachine').Value:=-1;
          end;
        BitBtn3.Enabled:=true;
        DBLookUpComboBox2.Enabled:=true;
        DBLookUpComboBox2.SetFocus;
        exit;
      end;
  if VarIsNull(Base_DataS.DataSet.FieldByName('ReshipMachine').Value)
    then
      begin
        if messagedlg('您确定这套设备不需要转载机机吗？',
                mtConfirmation,[mbyes,mbno],0)=mryes then
           Base_DataS.DataSet.FieldByName('ReshipMachine').Value:=-1;
        BitBtn3.Enabled:=true;
        DBLookUpComboBox3.Enabled:=true;
        DBLookUpComboBox3.SetFocus;
        exit;
      end;
  if VarIsNull(Base_DataS.DataSet.FieldByName('CarryMachine').Value)
    then
      begin
        if messagedlg('您确定这套设备不需要输送机吗？',
                mtConfirmation,[mbyes,mbno],0)=mryes then
           Base_DataS.DataSet.FieldByName('CarryMachine').Value:=-1;
        BitBtn3.Enabled:=true;
        DBLookUpComboBox4.Enabled:=true;
        DBLookUpComboBox4.SetFocus;
        exit;
      end;
  inherited;

end;

procedure TDrillEquip_Frm.DBLookupComboBox1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
 if key=VK_RETURN then DBLookUpComboBox2.SetFocus;

end;

procedure TDrillEquip_Frm.DBLookupComboBox2KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=VK_RETURN then DBLookUpComboBox3.SetFocus;

end;

procedure TDrillEquip_Frm.DBLookupComboBox3KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=VK_RETURN then DBLookUpComboBox4.SetFocus;

end;

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

end;

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

end;

procedure TDrillEquip_Frm.DBEdit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_RETURN then
   begin
     BitBtn3.Enabled:=true;
     BitBtn3.SetFocus;
   end;

end;

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

end;

procedure TDrillEquip_Frm.N1Click(Sender: TObject);
begin
  if DrillMachineCreate then
    begin
      DrillMachine_Frm.Show;
      exit;
    end;
  DrillMachine_Frm:=TDrillMachine_Frm.Create(self);
  DrillMachine_Frm.Show;
  DrillMachineCreate:=true;
end;

procedure TDrillEquip_Frm.FormCreate(Sender: TObject);
begin
  inherited;
  DrillMachineCreate:=false;
  ReshipMachineCreate:=false;
  CarryMachineCreate:=false;
end;

procedure TDrillEquip_Frm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  DrillMachine_Frm.Free;
  DrillMachine_Frm:=nil;
  DrillMachineCreate:=false;

  ReshipMachine_Frm.free;
  ReshipMachine_Frm:=nil;
  ReshipMachineCreate:=false;

  CarryMachine_Frm.free;
  CarryMachine_Frm:=nil;
  CarryMachineCreate:=false;
end;

procedure TDrillEquip_Frm.N2Click(Sender: TObject);
begin
  if ReshipMachineCreate then
    begin
      ReshipMachine_Frm.show;
      exit;
    end;
  ReshipMachine_Frm:=TReshipMachine_Frm.Create(self);
  ReshipMachine_Frm.Show;
  ReshipMachineCreate:=true;
end;

procedure TDrillEquip_Frm.N3Click(Sender: TObject);
begin
  if CarryMachineCreate then
    begin
      CarryMachine_Frm.Show;
      exit;
    end;
  CarryMachine_Frm:=TCarryMachine_Frm.Create(self);
  CarryMachine_Frm.Show;
  CarryMachineCreate:=true;
end;

end.