yonghu3.pas

湖滨小区物业管理系统主要是针对湖滨小区的物业管理公司作为使用对象而开发的

unit yonghu3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, yonghu, DB, ADODB, ComCtrls, StdCtrls, Buttons, jpeg, ExtCtrls,
  Grids, DBGrids;

type
  Tyonghu4 = class(Tyonghu1)
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  yonghu4: Tyonghu4;

implementation

{$R *.dfm}

procedure Tyonghu4.FormCreate(Sender: TObject);
begin
  yonghu4.BitBtn2.Visible:=false;
  
end;

procedure Tyonghu4.BitBtn1Click(Sender: TObject);

begin

  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from chzy where adminname='''+edit1.text+'''');
  adoquery1.Open;
  if adoquery1.Recordset.RecordCount=0 then
  begin
   showmessage('该用户不存在');
   end
   else
   begin
      if edit2.Text='' then

          begin
            showmessage('密码不能设置为空 !!!');
            end
             else

            if edit2.Text=edit3.Text then begin
            adoquery1.Close;
           adoquery1.SQL.Clear;
           adoquery1.SQL.Add('update chzy set adminpass='''+edit2.Text+'''where adminname='''+edit1.Text+'''');
           adoquery1.ExecSQL;
          ShowMessage('密码修改成功');
         Close;
         end
          else begin
        ShowMessage('两次密码输入不同,请重新输入');
      edit2.Text:='';
      edit3.Text:='';
     end;
 end;  

   end;





end.