unit main;

interface

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

type
  TmainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    StatusBar1: TStatusBar;
    N21: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
    N51: TMenuItem;
    N61: TMenuItem;
    N71: TMenuItem;
    N42: TMenuItem;
    Database1: TDatabase;
    Image1: TImage;
    Timer1: TTimer;
    procedure N11Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure N71Click(Sender: TObject);
    procedure N61Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainForm: TmainForm;

implementation

uses login, password, lpgl, zhgl, tcgl, tctj, wgsf, tsgl, bxgl;

{$R *.dfm}

procedure TmainForm.N11Click(Sender: TObject);
begin
    Application.CreateForm(TloginForm, loginForm);
    loginform.Show;
    N11.Enabled:=false;
end;

procedure TmainForm.ToolButton1Click(Sender: TObject);
begin
    N11.Click;
end;

procedure TmainForm.N13Click(Sender: TObject);
begin
    Application.CreateForm(Tpassword_Form, password_Form);
    password_form.Show;
    N12.Enabled:=false;
end;

procedure TmainForm.N21Click(Sender: TObject);
begin
    Application.CreateForm(Tlpgl_Form, lpgl_Form);
    lpgl_form.Show;
    N21.Enabled:=false;
end;

procedure TmainForm.N31Click(Sender: TObject);
begin
    Application.CreateForm(Tzhgl_Form, zhgl_Form);
    zhgl_form.Show;
    N31.Enabled:=false;
end;

procedure TmainForm.N41Click(Sender: TObject);
begin
    Application.CreateForm(Ttcgl_Form, tcgl_Form);
    tcgl_form.Show;
    N41.Enabled:=false;
end;

procedure TmainForm.N42Click(Sender: TObject);
begin
    Application.CreateForm(Ttctj_Form, tctj_Form);
    tctj_form.Show;
    N42.Enabled:=false;
end;

procedure TmainForm.N51Click(Sender: TObject);
begin
    Application.CreateForm(Twgsf_Form, wgsf_Form);
    wgsf_form.Show;
    N51.Enabled:=false;
end;

procedure TmainForm.ToolButton2Click(Sender: TObject);
begin
    Close;
end;

procedure TmainForm.N71Click(Sender: TObject);
begin
    Application.CreateForm(Ttsgl_Form, tsgl_Form);
    tsgl_form.Show;
    N71.Enabled:=false;
end;

procedure TmainForm.N61Click(Sender: TObject);
begin
    Application.CreateForm(Tbxgl_Form, bxgl_Form);
    bxgl_form.Show;
    N61.Enabled:=false;
end;

procedure TmainForm.Timer1Timer(Sender: TObject);
begin
   with Statusbar1 do
   begin
   Panels[2].text:='2002級05班30號張雙紅制作';
   panels[1].text:=datetostr(date);
   panels[0].Text:=timetostr(time);
   end;

end;

end.