unit1.pas

本例是用delphi开发的学生与课程信息管理系统

unit Unit1;

interface

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

type
  TFormmain = class(TForm)
    MainMenu1: TMainMenu;
    Nstu: TMenuItem;
    Nstu_sel: TMenuItem;
    Nstu_add: TMenuItem;
    Nstu_del: TMenuItem;
    Ncou: TMenuItem;
    Ncou_alt: TMenuItem;
    Ncou_add: TMenuItem;
    Ncou_del: TMenuItem;
    Nsc: TMenuItem;
    Nsc_upd: TMenuItem;
    Ng_sel: TMenuItem;
    Nsys: TMenuItem;
    Nexit: TMenuItem;
    Label1: TLabel;
    Ncou_sel: TMenuItem;
    N1: TMenuItem;
    Nsc_sel: TMenuItem;
    procedure Nstu_selClick(Sender: TObject);
    procedure NexitClick(Sender: TObject);
    procedure Nstu_addClick(Sender: TObject);
    procedure Nstu_delClick(Sender: TObject);
    procedure Ncou_altClick(Sender: TObject);
    procedure Ncou_addClick(Sender: TObject);
    procedure Ncou_selClick(Sender: TObject);
    procedure Ncou_delClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure Nsc_updClick(Sender: TObject);
    procedure Nsc_selClick(Sender: TObject);
    procedure Ng_selClick(Sender: TObject);


  private
    { Private declarations }
  public

       
  end;

var
  Formmain: TFormmain;

implementation
  uses unit2,unit3, Unit4, Unit5, Unit6,unit7, Unit8, Unit9, Unit11,
  Unit14, Unit15;

{$R *.dfm}

procedure TFormmain.Nstu_selClick(Sender: TObject);
begin
  application.createform(Tformstu_sel,formstu_sel);
  formstu_sel.show;
end;

procedure TFormmain.NexitClick(Sender: TObject);
begin
  close;
end;

procedure TFormmain.Nstu_addClick(Sender: TObject);
begin
  application.CreateForm(tformstu_add,formstu_add);
  formstu_add.show;
end;

procedure TFormmain.Nstu_delClick(Sender: TObject);
begin
  application.createform(tformstu_del,formstu_del);
  formstu_del.show;
end;

procedure TFormmain.Ncou_altClick(Sender: TObject);
begin
  application.CreateForm(tformcou_alt,formcou_alt);
  formcou_alt.show;
end;

procedure TFormmain.Ncou_addClick(Sender: TObject);
begin
  application.CreateForm(tformcou_add,formcou_add);
  formcou_add.show;
end;

procedure TFormmain.Ncou_selClick(Sender: TObject);
begin
  application.CreateForm(tformcou_sel,formcou_sel);
  formcou_sel.show;
end;

procedure TFormmain.Ncou_delClick(Sender: TObject);
begin
  application.CreateForm(tformcou_del,formcou_del);
  formcou_del.show;
end;

procedure TFormmain.N1Click(Sender: TObject);
begin
  application.CreateForm(tformstu_alt,formstu_alt);
  formstu_alt.show;
end;

 procedure TFormmain.Nsc_updClick(Sender: TObject);
begin
  application.CreateForm(tformsc_login,formsc_login);
  formsc_login.show;
  
end;

procedure TFormmain.Nsc_selClick(Sender: TObject);
begin
  application.createform(tformsc_sel,formsc_sel);
  formsc_sel.show;
end;

procedure TFormmain.Ng_selClick(Sender: TObject);
begin
  application.createform(tformg_sel,formg_sel);
  formg_sel.show;

end;

end.