unit1.~pas

ERP库存管理系统,分为ABC管理库存上下限报警等功能

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, WinSkinData, ToolWin, ComCtrls, ImgList, jpeg,
  ExtCtrls;

type
  Tmain_prog = class(TForm)
    Label1: TLabel;
    GroupBox1: TGroupBox;
    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;
    N17: TMenuItem;
    N18: TMenuItem;
    SkinData1: TSkinData;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N34: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    N35: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    Image1: TImage;
    procedure N19Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main_prog: Tmain_prog;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,
  Unit11, Unit12, Unit13, Unit16, Unit14, Unit17, Unit18, Unit19, Unit20,
  Unit21, Unit15, Unit23, Unit25, Unit26, Unit27, Unit24, Unit22;

{$R *.dfm}

procedure Tmain_prog.N19Click(Sender: TObject);
begin
  user_login.showmodal;
end;

procedure Tmain_prog.FormShow(Sender: TObject);
begin
    main_prog.n13.Enabled:=false;
    main_prog.n8.Enabled:=false;
    main_prog.n9.Enabled:=false;
    main_prog.n10.Enabled:=false;
    main_prog.n11.Enabled:=false;
    main_prog.n12.Enabled:=false;

    main_prog.n20.Enabled:=false;
    main_prog.n21.Enabled:=false;
    main_prog.n22.Enabled:=false;
    main_prog.n23.Enabled:=false;
    main_prog.n15.Enabled:=false;
    main_prog.n16.Enabled:=false;
    main_prog.n24.Enabled:=false;
    main_prog.n25.Enabled:=false;
    main_prog.n26.Enabled:=false;
    main_prog.n35.Enabled:=false;
    main_prog.n34.Enabled:=false;
    main_prog.n27.Enabled:=false;
    main_prog.n29.Enabled:=false;
    main_prog.n30.Enabled:=false;


{    main_prog.n5.enabled:=false;
    main_prog.N6.Enabled:=false;
    main_prog.N14.Enabled:=false;
    main_prog.N7.Enabled:=false;
    main_prog.N17.Enabled:=false;
    main_prog.N18.Enabled:=false;
    main_prog.N28.Enabled:=false;
    }
end;

procedure Tmain_prog.N2Click(Sender: TObject);
begin
  create_user.showmodal
end;

procedure Tmain_prog.N4Click(Sender: TObject);
begin
  main_prog.Close;
end;

procedure Tmain_prog.N3Click(Sender: TObject);
begin
  modify_passwd.showmodal;
end;

procedure Tmain_prog.N13Click(Sender: TObject);
begin
  create_storage.showmodal;
end;

procedure Tmain_prog.N8Click(Sender: TObject);
begin
  storage_type.showmodal;
end;

procedure Tmain_prog.N9Click(Sender: TObject);
begin
  storage_number.showmodal;
end;

procedure Tmain_prog.N10Click(Sender: TObject);
begin
  short_storage.showmodal;
end;

procedure Tmain_prog.N11Click(Sender: TObject);
begin
  over_storage.showmodal;
end;

procedure Tmain_prog.N12Click(Sender: TObject);
begin
  act_sum.showmodal;
end;

procedure Tmain_prog.N20Click(Sender: TObject);
begin
  in_storage.showmodal;
end;

procedure Tmain_prog.N21Click(Sender: TObject);
begin
  in_sata.showmodal;
end;

procedure Tmain_prog.N22Click(Sender: TObject);
begin
  out_storage.showmodal;
end;

procedure Tmain_prog.N23Click(Sender: TObject);
begin
  out_sata.showmodal;
end;

procedure Tmain_prog.N15Click(Sender: TObject);
begin
  check_sata.showmodal;
end;

procedure Tmain_prog.N16Click(Sender: TObject);
begin
  check_input.showmodal;
end;

procedure Tmain_prog.N24Click(Sender: TObject);
begin
  storage_sum.showmodal;
end;

procedure Tmain_prog.N25Click(Sender: TObject);
begin
  supply_wokes.showmodal;
end;

procedure Tmain_prog.N26Click(Sender: TObject);
begin
  user_wokes.showmodal;
end;

procedure Tmain_prog.N35Click(Sender: TObject);
begin
  data_update.showmodal;
end;

procedure Tmain_prog.N34Click(Sender: TObject);
begin
  analyes_abc.showmodal;
end;

procedure Tmain_prog.N27Click(Sender: TObject);
begin
  analyes_history.showmodal;
end;

procedure Tmain_prog.N30Click(Sender: TObject);
begin
  data_print.showmodal;
end;

procedure Tmain_prog.N32Click(Sender: TObject);
begin
  help.showmodal;
end;

procedure Tmain_prog.N33Click(Sender: TObject);
begin
  about.showmodal;
end;

procedure Tmain_prog.N29Click(Sender: TObject);
begin
  storage_find.showmodal;
end;

end.