Hola amigo,
Es facil, tienes que hacer uso de los componentes en la paleta Interbase Admin que trae Interbase 6
Usas el componente que tiene una llave, luego pides unos campos adicionales y en procedimiento colocas esto
with seguridad do
begin
ServerName := 'Winlinux';
LoginPrompt := False;
Params.Add('user_name=sysdba');
Params.Add('password=masterkey');
Active := True;
try
UserName := Trim(Edit1.Text);
FirstName := Edit2.Text;
MiddleName := Edit3.Text;
LastName := Edit4.Text;
UserID := StrToInt(Edit5.Text);
GroupID := StrToInt(Edit6.Text);
Password := Edit7.Text;
AddUser;
finally
Active := False;
end;
