ubedroom.~pas

来自「ＤＥＬＰＨＩ开发的寝室管理系统」· ~PAS 代码 · 共 130 行

unit Ubedroom;

interface

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

type
  Tfrmbedroom = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Image1: TImage;
    Button1: TBitBtn;
    Button2: TBitBtn;
    Button3: TBitBtn;
    Button4: TBitBtn;
    Button5: TBitBtn;
    Button6: TBitBtn;
    Button7: TBitBtn;
    Button8: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmbedroom: Tfrmbedroom;

implementation
uses ulogin,umanager,ubedroominfo,ucustomer,uduty,uweisheng,Umovement;

{$R *.dfm}

procedure Tfrmbedroom.FormCreate(Sender: TObject);
begin
  self.Width:=384;
  self.Height:=471;
  self.Left:=(screen.Width-self.Width)div 2;
  self.Top:=(screen.Height-self.Height)div 2;
  self.Panel1.Width:=230;

  self.Button1.Top:=(self.Panel2.Height-11*self.Button1.Height)div 4;
  self.Button1.Left:=(self.Panel2.Width-self.Button1.Width)div 2;

  self.Button2.Top:=self.Button1.Top+3*self.Button1.Height div 2;
  self.Button2.Left:=self.Button1.Left;

  self.Button3.Top:=self.Button2.Top+3*self.Button1.Height div 2;
  self.Button3.Left:=self.Button1.Left;

  self.Button4.Top:=self.Button3.Top+3*self.Button1.Height div 2;
  self.Button4.Left:=self.Button1.Left;

  self.Button5.Top:=self.Button4.Top+3*self.Button1.Height div 2;
  self.Button5.Left:=self.Button1.Left;

  self.Button6.Top:=self.Button5.Top+3*self.Button1.Height div 2;
  self.Button6.Left:=self.Button1.Left;

  self.Button7.Top:=self.Button6.Top+3*self.Button1.Height div 2;
  self.Button7.Left:=self.Button1.Left;

  self.Button8.Top:=self.Button7.Top+3*self.Button1.Height div 2;
  self.Button8.Left:=self.Button1.Left;


  self.Button1.Enabled:=true;
  self.Button2.Enabled:=false;
  self.Button3.Enabled:=false;
  self.Button4.Enabled:=false;
  self.Button5.Enabled:=false;
  self.Button6.Enabled:=false;
  self.Button7.Enabled:=false;
  self.Button8.Enabled:=true;
end;

procedure Tfrmbedroom.Button1Click(Sender: TObject);
begin
  frmlogin.Show;
  self.Visible:=false;
end;

procedure Tfrmbedroom.Button2Click(Sender: TObject);
begin
  frmmanager.Show;
end;

procedure Tfrmbedroom.Button3Click(Sender: TObject);
begin
  frmbedroominfo.Show;
end;

procedure Tfrmbedroom.Button4Click(Sender: TObject);
begin
  frmduty.Show;
end;

procedure Tfrmbedroom.Button5Click(Sender: TObject);
begin
  frmweisheng.Show;
end;

procedure Tfrmbedroom.Button6Click(Sender: TObject);
begin
  frmcustomer.Show;
end;

procedure Tfrmbedroom.Button7Click(Sender: TObject);
begin
  frmmovement.Show;
end;

procedure Tfrmbedroom.Button8Click(Sender: TObject);
begin
  close;
end;

end.