formmanage.pas

jinxiaokucun.rar进销库存的源代码 应该很有帮助

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.