unit4.~pas

本人生产实习的内容

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Label1: TLabel;
    old_Edit: TEdit;
    Label2: TLabel;
    new_Edit1: TEdit;
    Label3: TLabel;
    new_Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation
uses Unit2,Unit1;
{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var u,oldpwd,newpwd,qrpwd :string;
begin
u:=(Form1.Edit1.text);
oldpwd:=(Form4.old_Edit.Text);
newpwd:=(Form4.new_Edit1.Text);
   if length(newpwd)<3 then
     begin
     showmessage('密码由大于三的字符或数字组成！');
     end;
   qrpwd:=(Form4.new_Edit2.Text);
   if(newpwd<>qrpwd) then
     begin
     showmessage('确认密码不正确！');
     end;
with Form1.ADOQuery1 do
   begin
     close;
     Form1.ADOQuery1.SQL.Clear;
     Form1.ADOQuery1.SQL.Add('select * from pwd where usname='+''''+u+''''+' and uspwd='+''''+oldpwd+'''');
     Form1.ADOQuery1.ExecSQL;
     form1.ADOQuery1.Open;
      if Form1.ADOQuery1.RecordCount<1 then
       begin
       showmessage('原密码错误，你不能修改！');
        end;
     Form1.ADOQuery1.SQL.Clear;
     Form1.ADOQuery1.SQL.Add('update pwd set uspwd='+''''+newpwd+'''  where usname='+''''+u+'''');
     Form1.ADOQuery1.ExecSQL;
  end;
     showmessage('修改成功！');

     close;



end;

procedure TForm4.Button2Click(Sender: TObject);
begin
main.Show();
form4.Hide;
end;

end.