lanetime_unt.pas

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

unit LaneTime_Unt;

interface

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

type
  TLaneTime_Frm = class(TDataEdit_BaseFrm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Label4: TLabel;
    procedure FormResize(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LaneTime_Frm: TLaneTime_Frm;

implementation
uses Data_Unt;
{$R *.dfm}

procedure TLaneTime_Frm.FormResize(Sender: TObject);
var
i:integer;
begin
  inherited;
  {DBGrid1.Top:=Panel2.Top+round(2*Panel2.Height/3);
  DBGrid1.Height:=round(2*Panel2.Height/3)-4;
  DBEdit1.Top:=DBGrid1.Top-DBEdit1.Height-10;
  DBEdit2.Top:=DBEdit1.Top;
  DBEdit3.Top:=DBEdit1.Top;
  Label1.Top:=DBEdit1.Top;
  Label2.Top:=DBEdit1.Top;
  Label3.Top:=DBEdit1.Top;
  Label4.Top:=Panel2.Top+10;
  DBEdit4.Top:=Panel2.Top+10; }

  //DBEdit4.Width:=round(Panel2.Width/4);
  Label1.Left:=DBEdit1.Left-Label1.Width;

end;

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

end.