unit16.pas

酒店管理系统

unit Unit16;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, LvNeoButton, ExtCtrls;

type
  TForm16 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    DataSource1: TDataSource;
    Table1: TTable;
    LvNeoButton1: TLvNeoButton;
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox2: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    LvNeoButton2: TLvNeoButton;
    LvNeoButton3: TLvNeoButton;
    Panel3: TPanel;
    LvNeoButton4: TLvNeoButton;
    procedure LvNeoButton1Click(Sender: TObject);
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure GroupBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel2MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel1Click(Sender: TObject);
    procedure Panel2Click(Sender: TObject);
    procedure LvNeoButton2Click(Sender: TObject);
    procedure LvNeoButton3Click(Sender: TObject);
    procedure LvNeoButton4Click(Sender: TObject);
    procedure Panel3Click(Sender: TObject);
    procedure Panel3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Panel3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel3MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure GroupBox2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form16: TForm16;

implementation

{$R *.dfm}

procedure TForm16.LvNeoButton1Click(Sender: TObject);
begin
if length(edit1.Text)>20 then
messagebox(form16.handle,'用户名过长,请重写!','警告',mb_ok+mb_iconwarning)
else
if length(edit2.Text)>20 then
messagebox(form16.Handle,'密码过长,请重写!','警告',mb_ok+mb_iconwarning)
else
if edit1.Text='' then
showmessage('用户名不能为空!')
else
if edit2.Text='' then
showmessage('密码不能为空!')
else
begin
table1.Open;
with table1 do
begin
if findkey([edit1.text]) then
messagebox(form16.handle,'此用户名已存在!','警告',mb_ok+mb_iconwarning)
else
begin
table1.Insert;
fieldbyname('user').AsString:=edit1.Text;
fieldbyname('password').AsString:=edit2.Text;
if messagebox(form16.Handle,'注册成功!','注册',mb_ok+mb_iconinformation)=mrok then
begin
edit1.Clear;
edit2.Clear;
end;
end;
end;
end;
end;


procedure TForm16.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
panel1.BevelOuter:=bvRaised
end;

procedure TForm16.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
panel1.BevelOuter:=bvLowered;
end;

procedure TForm16.Panel1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
panel1.BevelOuter:=bvNone;
end;

procedure TForm16.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
panel1.BevelOuter:=bvNone;
panel2.BevelOuter:=bvNone;
panel3.BevelOuter:=bvNone;
end;

procedure TForm16.GroupBox1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
panel1.BevelOuter:=bvNone;
panel2.BevelOuter:=bvNone;
panel3.BevelOuter:=bvNone;
end;
         
procedure TForm16.Panel2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
panel2.BevelOuter:=bvLowered;
end;

procedure TForm16.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
panel2.BevelOuter:=bvRaised
end;

procedure TForm16.Panel2MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
panel2.BevelOuter:=bvNone;
end;

procedure TForm16.Panel1Click(Sender: TObject);
begin
groupbox1.Show;     
groupbox2.hide;
end;

procedure TForm16.Panel2Click(Sender: TObject);
begin
groupbox1.Hide;
groupbox2.show;
end;

procedure TForm16.LvNeoButton2Click(Sender: TObject);
begin
if edit3.Text='' then
showmessage('请输入管理员代号！')
else
if edit4.Text=''then
showmessage('请输入旧密码！')
else
if edit5.Text='' then
showmessage('请输入新密码')
else
if length(edit5.Text)>20 then
showmessage('新密码过长!')
else
begin
table1.Open;
with table1 do
begin
if not findkey([edit3.text]) then
messagebox(form16.Handle,'此管理员不存在！','提示',mb_ok+mb_iconwarning)
else
if fieldbyname('password').AsString<>edit4.Text then
messagebox(form16.Handle,'密码错误！','错误',mb_ok+mb_iconerror)
else
begin
table1.Edit;
fieldbyname('password').AsString:=edit5.Text;
if messagebox(form16.handle,'修改成功！','提示',mb_ok+mb_iconinformation)=mrok then
begin
edit3.Clear;
edit4.Clear;
edit5.Clear;
end;
end;
end;
end;
end;

procedure TForm16.LvNeoButton3Click(Sender: TObject);
begin
edit3.Clear;
edit4.Clear;
edit5.Clear;
end;

procedure TForm16.LvNeoButton4Click(Sender: TObject);
begin
if edit3.Text='' then
messagebox(form16.handle,'请输入将要删除的管理员！','提示',mb_ok+mb_iconwarning)
else
if messagebox(handle,'你真的要删除这个管理员吗？','提示',mb_yesno+mb_iconquestion)=mryes then
begin
with table1 do
begin
table1.Open;
if not findkey([edit3.Text]) then
messagebox(form16.handle,'管理员不存在！','提示',mb_ok+mb_iconwarning)
else
begin
table1.Delete;
showmessage('删除成功！');
end;
end;
end;
end;

procedure TForm16.Panel3Click(Sender: TObject);
begin
form16.Close;
end;

procedure TForm16.Panel3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
panel3.BevelOuter:=bvLowered;
end;

procedure TForm16.Panel3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
panel3.BevelOuter:=bvRaised
end;

procedure TForm16.Panel3MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
panel3.BevelOuter:=bvNone;
end;

procedure TForm16.GroupBox2MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
panel1.BevelOuter:=bvNone;
panel2.BevelOuter:=bvNone;
panel3.BevelOuter:=bvNone;
end;

end.