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;
    add_btn: TButton;
    cancel_btn: TButton;
    ADOQuery1: TADOQuery;
    procedure cancel_btnClick(Sender: TObject);
    procedure add_btnClick(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.add_btnClick(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.