useradd.~pas

这是用delphi开发的一个物资管理信息系统

unit useradd;

interface

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

type
  Tuseraddfrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    usernameed: TEdit;
    userpwded: TEdit;
    levelcb: TComboBox;
    cancel_btn: TBitBtn;
    add_btn: TBitBtn;
    Label4: TLabel;
    procedure add_btnClick(Sender: TObject);
    procedure cancel_btnClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure usernameedKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
   usertable:Tusertable;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  useraddfrm: Tuseraddfrm;

implementation

{$R *.dfm}

procedure Tuseraddfrm.add_btnClick(Sender: TObject);
var
  insertsql: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;

insertsql:='insert into user_table(user_name,user_pwd,user_level'
+')values('''+usernameed.Text+''','''+userpwded.Text+''','''+levelcb.Text+''')';

usertable.UserInsert(insertsql);

showmessage('添加成功！');
useraddfrm.Close ;
 
end;

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

procedure Tuseraddfrm.FormActivate(Sender: TObject);
begin
  usernameed.SetFocus ;
end;


procedure Tuseraddfrm.usernameedKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if(key=vk_return)or(key=vk_down) then
   userpwded.SetFocus ;
end;

end.