unitmainframe.~pas

用Delphi编写的一个库存管理系统

unit UnitMainFrame;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin;

type
  TFormMainFrame = class(TForm)
    MainMenu1: TMainMenu;
    MenuSystem: TMenuItem;
    MenuSaleInformationQuery: TMenuItem;
    MenuExist: TMenuItem;
    MenuStorage: TMenuItem;
    MenuStockManage: TMenuItem;
    MenuStorageOut: TMenuItem;
    MenuStorageIn: TMenuItem;
    MenuStorageQuery: TMenuItem;
    MenuSystemSet: TMenuItem;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolButtonSystemSet: TToolButton;
    ToolButtonStorageOutManage: TToolButton;
    ToolButtonStorageIn: TToolButton;
    ToolButtonStorageQuery: TToolButton;
    ToolButtonSaleInformationQuery: TToolButton;
    ToolButtonStockManage: TToolButton;
    PopupMenu1: TPopupMenu;
    PopMenuSystemSet: TMenuItem;
    PopMenuStorageOutManage: TMenuItem;
    PopMenuStorageInManage: TMenuItem;
    PopMenuStorageQuery: TMenuItem;
    PopMenuSaleInformationQuery: TMenuItem;
    PopMenuStockManage: TMenuItem;
    procedure MenuStorageOutClick(Sender: TObject);
    procedure MenuStorageInClick(Sender: TObject);
    procedure MenuStorageQueryClick(Sender: TObject);
    procedure MenuSaleInformationQueryClick(Sender: TObject);
    procedure MenuStockManageClick(Sender: TObject);
    procedure MenuExistClick(Sender: TObject);
    procedure MenuSystemSetClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormMainFrame: TFormMainFrame;

implementation

uses UnitStorageOutManage, UnitStorageInManage, UnitStorageQuery,
  UnitSaleInformationQuery, UnitStockManage, UnitSystemSet;

{$R *.dfm}
 //响应出库管理菜单点击事件
procedure TFormMainFrame.MenuStorageOutClick(Sender: TObject);
begin
  Application.CreateForm(TFormStorageOutManage, FormStorageOutManage);
end;

//响应入库管理菜单点击事件
procedure TFormMainFrame.MenuStorageInClick(Sender: TObject);
begin
  Application.CreateForm(TFormStorageInManage, FormStorageInManage);
end;

//响应库存查询菜单点击事件
procedure TFormMainFrame.MenuStorageQueryClick(Sender: TObject);
begin
  Application.CreateForm(TFormStorageQuery, FormStorageQuery);
end;

//响应销售管理菜单点击事件
procedure TFormMainFrame.MenuSaleInformationQueryClick(Sender: TObject);
begin
  Application.CreateForm(TFormSaleInformationQuery, FormSaleInformationQuery);
end;

//响应进货管理菜单点击事件
procedure TFormMainFrame.MenuStockManageClick(Sender: TObject);
begin
   Application.CreateForm(TFormStockManage, FormStockManage);
end;

procedure TFormMainFrame.MenuExistClick(Sender: TObject);
begin
   FormMainFrame.Close;
end;

//响应系统设置菜单点击事件
procedure TFormMainFrame.MenuSystemSetClick(Sender: TObject);
begin
Application.CreateForm(TFormSystemSet, FormSystemSet);
end;

end.