unit17.pas

来自「酒店管理系统」· PAS 代码 · 共 82 行

unit Unit17;

interface

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

type
  TForm17 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    LvNeoButton1: TLvNeoButton;
    LvNeoButton2: TLvNeoButton;
    DataSource1: TDataSource;
    Table1: TTable;
    procedure LvNeoButton1Click(Sender: TObject);
    procedure LvNeoButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form17: TForm17;

implementation

uses mainform;

{$R *.dfm}

procedure TForm17.LvNeoButton1Click(Sender: TObject);
begin

if edit1.Text='' then
showmessage('请输入管理员代号!')
else
if edit2.Text='' then
showmessage('请输入密码！')
else
begin
table1.Open;
with table1 do
begin
if not findkey([edit1.text]) then
messagebox(form17.handle,'没有此管理员!','提示',mb_ok+mb_iconwarning)
else
if fieldbyname('password').AsString<>edit2.Text then
messagebox(form17.handle,'密码错误！','密码',mb_ok+mb_iconerror)
else
if messagebox(form17.handle,'登录成功','提示',mb_ok+mb_iconinformation)=mrok then
begin
mainfor.statusbar1.Panels[1].Text:='状态：管理员---'+form17.Edit1.Text;
edit1.Clear;
edit2.Clear;
form17.Close;
mainfor.LabelBtn7.Caption:='注销';
mainfor.HemiBtn1.Enabled:=true;
mainfor.HemiBtn2.Enabled:=true;
mainfor.HemiBtn3.Enabled:=true;
mainfor.HemiBtn4.Enabled:=true;
mainfor.HemiBtn5.Enabled:=true;
mainfor.HemiBtn7.Enabled:=true;
end;
end;
end;
end;

procedure TForm17.LvNeoButton2Click(Sender: TObject);
begin
form17.Close;
edit1.Clear;
edit2.Clear;
end;

end.