uuserchange.~pas

我的毕业设计

unit Uuserchange;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ExtCtrls, StdCtrls, Buttons, jpeg, DBTables;

type
  TFrmuserchange = class(TForm)
    Edtoldpwd: TEdit;
    bbtnok: TBitBtn;
    bbtnclean: TBitBtn;
    bbtnclose: TBitBtn;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    Edtokpwd: TEdit;
    Edtnewpwd: TEdit;
    Edtnewuser: TEdit;
    Table1: TTable;
    Query1: TQuery;
    DataSource1: TDataSource;
    procedure bbtnokClick(Sender: TObject);
    procedure bbtncloseClick(Sender: TObject);
    procedure EdtoldpwdKeyPress(Sender: TObject; var Key: Char);
    procedure EdtnewuserKeyPress(Sender: TObject; var Key: Char);
    procedure bbtncleanClick(Sender: TObject);
    procedure EdtnewpwdKeyPress(Sender: TObject; var Key: Char);
    procedure EdtokpwdKeyPress(Sender: TObject; var Key: Char);
    procedure EdtoldpwdExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmuserchange: TFrmuserchange;

implementation

uses Uulogin,Udm, umain;





{$R *.dfm}

procedure TFrmuserchange.bbtnokClick(Sender: TObject);
var
  i, j: integer;

begin
   query1.close;
   query1.SQL.Clear;
   query1.SQL.Add('select * from userb where 用户名=' + #39 + trim(label6.Caption) + #39);
   query1.Open;
    j := 0;
  if edtnewpwd.Text = edtokpwd.Text then
  begin
    table1.Active:=true;
    for i := 1 to table1.RecordCount do
    begin
      table1.RecNo := i;
      if table1.Fieldbyname('用户名').AsString = trim(label6.caption) then
        j := table1.recno;
    end;
    if(trim(edtoldpwd.Text)= trim(frmlogin.usermima.Text)) then
    begin
      if (edtnewuser.Text = '') and (edtnewpwd.Text = '') then
      begin
        if messagebox(getforegroundwindow, '你没有修改任何注册信息！' + #13 + '关闭该界面吗？',' 系统提示', mb_yesno + MB_ICONINFORMATION) = mryes then
          close;
      end
      else
        if edtnewuser.Text = '' then
       begin
           table1.active:=true;
           table1.RecNo := j;
          table1.edit;
          table1.fieldbyname('密码').AsString := edtnewpwd.Text;
          table1.Post;
          table1.Active:=false;
          if messagebox(getforegroundwindow, '你用户信息修改完成，关闭该界面吗？', '系统提示', mb_yesno + MB_ICONINFORMATION) = mryes then
              begin
                  frmuserchange.Visible := false;
                  frmmain.Visible:=false;
                   frmuserchange.Close;
                  frmlogin := tfrmlogin.Create(application);
                  frmlogin.ShowModal;

          end;
       end
        else
        begin
          if messagebox(getforegroundwindow, '你确定要修改用户名吗？','系统提示', mb_yesno + MB_ICONINFORMATION) = mryes then
          begin
           query1.close;
           query1.SQL.Clear;
           query1.SQL.Add('select * from userb where 用户名=' + #39 + trim(Edtnewuser.Text) + #39);
           query1.Open;
            if not query1.IsEmpty then
             begin
              messagebox(getforegroundwindow, pchar(edtnewuser.Text + '用户名已被用！'), '系统提示', mb_ok + MB_ICONINFORMATION);
              edtnewuser.SetFocus;
              abort;
              end
            else
          begin
              if edtnewpwd.Text = '' then
              begin
                if messagebox(getforegroundwindow, '你的密码为空吗？', '系统提示', mb_yesno + mb_iconquestion) = mryes then
                begin
                  table1.edit;
                  table1.fieldbyname('用户名').AsString := edtnewuser.Text;
                 table1.fieldbyname('密码').AsString := edtnewpwd.Text;
                  table1.Post;
                  table1.Next;
                 frmuserchange.Visible := false;
                  frmmain.Visible:=false;
                   frmuserchange.Close;
                  frmlogin := tfrmlogin.Create(application);
                  frmlogin.ShowModal;

               end
                else
                begin
                  edtnewpwd.SetFocus;
                end;
              end
              else
                 begin
                table1.Active:=true;
                table1.edit;
                table1.fieldbyname('用户名').AsString := edtnewuser.Text;
                table1.fieldbyname('密码').AsString := edtnewpwd.Text;
                table1.Post;
                table1.Next;
                 table1.Active:=false;
                 with query1 do begin
                 if active then active:=false;
                 sql.Clear ;
                 sql.add( 'DELETE FROM wserb where 用户名=' + #39 + trim(label6.Caption ));
                
                end ;

               end
            end ;
                frmuserchange.Visible := false;
                  frmmain.Visible:=false;
                   frmuserchange.Close;
                  frmlogin := tfrmlogin.Create(application);
                  frmlogin.ShowModal; //锁定窗体
                 end

          else
            abort;
        end;
    end
    else begin
      messagebox(getforegroundwindow, '你输入原密码错误！', '系统提示', mb_ok + MB_ICONINFORMATION);
      edtoldpwd.SetFocus;
    end;
  end
  else begin
    messagebox(getforegroundwindow, '新密码与确认密码不一致请重新输入！',  '系统提示', mb_ok + MB_ICONINFORMATION);

          // showmessage('新密码与确认密码不一致请重新输入！');
    edtnewpwd.SetFocus;
  end
end;

procedure TFrmuserchange.bbtncloseClick(Sender: TObject);
begin
  Edtnewpwd.Text:='';
  Edtnewuser.Text:='';
  Edtokpwd.Text:='';
  Edtoldpwd.Text:='';
  close;
end;

procedure TFrmuserchange.EdtoldpwdKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then

    edtnewuser.SetFocus;

end;

procedure TFrmuserchange.EdtnewuserKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    edtnewpwd.SetFocus;

end;

procedure TFrmuserchange.bbtncleanClick(Sender: TObject);
begin
  edtoldpwd.Text := '';
  edtnewuser.Text := '';
  edtnewpwd.Text := '';
  edtokpwd.Text := '';
  edtoldpwd.SetFocus;
end;

procedure TFrmuserchange.EdtnewpwdKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    edtokpwd.SetFocus;
end;

procedure TFrmuserchange.EdtokpwdKeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
    bbtnok.SetFocus;
end;
procedure TFrmuserchange.EdtoldpwdExit(Sender: TObject);
begin
  bbtnclean.Enabled := true;
end;

end.