Typhon IDE上的TZQuery只返回6个应该返回8个字段的字段

Question

我正在使用Typhon IDE（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，然后打开它。

当我运行上面的代码时，我收到错误消息，指出该字段＆＃39; role_uid＆＃39;没找到。

和

ShowMessage(IntToStr(zq.FieldCount));

只显示了6个字段，但我在一个备忘录中显示了SQL的帮助程序ShowDebugSQL

ShowDebugSQL(zq.SQL);

给了我预期的SQL

并且我在pgAdmin上测试的结果是正确的：

我使用循环测试了结果字段列表，只得到了6个字段。请帮我指出我的代码有什么问题。非常感谢。

Answer 1

Zeos无法识别UUID类型的PostgreSQL字段。 必须将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);