password.pas

本软件是小管家个人帐户管理系统 (ADO+ACCESS)

unit password;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, bsSkinBoxCtrls, StdCtrls, BusinessSkinForm, DB,
  ADODB, bsSkinHint, bsSkinData, bsMessages;

type
  TForm_MiMa_GA = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinPasswordEdit1: TbsSkinPasswordEdit;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    ADOTable1: TADOTable;
    bsSkinData1: TbsSkinData;
    bsCompressedStoredSkin1: TbsCompressedStoredSkin;
    bsStoredSkin1: TbsStoredSkin;
    bsSkinMessage1: TbsSkinMessage;
    bsSkinHint1: TbsSkinHint;
    procedure FormCreate(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinPasswordEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_MiMa_GA: TForm_MiMa_GA;

implementation
{$R *.dfm}
var
i:integer;
temppass:string;{临时变量}
{------------------------------------------------------------------------------}
//初始化
{------------------------------------------------------------------------------}
procedure TForm_MiMa_GA.FormCreate(Sender: TObject);
const
  password='java1030';
var
  Mypath:string;
begin
{--------------------------------数据库连接------------------------------------}
MyPath:=ExtractFilePath(ParamStr(0)); //返回当前路径
adotable1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
                                 MyPath+'ud.mdb;Jet OLEDB:Database Password='+
                                 password+';Persist Security Info=False';
{打开数据表}
adotable1.TableName :='用户资料';
try
  adotable1.Open ;
except
  MessageBox(0,'无法打开数据库','错误',MB_OK);
  halt;
end;
i:=0;
adotable1.First ;
temppass:=adotable1.Fields.Fields[0].AsString ;
end;
{------------------------------------------------------------------------------}
//退出
{------------------------------------------------------------------------------}
procedure TForm_MiMa_GA.bsSkinButton2Click(Sender: TObject);
begin
self.ModalResult :=mrno;
end;
{------------------------------------------------------------------------------}
//判断
{------------------------------------------------------------------------------}
procedure TForm_MiMa_GA.bsSkinButton1Click(Sender: TObject);
begin
if (length(bsskinpasswordedit1.Text)<6) or (bsskinpasswordedit1.Text='') then  begin
    bsskinmessage1.MessageDlg('密码不能为空或位数不能小于六位!',mtinformation,[mbok],0);
    bsskinpasswordedit1.Text:='';
    bsskinpasswordedit1.SetFocus ;
    exit;
end;
if temppass=trim(bsskinpasswordedit1.Text) then
   self.ModalResult :=mrok
else begin
     if i=3 then begin
       bsskinmessage1.MessageDlg('非法入侵!!',mtinformation,[mbok],0);
       halt
    end;
    bsskinmessage1.MessageDlg('密码错误,请重新输入!',mtinformation,[mbok],0);
    i:=i+1;
    bsskinpasswordedit1.Text:='';
    bsskinpasswordedit1.SetFocus ;
end;
end;
procedure TForm_MiMa_GA.bsSkinPasswordEdit1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
if key=vk_return then
   Form_MiMa_GA.bsSkinButton1Click(Sender);
end;

end.