unit MC_Login;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ExtCtrls, DBTables, ImgList, StdCtrls, Buttons, jpeg, ComCtrls,
  DBCtrls;

type
  TUserLogiA = class(TForm)
    Label5: TLabel;
    Label4: TLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Label3: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label7: TLabel;
    ListView1: TListView;
    Panel1: TPanel;
    Panel2: TPanel;
    Image1: TImage;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    BitBtn2: TBitBtn;
    ImageList1: TImageList;
    Timer1: TTimer;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query1BDEDesigner: TStringField;
    Query1BDEDesigner2: TStringField;
    Query1BDEDesigner3: TStringField;
    Query1BDEDesigner4: TStringField;
    Query1BDEDesigner5: TStringField;
    DBText1: TDBText;
    DBText2: TDBText;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    QXKey: Integer;
    { Public declarations }
  end;

var
  UserLogiA: TUserLogiA;

implementation

uses MC_MainForm;

{$R *.DFM}
procedure TUserLogiA.FormShow(Sender: TObject);
var List_A:TListItem;
begin
  Timer1.Enabled:=true;
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('Select * From 權限信息表');  // 選擇所有操作人員
  Query1.Open;
  ListView1.Items.Clear;  //清空列表
  While not Query1.Eof do   //將所有操作員加入到列表
  begin
   if Query1.FieldByName('姓名').AsString='系統管理員' then    //如果是系統管理員
    begin
     List_A:=ListView1.Items.Add;    //添加系統管理員到列表
     List_A.Caption:=Query1.FieldByName('姓名').AsString;
     List_A.ImageIndex:=0;   //顯示系統管理員圖標
    End
   else      //如果不是系統管理員
    begin
      List_A:=ListView1.Items.Add;   //增加操作員到列表
      List_A.Caption:=Query1.FieldByName('姓名').AsString;
      List_A.ImageIndex:=1;    //顯示操作員圖標
    end;
   Query1.Next;   //繼續添加
  end;
  Edit1.SetFocus;  //焦點移到密碼輸入框
end;

procedure TUserLogiA.BitBtn2Click(Sender: TObject);  //退出系統
begin
 MainForm.Close;
end;

procedure TUserLogiA.ListView1Click(Sender: TObject); //選擇操作員
begin
 if ListView1.Selected<>Nil then  //如果選擇不為空
 Query1.Locate('姓名',ListView1.Selected.Caption,[loPartialKey]);  //查找選擇的操作員信息
end;

procedure TUserLogiA.BitBtn1Click(Sender: TObject);
begin
 if Edit1.Text<>Query1.FieldByName('密碼').AsString then  //如果密碼不正確
 begin
  ShowMessage('密碼不正確請重新輸入!!');
  QXKey:=0;
  Edit1.SetFocus;
 End
 else      //如果密碼正確
 begin
   MainForm.Query1.Close;
   MainForm.Query1.SQL.Clear;
   MainForm.Query1.SQL.Add('Select * From 權限檢查表 Where 姓名=:A');  // 查看操作員權限
   MainForm.Query1.ParamByName('A').AsString:=Query1.FieldByName('姓名').AsString;
   MainForm.Query1.Open;
   if Query1.FieldByName('用戶類別').AsString<>'系統管理員' then  //如果不是系統管理員
   MainForm.ToolButton9.Enabled:=False; //“系統管理“工具按鈕不可用
 QXKey:=1;
 MainForm.ToolButton1.Click;    //顯示經營部功能列表
 Close;
 end;
end;

procedure TUserLogiA.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then bitBtn1.Click;   //執行“登錄”操作
end;
end.