formmanage.pas

来自「医院药品进销存系统 DELPHI7+SQL2000」· PAS 代码 · 共 87 行

unit FormManage;

interface

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

type
  Tmanage = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Button5: TButton;
    StatusBar1: TStatusBar;
    Image1: TImage;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button5Click(Sender: TObject);
   
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
//    procedure FormPaint(Sender: TObject);
//    procedure Button3Click(Sender: TObject);
//    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
  Password: Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  manage: Tmanage;

implementation

uses FormRights, FormLogin,  FormStock, FormAdmin, FormInfo;

{$R *.dfm}
//---------------------管理窗体关闭时返回登录界面------------------
procedure Tmanage.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Login.Show;

end;




procedure Tmanage.Button5Click(Sender: TObject);
begin
rights.Visible:=true;

manage.Hide;
end;



procedure Tmanage.Button2Click(Sender: TObject);
begin
stock.visible:=true;
manage.hide;
end;

procedure Tmanage.Button4Click(Sender: TObject);
begin
admin.visible:=true;
manage.hide;
end;

procedure Tmanage.Button1Click(Sender: TObject);
begin

Info.visible:=true;
manage.hide;
end;

end.