editpass1.pas

思微POS连锁超市管理系统 (商业代码),几年前的东西了

unit editpass1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, Db, DBTables, ADODB;

type
  Txgczypass = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xgczypass: Txgczypass;

implementation

uses MainForm1;

{$R *.DFM}

procedure Txgczypass.FormCreate(Sender: TObject);
begin
  Edit1.Text := Mainform.Label4.Caption;
end;

procedure Txgczypass.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action := cafree;
end;

procedure Txgczypass.BitBtn1Click(Sender: TObject);
begin
  Query1.close;
  Query1.sql.clear;
  Query1.sql.add('select * from czyda where czyid=:czyid and pass=:pass');
  Query1.Parameters[0].Value := Edit1.text;
  Query1.Parameters[1].Value := Edit2.text;
  Query1.open;
  if Query1.RecordCount = 0 then
  begin
    Application.MessageBox('输入的旧密码不正确。', '提示', MB_OK + MB_ICONHAND);
    Edit2.SetFocus;
    exit;
  end;
  if Edit3.Text <> Edit4.Text then
  begin
    Application.MessageBox('两次输入的新密码不一至。', '提示', MB_OK + MB_ICONHAND);
    exit;
  end;
  Query1.close;
  Query1.sql.clear;
  Query1.sql.add('update czyda set pass=:pass where czyid=:czyid');
  Query1.Parameters[0].Value := Edit3.text;
  Query1.Parameters[1].Value := Edit1.text;
  Query1.ExecSQL;
  Application.MessageBox('密码已经更改，请下次用新密码登录。', '提示', MB_OK + MB_ICONINFORMATION);
  Close;
end;

procedure Txgczypass.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then Edit3.SetFocus;
end;

procedure Txgczypass.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then Edit4.SetFocus;
end;

procedure Txgczypass.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = 13 then BitBtn1.Click;
end;

procedure Txgczypass.BitBtn2Click(Sender: TObject);
begin
  close;
end;

end.