【delphi开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-FormManage.pas的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    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;
    Application.Terminate();
    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.