adduser.pas

管理车队用车记录

unit adduser;

interface

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

type
  TForm_adduser = class(TForm)
    BitBtn_OK: TBitBtn;
    BitBtn_cancle: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    ComboBox1: TComboBox;
    procedure BitBtn_OKClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn_cancleClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_adduser: TForm_adduser;

implementation
 uses dm,md5;
{$R *.dfm}

procedure TForm_adduser.BitBtn_OKClick(Sender: TObject);
var
passwd:string;
begin
   if trim(combobox1.Text)='' then
  begin
  application.MessageBox('请选择用户类型！','系统提示',mb_ok);
  combobox1.SetFocus;
  abort;
  end;
  if trim(edit1.Text)='' then
  begin
  application.MessageBox('请输入要创建的用户名','系统提示',mb_ok);
  edit1.SetFocus;
  abort;
  end;
  if (trim(edit2.Text)='') or (trim(edit3.text)='') then
  begin
  application.MessageBox('密码不能为空','系统提示',mb_ok);
  edit2.SetFocus;
  abort;
  end;
  if edit2.Text<>edit3.Text then
  begin;
  application.MessageBox('两次密码不同,请确认!','系统提示',mb_ok);
  edit2.SetFocus;
  abort;
  end
  else
  begin
  passwd:=edit2.Text;
  form_dm.ADOConnection.Open;
  form_dm.ADOTable_users.Open;
  if form_dm.ADOTable_users.Locate('name',edit1.Text,[])then
  begin
  application.MessageBox('此用户已经存在','系统提示',mb_ok);
  edit1.SetFocus;
  abort;
  end;
  form_dm.ADOTable_users.Append;
  form_dm.ADOTable_users.FieldByName('name').AsString:=edit1.text;
  form_dm.ADOTable_users.FieldByName('psw').AsString:=MD5Print(MD5String(edit2.text));
   form_dm.ADOTable_users.FieldByName('type').AsString:=combobox1.text;
  form_dm.ADOTable_users.Post;
  application.MessageBox('添加用户成功！','系统提示',mb_ok);
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  combobox1.ItemIndex:=-1;
  end;

end;


procedure TForm_adduser.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit2.SetFocus;
end;

procedure TForm_adduser.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit3.SetFocus;
end;

procedure TForm_adduser.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  BitBtn_OKClick(nil);
end;

procedure TForm_adduser.BitBtn_cancleClick(Sender: TObject);
begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  form_adduser.Close;
end;

end.