formmain.pas

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

unit FormMain;

interface

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

type
  TfrmMain = class(TForm)
    MainMenu: TMainMenu;
    mntSystem: TMenuItem;
    mntSysDepart: TMenuItem;
    mntSysClass: TMenuItem;
    mntSysSP: TMenuItem;
    mntSysQuit: TMenuItem;
    mntStudent: TMenuItem;
    mntStudentManage: TMenuItem;
    mntStudentSP: TMenuItem;
    mntStudentQuery: TMenuItem;
    mntEduAdmin: TMenuItem;
    mntEduChange: TMenuItem;
    mntEdtReward: TMenuItem;
    mntEdtPunish: TMenuItem;
    dbStudent: TDatabase;
    procedure mntSysDepartClick(Sender: TObject);
    procedure mntSysQuitClick(Sender: TObject);
    procedure mntSysClassClick(Sender: TObject);
    procedure mntStudentQueryClick(Sender: TObject);
    procedure mntStudentManageClick(Sender: TObject);
    procedure mntEduChangeClick(Sender: TObject);
    procedure mntEdtRewardClick(Sender: TObject);
    procedure mntEdtPunishClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses FormDepartment, FormClass, FormQuery, FormStudent, FormChange, FormPunish, FormReward;

{$R *.dfm}

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

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

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

procedure TfrmMain.mntSysDepartClick(Sender: TObject);
begin
  frmDepartment.ShowModal
end;

procedure TfrmMain.mntSysClassClick(Sender: TObject);
begin
  frmClass.ShowModal
end;

procedure TfrmMain.mntStudentManageClick(Sender: TObject);
begin
  frmStudent.ShowModal;
end;

procedure TfrmMain.mntStudentQueryClick(Sender: TObject);
begin
  frmQuery.ShowModal;
end;

procedure TfrmMain.mntEduChangeClick(Sender: TObject);
begin
  frmChange.ShowModal;
end;

procedure TfrmMain.mntEdtRewardClick(Sender: TObject);
begin
  frmReward.ShowModal;
end;

procedure TfrmMain.mntEdtPunishClick(Sender: TObject);
begin
  frmPunish.ShowModal;
end;

end.