updatepd.pas

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

unit updatePd;

interface

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

type
  TForm_update = class(TForm)
    ADOTable1: TADOTable;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinPasswordEdit1: TbsSkinPasswordEdit;
    bsSkinPasswordEdit2: TbsSkinPasswordEdit;
    bsSkinPasswordEdit3: TbsSkinPasswordEdit;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinMessage1: TbsSkinMessage;
    procedure FormCreate(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinPasswordEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure bsSkinPasswordEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure bsSkinPasswordEdit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_update: TForm_update;

implementation
uses main;
{$R *.dfm}
var
temppass:string;
{------------------------------------------------------------------------------}
//初始化
{------------------------------------------------------------------------------}
procedure TForm_update.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
   bsskinmessage1.MessageDlg('无法打开数据库!!',mtinformation,[mbok],0);
   close;
end;
adotable1.First ;
temppass:=adotable1.Fields.Fields[0].AsString ;
end;
{------------------------------------------------------------------------------}
//修改
{------------------------------------------------------------------------------}
procedure TForm_update.bsSkinButton1Click(Sender: TObject);
begin
if (bsskinpasswordedit1.Text='') or (bsskinpasswordedit2.Text='') or (bsskinpasswordedit3.Text='') then begin
     bsskinmessage1.MessageDlg('输入不能为空,请重新输入!',mtinformation,[mbok],0);
     bsskinpasswordedit1.SetFocus ;
     exit;
end;
if trim(bsskinpasswordedit1.Text)=temppass then begin
   if trim(bsskinpasswordedit2.Text)=trim(bsskinpasswordedit3.Text) then begin
      if (length(bsskinpasswordedit2.Text)<6) or (length(bsskinpasswordedit3.Text)<6)  then begin
         bsskinmessage1.MessageDlg('密码位数不能小于六位,请重新输入!',mtinformation,[mbok],0);
         bsskinpasswordedit2.Text:='';
         bsskinpasswordedit3.Text:='';
         bsskinpasswordedit2.SetFocus ;
         exit;
      end;
      adotable1.Edit ;
      adotable1.Fields.Fields[0].Value :=trim(bsskinpasswordedit2.Text) ;
      adotable1.Post ;
      bsskinmessage1.MessageDlg('密码修改成功!',mtinformation,[mbok],0);
      close;
   end
   else begin
      bsskinmessage1.MessageDlg('新密码不一致!',mtinformation,[mbok],0);
      bsskinpasswordedit2.Text:='';
      bsskinpasswordedit3.Text:='';
      bsskinpasswordedit2.SetFocus ;
      exit;
   end
end
else begin
    bsskinmessage1.MessageDlg('输入的原密码不正确!!',mtinformation,[mbok],0);
    bsskinpasswordedit1.Text :='';
    bsskinpasswordedit1.SetFocus ;
    exit;
end;
end;
{------------------------------------------------------------------------------}
//取消
{------------------------------------------------------------------------------}
procedure TForm_update.bsSkinButton2Click(Sender: TObject);
begin
close;
end;
{------------------------------------------------------------------------------}
//切换
{------------------------------------------------------------------------------}
procedure TForm_update.bsSkinPasswordEdit1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
if key=vk_return then
   bsskinpasswordedit2.SetFocus ;
end;
{------------------------------------------------------------------------------}
//切换
{------------------------------------------------------------------------------}
procedure TForm_update.bsSkinPasswordEdit2KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
if key=vk_return then
   bsskinpasswordedit3.SetFocus ;
end;
{------------------------------------------------------------------------------}
//切换
{------------------------------------------------------------------------------}
procedure TForm_update.bsSkinPasswordEdit3KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
if key=vk_return then
   Form_update.bsSkinButton1Click(Sender);
end;

end.