minerelayedit_unt.pas

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

unit MineRelayEdit_Unt;

interface

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

type
  TMineRelayEdit_Frm = class(TDataEdit_BaseFrm)
    BitBtn9: TBitBtn;
    DBLookupComboBox1: TDBLookupComboBox;
    Label1: TLabel;
    Face_DataS: TDataSource;
    DBLookupComboBox2: TDBLookupComboBox;
    Label2: TLabel;
    MineWorker_DataS: TDataSource;
    MineWorker_Q: TADOQuery;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MineRelayEdit_Frm: TMineRelayEdit_Frm;

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

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

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

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

procedure TMineRelayEdit_Frm.FormCreate(Sender: TObject);
begin
  inherited;
  if not MineWorker_Q.Active then MineWorker_Q.Open;
end;

procedure TMineRelayEdit_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.