unit4.~pas

来自「库存管理系统,刚做好的,功能还没做全,还望包涵」· ~PAS 代码 · 共 57 行

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses Unit1, Unit2, Unit3, Unit5, Unit6;

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
form1.close
end;

procedure TForm4.N5Click(Sender: TObject);
begin
if messagedlg('是否关闭窗口(Y/N)?' ,
    mtconfirmation,[mbyes]+[mbno],0)=6 then
    form6.showmodal
       else
   Application.Run;
end;

procedure TForm4.N3Click(Sender: TObject);
begin
form5.show
end;

end.