BLUE引擎帐号合并

meinvwudi

// 账号合区处理过程
procedure TFrmMain.AccountAllOne;
var
  FIDInfo: TAccountDBRecord;      // 账号数据库记录结构
  FDBRecord, FNewDBRecord: TMirRecord;  // 数据库文件操作对象
  nIndex, I, nRecordCount: Integer;     // 索引、循环计数、记录总数
  NewName: string;                      // 新账号名称
  IdHeader: TIdHeader;                  // ID数据库文件头
begin
  // 检查主区ID.DB是否存在
  if FileExists(EdtMainID.Text) then
    FDBRecord := TMirRecord.Create(EdtMainID.Text, fmShareDenyNone)
  else begin
    Application.MessageBox('主区ID数据库不存在!', '提示信息', MB_ICONQUESTION);
    Exit;
  end;
  
  // 如果目标目录存在ID.DB则删除
  if FileExists(EdtSavePath.Text + '\LoginSrv\IDDB\ID.DB') then 
    DeleteFile(EdtSavePath.Text + '\LoginSrv\IDDB\ID.DB');
    
  // 创建新的ID.DB文件
  FNewDBRecord := TMirRecord.Create(EdtSavePath.Text + '\LoginSrv\IDDB\ID.DB', fmCreate);
  try
    // 设置记录大小
    FNewDBRecord.RecSize := SizeOf(FIDInfo);

    try
      // 处理主区数据
      FDBRecord.RecSize := SizeOf(FIDInfo);
      // 读取并写入文件头
      FDBRecord.Seek(0, 0);
      FDBRecord.Read(IdHeader, SizeOf(IdHeader));
      FNewDBRecord.Seek(0, 0);
      FNewDBRecord.Write(IdHeader, SizeOf(IdHeader));
      
      nRecordCount := FDBRecord.NumRecs;
      FDBRecord.First;
      StatusBar1.Panels[0].Text := '正在把主区ID写入新库';
      StatusBar1.Panels[1].Text := '';
      Application.ProcessMessages;
      
      // 复制主区所有账号记录
      for i := 1 to FDBRecord.NumRecs do
      begin
        FDBRecord.ReadRec(FIDInfo);
        AccountList.AddRecord(FIDInfo.UserEntry.sAccount, i);  // 添加到账号列表
        FNewDBRecord.AppendRec(FIDinfo);  // 写入新数据库
        // 更新进度条
        StatusBar1.Panels[1].Text := '完成：' + inttostr(round((i / nRecordCount) * 100)) + '%';
        Application.ProcessMessages;
        FDBRecord.NextRec;
      end;
    finally
      FDBRecord.Free;
    end;

    // 处理从区数据
    if FileExists(EdtSlaveID.Text) then
      FDBRecord := TMirRecord.Create(EdtSlaveID.Text, fmShareDenyNone)
    else begin
      Application.MessageBox('从库ID数据库不存在!', '提示信息', MB_ICONQUESTION);
      Exit;
    end;
    
    try
      FDBRecord.RecSize := SizeOf(FIDInfo);
      nRecordCount := FDBRecord.NumRecs;
      FDBRecord.First;
      StatusBar1.Panels[0].Text := '正在把从库ID写入新库';
      StatusBar1.Panels[1].Text := '';
      Application.ProcessMessages;
      
      // 处理从区所有账号记录
      for i := 1 to FDBRecord.NumRecs do
      begin
        FDBRecord.ReadRec(FIDInfo);
        // 检查账号是否重名
        nIndex := AccountList.GetIndex(FIDInfo.UserEntry.sAccount);
        if nIndex <> -1 then
        begin
          NewName := '';
          // 生成新账号名称
          if CheckName(FIDInfo.UserEntry.sAccount, 10, NewName, 0) then
          begin
            FIDInfo.Header.sAccount := NewName;  // 更新账号头
            FIDInfo.UserEntry.sAccount := NewName;  // 更新账号记录
          end else begin
            FDBRecord.NextRec;
            StatusBar1.Panels[1].Text := '完成：' + inttostr(round((i / nRecordCount) * 100)) + '%';
            Continue;
          end;
        end;
        
        AccountList.AddRecord(FIDInfo.UserEntry.sAccount, i);  // 添加到账号列表
        FNewDBRecord.AppendRec(FIDinfo);  // 写入新数据库
        // 更新进度条
        StatusBar1.Panels[1].Text := '完成：' + inttostr(round((i / nRecordCount) * 100)) + '%';
        Application.ProcessMessages;
        FDBRecord.NextRec;
      end;

      // 更新文件头中的记录总数
      FDBRecord.Seek(0, 0);
      FDBRecord.Read(IdHeader, SizeOf(IdHeader));
      IdHeader.nIDCount := FNewDBRecord.NumRecs;
      FNewDBRecord.Seek(0, 0);
      FNewDBRecord.Write(IdHeader, SizeOf(IdHeader));
    finally
      FDBRecord.Free;
    end;
  finally
    FNewDBRecord.Free;
  end;
end;

meinvwudi

帐号重名重命名代码

// 检查并生成新名称
// Parameters:
// - sName: 原始名称
// - nLen: 名称最大长度(账号10位,角色14位)
// - NewName: 输出的新名称
// - nType: 重命名类型(0:账号 1:角色 2:行会)
// Returns: 是否成功生成新名称
function TFrmMain.CheckName(sName: string; nLen: Integer; var NewName: string; nType: Integer): Boolean;
var
  TName, wName: string;
  i, j: Integer;
begin
  Result := False;
  wName := sName;
  while True do begin
    for j := ord('A') to ord('Z') do begin  // 从A-Z遍历
      TName := wName + char(j);  // 在原名后加上字母
      if Length(TName) > nLen then Exit;  // 超过最大长度则退出
      
      // 根据类型检查名称是否已存在
      case nType of 
        0: begin // 账号
          if AccountList.GetIndex(TName) = -1 then begin
            NewName := TName;
            // 添加到账号变更列表
            var pQuickName := New(pTQuickName);
            pQuickName^.sName := sName;
            pQuickName^.sNewName := NewName;
            AccountChangeList.AddItemRecord(sName, TObject(pQuickName));
            Result := True;
            Exit;
          end;
        end;
        
        1: begin // 角色
          if HumList.GetIndex(TName) = -1 then begin
            NewName := TName;
            // 添加到角色变更列表
            var pQuickName := New(pTQuickName);
            pQuickName^.sName := sName;
            pQuickName^.sNewName := NewName;
            HumChangeList.AddItemRecord(sName, TObject(pQuickName));
            Result := True;
            Exit;
          end;
        end;

        2: begin // 行会
          if GuildList.GetIndex(TName) = -1 then begin
            NewName := TName;
            // 添加到行会变更列表
            var pQuickName := New(pTQuickName);
            pQuickName^.sName := sName;
            pQuickName^.sNewName := NewName;
            GuildChangeList.AddItemRecord(sName, TObject(pQuickName));
            Result := True;
            Exit;
          end;
        end;
      end;
    end;
    wName := TName;  // 如果所有字母都试过还是重名,则继续在后面加字母
  end;
end;