Gestinux Forum

Code: Select all

//----------------------------------------------------------
// Returns the Sql keywords corresponding to a DataType
//----------------------------------------------------------
function TGTable.FieldTypeToSql(const aField: TField;
  const aProtocol: TDBMSType): string;

begin
  case aField.DataType of
    ftString: Result := 'VARCHAR(' + IntToStr(aField.Size) + ')';
    ftFixedChar: Result := 'CHAR(' + IntToStr(aField.Size) + ')';
    ftBoolean: if aProtocol in [Dbms_mysql, dbms_Oracle] then
        Result := 'TINYINT'
      else
        Result := 'BOOLEAN';
    ftAutoInc: if aProtocol = Dbms_pgsql then
        Result := 'SERIAL'
      else
        Result := 'INTEGER AUTO_INCREMENT';
    ftSmallint: Result := 'SMALLINT';
    ftInteger: Result := 'INTEGER';
    ftLargeint: Result := 'BIGINT';
    ftDateTime: if aProtocol = Dbms_pgsql then
        Result := 'TIMESTAMP'
      else
        Result := 'DATETIME';
    ftDate: Result := 'DATE';
    ftMemo: if aProtocol = Dbms_pgsql then
        Result := 'TEXT'
      else
        Result := 'LONGTEXT';
    else
      raise Exception.Create('Unsupported field type for ' + aField.Name +
        ' Type=' + IntToStr(Ord(aField.DataType)));
  end;
end;

Code: Select all

  TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
    ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate,  ftTime, ftDateTime,
    ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo,
    ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar,
    ftWideString, ftLargeint, ftADT, ftArray, ftReference,
    ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface,
    ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd, ftFixedWideChar, ftWideMemo);

Code: Select all

  TFieldType = (ftUnknown, ftString, ftSmallint, ftInteger, ftWord,
    ftBoolean, ftFloat, ftCurrency, ftBCD, ftDate,  ftTime, ftDateTime,
    ftBytes, ftVarBytes, ftAutoInc, ftBlob, ftMemo, ftGraphic, ftFmtMemo,
    ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar,
    ftWideString, ftLargeint, ftADT, ftArray, ftReference,
    ftDataSet, ftOraBlob, ftOraClob, ftVariant, ftInterface,
    ftIDispatch, ftGuid, ftTimeStamp, ftFMTBcd, ftFixedWideChar, ftWideMemo);

Code: Select all

{ TBlobField }
  TBlobStreamMode = (bmRead, bmWrite, bmReadWrite);
  // This type is needed for compatibility. While it should contain only blob
  // types, it actually does not.
  // Instead of this, please use ftBlobTypes
  TBlobType = ftBlob..ftWideMemo deprecated 'Warning: Does not contain BLOB types. Please use ftBlobTypes.';

  TBlobField = class(TField)

Code: Select all

    object TableQueriesSqlCode: TMemoField
      DisplayWidth = 10
      FieldKind = fkData
      FieldName = 'SqlCode'
      Index = 3
      LookupCache = False
      ProviderFlags = [pfInUpdate, pfInWhere]
      ReadOnly = False
      Required = True
      BlobType = ftBlob
      Transliterate = False
    end

Code: Select all

    ftMemo {$IFDEF VER3_0}, ftBlob{$ENDIF}: if aProtocol = Dbms_pgsql then
        Result := 'TEXT'
      else
        Result := 'LONGTEXT';