editsyypass1.pas

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

unit editsyypass1;

interface

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

type
  TEditsyypass = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label5: TLabel;
    Query1: TADOQuery;
    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);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Editsyypass: TEditsyypass;

implementation

uses MainForm1;


{$R *.DFM}

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

procedure TEditsyypass.BitBtn1Click(Sender: TObject);
begin
  if Edit3.Text <> Edit4.Text then
  begin
    Application.MessageBox('两次输入的新密码不一至。', '提示', MB_OK + MB_ICONHAND);
    exit;
  end;
  Query1.close;
  Query1.sql.clear;
  Query1.sql.add('update skyda set skypass=:pass where skyid=:id');
  Query1.Parameters[0].Value := Edit3.text;
  Query1.Parameters[1].Value := Edit1.text;
  Query1.ExecSQL;
  Application.MessageBox('密码已经更改。', '提示', MB_OK + MB_ICONINFORMATION);
  Close;
end;

procedure TEditsyypass.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key <> 13 then exit;
  Query1.close;
  Query1.sql.clear;
  Query1.sql.add('select * from skyda where skyid=:id and skypass=: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.Clear;
    Edit1.SetFocus;
    BitBtn1.Enabled := false;
    exit;
  end;
  BitBtn1.Enabled := true;
  Edit3.SetFocus;
end;

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

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

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

procedure TEditsyypass.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key <> 13 then exit;
  Query1.close;
  Query1.sql.clear;
  Query1.sql.add('select * from skyda where skyid=:id');
  Query1.Parameters[0].Value := Edit1.text;
  Query1.open;
  if Query1.RecordCount = 0 then exit;
  Label5.Caption := Query1.fieldbyname('skyname').asstring;
  Edit2.SetFocus;
end;

procedure TEditsyypass.Edit1Change(Sender: TObject);
begin
  Label5.Caption := '';
  BitBtn1.Enabled := false;
end;

end.