DBISAM의 Server에 Admin을 설정하는 부분의 소스이다.

var
i: Integer;
CurDatabaseUser: string;
TempPermissions: TDatabaseRights;
begin
…
DBISAMSession1.GetRemoteUserNames(UserList.Items);

// User명 입력. 100명 입력하기.
for i := 1 to 100 do
DBISAMSession1.AddRemoteUser( ‘사용자명’+Format(‘%0.03d’,[i]),’암호’+Format(‘%0.03d’,[i]),
‘설명’+Format(‘%0.03d’,[i]),
True, 5);

// DB권한 설정
TempPermissions:=[];
Include(TempPermissions,drRead);    //읽기
Include(TempPermissions,drInsert);   // 추가
Include(TempPermissions,drUpdate);  // 수정
Include(TempPermissions,drDelete);   // 삭제
Include(TempPermissions,drCreate);  // 생성
Include(TempPermissions,drAlter);    // Alter
Include(TempPermissions,drDrop);    // Table 삭제
Include(TempPermissions,drRename);  // Table Name 변경
Include(TempPermissions,drMaintain);   // 관리
Include(TempPermissions,drBackup);  // BackUP
Include(TempPermissions,drRestore);  // 복구

// 각 유저에 DB권한 설정.
for i := 1 to 100 do
DBISAMSession1.AddRemoteDatabaseUser(‘디비명’,’유저명’+Format(‘%0.03d’,[i]),TempPermissions);