unit login;

interface

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

type
  TFormlogin = class(TForm)
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formlogin: TFormlogin;

implementation
 uses main, datamodel;
{$R *.dfm}

procedure TFormlogin.Button1Click(Sender: TObject);
var
  user,pass,temp:string;

   begin
      user:=ComboBox1.Text;
      pass:=edit2.Text;

         ADOQuery1.Close;
         ADOQuery1.SQL.Clear;
         ADOQuery1.SQL.Text:='select 用戶名 from 用戶 where 用戶名='''+user+''' and 密碼 ='''+pass+'''';
         ADOQuery1.Open;
        temp:=ADOQuery1.Fieldbyname('用戶名').AsString;
        if temp<>'' then
           begin
           //先將所有按鈕置為不可用
           formmain.Button1.Enabled:=false; //系統管理
           formmain.Button3.Enabled:=false;//入庫管理
           formmain.Button5.Enabled:=false;//庫存預警
           formmain.Button6.Enabled:=false; //出庫管理
               {檢查用戶是否有系統管理權限}
              ADOQuery1.Close;
              ADOQuery1.SQL.Clear;
              ADOQuery1.SQL.Text:='select 權限序號 from 權限清單 where 用戶名='''+temp+''' and 權限名稱=''系統設置''';
              ADOQuery1.Open;
            if ADOQuery1.FieldByName('權限序號').AsString<>'' then
              formmain.Button1.Enabled:=true;

               {檢查是否有入庫管理權限}
               ADOQuery1.Close;
               ADOQuery1.SQL.Clear;
               ADOQuery1.SQL.Text:='select 權限序號 from 權限清單 where 用戶名='''+temp+''' and 權限名稱=''入庫管理''';
               ADOQuery1.Open;
            if ADOQuery1.FieldByName('權限序號').AsString<>'' then
              formmain.Button3.Enabled:=true;

              {檢查是否具有庫存預警權限}

               ADOQuery1.Close;
               ADOQuery1.SQL.Clear;
               ADOQuery1.SQL.Text:='select 權限序號 from 權限清單 where 用戶名='''+temp+''' and 權限名稱=''庫存預警''';
               ADOQuery1.Open;
            if ADOQuery1.FieldByName('權限序號').AsString<>'' then
              formmain.Button5.Enabled:=true;

              {檢查是否具有出庫管理權限}
               ADOQuery1.Close;
               ADOQuery1.SQL.Clear;
               ADOQuery1.SQL.Text:='select 權限序號 from 權限清單 where 用戶名='''+temp+''' and 權限名稱=''出庫管理''';
               ADOQuery1.Open;
            if ADOQuery1.FieldByName('權限序號').AsString<>'' then
              formmain.Button6.Enabled:=true;
  //------------登陸成功------

             formmain.Show;
             formlogin.Hide;
           end
   //--------登陸失敗----

              else
               begin
                showmessage('密碼錯誤，請檢查后重新輸入');
                end
        end;
    //------登陸窗口再次顯示時，清空原來的密碼

                         

procedure TFormlogin.FormShow(Sender: TObject);
begin
edit2.Clear;
end;

procedure TFormlogin.FormCreate(Sender: TObject);
begin
combobox1.Items.Add('administrator');
combobox1.Items.Add('倉庫管理員');
combobox1.Items.Add('銷售人員');
end;

end.