passwordfrm.pas

宁夏中药管理系统,在其它的基础上改的,将他人没有完成的功能补上

unit passwordfrm;

interface

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

type
  Tpassworduint = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    Edit3: TEdit;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  passworduint: Tpassworduint;

implementation
uses mainfrm;
{$R *.dfm}

procedure Tpassworduint.Button1Click(Sender: TObject);
var ls,mm1:string;
begin
ls:=trim(combobox1.text);
mm1:='';
with adoquery1 do
begin
 close;
 sql.Clear ;
 sql.Add('select * from mm where 操作员='''+ls+'''');
 open;
 mm1:=fieldbyname('密码').AsString ;
end;
if trim(edit1.text)<>mm1 then
begin
 showmessage('输入的老密码错误');
 edit1.Clear ;
 exit;
end;

if trim(edit2.Text )<>trim(edit3.Text ) then
begin
 showmessage('输入的新密码与确认密码不一致');
 edit2.Clear ;
 edit3.Clear ;
 exit;
end;
if trim(edit2.Text )='' then
begin
 showmessage('输入的新密码不能为空');
 edit2.Clear ;
 exit;
end;
mm1:=trim(edit3.Text );
with adoquery1 do
begin
 close;
 sql.Clear ;
 sql.Add('update mm  set  密码='''+mm1+''' where 操作员='''+ls+'''');
 execsql;
end;
button1.Enabled :=false;
end;

procedure Tpassworduint.ComboBox1Click(Sender: TObject);
begin
 button1.Enabled :=true;
end;

procedure Tpassworduint.Button2Click(Sender: TObject);
begin
passworduint.close;
end;

procedure Tpassworduint.Edit2Click(Sender: TObject);
begin
 button1.Enabled :=true;
end;

end.