unit9.~pas

软件课程设计

unit Unit9;

interface

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

type
  TForm9 = class(TForm)
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    StatusBar1: TStatusBar;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);
begin
if form1.radiobutton2.Checked=true then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from 系统人员 where 系统人员id='''+form1.Edit1.Text+''' and 密码='''+Edit2.Text+'''');
Form1.ADOQuery1.Open;
if Form1.ADOQuery1.RecordCount=1 then
begin
if Edit4.Text=Edit3.Text then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('update 系统人员 set 密码='''+Edit3.Text+'''where 系统人员id='''+form1.Edit1.Text+'''');
Form1.ADOQuery1.SQL.Add('select *from 系统人员');
Form1.ADOQuery1.Open;
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
showmessage('密码修改成功！请按返回键返回！');
end
else
begin
showmessage('新密码不正确，请重新输入！');
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
end;
end
else
begin
showmessage('密码不正确，请重新输入！');
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
end;
end


else if


 form1.radiobutton1.Checked=true then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('select * from 系统人员 where 系统人员id='''+form1.Edit1.Text+''' and 密码='''+Edit2.Text+'''');
Form1.ADOQuery1.Open;
if Form1.ADOQuery1.RecordCount=1 then
begin
if Edit4.Text=Edit3.Text then
begin
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('update 系统人员 set 密码='''+Edit3.Text+'''where 系统人员id='''+form1.Edit1.Text+'''');
Form1.ADOQuery1.SQL.Add('select *from 系统人员');
Form1.ADOQuery1.Open;
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
showmessage('密码修改成功！请按返回键返回！');
end
else
begin
showmessage('新密码不正确，请重新输入！');
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
end;
end
else
begin
showmessage('密码不正确，请重新输入！');
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
end;
end;


end;




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

end.