unit2.pas

服装制造业的库存管理系统,服装进销存进货,库存,出货等等.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ImgList, ExtCtrls, SkinCtrls, Menus;

type
  TForm2 = class(TForm)
    spSkinToolBar1: TspSkinToolBar;
    spSkinSpeedButton1: TspSkinSpeedButton;
    spSkinBevel1: TspSkinBevel;
    spSkinSpeedButton3: TspSkinSpeedButton;
    spSkinBevel2: TspSkinBevel;
    spSkinSpeedButton6: TspSkinSpeedButton;
    spSkinBevel3: TspSkinBevel;
    spSkinSpeedButton7: TspSkinSpeedButton;
    spSkinBevel4: TspSkinBevel;
    spSkinSpeedButton10: TspSkinSpeedButton;
    spSkinSpeedButton11: TspSkinSpeedButton;
    spSkinBevel5: TspSkinBevel;
    spSkinSpeedButton12: TspSkinSpeedButton;
    spSkinSpeedButton2: TspSkinSpeedButton;
    spSkinSpeedButton5: TspSkinSpeedButton;
    ImageList1: TImageList;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    Timer1: TTimer;
    procedure N16Click(Sender: TObject);
    procedure spSkinSpeedButton12Click(Sender: TObject);
    procedure spSkinSpeedButton1Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N14Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure spSkinSpeedButton2Click(Sender: TObject);
    procedure spSkinSpeedButton5Click(Sender: TObject);
    procedure spSkinSpeedButton3Click(Sender: TObject);
    procedure spSkinSpeedButton6Click(Sender: TObject);
    procedure spSkinSpeedButton7Click(Sender: TObject);
    procedure spSkinSpeedButton10Click(Sender: TObject);
    procedure spSkinSpeedButton11Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
uses Unit3,Unit4,Unit5,Unit6,Unit7,Unit8,Unit9,Unit10,Unit11,unit12,Unit13,
  Unit14,Unit15,Unit16,Unit17,Unit1,Unit18;
{$R *.dfm}

procedure TForm2.N16Click(Sender: TObject);
begin
    Application.Terminate;
end;

procedure TForm2.spSkinSpeedButton12Click(Sender: TObject);
begin
   Application.Terminate;
end;

procedure TForm2.spSkinSpeedButton1Click(Sender: TObject);
begin
   form3.ShowModal;
end;

procedure TForm2.N10Click(Sender: TObject);
begin
   form3.ShowModal;
end;

procedure TForm2.N11Click(Sender: TObject);
begin
   form3.ShowModal;
end;

procedure TForm2.N12Click(Sender: TObject);
begin
   form3.ShowModal;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate;
end;

procedure TForm2.N14Click(Sender: TObject);
begin
   Form5.ShowModal;
end;

procedure TForm2.N18Click(Sender: TObject);
begin
    form6.ShowModal;
end;

procedure TForm2.N19Click(Sender: TObject);
begin
  Form7.ShowModal;
end;

procedure TForm2.N20Click(Sender: TObject);
begin
  Form8.ShowModal;
end;

procedure TForm2.N21Click(Sender: TObject);
begin
  Form8.ShowModal;
end;

procedure TForm2.N22Click(Sender: TObject);
begin
  Form9.ShowModal;
end;

procedure TForm2.N23Click(Sender: TObject);
begin
  Form10.ShowModal;
end;

procedure TForm2.N24Click(Sender: TObject);
begin
  form11.Showmodal;
end;

procedure TForm2.N25Click(Sender: TObject);
begin
  form12.Showmodal;
end;

procedure TForm2.N26Click(Sender: TObject);
begin
  Form13.ShowModal;
end;

procedure TForm2.N27Click(Sender: TObject);
begin
  form14.ShowModal;
end;

procedure TForm2.N28Click(Sender: TObject);
begin
  Form15.ShowModal;
end;

procedure TForm2.N30Click(Sender: TObject);
begin
  form16.ShowModal;
end;

procedure TForm2.N9Click(Sender: TObject);
begin
 Application.MessageBox('毕业设计-服装制造业的库存管理系统      ', '友情提示', 
   MB_OK + MB_ICONWARNING);
    
end;

procedure TForm2.N29Click(Sender: TObject);
begin
  Form17.ShowModal;
end;

procedure TForm2.spSkinSpeedButton2Click(Sender: TObject);
begin
    form6.ShowModal;
end;

procedure TForm2.spSkinSpeedButton5Click(Sender: TObject);
begin
  Form8.ShowModal;
end;

procedure TForm2.spSkinSpeedButton3Click(Sender: TObject);
begin
  Form9.ShowModal;
end;

procedure TForm2.spSkinSpeedButton6Click(Sender: TObject);
begin
  form11.Showmodal;
end;

procedure TForm2.spSkinSpeedButton7Click(Sender: TObject);
begin
  Form13.ShowModal;
end;

procedure TForm2.spSkinSpeedButton10Click(Sender: TObject);
begin
  Form17.ShowModal;
end;

procedure TForm2.spSkinSpeedButton11Click(Sender: TObject);
begin
  form16.ShowModal;
end;

procedure TForm2.FormShow(Sender: TObject);
begin
  if (Form1.Qx='操作者') or (Form1.Qx='浏览者') then
  begin
     N10.Enabled:=False;
     N12.Enabled:=False;
     N14.Enabled:=False;
  end;

end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled:=False;
  Form18.ShowModal;
end;

end.