faceinfo_unt.pas

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

unit FaceInfo_Unt;

interface

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

type
  TFaceInfo_Frm = class(TDataEdit_BaseFrm)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    Area_DataS: TDataSource;
    MineTech_DataS: TDataSource;
    MineState_DataS: TDataSource;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    Coal_DataS: TDataSource;
    Area_ADOQ: TADOQuery;
    DBEdit6: TDBEdit;
    Label14: TLabel;
    DBEdit11: TDBEdit;
    Label13: TLabel;
    DBEdit10: TDBEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure DBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn8Click(Sender: TObject);
    procedure DBEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBLookupComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBLookupComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBLookupComboBox3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit9KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBLookupComboBox4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure DBEdit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit10KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBEdit4Exit(Sender: TObject);
    procedure DBEdit11KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  FaceInfo_Frm: TFaceInfo_Frm;

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

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

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

end;

procedure TFaceInfo_Frm.BitBtn8Click(Sender: TObject);
begin
  inherited;
DBEdit1.SetFocus;
end;

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

end;

procedure TFaceInfo_Frm.DBEdit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_RETURN then DBEdit4.SetFocus;

end;

procedure TFaceInfo_Frm.DBEdit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
L:integer;
begin
  if key=VK_RETURN then
    begin
       DBLookupComboBox1.SetFocus;
       if FaceParaAdjust then
         begin
           L:=strtoint(DBEdit4.Text)-strtoint(DBEdit7.Text);
           //if (L>0)and(strtofloat(DBEdit5.Text)<>0) then
             //DBEdit10.Text:=inttostr(round(L/strtofloat(DBEdit5.Text)));
         end;
    end;

end;

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

end;

procedure TFaceInfo_Frm.DBEdit5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
H,p,W,L,Remain:single;
PushL,FinishedL,TaskT,Day_OutPut,Cycle_OutPut:integer;
begin
   if key=VK_RETURN then
     begin
        if DBEdit4.Text='' then
          begin
            showmessage('请确定该回采面的推进长度！');
            DBEdit4.SetFocus;
            exit;
          end;
        if DBEdit7.Text='' then
          begin
            showmessage('请确定该回采面已经回采的长度，若是新回采面请输入0！');
            DBEdit7.SetFocus;
            exit;
          end;
        if DBEdit6.Text='' then
          begin
            showmessage('请确定该回采面的比重！');
            DBEdit6.SetFocus;
            exit;
          end;
        if DBEdit2.Text='' then
          begin
            showmessage('请确定该回采面的采高！');
            DBEdit2.SetFocus;
            exit;
          end;
        if DBEdit3.Text='' then
          begin
            showmessage('请确定该回采面的面长！');
            DBEdit3.SetFocus;
            exit;
          end;
        L:=-1;
        if DBEdit5.Text<>'' then L:=strtofloat(DBEdit5.Text); //日进度

        //计算日产量
        H:=strtofloat(DBEdit2.Text);
        W:=strtofloat(DBEdit3.Text);
        p:=strtofloat(DBEdit6.Text);

        Cycle_OutPut:=-1;
        if abs(L)>10E-5 then Cycle_OutPut:=trunc(W*H*L*p);
        if abs(Cycle_OutPut)>10E-5 then
          begin
            Base_DataS.DataSet.Edit;
            Base_DataS.DataSet.FieldByName('Cycle_OutPut').AsInteger:=Cycle_OutPut;
          end;

        {//计算工期
        PushL:=strtoint(DBEdit4.Text);
        FinishedL:=strtoint(DBEdit7.Text);
        TaskT:=-1;
        if abs(L)>10E-5 then TaskT:=round((PushL-FinishedL)/L);
        if TaskT>0 then
          begin
            Base_DataS.DataSet.Edit;
            Base_DataS.DataSet.FieldByName('TaskTime').AsInteger:=TaskT;
          end;}
        DBEdit11.SetFocus;
     end;

end;

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


        DBLookupComboBox3.SetFocus;
     end;

end;

procedure TFaceInfo_Frm.BitBtn3Click(Sender: TObject);
var
PushL,FaceL,MinedL,AverageDayOut,CycleOut,RepairT,TaskT:integer;
H,Consistency,DayProg:single;
begin
  if VarIsNull(Base_DataS.DataSet.FieldByName('Technic_Type').Value)
    then
      begin
        showmessage('请输入相应的回采工艺后再确定！');
        BitBtn3.Enabled:=true;
        DBLookUpComboBox1.Enabled:=true;
        DBLookUpComboBox1.SetFocus;
        exit;
      end;
  if VarIsNull(Base_DataS.DataSet.FieldByName('MiningArea').Value)
    then
      begin
        showmessage('请输入回采面所在采区后再确定！');
        BitBtn3.Enabled:=true;
        DBLookUpComboBox2.Enabled:=true;
        DBLookUpComboBox2.SetFocus;
        exit;
      end;
  if VarIsNull(Base_DataS.DataSet.FieldByName('Mined').Value)
    then
      begin
        showmessage('请输入回采面状态后再确定！');
        BitBtn3.Enabled:=true;
        DBLookUpComboBox3.Enabled:=true;
        DBLookUpComboBox3.SetFocus;
        exit;
      end;
  if DBEdit4.Text='' then
    begin
      showmessage('请确定该回采面的推进长度！');
      DBEdit4.SetFocus;
      exit;
    end;
  if DBEdit7.Text='' then
    begin
      showmessage('请确定该回采面已经回采的长度，若是新回采面请输入0！');
      DBEdit7.SetFocus;
      exit;
    end;
  if DBEdit6.Text='' then
    begin
      showmessage('请确定该回采面的比重！');
      DBEdit6.SetFocus;