unlock.pas

1. 纯粹的合同管理,不涉及其它业务,独立成系统2. 简单明了,流程清析3. 合同条款可预定制4. 丰富强大的打印预览系统5. 实用的导入导出功能,可与excel交互使用6. 时刻追踪合同执行情况,包

unit UnLock;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ModalForm, StdCtrls, Menus, MoveImageButton, LabelButton,
  ComCtrls, ToolWin, ExtCtrls, DB, ADODB;

type
  TUnLockForm = class(TMyModalForm)
    Label2: TLabel;
    edtName: TEdit;
    Label1: TLabel;
    edtPass: TEdit;
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure MIBtnOKClick(Sender: TObject);
    procedure edtPassKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure edtNameDblClick(Sender: TObject);
    procedure edtPassDblClick(Sender: TObject);
  private
    { Private declarations }
    laugh:integer;
  public
    { Public declarations }
  end;

var
  UnLockForm: TUnLockForm;

implementation

uses data;

{$R *.dfm}

procedure TUnLockForm.FormCreate(Sender: TObject);
begin
  inherited;
  edtName.Text :=DM.curAdmin.FLoginName;
end;

procedure TUnLockForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action:=caFree;
end;

procedure TUnLockForm.MIBtnOKClick(Sender: TObject);
begin
  inherited;
  if Trim(EdtName.Text)=DM.curAdmin.FLoginName then
  begin
    if GetPassword(edtPass.Text)=DM.curAdmin.FPassword then
      ModalResult:=mrOK;
  end
  else begin
    with ADOQuery1 do
    begin
      Active:=false;
      Parameters[0].Value :=Trim(EdtName.Text);
      Parameters[1].Value :=GetPassword(edtPass.Text);
      Active:=true;
      if RecordCount>0 then
      begin
        if MessageBox(handle,'系统将切换你为当前管理员，是否登录！','机房管理系统',
          MB_OKCANCEL or MB_ICONWARNING)=IDOK then
        begin
          DM.curAdmin.FLoginName :=FieldValues['adLoginName'];
          DM.curAdmin.FPassword :=FieldValues['adPassword'];
          DM.curAdmin.FName :=FieldValues['adName'];
          DM.curAdmin.FSex :=FieldValues['adSex'];
          DM.curAdmin.FPopedom :=FieldValues['popedom'];
          DM.curAdmin.FSysSetup :=FieldValues['sysSetup'];
          DM.curAdmin.FFillTime :=FieldValues['fillTime'];
          DM.curAdmin.FAward :=FieldValues['award'];
          DM.curAdmin.FOnline :=FieldValues['online'];
          DM.curAdmin.FMember :=FieldValues['member'];
          ModalResult:=mrOK;
        end;
      end
      else begin
        if DM.CheckWuqiu(edtPass.Text,laugh) then
           ModalResult:=mrOK
       end;
    end;
  end;
end;

procedure TUnLockForm.edtPassKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if Key=#13 then
    MIBtnOKClick(MIBtnOK);
end;

procedure TUnLockForm.FormShow(Sender: TObject);
begin
  inherited;
  edtPass.SetFocus;
end;

procedure TUnLockForm.edtNameDblClick(Sender: TObject);
begin
  inherited;
  laugh:=0;
end;

procedure TUnLockForm.edtPassDblClick(Sender: TObject);
begin
  inherited;
  INC(laugh);
end;

end.