unit2.~pas

作者针对当前酒店客房管理的现状

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    Name_Edit: TEdit;
    Label2: TLabel;
    Password_Edit: TEdit;
    DataSource1: TDataSource;
    Query1: TQuery;
    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Password_EditKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
var
     Query:TQuery;

begin
    Name_Edit.Clear;

       Query:=TQuery.Create(nil);
       Query.DatabaseName:='gx';
       Query.SQL.Add('select UserName from Operator');
       Query.Open;
       if Query.RecordCount=0 then
       begin
          MessageDlg('没有可以登录的用户名',mtError,[mbok],0);
          Exit;
        end
 else

   end;



procedure TForm2.Button1Click(Sender: TObject);
var
   Query:TQuery;
begin
  try
     Query:=TQuery.Create(nil);
       Query.DatabaseName:='高校图书管理系统';
       Query.SQL.Add('select * from Operator where UserName=:UserName and UserPwd=:UserPwd');
       Query.ParamByName('UserName').AsString:=Name_Edit.Text;
       Query.ParamByName('UserPwd').AsString:=Password_Edit.Text;
       Query.Open;
    if Query.RecordCount=0 then
       begin
          MessageDlg('没有可以登录的用户名',mtError,[mbok],0);
          Exit;
        end;
        if query.FieldByName('Class').AsString = '管理员' then
        begin
            Form1.N1.Enabled:=true;
             Form1.N11.Enabled:=False;
             Form1.N12.Enabled:=true;
              Form1.N13.Enabled:=true;
              Form1.N14.Enabled:=true;
              Form1.N2.Enabled:=true;
              Form1.N21.Enabled:=true;
              Form1.N22.Enabled:=true;
              Form1.N3.Enabled:=true;
              Form1.N31.Enabled:=true;
              Form1.N32.Enabled:=true;
               Form1.N33.Enabled:=true;
               Form1.N34.Enabled:=true;
              Form1.N4.Enabled:=true;
              Form1.N41.Enabled:=true;
              Form1.N42.Enabled:=true;
              Form1.N5.Enabled:=true;
              Form1.N51.Enabled:=true;
              Form1.N52.Enabled:=true;
              Form1.N53.Enabled:=true;
              Form1.N54.Enabled:=true;
              Form1.N6.Enabled:=true;
              Form1.N61.Enabled:=true;
              Form1.N62.Enabled:=true;
              Form1.N63.Enabled:=true;
              Form1.N64.Enabled:=true;
        end;
         if query.FieldByName('Class').AsString = '操作员' then
        begin
            Form1.N1.Enabled:=true;
             Form1.N11.Enabled:=False;
             Form1.N12.Enabled:=true;
              Form1.N13.Enabled:=false;
              Form1.N14.Enabled:=true;
              Form1.N2.Enabled:=true;
              Form1.N21.Enabled:=true;
              Form1.N22.Enabled:=true;
              Form1.N3.Enabled:=true;
               Form1.N31.Enabled:=true;
              Form1.N32.Enabled:=true;
               Form1.N33.Enabled:=true;
               Form1.N34.Enabled:=true;
              Form1.N4.Enabled:=true;
              Form1.N4.Enabled:=true;
              Form1.N41.Enabled:=true;
              Form1.N42.Enabled:=true;
              Form1.N5.Enabled:=false;
              Form1.N51.Enabled:=false;
              Form1.N52.Enabled:=false;
              Form1.N53.Enabled:=false;
              Form1.N54.Enabled:=false;

              Form1.N6.Enabled:=false;
              Form1.N61.Enabled:=false;
              Form1.N62.Enabled:=false;
              Form1.N63.Enabled:=false;
              Form1.N64.Enabled:=false;

        end;
           if query.FieldByName('Class').AsString = '读者用户' then
        begin
            Form1.N1.Enabled:=true;
             Form1.N11.Enabled:=False;
             Form1.N12.Enabled:=true;
              Form1.N13.Enabled:=false;
              Form1.N14.Enabled:=true;
              Form1.N2.Enabled:=true;
              Form1.N21.Enabled:=true;
              Form1.N22.Enabled:=true;
              Form1.N3.Enabled:=false;
               Form1.N31.Enabled:=false;
              Form1.N32.Enabled:=false;
               Form1.N33.Enabled:=false;
               Form1.N34.Enabled:=false;
              Form1.N4.Enabled:=false;
               Form1.N41.Enabled:=false;
              Form1.N42.Enabled:=false;
              Form1.N5.Enabled:=true;
                Form1.N51.Enabled:=true;
              Form1.N52.Enabled:=true;
              Form1.N53.Enabled:=true;
              Form1.N54.Enabled:=true;
              Form1.N6.Enabled:=false;
              Form1.N6.Enabled:=false;
              Form1.N61.Enabled:=false;
              Form1.N62.Enabled:=false;
              Form1.N63.Enabled:=false;
              Form1.N64.Enabled:=false;
        end;
        Password_Edit.Text:='';
        Query.Close;
        Query.Free;
        Form1.Show;
        Form2.Close;
        Form1.SpeedButton1.Enabled:=false;
        Form1.StatusBar1.Panels[3].Text:=Name_Edit.Text;
         Form1.StatusBar1.Panels[5].Text:=FormatDateTime('yyyy-mm-dd',Now);
           Form1.StatusBar1.Panels[7].Text:=FormatDateTime('hh:mm:ss',Now);
        except
             MessageDlg('连接数据库出错',mtError,[mbok],0);
          end;
           end;

procedure TForm2.Button2Click(Sender: TObject);
begin
     close;
end;

procedure TForm2.Password_EditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
  Button1Click(Sender);
end;


procedure TForm2.FormShow(Sender: TObject);
begin
    Name_Edit.SetFocus;
end;


end.