unit1.pas

来自「delphi6.0电子寻更源程序,用来计算保安有无查抄」· PAS 代码 · 共 71 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ExtCtrls, StdCtrls, Mask, ToolEdit, Buttons, Grids, DBGrids;

type
  Tworker = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Panel3: TPanel;
    Edit1: TEdit;
    Label6: TLabel;
    DBGrid1: TDBGrid;
    Panel4: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn9: TBitBtn;
    TabSheet2: TTabSheet;
    Panel2: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label4: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    DateEdit2: TDateEdit;
    BitBtn7: TBitBtn;
    BitBtn4: TBitBtn;
    GroupBox2: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    DBGrid2: TDBGrid;
    Panel5: TPanel;
    BitBtn8: TBitBtn;
    BitBtn10: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  worker: Tworker;

implementation

{$R *.DFM}

procedure Tworker.FormClose(Sender: TObject; var Action: TCloseAction);
begin
dm_worker.Free;
dm_worker:=nil;
worker_print.Free;
worker_print:=nil;
//action:=cafree;
mainform.N_EDITWORKER.Enabled:=true;
mainform.ToolButton30.Enabled :=true;

end;

end.