u_useradd.~pas

河南师范大学餐饮进销存软件,只要控制库存的数据。

unit u_UserAdd;

interface

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

type
  TfrmUserAdd = class(TForm)
    Label1: TLabel;
    edtBH: TEdit;
    Label2: TLabel;
    edtName: TEdit;
    BtnAdd: TBitBtn;
    BtnClose: TBitBtn;
    edtID: TEdit;
    procedure BtnCloseClick(Sender: TObject);
    procedure BtnAddClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure edtBHKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmUserAdd: TfrmUserAdd;

implementation

uses u_DataCtrl, md5, u_UserMain;

{$R *.dfm}

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

procedure TfrmUserAdd.BtnAddClick(Sender: TObject);
var
  QCheck : TADOQuery;
begin
  if Length(edtBH.Text)<1 then
     begin
       showmessage('用户编号不能为空！！');
       edtBH.SetFocus;
       exit;
     end;
  QCheck := TADOQuery.Create(self);
  QCheck.Connection := frmDataCtrl.ADOConn ;
  QCheck.Close;
  QCheck.SQL.Clear;
  QCheck.SQL.Add('select * from tb_Users where UserBH='+QuoTedStr(edtBH.Text));
  try
    QCheck.Active := true;
    if QCheck.RecordCount > 0 then
       begin
         showmessage('此用户已经存在，请重新输入！');
         edtBH.Text:= '' ;
         edtBH.SetFocus;
         exit;
       end;
    QCheck.Close;
    QCheck.SQL.Clear;
    QCheck.SQL.Add('insert into tb_Users(UserBH,UserName,UserPass) values(');
    QCheck.SQL.Add(QuoTedStr(edtBH.Text)+','+QuoTedStr(edtName.Text)+',');
    QCheck.SQL.Add(QuoTedStr(Copy(MD5Print(MD5String('')),1,20))+')');
    try
      QCheck.ExecSQL;
      showmessage('增加用户成功！');
      Close;
      frmUserMain.Qry.Close;
      frmUserMain.Qry.Open;
    except
       showmessage('数据库操作失败！');
    end;
  except
    showmessage('数据库操作失败！');
  end;
end;

procedure TfrmUserAdd.FormShow(Sender: TObject);
begin
  edtBH.Text := '' ;
  edtName.Text := '' ;
  edtBH.SetFocus;
end;

procedure TfrmUserAdd.edtBHKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key=13) and (Length(edtBH.Text)>0) then
     edtName.SetFocus;
end;

procedure TfrmUserAdd.edtNameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
     btnAdd.SetFocus;
end;

end.