kaoqi.~pas

来自「DElphi教学排课管理系统全套 包括论文。希望对大家有帮助」· ~PAS 代码 · 共 69 行

unit kaoqi;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, jpeg, ComCtrls;

type
  TForm22 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Label3: TLabel;
    StatusBar1: TStatusBar;
    SpeedButton5: TSpeedButton;
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form22: TForm22;

implementation

uses student, shooltime, kaomodify, kaotong, kaohelp;

{$R *.dfm}

procedure TForm22.SpeedButton4Click(Sender: TObject);
begin
     form2.show;
     form22.Hide;
end;

procedure TForm22.SpeedButton1Click(Sender: TObject);
begin
    form24.show; //调出考勤时间设置表单
end;

procedure TForm22.SpeedButton2Click(Sender: TObject);
begin
    form25.show; //调出教师出勤记录表单
end;

procedure TForm22.SpeedButton3Click(Sender: TObject);
begin
    form26.show;  //调出教师出勤统计表单

end;

procedure TForm22.SpeedButton5Click(Sender: TObject);
begin
   form23.show; //调出考勤管理子系统使用帮助
end;

end.