unit1.pas

人力资源管理系统的源代码和毕业论文 人力资源管理系统是一个典型的信息管理系统(MIS)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N9: TMenuItem;
    N11: TMenuItem;
    procedure Button1Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);

  private
    { Private declarations }
    cr1:boolean;
  public
    { Public declarations }
    blogin:boolean;
 procedure init_f();
  end;

var
  Form1: TForm1;

implementation

uses
  Unit2,
  Unit30 ,
  Unit7,
  Unit9,
  Unit10,
  Unit22,
  Unit20,
  Unit13,
  Unit19,
  Unit4,
  Unit5,
  Unit15,
  Unit16,
  Unit6,
  Unit11,
  Unit8,
  Unit21,
  Unit23,
  Unit12,
  Unit17,
  Unit3,
  Unit14, Unit31;

{$R *.dfm}

procedure TForm1.init_f();
begin
if not cr1 then
begin



  form3.Visible:=false;
  form4.Visible:=false;
  form5.Visible:=false;
  form6.Visible:=false;
  form7.Visible:=false;
  form8.Visible:=false;
  form9.Visible:=false;
  form11.Visible:=false;
  form21.Visible:=false;
  form22.Visible:=false;
  form23.Visible:=false;
  form30.Visible:=false;
  form1.Visible:=false;
  form2.Visible:=true;
  cr1:=true;
end
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Visible:=true;

end;

procedure TForm1.N18Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
form2.WindowState:=wsNormal;
form2.Visible:=true;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
form3.Position:=poMainFormCenter;
form3.WindowState:=wsNormal;
form3.Refresh ;
form3.Visible:=true;

end;

procedure TForm1.N8Click(Sender: TObject);
begin
form4.WindowState:=wsNormal;
form4.Visible:=true;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
form5.WindowState:=wsNormal;
form5.Visible:=true;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
form6.WindowState:=wsNormal;
form6.Visible:=true;
end;

procedure TForm1.N14Click(Sender: TObject);
begin
form7.WindowState:=wsNormal;
form7.Visible:=true;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
form8.WindowState:=wsNormal;
form8.Visible:=true;
end;

procedure TForm1.N13Click(Sender: TObject);
begin
   form9.WindowState:=wsNormal;
form9.Visible:=true;
end;

procedure TForm1.N17Click(Sender: TObject);
begin
form23.WindowState:=wsNormal;
form23.Visible:=true;
end;

procedure TForm1.N11Click(Sender: TObject);
begin
form30.WindowState:=wsNormal;
form30.Visible:=true;
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
blogin:=false;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
if not blogin then
begin
form31.show;
blogin:=true;
end;

end;

end.