graderegunit.pas

来自「一个小的成绩信息管理系统」· PAS 代码 · 共 64 行

unit graderegUnit;

interface

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

type
  TgraderegForm = class(TForm)
    CoolBar1: TCoolBar;
    sb1: TSpeedButton;
    sb2: TSpeedButton;
    sb3: TSpeedButton;
    sb4: TSpeedButton;
    sb5: TSpeedButton;
    sb6: TSpeedButton;
    sb7: TSpeedButton;
    Label8: TLabel;
    listview1: TListView;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit6: TEdit;
    ADOQuery1: TADOQuery;
    Edit5: TEdit;
    Label5: TLabel;
    Label7: TLabel;
    Edit7: TEdit;
    procedure sb7Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  graderegForm: TgraderegForm;

implementation

{$R *.dfm}

procedure TgraderegForm.sb7Click(Sender: TObject);
begin
  close;
end;

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

end.