unit15.pas

该系统是学生人事管理系统

unit Unit15;

interface

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

type
  TForm15 = class(TForm)
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinButton3: TbsSkinButton;
    bsSkinGroupBox2: TbsSkinGroupBox;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    DataSetInsert1: TDataSetInsert;
    DataSetDelete1: TDataSetDelete;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    procedure bsSkinButton3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form15: TForm15;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm15.bsSkinButton3Click(Sender: TObject);
begin
close;
end;

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

end.