mn.~pas

商品管理系统是面向超市类的商品数据库管理系统。其主要功能包括用户购买商品

unit mn;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ExtCtrls, StdCtrls, Buttons;

type
  TMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    U1: TMenuItem;
    M1: TMenuItem;
    Z1: TMenuItem;
    E1: TMenuItem;
    N2: TMenuItem;
    A1: TMenuItem;
    H1: TMenuItem;
    Timer1: TTimer;
    Label1: TLabel;
    Panel1: TPanel;
    CloseBtn: TSpeedButton;
    manBtn: TSpeedButton;
    HelpBtn: TSpeedButton;
    userBtn: TSpeedButton;
    desBtn: TSpeedButton;
    procedure E1Click(Sender: TObject);
    procedure A1Click(Sender: TObject);
    procedure U1Click(Sender: TObject);
    procedure M1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure CloseBtnClick(Sender: TObject);
    procedure userBtnClick(Sender: TObject);
    procedure manBtnClick(Sender: TObject);
    procedure HelpBtnClick(Sender: TObject);
    procedure desBtnClick(Sender: TObject);
    procedure Z1Click(Sender: TObject);
    procedure H1Click(Sender: TObject);
  
    private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Main: TMain;

implementation

uses about, user, front, pass, maen, Unit3, Unit4, Unit8, help;

{$R *.DFM}

procedure TMain.E1Click(Sender: TObject);
begin
  close;
end;

procedure TMain.A1Click(Sender: TObject);
begin
   aboutbox.show;
end;

procedure TMain.U1Click(Sender: TObject);
begin
   userbtnclick(sender);
end;


procedure TMain.M1Click(Sender: TObject);
begin
  manBtnClick(Sender);
end;

procedure TMain.Timer1Timer(Sender: TObject);
begin
   if label1.left>-label1.width then
      label1.left:=label1.Left-1
      else
      label1.left:=main.Width-25;
end;

procedure TMain.CloseBtnClick(Sender: TObject);
begin
   close;
end;

procedure TMain.userBtnClick(Sender: TObject);
begin
   uform.show;
end;

procedure TMain.manBtnClick(Sender: TObject);
begin
   form8.Caption:='经理输入密码';
   form8.show;
end;

procedure TMain.HelpBtnClick(Sender: TObject);
begin
  form11.show;
end;


procedure TMain.desBtnClick(Sender: TObject);
begin
  form8.Caption:='管理员输入密码';
  form8.show;
end;

procedure TMain.Z1Click(Sender: TObject);
begin
  desBtnClick(Sender);
end;

procedure TMain.H1Click(Sender: TObject);
begin
   helpbtnclick(sender);
end;

end.