lock~1.~pa

软件类别: 数据库 软件大小: 2.60M 运行环境: Win9xNT/2000/XP 一套车辆管理系统,此版本为商业版,大家一定用的着。

unit Lock;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, XPMenu;

type
  Tfrm_Lock = class(TForm)
    Label2: TLabel;
    Panel1: TPanel;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    UserPwd: TEdit;
    XPMenu1: TXPMenu;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Lock: Tfrm_Lock;

implementation

uses Data, func;

{$R *.dfm}

procedure Tfrm_Lock.SpeedButton1Click(Sender: TObject);
var
    tempPwd:String;
begin
    tempPwd:=Decrypt(trim(UserPwd.Text),'luersoft');  //解开密码
    with frm_data.Query_Login do
    begin
        Close;
        Sql.Clear;
        Sql.Add('Select * from [Login] where user_Name='''+trim(func.Login_Name)+''' and User_Pwd='''+Trim(tempPwd)+'''');
        open;
        if frm_data.Query_Login.RecordCount=0 then
        begin
            Application.MessageBox('口令不正确！请输入你登陆的密码！请确认！',Pchar(Application.Title),MB_ICONWARNING);
            UserPwd.Clear;
            UserPwd.SetFocus;
        end
        else
        begin
            frm_Lock.Close;
        end;
    end;
end;

procedure Tfrm_Lock.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    //{屏蔽 ALT＋F4}
    if (shift = [ssAlt]) and (key = vk_F4) then
    begin
        shift := [];
        key := 0;
    end;
end;

end.