pass.pas

delphi 生产管理系统 sql2000位后台数据库

unit pass;

interface

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

type
  Tfrm_pass = class(TForm)
    Label4: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    ADOQuery1: TADOQuery;
    bsSkinButton1: TButton;
    bsSkinButton2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_pass: Tfrm_pass;

implementation

uses share, main,dm;

{$R *.dfm}

procedure Tfrm_pass.bsSkinButton1Click(Sender: TObject);
begin
runsql(adoquery1,'select name,pass from UserID where name='''+czy+'''','open');
if edit1.Text <>ADOQuery1.FieldByName('pass').AsString then
begin
  messagebox(handle,'原始密码错误！','提示',64);
  exit;
end;
if edit2.Text <>edit3.Text then
begin
   messagebox(handle,'您输入的两个新密码不一致！','提示',64);
   exit;
end;
ADOQuery1.Edit;
ADOQuery1.FieldByName('pass').AsString:=edit3.Text ;
ADOQuery1.Post ;
messagebox(handle,'密码修改成功！','提示',64);
close;
end;

procedure Tfrm_pass.bsSkinButton2Click(Sender: TObject);
begin
close
end;

end.