useradd.pas.~1~

本系统是结合行业管理中实际的人力资源、工资制度

unit useradd;

interface

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

type
  Tuseraddfrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    levelcb: TComboBox;
    usernameed: TEdit;
    userpwded: TEdit;
    add_btn: TButton;
    cancel_btn: TButton;
    ADOQuery1: TADOQuery;
    procedure cancel_btnClick(Sender: TObject);
    procedure add_btnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  useraddfrm: Tuseraddfrm;

implementation

{$R *.dfm}

procedure Tuseraddfrm.cancel_btnClick(Sender: TObject);
begin
usernameed.Text :='';userpwded.Text :='';adoquery1.Close;
useraddfrm.Close;
end;

procedure Tuseraddfrm.add_btnClick(Sender: TObject);
begin
if (usernameed.Text='')  or  (userpwded.Text='')  or (levelcb.Text='')  then
begin
showmessage('请将内容输入完整！');
exit;
end;

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from user_table where user_name='''+usernameed.Text+'''');
adoquery1.Open;

if not adoquery1.Eof  then
begin
showmessage('该用户名已经存在，请更换用户名！');
usernameed.SetFocus ;
exit;
end;

adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('insert into user_table(user_name,user_pwd,power_level'
+')values('''+usernameed.Text+''','''+userpwded.Text+''','''+levelcb.Text+''')');
adoquery1.ExecSQL ;
showmessage('添加成功！');

end;

end.