bjunit.pas

航班管理

unit BJUnit;

interface

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

type
  TForm9 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.SpeedButton1Click(Sender: TObject);
begin
   if adotable1.Locate('姓名',edit1.Text,[])then
     begin
       if adotable1.FieldByName('密码').AsString=edit2.Text then
          begin
            if (edit3.Text=edit4.Text) and (edit3.Text<>'') then
               begin
                 adotable1.edit;
                 adotable1.FieldByName('密码').AsString:=edit3.Text;
                 adotable1.post;
                 showmessage('你已成功修改');
                 edit1.Text:='';
                 edit2.Text:='';
                 edit3.Text:='';
                 edit4.Text:='';
               end
             else
             begin
                showmessage('新输密码不一致！请重新输入！');
                edit1.Text:='';
                 edit2.Text:='';
                 edit3.Text:='';
                 edit4.Text:='';
             end
            end
        else
        begin
          showmessage('密码错误！请重新输入！');
          edit1.Text:='';
          edit2.Text:='';
          edit3.Text:='';
          edit4.Text:='';
          end
       end
       else
       begin
        showmessage('用户名错误！请重新输入！');
        edit1.Text:='';
        edit2.Text:='';
        edit3.Text:='';
        edit4.Text:='';
        end
   end;
procedure TForm9.SpeedButton2Click(Sender: TObject);
begin
  close;
end;

end.