unplan.pas

设备巡检操作系统 本程序是专门为某电厂开发的设备巡检系统

unit UnPlan;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ToolWin;

type
  TPlan_frm = class(TForm)
    Label16: TLabel;
    Edit16: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Edit5: TEdit;
    Label6: TLabel;
    Edit6: TEdit;
    Label7: TLabel;
    Edit7: TEdit;
    ComboBox1: TComboBox;
    ToolBar3: TToolBar;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Plan_frm: TPlan_frm;

implementation

uses Undm;

{$R *.dfm}

procedure TPlan_frm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=cafree;
end;

end.