xiugaimm.pas

c/s系统。 delphi 6+access 运行前先配置数据环境：把db文件夹复制到c：下 要编译请安装第三方控件fastreport2.47 这是我的小小的毕业设计

unit xiugaimm;

interface

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

type
  Txgmm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xgmm: Txgmm;

implementation

uses pass, adduser;

{$R *.dfm}

procedure Txgmm.Button1Click(Sender: TObject);
var
a1,a2:string;
n:integer;
begin
    if length(button1.caption)<5then
        begin
            if length(edit1.text)=0 then
               begin
               showmessage('请输入登录的用户名！');
               exit;
               end
            else
              begin
                if length(edit2.text)=0 then
                   begin
                      showmessage('请输入登录用户的密码！');
                      exit;
                   end
                else
                   begin
                      if edit1.text=fpass.Edit1.text then
                            begin
                                   if edit2.text=fpass.Edit2.text then
                                         begin
                                          edit3.readonly:=false;edit3.color:=clwindow;
                                          edit4.readonly:=false;edit4.color:=clwindow;
                                          edit1.readonly:=true;edit1.color:=clbtnface;
                                          edit2.readonly:=true;edit2.color:=clbtnface;
                                          button1.caption:='修改此密码';
                                         end
                                   else
                                          begin
                                           showmessage('用户名或密码输入错误！');
                                           edit1.Text:='';
                                           edit2.Text:='';
                                           exit;
                                          end
                            end
                      else
                            begin
                                 showmessage('用户名或密码输入错误！');
                                 edit1.Text:='' ;
                                 edit2.Text:='';
                                 exit;
                            end
                   end
              end
        end
    else
        begin
             if (edit3.text='')  or (edit4.text='') then
                 begin
                      showmessage('请输入新的密码并确认！');
                      edit3.text:='';
                      edit4.text:='';
                      exit;
                 end
             else
                 begin
                      if edit3.text=edit4.text then
                          begin
                               a1:=edit1.text;
                               zjxyh.table1.open;
                               zjxyh.table1.first;
                               while not zjxyh.table1.eof do
                                     begin
                                          a2:=zjxyh.table1.fieldbyname('user').asstring;
                                          n:=comparestr(a1,a2);
                                          if n=0 then break;
                                          zjxyh.table1.next;
                                     end;
                               if not zjxyh.table1.Eof then
                                   begin
                                        if edit3.text=zjxyh.table1.fieldbyname('passwd').asstring then
                                           begin
                                                showmessage('此密码跟登录密码相同或已经改为此密码，请输入新密码！');
                                                edit3.text:='';
                                                edit4.text:='';
                                                button1.caption:='修改此密码';
                                                exit;
                                           end
                                        else
                                            begin
                                                 zjxyh.table1.open;
                                                 zjxyh.table1.edit;
                                                 zjxyh.table1.FieldByName('user').asstring:=edit1.text;
                                                 zjxyh.table1.fieldbyname('passwd').asstring:=edit3.text;
                                                 zjxyh.table1.Post;
                                                 
                                                 showmessage('密码修改成功');
                                                 edit1.text:='';
                                                 edit1.Color:=clwindow;
                                                 edit1.ReadOnly:=false;
                                                 edit2.text:='';
                                                 edit2.Color:=clwindow;
                                                 edit2.ReadOnly:=false;
                                                 edit3.text:='';
                                                 edit3.Color:=clbtnface;
                                                 edit3.ReadOnly:=true;
                                                 edit4.text:='';
                                                 edit4.Color:=clbtnface;
                                                 edit4.ReadOnly:=true;
                                                 button1.Caption:='确定';
                                            end;
                                   end
                               else
                                   begin
                                        showmessage('此前用户已经修改了登录名,请退出系统,新的登录名才生效,才可以继续修改用户名密码!');
                                        edit3.Text:='';
                                        edit4.Text:='';
                                   end;
                          end
                      else
                          begin
                               showmessage('密码输入不一致！');
                               edit3.text:='';
                               edit4.Text:='';
                          end;
                 end;
        end;
end;
procedure Txgmm.Button2Click(Sender: TObject);
   begin
     edit1.text:='';
     edit1.Color:=clwindow;
     edit1.ReadOnly:=false;
     edit2.text:='';
     edit2.Color:=clwindow;
     edit2.ReadOnly:=false;
     edit3.text:='';
     edit3.Color:=clbtnface;
     edit3.ReadOnly:=true;
     edit4.text:='';
     edit4.Color:=clbtnface;
     edit4.ReadOnly:=true;
     close;
     button1.Caption:='确定';
end;


procedure Txgmm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     edit1.text:='';
     edit1.Color:=clwindow;
     edit1.ReadOnly:=false;
     edit2.text:='';
     edit2.Color:=clwindow;
     edit2.ReadOnly:=false;
     edit3.text:='';
     edit3.Color:=clbtnface;
     edit3.ReadOnly:=true;
     edit4.text:='';
     edit4.Color:=clbtnface;
     edit4.ReadOnly:=true;
     button1.Caption:='确定';
end;

end.