adduser.pas

用delphi开发的 人事管理系统

unit adduser;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, Db, DBTables;

type
  TFrm_adduser = class(TForm)
    Panel1: TPanel;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Bevel2: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_adduser: TFrm_adduser;

implementation

uses yhgl;

{$R *.DFM}

procedure TFrm_adduser.BitBtn1Click(Sender: TObject);
var sql:string;
begin
  if trim(edit1.text)='' then
       begin
        Showmessage('请输入用户名');
        edit1.setfocus;
       end;
   sql:='select * from yhklb where dlyh='+''''+trim(edit1.text)+''''+'';
   Query1.close;
   Query1.SQL.clear;
   Query1.SQL.add(sql);
  if query1.Active then
     query1.close;
     query1.open;
  if not query1.isempty then
     begin
      Application.MessageBox('此用户已经存在','请修改!',mb_IconInformation+mb_OK);
      edit1.setfocus;
      end
       else
       begin
         if edit2.text<>edit3.text then
         begin
         Showmessage('密码和校验密码不同,请修改！');
         edit3.setfocus;
         end
             else
             begin
             sql:='insert into yhklb (dlyh,pswd) values('''+Trim(Edit2.Text)+''','''+Trim(Edit1.Text)+''')';
             Query1.Close;
             Query1.Sql.Clear;
             Query1.Sql.Add(Sql);
             query1.ExecSql;
             frm_yhgl.query1.close;
             frm_yhgl.query1.open;

              end;
        end;
end;

procedure TFrm_adduser.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (edit1.text<>'') and (key=#13) then
edit2.setfocus;
end;

procedure TFrm_adduser.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if (edit2.text<>'') and (key=#13) then
edit3.setfocus;
end;

procedure TFrm_adduser.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.