pass.pas

本系统采用A. 系统需求分析报告(设计方法/数据流图/数据字典) B. 数据库的信息要求报告（E—R图及关系数据模型） C. 数据库的操作和应用要求报告（模块结构图<概念结构设计及逻辑结构设计&

unit pass;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  Tpassform = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ADOConnection1: TADOConnection;
    procedure FormActivate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  passform: Tpassform;

implementation

uses main;

{$R *.dfm}

procedure Tpassform.FormActivate(Sender: TObject);
begin
  edit1.enabled:=false;
  edit1.Text:=username;
  edit2.text:='';
  edit3.text:='';
  edit2.SetFocus;
end;

procedure Tpassform.Button3Click(Sender: TObject);
begin
  close;
end;

procedure Tpassform.Button2Click(Sender: TObject);
begin
  edit2.text:='';
  edit3.text:='';
  edit2.setfocus;
end;

procedure Tpassform.Button1Click(Sender: TObject);
var
  adoq:tadoquery;
begin
  if edit2.text='' then
  begin
    application.MessageBox('新密码不能为空','提示信息',mb_OK);
    edit2.setfocus;
    edit2.Text:='';
    edit3.Text:='';
  end
  else if edit2.text=edit3.Text then
  begin
    adoq:=tadoquery.create(self);
    adoq.connection:=adoconnection1;
    adoq.sql.Clear;
    adoq.sql.add('update operator set pass=:passw where name=:user');
    adoq.parameters.clear;
    adoq.Parameters.addparameter;
    adoq.Parameters[0].Name:='passw';
    adoq.Parameters[0].datatype:=ftstring;
    adoq.Parameters[0].direction:=pdinput;
    adoq.Parameters[0].value:=edit2.text;
    adoq.Parameters.addparameter;
    adoq.Parameters[1].Name:='user';
    adoq.Parameters[1].datatype:=ftstring;
    adoq.Parameters[1].direction:=pdinput;
    adoq.Parameters[1].value:=edit1.text;
    adoq.ExecSQL;
    adoq.close;
    application.MessageBox('修改密码成功:)','提示信息',mb_OK);
  end
  else
  begin
    application.MessageBox('两次密码输入不一致,请检查:(','提示信息',mb_OK);
  end;
  edit2.setfocus;
  edit2.Text:='';
  edit3.Text:='';
end;

end.