unit1_etklxg.pas

某小区物业管理系统源码某小区物业管理系统源码

unit Unit1_etklxg;

interface

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

type
  TForm_klxg = class(TForm)
    ADOTable1: TADOTable;
    ADOTable1DSDesigner: TAutoIncField;
    ADOTable1DSDesigner2: TWideStringField;
    ADOTable1DSDesigner3: TWideStringField;
    ADOTable1DSDesigner4: TWideStringField;
    ADOTable1DSDesigner5: TWideStringField;
    Label1: TLabel;
    DataSource1: TDataSource;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit4: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_klxg: TForm_klxg;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm_klxg.Button1Click(Sender: TObject);
begin
   if Adotable1.Locate('用户名称',edit1.Text,[]) then
        if adotable1.FieldByName('密码').AsString=edit2.Text then
          begin
           //showmessage('请输入新密码!');
         //  edit3.Enabled:=true;
          // edit4.Enabled:=true;
           adotable1.Edit;
           if edit3.Text=edit4.Text then
            begin
            adotable1.FieldByName('密码').asstring:=edit4.Text;
            adotable1.Post;
           // edit3.Enabled:=false;
           // edit4.Enabled:=false;
            showmessage('密码修改成功!');
            close;
             end
           else
              showmessage('两次输入不一致!')
          end
       else
           showmessage('用户名或口令错误！')
      else
          showmessage('用户名或口令错误！')



end;

procedure TForm_klxg.Button2Click(Sender: TObject);
begin
adotable1.Cancel;
 edit2.Text:='';
 edit3.Text:='';
 edit4.Text:='';
//edit3.Enabled:=false;
//edit4.Enabled:=false;

end;

procedure TForm_klxg.FormCreate(Sender: TObject);
begin
  //  form_klxg.edit1.Text:=form2.edit1.Text;
     //edit2.Text:=form2.edit2.Text;
end;

end.