mainfrm.pas

教务管理子系统的基本功能实现

unit mainfrm;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    ToolBar1: TToolBar;
    Timer1: TTimer;
    StatusBar1: TStatusBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
    { Private declarations }
    
  public
    { Public declarations }
      end;

var
  Form1: TForm1;

implementation

uses password;

{$R *.dfm}



procedure TForm1.SpeedButton1Click(Sender: TObject);
var
 PasswordDlg:TPasswordDlg;
begin
 SpeedButton1.Tag:=0;
 SpeedButton2.Tag:=1;
 SpeedButton3.Tag:=2;
 PasswordDlg:=TPasswordDlg.create(nil);
 try
   PasswordDlg.showmodal;
 finally
   PasswordDlg.free;
end;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
PasswordDlg:TPasswordDlg;
begin
 SpeedButton1.Tag:=1;
 SpeedButton2.Tag:=0;
 SpeedButton3.Tag:=2;
 PasswordDlg:=TPasswordDlg.create(nil);
 try
   PasswordDlg.showmodal;
 finally
   PasswordDlg.free;
end;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
PasswordDlg:TPasswordDlg;
begin
  SpeedButton1.Tag:=2;
 SpeedButton2.Tag:=1;
 SpeedButton3.Tag:=0;
 PasswordDlg:=TPasswordDlg.create(nil);
 try
   PasswordDlg.showmodal;
 finally
   PasswordDlg.free;
end;
end;




procedure TForm1.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[1].Text :='系统时间： ' +TimetoStr(Now);

end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
close;
end;

end.