userchangename.pas

采用Delphi7+Oracle. 该软件是由交警人员对各个路口闯红灯违法照片进行有效保存

unit UserChangeName;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TFlatButtonUnit,DB,ADODB,ComCtrls;

type
  TfrmUserChangeName = class(TForm)
    GroupBox1: TGroupBox;
    edtNo: TEdit;
    edtName: TEdit;
    edtNewName: TEdit;
    btnSure: TFlatButton;
    btnCancel: TFlatButton;
    Label4: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormShow(Sender: TObject);
    procedure btnSureClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmUserChangeName: TfrmUserChangeName;

implementation

uses dbConn, ManagerUser, userLogin;

{$R *.dfm}

procedure TfrmUserChangeName.FormShow(Sender: TObject);
var
    rs:TADODataSet;
begin
    //显示用户旧信息
      rs:=TADODataSet.Create(nil);
      rs.Connection:=cn_public;
      rs.CommandText :='SELECT USERID FROM photocheck.P_USER WHERE USERNAME='''+CurrentByOperator+'''';
      rs.Open ;
      if not rs.Recordset.EOF then
      begin
          //CurrentByOperatorID:=rs.Recordset.Fields[0].Value ;
          CurrentByOperatorID := rs.Recordset.Fields[0].Value ;
          edtNo.Text := CurrentByOperatorID;  //当前被操作的用户的ID
          edtName.Text := CurrentByOperator;  //当前被操作的用户的Name
      end;
      rs.Close ;
      edtNo.ReadOnly := true;
      edtName.ReadOnly := true;
end;

procedure TfrmUserChangeName.btnSureClick(Sender: TObject);
var
    sql,name:String;
    ListItem:TListItem;
    rs:TADODataSet;
begin
    rs:=TADODataSet.Create(nil);
    rs.Connection:=cn_public;
    rs.CommandText :='SELECT USERNAME FROM photocheck.P_USER where USERNAME='''+Trim(edtNewName.Text)+'''';
    rs.Open;
    IF rs.Recordset.RecordCount>0 then
    begin
        rs.Close ;
        MessageBox(0,'该用户名已存在，请重新输入一个用户名', '更改用户', 64);
        edtNewName.SetFocus ;
        Exit;
    end;
    rs.Close ;

    sql:='';
    sql:='UPDATE photocheck.P_USER SET USERNAME='''+trim(edtNewName.Text)+''' WHERE USERID='''+Trim(CurrentByOperatorID)+'''';
    if dbConn.Execute_SQL(sql)=true then
    begin
        messagebox(0,'更新成功!','更新用户名称',64);
        frmManagerUser.Show_AllUser ;
        CurrentOperateItem:='更新用户名称';
        dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);
        self.Close ;
    end;
end;

procedure TfrmUserChangeName.btnCancelClick(Sender: TObject);
begin
    Close;
end;

end.