mineequip_unt.pas

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

unit MineEquip_Unt;

interface

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

type
  TMineEquip_Frm = class(TDataEdit_BaseFrm)
    MineType_DataS: TDataSource;
    CutMachine_DataS: TDataSource;
    ConveyMachine_DataS: TDataSource;
    Braket_DataS: TDataSource;
    Label1: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label2: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    Label4: TLabel;
    DBLookupComboBox3: TDBLookupComboBox;
    Label5: TLabel;
    DBLookupComboBox4: TDBLookupComboBox;
    Label6: TLabel;
    DBEdit2: TDBEdit;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn1Click(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 BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MineEquip_Frm: TMineEquip_Frm;
  CutMachineCreate,ConveyMachineCreate,BraketCreate:boolean;
implementation
uses Data_Unt,Tools_Unt,CutMachine_Unt,ConveyMachine_Unt,Braket_Unt;
{$R *.dfm}

procedure TMineEquip_Frm.FormCreate(Sender: TObject);
begin
  inherited;
  CutMachineCreate:=false;
  ConveyMachineCreate:=false;
  BraketCreate:=false;
  {try
    if not MineType_DataS.DataSet.Active then MineType_DataS.DataSet.Open;
    if not CutMachine_DataS.DataSet.Active then CutMachine_DataS.DataSet.Open;
    if not ConveyMachine_DataS.DataSet.Active then ConveyMachine_DataS.DataSet.Open;
    if not Braket_DataS.DataSet.Active then Braket_DataS.DataSet.Open;
  except
    begin
      showmessage('数据库连接出现问题！');
    end;
  end;}
end;

procedure TMineEquip_Frm.FormResize(Sender: TObject);
begin
  inherited;
  //控件位置的调整
  Label1.Left:=Label1.Left-20;
  //Label1.Width:=Label1.Width-10;
  Label2.Left:=Label2.Left-50;
  Label2.Width:=Label2.Width-10;
  Label3.Left:=Label3.Left-20;
  Label3.Width:=Label3.Width-10;
  Label4.Left:=Label4.Left-20;
  //Label4.Width:=Label4.Width-10;
  Label5.Left:=Label5.Left-20;
  Label5.Width:=Label5.Width-10;
  Label6.Left:=Label6.Left-20;
  Label6.Width:=Label6.Width-10;
  DBLookUpComboBox1.Left:=DBLookUpComboBox1.Left-20;
  //DBLookUpComboBox1.Width:=DBLookUpComboBox1.Width+30;
  DBLookUpComboBox2.Left:=DBLookUpComboBox2.Left-50;
  DBLookUpComboBox2.Width:=DBLookUpComboBox2.Width+60;
  DBLookUpComboBox3.Left:=DBLookUpComboBox3.Left-20;
  DBLookUpComboBox3.Width:=DBLookUpComboBox3.Width+30;
  DBLookUpComboBox4.Left:=DBLookUpComboBox4.Left-20;
  DBLookUpComboBox4.Width:=DBLookUpComboBox4.Width+30;
  DBEdit1.Left:=DBEdit1.Left-20;
  //DBEdit1.Width:=DBEdit1.Width+30;
  DBEdit2.Left:=DBEdit2.Left-20;
  //DBEdit2.Width:=DBEdit2.Width+30;
end;

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

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

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

end;

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

end;

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

end;

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

end;

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

end;

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

end;

procedure TMineEquip_Frm.BitBtn3Click(Sender: TObject);
begin
  if VarIsNull(Base_DataS.DataSet.FieldByName('MineType_Id').Value)
    then
      begin
        showmessage('请输入适用的回采工艺后再确定！');
        BitBtn3.Enabled:=true;
        DBLookUpComboBox1.Enabled:=true;
        DBLookUpComboBox1.SetFocus;
        exit;
      end;
  if Base_DataS.DataSet.FieldByName('MineType_Id').Value=1 then//若是炮采,则无采煤机
    begin
      Base_DataS.DataSet.FieldByName('CutMachine').Value:=-1;
    end;
  if VarIsNull(Base_DataS.DataSet.FieldByName('CutMachine').Value)
    then
      begin
        if messagedlg('如果是综采设备一定要确定采煤机，您确定这套设备不需要采煤机吗？',
                mtConfirmation,[mbyes,mbno],0)=mryes then
          begin
           Base_DataS.DataSet.FieldByName('CutMachine').Value:=-1;
          end;
        BitBtn3.Enabled:=true;
        DBLookUpComboBox2.Enabled:=true;
        DBLookUpComboBox2.SetFocus;
        exit;
      end;
  if VarIsNull(Base_DataS.DataSet.FieldByName('ConveyMachine').Value)
    then
      begin
        if messagedlg('如果是综采设备一定要确定运输机，您确定这套设备不需要运输机吗？',
                mtConfirmation,[mbyes,mbno],0)=mryes then
           Base_DataS.DataSet.FieldByName('ConveyMachine').Value:=-1;
        BitBtn3.Enabled:=true;
        DBLookUpComboBox3.Enabled:=true;
        DBLookUpComboBox3.SetFocus;
        exit;
      end;
  if VarIsNull(Base_DataS.DataSet.FieldByName('Braket').Value)
    then
      begin
        if messagedlg('如果是综采设备一定要确定支架，您确定这套设备不需要支架吗？',
                mtConfirmation,[mbyes,mbno],0)=mryes then
           Base_DataS.DataSet.FieldByName('Braket').Value:=-1;
        BitBtn3.Enabled:=true;
        DBLookUpComboBox4.Enabled:=true;
        DBLookUpComboBox4.SetFocus;
        exit;
      end;
  inherited;

end;

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

end;

procedure TMineEquip_Frm.N1Click(Sender: TObject);
begin
  if CutMachineCreate then
    begin
      CutMachine_Frm.Show;
      exit;
    end;
  CutMachine_Frm:=TCutMachine_Frm.Create(self);
  CutMachine_Frm.Show;
  CutMachineCreate:=true;

end;

procedure TMineEquip_Frm.N2Click(Sender: TObject);
begin
  if ConveyMachineCreate then
    begin
      ConveyMachine_Frm.Show;
      exit;
    end;
  ConveyMachine_Frm:=TConveyMachine_Frm.Create(self);
  ConveyMachine_Frm.Show;
  ConveyMachineCreate:=true;
end;

procedure TMineEquip_Frm.N3Click(Sender: TObject);
begin
  if BraketCreate then
    begin
      Braket_Frm.Show;
      exit;
    end;
  Braket_Frm:=TBraket_Frm.Create(self);
  Braket_Frm.Show;
  BraketCreate:=true;

end;

procedure TMineEquip_Frm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  CutMachine_Frm.Free;
  CutMachine_Frm:=nil;
  CutMachineCreate:=false;

  ConveyMachine_Frm.Free;
  ConveyMachine_Frm:=nil;
  ConveyMachineCreate:=false;

  Braket_Frm.Free;
  Braket_Frm:=nil;
  BraketCreate:=false;

end;

end.