unit2.pas

药房管理程序实现药房的基本管理功能

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    N2: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N3: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    Image1: TImage;
    N14: TMenuItem;
    procedure N4Click(Sender: TObject);
   // procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit3,Unit4,Unit5,Unit6,Unit7,Unit8,Unit9,Unit10,Unit11,Unit12;

{$R *.dfm}

procedure TForm2.N4Click(Sender: TObject);
begin
   usergl_form.ShowModal
end;

//procedure TForm2.N5Click(Sender: TObject);
//begin
//   passwords_form.ShowModal
//end;

procedure TForm2.N6Click(Sender: TObject);
begin
   addgwc_form.ShowModal
end;

procedure TForm2.N7Click(Sender: TObject);
begin
      ypgl_form.ShowModal
      
end;

procedure TForm2.N8Click(Sender: TObject);
begin
     ypkcgl_form.ShowModal
     
end;

procedure TForm2.N9Click(Sender: TObject);
begin
      cgjh_form.ShowModal
end;

procedure TForm2.N10Click(Sender: TObject);
begin
        xsgl_form.ShowModal
end;

procedure TForm2.N11Click(Sender: TObject);
begin
      jsgl_form.ShowModal
end;

procedure TForm2.N12Click(Sender: TObject);
begin
     qygl_form.ShowModal
end;

procedure TForm2.N13Click(Sender: TObject);
begin
      xstj_form.ShowModal

end;

procedure TForm2.N14Click(Sender: TObject);
begin
  Close

end;

end.