adduser_unit.pas

来自「DELPHI 编写的人事管理系统,根据职工查询各种信息」· PAS 代码 · 共 63 行

unit AddUser_Unit;

interface

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

type
  TAddUser_Form = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AddUser_Form: TAddUser_Form;

implementation
  uses Login_Unit, User_Unit;
{$R *.dfm}

procedure TAddUser_Form.Button1Click(Sender: TObject);
begin
    with Self.ADOQuery1 do
       begin
         Self.ADOQuery1.Close;
         Self.ADOQuery1.SQL.Clear;
         Self.ADOQuery1.SQL.Add('Insert InTo Login_Table Values(:p1,:p2)');
         Self.ADOQuery1.Parameters.ParamByName('p1').Value:=Self.Edit1.Text;
         Self.ADOQuery1.Parameters.ParamByName('p2').Value:=Self.Edit2.Text;
         try
          Self.ADOQuery1.ExecSQL;
         except
           begin
              MessageDlg('用户名重复！',mtInformation,[mbOk],0);
              Self.Edit1.Clear;
              Self.Edit2.Clear;
              Self.Edit1.SetFocus;
              Exit;
           end;
         end;
       end;
     Self.Close;
end;

procedure TAddUser_Form.Button2Click(Sender: TObject);
begin
   Self.Close;
end;

end.