frm_mainu.pas

这是一个学生学籍管理系统

unit frm_mainU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, ComCtrls, ToolWin,ClassesU,Config;

type
  TFrm_main = class(TForm)
    Mmenu: TMainMenu;
    N1: TMenuItem;
    NClose: TMenuItem;
    Nstatus: TMenuItem;
    N6: TMenuItem;
    NStudentInfo: TMenuItem;
    Nevaluation: TMenuItem;
    Nset: TMenuItem;
    NOperator: TMenuItem;
    NChangePwd: TMenuItem;
    Panel1: TPanel;
    TBar: TToolBar;
    tbtnStudent: TToolButton;
    ToolButton2: TToolButton;
    tbtnEvaluation: TToolButton;
    ToolButton4: TToolButton;
    tbtnExperience: TToolButton;
    ToolButton6: TToolButton;
    tbtnOut: TToolButton;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    Nexperience: TMenuItem;
    Nclass: TMenuItem;
    N5: TMenuItem;
    Nout: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure NOperatorClick(Sender: TObject);
    procedure NStudentInfoClick(Sender: TObject);
    procedure NCloseClick(Sender: TObject);
    procedure NChangePwdClick(Sender: TObject);
    procedure NclassClick(Sender: TObject);
    procedure NoutClick(Sender: TObject);
    procedure NevaluationClick(Sender: TObject);
    procedure NexperienceClick(Sender: TObject);
  private
    { Private declarations }
  public
    CurrentUser:TOperator;
  end;

var
  Frm_main: TFrm_main;

implementation
uses frm_loginU,frm_StudentU,frm_operatorU,
frm_changePwdU,frm_classU,frm_statusU,frm_evaluationU,
frm_experienceU;
{$R *.dfm}

procedure TFrm_main.FormCreate(Sender: TObject);
var
  frm_login:Tfrm_login;
begin
  frm_login:=Tfrm_login.Create(self);
  frm_login.ShowModal;
end;

procedure TFrm_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Config.ADOCon.Close;
end;

procedure TFrm_main.NOperatorClick(Sender: TObject);
var
  frm_operator:Tfrm_operator;
begin
frm_operator:=Tfrm_operator.Create(self);
frm_operator.ShowModal;
end;

procedure TFrm_main.NStudentInfoClick(Sender: TObject);
var
  frm_Student:Tfrm_Student;
begin
  frm_Student:=Tfrm_Student.Create(self);
  frm_Student.ShowModal;

end;

procedure TFrm_main.NCloseClick(Sender: TObject);
begin
  close;
end;

procedure TFrm_main.NChangePwdClick(Sender: TObject);
var
  frm_changePwd:Tfrm_changePwd;
begin
  frm_changePwd:=Tfrm_changePwd.Create(self);
  frm_changePwd.currentUser:=self.CurrentUser;
  frm_changePwd.ShowModal;
end;

procedure TFrm_main.NclassClick(Sender: TObject);
var
  frm_class:Tfrm_class;
begin
  frm_class:=Tfrm_class.Create(self);
  frm_class.ShowModal;
end;

procedure TFrm_main.NoutClick(Sender: TObject);
var
  frm_status:Tfrm_status;
begin
  frm_status:=Tfrm_status.Create(self);
  frm_status.ShowModal;
end;

procedure TFrm_main.NevaluationClick(Sender: TObject);
var
  frm_evaluation:Tfrm_evaluation;
begin
  frm_evaluation:=Tfrm_evaluation.Create(self);
  frm_evaluation.ShowModal;
end;

procedure TFrm_main.NexperienceClick(Sender: TObject);
var
  frm_experience:Tfrm_experience;
begin
  frm_experience:=Tfrm_experience.Create(self);
  frm_experience.ShowModal;
end;

end.