TZQuery на Typhon IDE возвращает только 6 полей, где он должен возвращаться 8 полей

Question

Я работаю над IDF Typhon (v.5.1 и FPC v.2.7.1) и создаю функцию входа пользователя, используя PostgreSQL 9.3 в качестве базы данных и Zeos 7.2 как соединитель данных.

У меня есть этот следующий код:

// ZQ: TZQuery;  
    zq := ExecSQL('SELECT '+ 
      'role_name, '+ 
      'role_enabled, '+ 
      'uid, '+ 
      'role_uid, '+ 
      'user_name, '+ 
      'enabled, '+ 
      'full_name, '+ 
      'user_email '+ 
      'FROM vw_usr_users '+ 
      'where user_name = '+QuotedStr(AUserName)+' and enabled = ''Y'' and user_password = md5('+QuotedStr(APassword)+');'); 
     ShowDebugSQL(zq.SQL); 
     ShowMessage(IntToStr(zq.FieldCount)); 
     ShowMessage(zq.FieldByName('role_uid').AsString); 
     if not zq.IsEmpty then 
     begin 
     if zq.FieldByName('role_uid').AsString = '' then 
     begin 
      MessageDlg('Error','User have no role...',mtError, [mbOK], 0); 
     end 
     else 
     begin 
      Self.FId:=zq.FieldByName('uid').AsString; 
      Self.FUserName:=AUserName; 
      Self.FPassword:=APassword; 
      Self.fEnabled:= zq.FieldByName('enabled').AsString = 'Y'; 
      Self.fRoleID:=zq.FieldByName('role_uid').AsString; 
      Self.FRoleName:=zq.FieldByName('role_name').AsString; 
      Self.FFullName:= zq.FieldByName('full_name').AsString; 
      Self.FEmail:= zq.FieldByName('user_email').AsString; 
      Self.Log(LOG_ACTIVITY_LOGIN); 
      Result := True; 
     end; 
    end 
    //...... 

• ExecSQL является вспомогательной функцией, создать TZQuery экземпляр, назначать соединение и SQL, а затем открыть его.

Когда я запускаю код выше, появляется сообщение об ошибке, указывающее, что поле 'role_uid' не найдено.

и

ShowMessage(IntToStr(zq.FieldCount)); 

отображается только 6 полей, но помощник ShowDebugSQL я сделал, чтобы показать SQL в памятке

ShowDebugSQL(zq.SQL); 

дал мне ожидать SQL

и правильный результат, как я тестировал на pgAdmin:

Я тестировал получившийся список полей с помощью петли и получили только 6 полей. Пожалуйста, помогите мне указать, что не так с моим кодом. Большое спасибо.

Answer 1

Zeos не распознает поля PostgreSQL типа UUID. Поля UUID должны быть заполнены типом до символов, различающихся (36), чтобы сделать их доступными на наборах данных Zeos.

zq := Query('SELECT '+ 
     'role_name, '+ 
     'role_enabled, '+ 
     //--------------------------- 
     'uid::varchar(36) as uid, '+ 
     'role_uid::varchar(36) as role_uid, '+ 
     //--------------------------- 
     'user_name, '+ 
     'enabled, '+ 
     'full_name, '+ 
     'user_email '+ 
     'FROM vw_usr_users '+ 
     'where user_name = '+QuotedStr(AUserName)+' and enabled = ''Y'' and user_password = md5('+QuotedStr(APassword)+');', False);