unit4.pas

来自「该系统是学生人事管理系统」· PAS 代码 · 共 55 行

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBActns, ActnList, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls,
  bsSkinCtrls, ComCtrls, bsSkinTabs;

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinGroupBox2: TbsSkinGroupBox;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    bsSkinGroupBox3: TbsSkinGroupBox;
    DBGrid1: TDBGrid;
    bsSkinGroupBox4: TbsSkinGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Panel2: TPanel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:=caFree;
end;

end.