useradd.pas

一个小型的酒店管理系统

unit UserAdd;

interface

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

type
  TUserAddFrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ADOQuery1: TADOQuery;
    ComboBox1: TComboBox;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserAddFrm: TUserAddFrm;

implementation

{$R *.dfm}

uses User;

procedure TUserAddFrm.SpeedButton1Click(Sender: TObject);
begin
  if (Edit1.Text='') or (Edit2.Text='') or (Edit3.Text='') then
    if Edit2.Text='' then
      ShowMessage('为确保帐号的安全性请输入密码！')
    else
      ShowMessage('请输入帐号及用户实际姓名！')
  else
    begin
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('insert into HHUser values('''+Edit1.Text+''','''+Edit2.Text+''','+ComboBox1.Text+','''+Edit3.Text+''')');
      ADOQuery1.ExecSQL;
      ShowMessage('新用户信息插入成功！');
      UserFrm.ADOQuery1.Close;
      UserFrm.ADOQuery1.SQL.Clear;
      UserFrm.ADOQuery1.SQL.Add('select Account as 帐号,Password as 密码,Permissions as 权限,UserName as 姓名 from HHUser');
      UserFrm.ADOQuery1.Open;
    end;
end;

procedure TUserAddFrm.SpeedButton2Click(Sender: TObject);
begin
  UserAddFrm.Close;
end;

end.