实例——管理数据库用户.txt

Delphi 7组件应用实例 书籍语言： 简体中文 书籍类型： 程序设计 授权方式： 免费软件 书籍大小： 105 KB

unit U_User;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IBServices, Mask;
type
  TFUser = class(TForm)
    IBSecurityService1: TIBSecurityService;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit7: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FUser: TFUser;

implementation

{$R *.dfm}

procedure TFUser.Button1Click(Sender: TObject);
var
  GroupID,UserID,result:Integer;
begin
  if Edit1.Text='' then
     begin
      ShowMessage('用户登录名不能为空，请重新输入！');
      exit;
    end;

  //检验用户标识符是否为整数
  Val( Edit5.Text,UserID,result);
  if (result<>0)  then
    begin
      ShowMessage('用户标识符必须为整数，请重新输入！');
      exit;
    end;

  //检验分组标识符的有效性
  Val( Edit6.Text,GroupID,result);
  if result<>0 then
    begin
      ShowMessage('分组标识符必须为整数，请重新输入！');
      exit;
    end;

  with IBSecurityService1 do
  begin
  ServerName := 'Poulet';
  LoginPrompt := False;
  Params.Add('user_name=sysdba');
  Params.Add('password=masterkey');
  Active := True;
    try
      UserName := Edit1.Text;
      FirstName := Edit2.Text;
      MiddleName := Edit3.Text;
      LastName := Edit4.Text;
      UserID := UserID;
      GroupID := GroupID;
      Password := Edit7.Text;
      AddUser; // 向isc4.gdb安全数据库中添加用户
    except
      ShowMessage('添加用户失败，请检查输入的信息！');
    end;
  Active := False;
  end;
end;

procedure TFUser.Button2Click(Sender: TObject);
begin
  with IBSecurityService1 do
  begin
    ServerName := 'Poulet';
    LoginPrompt := False;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Active := True;
    try
      UserName := Edit1.Text;
      DeleteUser;  //删除用户
      Edit1.Clear;
     except
      ShowMessage('删除用户失败，请检查输入的信息！');
    end;
    Active := False;
  end;               
end;
end.