xiugaiyhm.pas

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

unit xiugaiyhm;

interface

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

type
  Txgyhm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: 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
  xgyhm: Txgyhm;

implementation

uses pass,adduser;

{$R *.dfm}

procedure Txgyhm.Button1Click(Sender: TObject);
var
a1,a2:string;
n:integer;
begin
    if length(button1.caption)<5 then
        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;
                                          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 length(edit3.text)=0 then
                begin
                    showmessage('请输入新的用户名');
                    exit;
                end
            else
                begin
                     zjxyh.table1.open;
                     zjxyh.table1.first;
                     a1:=edit3.text;
                     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 zjxyh.table1.eof then
                         begin
                              zjxyh.table1.First;
                              a1:=edit1.text;
                              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
                                       zjxyh.table1.edit;
                                       zjxyh.table1.FieldByName('user').asstring:=edit3.text;
                                       //zjxyh.table1.fieldbyname('passwd').asstring:=edit2.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;
                                       button1.caption:='确定';
                                  end
                              else
                                  begin
                                       showmessage('此前用户已经修改了登录名。请退出系统，新的登录名即生效，才可以继续修改用户名！');
                                       edit3.text:='';
                                       edit3.readonly:=false;
                                       edit3.color:=clwindow;
                                       button1.caption:='修改用户名';
                                  end;
                         end
                     else
                         begin
                              showmessage('此用户名已经存在！');
                              edit3.text:='';
                              edit3.readonly:=false;
                              edit3.color:=clwindow;
                              button1.caption:='修改用户名';
                         end;
                end;
        end;
end;
procedure Txgyhm.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;
button1.caption:='确定';
close;
end;

procedure Txgyhm.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;
button1.caption:='确定';
end;

end.