drillrelayedit_unt.pas

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

unit DrillRelayEdit_Unt;

interface

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

type
  TDrillRelayEdit_Frm = class(TDataEdit_BaseFrm)
    BitBtn9: TBitBtn;
    Label1: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label2: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    Label5: TLabel;
    DBEdit3: TDBEdit;
    DrillWorker_Q: TADOQuery;
    DrillWorker_DataS: TDataSource;
    DrillTask_DataS: TDataSource;
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn9Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DrillRelayEdit_Frm: TDrillRelayEdit_Frm;

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

procedure TDrillRelayEdit_Frm.BitBtn3Click(Sender: TObject);
begin
  inherited;
  BitBtn1.Enabled:=false;
  BitBtn2.Enabled:=false;
end;

procedure TDrillRelayEdit_Frm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Main_Unt.HaveForm:=false;
  Action:=caFree;
  DrillRelayEdit_Frm:=nil;
end;

procedure TDrillRelayEdit_Frm.BitBtn9Click(Sender: TObject);
begin
  inherited;
close;
end;

procedure TDrillRelayEdit_Frm.FormResize(Sender: TObject);
begin
  inherited;
  BitBtn9.Top:=Panel2.Top-30;
  BitBtn9.Width:=trunc(Panel2.Width/6);
  BitBtn9.Left:=trunc(5*Panel2.Width/12);
end;

end.