formmain.pas

来自「Delphi数据库编程」· PAS 代码 · 共 120 行

unit FormMain;

interface

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

type
  TfrmMain = class(TForm)
    MainMenu1: TMainMenu;
    mntCourse: TMenuItem;
    mntScore: TMenuItem;
    mntSystem: TMenuItem;
    mntCourseManage: TMenuItem;
    mntCourseArrange: TMenuItem;
    mntCourseQuery: TMenuItem;
    mntCourseClass: TMenuItem;
    mntScoreManage: TMenuItem;
    N2: TMenuItem;
    mntScoreStudent: TMenuItem;
    mntScoreClass: TMenuItem;
    mntSysUser: TMenuItem;
    N3: TMenuItem;
    mntSysAbout: TMenuItem;
    N4: TMenuItem;
    mntSysQuit: TMenuItem;
    dbCourseMIS: TDatabase;
    procedure mntCourseClassClick(Sender: TObject);
    procedure mntSysQuitClick(Sender: TObject);
    procedure mntCourseQueryClick(Sender: TObject);
    procedure mntCourseManageClick(Sender: TObject);
    procedure mntCourseArrangeClick(Sender: TObject);
    procedure mntScoreManageClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure mntScoreStudentClick(Sender: TObject);
    procedure mntScoreClassClick(Sender: TObject);
    procedure mntSysAboutClick(Sender: TObject);
    procedure mntSysUserClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses FormCourseManage, FormCourseClass, FormCourseQuery, FormCourseArrange,
  FormScoreManage, FormScoreStudent, FormScoreClass, FormAbout,
  FormUserManage;

{$R *.dfm}

procedure TfrmMain.FormShow(Sender: TObject);
begin
  dbCourseMIS.Connected := true;
end;

procedure TfrmMain.mntSysQuitClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  dbCourseMIS.Connected := false;
end;

procedure TfrmMain.mntCourseManageClick(Sender: TObject);
begin
  frmCourseManage.ShowModal;
end;

procedure TfrmMain.mntCourseArrangeClick(Sender: TObject);
begin
  frmCourseArrange.ShowModal;
end;

procedure TfrmMain.mntCourseQueryClick(Sender: TObject);
begin
  frmCourseQuery.ShowModal;
end;

procedure TfrmMain.mntCourseClassClick(Sender: TObject);
begin
  frmCourseClass.ShowModal;
end;

procedure TfrmMain.mntScoreManageClick(Sender: TObject);
begin
  frmScoreManage.ShowModal;
end;

procedure TfrmMain.mntScoreStudentClick(Sender: TObject);
begin
  frmScoreStudent.ShowModal;
end;

procedure TfrmMain.mntScoreClassClick(Sender: TObject);
begin
  frmScoreClass.ShowModal;
end;

procedure TfrmMain.mntSysUserClick(Sender: TObject);
begin
  frmUserManage.ShowModal;
end;

procedure TfrmMain.mntSysAboutClick(Sender: TObject);
begin
  frmAbout.ShowModal;
end;

end.