unit19.pas

本系统是一个房屋出租方面的管理系统

unit Unit19;

interface

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

type
  TForm_MMXG = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit3: TEdit;
    Label3: TLabel;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_MMXG: TForm_MMXG;

implementation
uses unit2,unit3;
{$R *.dfm}

procedure TForm_MMXG.FormShow(Sender: TObject);
begin
   edit1.Text:=database.ADO_user.Fields[0].Value;
   edit1.SetFocus;
   edit2.Clear;
   edit3.Clear;
end;

procedure TForm_MMXG.BitBtn1Click(Sender: TObject);
begin
   if edit1.Text = '' then
   begin
      application.MessageBox('用户名不能为空!','提示',64);
      edit2.Clear;
      edit3.Clear;
      edit1.SetFocus;
   end
   else if trim(edit2.Text) <> trim(edit3.Text) then
   begin
      application.MessageBox('两次输入的密码不一致，请重新输入密码','提示',64);
      edit2.Clear;
      edit3.Clear;
      edit2.SetFocus;
   end
   else
   begin
      try
         database.ADO_user.Edit;
         database.ADO_user.FieldByName('username').Value:=trim(edit1.Text);
         database.ADO_user.FieldByName('password').Value:=trim(edit2.Text);
         database.ADO_user.Post;
      except
         application.MessageBox('系统出错!','提示',64);
         form_mmxg.Close;
      end;
      application.MessageBox('修改成功!','提示',64);
      form_mmxg.Close;
   end; 
end;

procedure TForm_MMXG.BitBtn2Click(Sender: TObject);
begin
   form_mmxg.Close;
end;

end.