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;
    N5: TMenuItem;
    N6: TMenuItem;
    NStudentInfo: TMenuItem;
    Nset: TMenuItem;
    NOperator: TMenuItem;
    NChangePwd: TMenuItem;
    Panel1: TPanel;
    TBar: TToolBar;
    tbtnStudent: TToolButton;
    ToolButton2: TToolButton;
    tbtnClass: TToolButton;
    ToolButton4: TToolButton;
    tbtnCompany: TToolButton;
    ToolButton6: TToolButton;
    tbtnEmploy: TToolButton;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    Ncompany: TMenuItem;
    Njob: TMenuItem;
    tbtnJob: TToolButton;
    NEmploy: TMenuItem;
    N3: TMenuItem;
    NClass: 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 NcompanyClick(Sender: TObject);
    procedure NjobClick(Sender: TObject);
    procedure NworkClick(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_CompanyU,frm_employU,
frm_jobU;
{$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.NcompanyClick(Sender: TObject);
var
  frm_Company:Tfrm_Company;
begin
  frm_company:=Tfrm_company.Create(self);
  frm_company.ShowModal;
end;

procedure TFrm_main.NjobClick(Sender: TObject);
var
  frm_job:Tfrm_job;
begin
  frm_job:=Tfrm_job.Create(self);
  frm_job.ShowModal;
end;

procedure TFrm_main.NworkClick(Sender: TObject);
var
  frm_employ:Tfrm_employ;
begin
  frm_employ:=Tfrm_employ.Create(self);
  frm_employ.ShowModal;
end;

end.