changepass.pas

医院X光片资料管理系统—全部源码 这是源码。去年做的一个小软件。因为这是给一家医院做的

unit changepass;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  Tchangepassfm = class(TForm)
    Panel1: TPanel;
    Panel4: TPanel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Edit14: TEdit;
    Edit15: TEdit;
    bitbtn4: TBitBtn;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    CheckBox1: TCheckBox;
    procedure Edit14KeyPress(Sender: TObject; var Key: Char);
    procedure Edit15KeyPress(Sender: TObject; var Key: Char);
    procedure bitbtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  changepassfm: Tchangepassfm;

implementation
uses dm, mylib;
{$R *.dfm}

procedure Tchangepassfm.Edit14KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', 'a'..'z', 'A'..'Z', #8, #13]) then key := #0;
  if key = #13 then edit15.SetFocus;

end;

procedure Tchangepassfm.Edit15KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', 'a'..'z', 'A'..'Z', #8, #13]) then key := #0;
  if key = #13 then bitbtn4.SetFocus;
end;

procedure Tchangepassfm.bitbtn4Click(Sender: TObject);
var s1, s2, s3, s4, sqltxt: string;
begin
  s1 := combobox1.Text;
  s2 := trim(edit1.Text);
  s3 := trim(edit14.Text);
  s4 := trim(edit15.Text);
  if editisempty(edit1, '必须输入旧口令！') = false then exit;
  if editisempty(edit14, '新口令长度不能为空！') = false then exit;
  sqltxt := 'update userdb set passwd=''' + s3 + '''';
  sqltxt := sqltxt + ' where username=''' + s1 + '''';
  if s3 = s4 then
  begin
    execadoquery(dmfm.ADOQuery1, sqltxt);
    showmessage('你已经成功修改了密码！下次运行程序时生效！');
    if checkbox1.Checked then close;
    edit15.Clear;
    edit14.Clear;
    edit1.Clear;
  end
  else
  begin
    showmessage('两次输入的密码不一致！请重新输入！');
    edit15.Clear;
    edit15.SetFocus;
  end;

end;

procedure Tchangepassfm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  dmfm.ADOQuery1.close;
  Action := caFree;
end;

procedure Tchangepassfm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9', 'a'..'z', 'A'..'Z', #8, #13]) then key := #0;
  if key = #13 then edit14.SetFocus;
end;

procedure Tchangepassfm.FormShow(Sender: TObject);
begin
  addcombox(dmfm.ADOQuery1, 'username', 'userdb', combobox1);
  combobox1.SetFocus;
end;

procedure Tchangepassfm.BitBtn1Click(Sender: TObject);
begin
  close;
end;

procedure Tchangepassfm.ComboBox1Click(Sender: TObject);
begin
  edit1.SetFocus;
end;

end.