useradd.pas

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

unit useradd;

interface

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

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

var
  useraddfrm: Tuseraddfrm;

implementation

{$R *.dfm}

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

procedure Tuseraddfrm.User_AddClick(Sender: TObject);
var
  sql:string;
begin
usertable:=Tusertable.create ;
if (usernameed.Text='')  or  (userpwded.Text='')  or (levelcb.Text='')  then
begin
showmessage('请将内容输入完整！');
exit;
end;
//判断录入的用户名是否存在
if usertable.CheckUser (usernameed.Text)  then
begin
showmessage('该用户名已经存在，请更换用户名！');
usernameed.SetFocus ;
exit;
end;
//赋值插入操作语句
sql:='insert into user_table(user_name,user_pwd,power_level'
+')values('''+usernameed.Text+''','''+userpwded.Text+''','''+levelcb.Text+''')';
//执行插入操作
usertable.UserInsert(sql);
showmessage('添加成功！');
usertable.Free;
end;

end.