useradd.~pas

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

unit UserAdd;

interface

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

type
  TfrmUserAdd = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edtNo: TEdit;
    edtName: TEdit;
    edtPass: TEdit;
    btnSure: TFlatButton;
    btnCancel: TFlatButton;
    procedure FormShow(Sender: TObject);
    procedure btnSureClick(Sender: TObject);
    procedure edtPassClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    userid:Integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmUserAdd: TfrmUserAdd;

implementation

uses dbConn, ManagerUser, userLogin;

{$R *.dfm}

procedure TfrmUserAdd.FormShow(Sender: TObject);
var
  rs:TADODataSet;
begin
    edtName.Text :='';
    //show no
    try
      rs:=TADODataSet.Create(nil);
      rs.Connection:=cn_public;
      rs.CommandText :='SELECT MAX(USERID) FROM photocheck.P_USER';
      rs.Open;
      if not rs.Recordset.EOF then
      begin
           userid:=rs.Recordset.Fields[0].Value ;
           edtNo.Text := IntToStr(userid+1);
      end;
    finally
       rs.Close ;
    end;
end;

procedure TfrmUserAdd.btnSureClick(Sender: TObject);
var
    sql:String;
    ListItem:TListItem;
    rs:TADODataSet;
begin
    if edtName.Text='' then
    begin
        MessageBox(0,'请输入名称', '创建用户', 64);
        edtName.SetFocus ;
        Exit;
    end;

    rs:=TADODataSet.Create(nil);
    rs.Connection:=cn_public;
    rs.CommandText :='SELECT * FROM photocheck.P_USER where USERNAME='''+Trim(edtName.Text)+'''';
    rs.Open;
    IF rs.Recordset.RecordCount>0 then
    begin
        rs.Close ;
        MessageBox(0,'该用户已存在，请重新输入一个用户名', '创建用户', 64);
        edtName.SetFocus ;
        Exit;
    end;
    rs.Close ;
    
    sql:='INSERT INTO photocheck.P_USER (USERID,USERNAME,PASSWORD) VALUES (';
    sql:= sql +' '''+Trim(edtNo.Text)+''',';
    sql:= sql +' '''+Trim(edtName.Text)+''',';
    sql:= sql +' '''+Trim(edtPass.Text )+''')';
    if dbConn.Execute_SQL(sql)=true then
    begin
        messagebox(0,'创建新用户成功!','创建用户',64);
        ListItem:=frmManagerUser.lvUser.Items.Add ;
        ListItem.Caption := edtName.Text ;
        ListItem.ImageIndex :=0;
        CurrentOperateItem:='创建新用户';
        dbConn.SaveOperateLog(frmLogin.spLog ,CurrentUserID,CurrentUser,now,CurrentOperateItem);

        self.Close ;
    end;


end;
//提示  为初始密码
procedure TfrmUserAdd.edtPassClick(Sender: TObject);
begin
      MessageBox(0,'000000为新用户的初始密码', '用户登陆', 64);
      Exit;
end;

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

end.