formmanage.~pas

一个简单的进销存系统： BOM 管理 销售管理 采购管理 外发管理 库存管理 送货管理

unit FormManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, formlogin,forminput,formoutput;

type
  Tmanage = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    StatusBar1: TStatusBar;
    Image1: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  manage: Tmanage;

implementation

uses FormInfo, FormRights, FormStore;

{$R *.dfm}

procedure Tmanage.FormClose(Sender: TObject; var Action: TCloseAction);
begin
login.show;
end;

procedure Tmanage.Button2Click(Sender: TObject);
begin
input.Visible:=true;
manage.Hide;
end;

procedure Tmanage.Button1Click(Sender: TObject);
begin
info.Visible:=true;
info.Caption:='资料管理';
manage.Hide;
end;

procedure Tmanage.Button4Click(Sender: TObject);
begin
manage.Hide;
store.visible:=true;
end;

procedure Tmanage.Button5Click(Sender: TObject);
begin
rights.visible:=true;
manage.hide;
end;



procedure Tmanage.Button3Click(Sender: TObject);
begin
output.visible:=true;
manage.hide;
end;

end.