zlzhu.pas

模拟驾校的学院管理系统

unit zlzhu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, jpeg;

type
  TFrmzlzhu = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N12: TMenuItem;
    Image1: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmzlzhu: TFrmzlzhu;

implementation
 uses login,data,zlchaxun,zlluru, Unit2;
{$R *.dfm}

procedure TFrmzlzhu.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 frmlogin.Close;
 frmchaxun.Close;
end;

procedure TFrmzlzhu.N7Click(Sender: TObject);
begin
    frmluru.Show;
    
end;

procedure TFrmzlzhu.N8Click(Sender: TObject);
begin
frmchaxun.Show;
end;

procedure TFrmzlzhu.N6Click(Sender: TObject);
begin
 frmlogin.Close;
 frmchaxun.Close;
end;

procedure TFrmzlzhu.N12Click(Sender: TObject);
begin

AboutBox:=TAboutBox.Create(Self);
try
  AboutBox.ShowModal;
finally
AboutBox.free;

end;

end;
procedure TFrmzlzhu.N5Click(Sender: TObject);
begin
  frmlogin.Show;
  //frmzlzhu.Show;
end;

end.