guanyu.pas

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

unit guanyu;

interface

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

type
  TForm12 = class(TForm)
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinButton5: TbsSkinButton;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinDBEdit4: TbsSkinDBEdit;
    bsSkinDBEdit5: TbsSkinDBEdit;
    bsSkinDBEdit6: TbsSkinDBEdit;
    bsSkinDBEdit7: TbsSkinDBEdit;
    bsSkinDBEdit9: TbsSkinDBEdit;
    bsSkinDBEdit8: TbsSkinDBEdit;
    bsSkinLabel1: TbsSkinLabel;
    bsSkinLabel2: TbsSkinLabel;
    bsSkinLabel3: TbsSkinLabel;
    bsSkinLabel4: TbsSkinLabel;
    bsSkinLabel5: TbsSkinLabel;
    bsSkinLabel6: TbsSkinLabel;
    bsSkinLabel7: TbsSkinLabel;
    bsSkinLabel8: TbsSkinLabel;
    bsSkinLabel9: TbsSkinLabel;
    bsSkinGroupBox4: TbsSkinGroupBox;
    bsSkinDBEdit10: TbsSkinDBEdit;
    bsSkinDBEdit11: TbsSkinDBEdit;
    bsSkinLabel10: TbsSkinLabel;
    bsSkinLabel11: TbsSkinLabel;
    bsSkinGroupBox5: TbsSkinGroupBox;
    bsSkinDBMemo1: TbsSkinDBMemo;
    bsSkinDBImage1: TbsSkinDBImage;
    bsSkinLabel12: TbsSkinLabel;
    bsSkinLabel13: TbsSkinLabel;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinGroupBox6: TbsSkinGroupBox;
    bsSkinLabel14: TbsSkinLabel;
    bsSkinLabel15: TbsSkinLabel;
    bsSkinLabel16: TbsSkinLabel;
    bsSkinLabel17: TbsSkinLabel;
    bsSkinLabel18: TbsSkinLabel;
    bsSkinLabel19: TbsSkinLabel;
    bsSkinDBEdit12: TbsSkinDBEdit;
    bsSkinDBEdit13: TbsSkinDBEdit;
    bsSkinDBEdit14: TbsSkinDBEdit;
    bsSkinDBEdit15: TbsSkinDBEdit;
    bsSkinDBEdit16: TbsSkinDBEdit;
    bsSkinDBEdit17: TbsSkinDBEdit;
    bsSkinDBMemo2: TbsSkinDBMemo;
    bsSkinLabel20: TbsSkinLabel;
    bsSkinTabSheet3: TbsSkinTabSheet;
    bsSkinGroupBox7: TbsSkinGroupBox;
    bsSkinLabel21: TbsSkinLabel;
    bsSkinLabel22: TbsSkinLabel;
    bsSkinLabel23: TbsSkinLabel;
    bsSkinLabel24: TbsSkinLabel;
    bsSkinDBEdit18: TbsSkinDBEdit;
    bsSkinDBEdit19: TbsSkinDBEdit;
    bsSkinDBEdit20: TbsSkinDBEdit;
    bsSkinDBMemo3: TbsSkinDBMemo;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    Panel1: TPanel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bsSkinButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form12: TForm12;

implementation

uses Unit3;

{$R *.dfm}

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

procedure TForm12.bsSkinButton5Click(Sender: TObject);
begin
close;
end;

end.