mc_user.~pas

一个通用的餐饮管理软件

unit MC_User;

interface

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

type
  TUser = class(TForm)
    ListView1: TListView;
    Panel1: TPanel;
    Panel2: TPanel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    BitBtn1: TBitBtn;
    Bevel3: TBevel;
    Image1: TImage;
    Edit1: TEdit;
    Label3: TLabel;
    BitBtn2: TBitBtn;
    ImageList1: TImageList;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Query1: TQuery;
    Query1BDEDesigner: TStringField;
    Query1BDEDesigner2: TStringField;
    Query1BDEDesigner3: TStringField;
    Query1BDEDesigner4: TStringField;
    Query1BDEDesigner5: TStringField;
    Timer1: TTimer;
    Label1: TLabel;
    Bevel4: TBevel;
    DBText1: TDBText;
    DBText2: TDBText;
    Label2: TLabel;
    Label7: TLabel;
    DataSource1: TDataSource;
    procedure Label6Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Label6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure FormShow(Sender: TObject);
//    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure BitBtn1Click(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormHide(Sender: TObject);
  private
    User_CLose:integer;
    Name:String;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  User: TUser;

implementation

uses Unit1, MC_DYYLBrose;

{$R *.DFM}

procedure TUser.Label6Click(Sender: TObject);
begin
  ShellExecute(handle,nil,'http://www.MingRiSoft.com',nil,nil,sw_shownormal);  //连接网址
end;
procedure TUser.Label6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Label6.font.Color:=Clred;
end;

procedure TUser.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
  Label6.Font.Color:=clWindowText;
end;

procedure TUser.Edit1Enter(Sender: TObject);
begin
  Edit1.Color:=ClAqua;
end;

procedure TUser.Edit1Exit(Sender: TObject);
begin
  Edit1.Color:=ClWindow;
end;

procedure TUser.FormShow(Sender: TObject);
var List:Array[0..1]of TListItem;
begin
  Timer1.Enabled:=True;
  User_Close:=0;  //打开关闭钥匙
  Query1.Close;
  Query1.Open;
  ListView1.Items.Clear;
  While not Query1.Eof do
  begin
    List[0]:=ListView1.Items.Add;
    List[0].Caption:=Query1.FieldByName('姓名').AsString;
    if Query1.FieldByName('编号').AsString='controller' then
    begin
      List[0].ImageIndex:=0;
    End
    Else
    begin
      List[0].ImageIndex:=1;
    end;
    Query1.Next;
  end;
end;

procedure TUser.BitBtn1Click(Sender: TObject);   //登陆
begin
  MainForm.ToolButton1.Enabled:=True;
  MainForm.ToolButton2.Enabled:=True;
  MainForm.ToolButton3.Enabled:=True;
  MainForm.ToolButton4.Enabled:=True;
  MainForm.ToolButton5.Enabled:=True;
  MainForm.ToolButton11.Enabled:=True;
  MainForm.N12121.Enabled:=True;
  MainForm.N5.Enabled:=True;
  MainForm.N48.Enabled:=True;
  MainForm.N52.Enabled:=True;
  MainForm.N51.Enabled:=True;
  MainForm.N33.Enabled:=True;
  MainForm.N7.Enabled:=True;
  MainForm.N4.Enabled:=True;
  MainForm.N23.Enabled:=True;
  MainForm.N6.Enabled:=True;
  MainForm.N22.Enabled:=True;
  MainForm.N24.Enabled:=True;
  MainForm.N1.Enabled:=True;
  MainForm.N8.Enabled:=True;
  MainForm.N9.Enabled:=True;
  MainForm.N28.Enabled:=True;
  MainForm.N11.Enabled:=True;
  MainForm.N2.Enabled:=True;
  MainForm.N55.Enabled:=True;
  MainForm.N17.Enabled:=True;
  MainForm.N18.Enabled:=True;
  MainForm.N5.Enabled:=True;
  MainForm.N48.Enabled:=True;
  MainForm.N52.Enabled:=True;
  MainForm.N51.Enabled:=True;
  MainForm.N33.Enabled:=True;
  if Query1.FieldByName('编号').AsString='controller' then   //如果是系统管理员
  begin
  if Edit1.Text<>Query1.FieldByName('密码').AsString then
  begin
    ShowMessage('['+Query1.FieldByName('姓名').AsString+']的口令错误.');  //口令错误
    Edit1.SetFocus;
  End
  Else
  begin
    MainForm.StatusBar1.Panels[1].Text:='用户['+Query1.FieldByName('姓名').AsString+']';
    DYYLBrose.StatusBar1.Panels[1].Text:='用户['+Query1.FieldByName('姓名').AsString+']';
    MainForm.User1:=Query1.FieldByName('姓名').AsString;
    User_Close:=3;
    Timer1.Enabled:=False;
    Close;
  end;
  End
  Else
  begin
   MainForm.ToolButton1.Enabled:=False;
   MainForm.ToolButton2.Enabled:=False;
   MainForm.ToolButton3.Enabled:=False;
   MainForm.ToolButton4.Enabled:=False;
   MainForm.ToolButton5.Enabled:=False;
   MainForm.ToolButton11.Enabled:=False;
   MainForm.N12121.Enabled:=False;
   MainForm.N5.Enabled:=False;
   MainForm.N48.Enabled:=False;
   MainForm.N52.Enabled:=False;
   MainForm.N51.Enabled:=False;
   MainForm.N33.Enabled:=False;
   MainForm.N7.Enabled:=False;
   MainForm.N4.Enabled:=False;
   MainForm.N23.Enabled:=False;
   MainForm.N6.Enabled:=False;
   MainForm.N22.Enabled:=False;
   MainForm.N24.Enabled:=False;
   MainForm.N1.Enabled:=False;
   MainForm.N8.Enabled:=False;
   MainForm.N9.Enabled:=False;
   MainForm.N28.Enabled:=False;
   MainForm.N11.Enabled:=False;
   MainForm.N2.Enabled:=False;
   MainForm.N55.Enabled:=False;
   MainForm.N17.Enabled:=False;
   MainForm.N18.Enabled:=False;
   MainForm.N5.Enabled:=False;
   MainForm.N48.Enabled:=False;
   MainForm.N52.Enabled:=False;
   MainForm.N51.Enabled:=False;
   MainForm.N33.Enabled:=False;
   if Edit1.Text<>Query1.FieldByName('密码').AsString then
   begin
     ShowMessage('['+Query1.FieldByName('姓名').AsString+']的口令错误.');
     Edit1.SetFocus;
   End
   Else
   begin
     Name:=Query1.FieldByName('权限').AsString;
     MainForm.EnabledKey(Name);    //设置操作员权限
     MainForm.StatusBar1.Panels[1].Text:='用户['+Query1.FieldByName('姓名').AsString+']';
     DYYLBrose.StatusBar1.Panels[1].Text:='用户['+Query1.FieldByName('姓名').AsString+']';
     User_Close:=3;
     Timer1.Enabled:=False;
     Close;
   end;
  end;
end;

procedure TUser.ListView1Click(Sender: TObject);   //选择操作员
var List:Array[0..1]of TListItem;
begin
  List[0]:=ListView1.Selected;
  if List[0]<>Nil then
  begin
   Query1.Locate('姓名',List[0].Caption,[loCaseInsensitive]);  //查询姓名,但是如果有从名的按第一个算.
  end;
end;

procedure TUser.Timer1Timer(Sender: TObject);
begin
  FlashWindow(Application.Handle,True);  //闪烁项目一次
  FlashWindow(Handle,True);  //闪烁窗体一次
end;

procedure TUser.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then BitBtn1.Click;  //回车焦点移“登陆“按钮
end;

procedure TUser.FormHide(Sender: TObject);
begin
  Query1.Close;
end;
procedure TUser.BitBtn2Click(Sender: TObject);    //退出
begin
  User_CLose:=3;
  MainForm.Close_1:=0;
  Timer1.Enabled:=False;
  Close;
end;
end.