password.~pas

该源码采用DELPHI语言,主要实现了对员工信息管理的功能.

unit Password;

interface

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

type
  TForm4 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

uses Access;

{$R *.dfm}

procedure TForm4.SpeedButton2Click(Sender: TObject);
begin
   Edit1.Text:='';
   Edit2.Text:='';
   Edit3.Text:='';
   Edit4.Text:='';
   Close;
end;

procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
    with ADOquery1 do
    begin
       if flag1 = true then     //在管理员的数据库中修改密码
       begin
          SQL.Clear;
          SQL.Add('select * from 管理员 where  管理员帐号 = '''+Edit1.Text+''' and 密码 = '''+Edit2.Text+'''');
          Open;
          if ADOquery1.IsEmpty then showmessage('用户名或密码错误！')
       else
          begin
             if Edit3.Text <> Edit4.Text then showmessage('输入密码不一致！')      //判断输入密码是否一致
          else
            begin
               Close;
               SQL.Clear;   //更新密码
               SQL.Add('update 管理员 set 密码 = '''+Edit3.Text+''' where  员工号 = '''+Edit1.Text+'''');
               ExecSQL;
               showmessage('成功修改密码！');
            end;
          end;
       end;
       if flag2 = true then     //在学员的数据库中查找信息
       begin
          SQL.Clear;
          SQL.Add('select * from 员工 where 员工号 = '''+Edit1.Text+''' and 密码 = '''+Edit2.Text+'''');
          Open;
          if ADOquery1.IsEmpty then showmessage('用户名或密码错误！')
       else
         begin
            if Edit3.Text <> Edit4.Text then  showmessage('输入密码不一致！')
         else
           begin
              Close;
               SQL.Clear;
               SQL.Add('update 员工 set 密码 = '''+Edit3.Text+''' where  员工号 = '''+Edit1.Text+'''');
               ExecSQL;
               showmessage('成功修改密码！');
           end;
         end;
       end;
    Close;
    end;
end;

end.