formmanage.pas

《Delphi数据库应用项目开发实践》配书光盘

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;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    StatusBar1: TStatusBar;
    Image1: TImage;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button5Click(Sender: TObject);
    procedure Button3Click(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, FormSell, FormStock, FormAdmin, FormInfo;

{$R *.dfm}
//---------------------管理窗体关闭时返回登录界面------------------
procedure Tmanage.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Login.Show;
//Manage.Close;
end;
{//---------------------打开进货单窗体并隐藏管理窗体------------------
procedure Tmanage.Button2Click(Sender: TObject);
begin
input.Visible:=true;
manage.Hide;
end;
//---------------------打开信息管理窗体并隐藏管理窗体------------------
procedure Tmanage.Button1Click(Sender: TObject);
begin
info.Visible:=true;
info.Caption:='资料管理';
manage.Hide;
end;
//---------------------打开库存查询窗体并隐藏管理窗体------------------
procedure Tmanage.Button4Click(Sender: TObject);
begin
manage.Hide;
store.visible:=true;
end;
//---------------------打开权限管理窗体并隐藏管理窗体------------------
procedure Tmanage.Button5Click(Sender: TObject);
begin
rights.visible:=true;
manage.hide;
end;     }
//---------------------打开销售单窗体并隐藏管理窗体------------------
procedure Tmanage.Button3Click(Sender: TObject);
begin
sell.visible:=true;
manage.hide;
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.