main.~pas

delphi 学生选课系统的实现 附有sql 语句

unit Main;

interface

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

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N12: TMenuItem;
    N11: TMenuItem;
    N13: TMenuItem;
    N2: TMenuItem;
    N5: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N3: TMenuItem;
    N32: TMenuItem;
    N31: TMenuItem;
    N4: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    procedure OnClose(Sender: TObject; var Action: TCloseAction);
    procedure N13Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N44Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses About, DataModule, ChangePassWord, QueryCourse, PersonInfo, IorDCourse,
     QueryScore, EnterScore, UserInfo, CourseInfo, StudentCoursInfo, CollegeInfo,
     Login;

{$R *.dfm}

procedure TMainForm.OnClose(Sender: TObject; var Action: TCloseAction);
begin
    Application.Terminate;
end;

procedure TMainForm.N13Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TMainForm.N52Click(Sender: TObject);
begin
  AboutForm.ShowModal;
end;

procedure TMainForm.N11Click(Sender: TObject);
begin
  ChangePassWordForm.ShowModal;
end;

procedure TMainForm.N21Click(Sender: TObject);
begin
  QueryCourseForm.Show;
end;

procedure TMainForm.N12Click(Sender: TObject);
begin
  PersonInfoForm.ShowModal;
end;

procedure TMainForm.N22Click(Sender: TObject);
begin
  IorDCourseForm.show;
end;

procedure TMainForm.N23Click(Sender: TObject);
begin
  QueryScoreForm.ShowModal;
end;

procedure TMainForm.N31Click(Sender: TObject);
begin
  QueryCourseForm.Show;
end;

procedure TMainForm.N32Click(Sender: TObject);
begin
  EnterScoreForm.ShowModal;
end;

procedure TMainForm.N41Click(Sender: TObject);
begin
  UserInfoForm.ShowModal;
end;

procedure TMainForm.N42Click(Sender: TObject);
begin
  CourseInfoForm.ShowModal;
end;

procedure TMainForm.N43Click(Sender: TObject);
begin
  StudentCoursInfoForm.ShowModal;
end;

procedure TMainForm.N44Click(Sender: TObject);
begin
  CollegeInfoForm.ShowModal;
end;

end.