unit3.~pas

小区抄表系统

unit Unit3;

interface

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

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

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
var
 mgid,password,temp1,newpsw,qrpsw:string;
begin
   mgid:=Edit1.Text;
   password:=Edit2.Text;
   newpsw:=edit3.text;
   qrpsw:=edit4.text;
   if mgid='' then
   showmessage('请输入编号')
   else
     begin
     Adoquery1.Close;
     Adoquery1.SQL.Clear;
     Adoquery1.SQL.Text:='select * from  用户信息  where( 编号='''+mgid+''')and (密码='''+password+''')';
     Adoquery1.Open;
     temp1:=adoquery1.FieldByName('编号').AsString;
     if temp1<>'' then
       begin
       if newpsw<>qrpsw then
       showmessage('两次输入的密码不一致')
       else
         begin
         adocommand1.CommandText:='update 用户信息 set  密码='''+newpsw+''' where 编号='''+mgid+'''';
         adocommand1.Execute;
         Adoquery1.Close;
         Adoquery1.SQL.Clear;
         edit1.Text:='';
         edit2.Text:='';
         edit3.Text:='';
         edit4.Text:='';
         showmessage('修改成功');
         end
       end
     else
     showmessage('您输入的用户名或密码有误')
     end
end;

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

end.