modifypassword.pas

该程序不能实现全程售票

unit ModifyPassword;

interface

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

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

var
  ModifyPasswordFrm: TModifyPasswordFrm;

implementation

uses Login,Main;

{$R *.dfm}

procedure TModifyPasswordFrm.Button1Click(Sender: TObject);
 begin
    if edit1.text='' then
       showmessage('请输入旧密码！')
    else
       if edit2.text='' then
          showmessage('请输入新密码！')
       else
           if edit3.text='' then
              showmessage('请输入确认密码！')
     else
     begin
       with LoginFrm.ADOQuery1 do
       begin
       close;
       sql.clear;
       sql.add('select * from 售票员 where sailorid='+''''+LoginFrm.Edit1.Text+''''+'and sailorpassword='+''''+Edit1.Text+'''');
       open;
       first;
       if recordcount=0 then
        begin
         close;
       sql.clear;
       sql.add('select * from 管理员 where admiid='+''''+LoginFrm.Edit1.Text+''''+'and admipassword='+''''+Edit1.Text+'''');
       open;
       first;
         if recordcount=0 then
         begin
         showmessage('密码不正确或该用户不存在');
         edit1.text:='';
         edit2.text:='';
         edit3.text:='';
          end
           else
           if Edit2.Text<>Edit3.Text then
             begin
             showmessage('确认密码和新密码不一致，请重新输入！');
             edit1.text:='';
             edit2.text:='';
             edit3.text:='';
             end
             else
             begin
              close;
              sql.Clear;
              sql.add('select * from 管理员 where admiid='+''''+LoginFrm.Edit1.Text+''''+'and admipassword='+''''+Edit1.Text+'''');
               open;
              first;
          if recordcount=1 then
         begin
          close;
           sql.clear;
           sql.add('update 管理员 set admipassword='+''''+Edit2.Text+''''+'where admiid='+''''+LoginFrm.Edit1.Text+'''');
              execsql;
              showmessage('密码修改成功！');
              edit1.text:='';
             edit2.text:='';
             edit3.text:='';
              ModifyPasswordFrm.hide;
           end;
           end;
           end
           else
           if Edit2.Text<>Edit3.Text then
             begin
             showmessage('确认密码和新密码不一致，请重新输入！');
             edit1.text:='';
             edit2.text:='';
             edit3.text:='';
             end
             else
             begin
              close;
              sql.clear;sql.add('update 售票员 set sailorpassword='+''''+Edit2.Text+''''+'where sailorid='+''''+LoginFrm.Edit1.Text+'''');
              execsql;
              showmessage('密码修改成功！');
              ModifyPasswordFrm.hide;
              end;
             end;
             end;
             end;
   procedure TModifyPasswordFrm.Button2Click(Sender: TObject);
begin
 edit1.text:='';
 edit2.text:='';
 edit3.text:='';
 ModifyPasswordFrm.Hide;
 MainFrm.Show;
end;

end.