lazarus/components/sqldbrest/demo/restmodule/dmmyrest.lfm

object MyRest: TMyRest
  OldCreateOrder = False
  Dispatcher = MyDispatcher
  Kind = wkOneShot
  Height = 237
  HorizontalOffset = 410
  VerticalOffset = 280
  Width = 595
  PPI = 96
  object MyDispatcher: TSQLDBRestDispatcher
    Active = True
    Connections = <    
      item
        ConnectionType = 'PostgreSQL'
        Name = 'Expenses'
        Password = 'Secret'
        UserName = 'Me'
        CharSet = 'UTF8'
        HostName = 'localhost'
        DatabaseName = 'expensetracker'
        Port = 0
      end>
    Schemas = <    
      item
        Schema = ExpensesSchema
      end>
    Authenticator = AuthBasic
    EnforceLimit = 0
    left = 88
    top = 56
  end
  object AuthBasic: TRestBasicAuthenticator
    AuthenticateUserSQL.Strings = (
      'select uID from users where (uLogin=:UserName) and (uPassword=:Password)'
    )
    left = 164
    top = 132
  end
  object ExpensesSchema: TSQLDBRestSchema
    Resources = <    
      item
        Fields = <        
          item
            FieldName = 'eid'
            PublicName = 'eid'
            GeneratorName = 'seqExpenseID'
            FieldType = rftLargeInt
            NativeFieldType = ftUnknown
            Options = [foInKey, foInInsert, foInUpdate, foOrderByDesc]
            MaxLen = 0
          end        
          item
            FieldName = 'euserfk'
            PublicName = 'euserfk'
            FieldType = rftLargeInt
            NativeFieldType = ftUnknown
            Options = [foInInsert, foInUpdate, foFilter, foOrderByDesc]
            MaxLen = 0
          end        
          item
            FieldName = 'eprojectfk'
            PublicName = 'eprojectfk'
            FieldType = rftLargeInt
            NativeFieldType = ftUnknown
            Options = [foInInsert, foInUpdate, foFilter, foOrderByDesc]
            MaxLen = 0
          end        
          item
            FieldName = 'etypefk'
            PublicName = 'etypefk'
            FieldType = rftLargeInt
            NativeFieldType = ftUnknown
            Options = [foInInsert, foInUpdate, foFilter, foOrderByDesc]
            MaxLen = 0
          end        
          item
            FieldName = 'eamount'
            PublicName = 'eamount'
            FieldType = rftFloat
            NativeFieldType = ftUnknown
            Options = [foInInsert, foInUpdate, foFilter, foOrderByDesc]
            MaxLen = 0
          end        
          item
            FieldName = 'edate'
            PublicName = 'edate'
            FieldType = rftDate
            NativeFieldType = ftUnknown
            Options = [foInInsert, foInUpdate, foFilter, foOrderByDesc]
            MaxLen = 0
          end        
          item
            FieldName = 'ecomment'
            PublicName = 'ecomment'
            FieldType = rftString
            NativeFieldType = ftUnknown
            Options = [foInInsert, foInUpdate, foFilter, foOrderByDesc]
            MaxLen = 1024
          end>
        TableName = 'expenses'
        ResourceName = 'expenses'
        AllowedOperations = [roGet, roPost, roPut, roDelete, roOptions, roHead]
      end    
      item
        Fields = <        
          item
            FieldName = 'etid'
            PublicName = 'etid'
            GeneratorName = 'seqExpenseTypesID'
            FieldType = rftLargeInt
            NativeFieldType = ftUnknown
            Options = [foInKey, foInInsert, foInUpdate, foOrderByDesc]
            MaxLen = 0
          end        
          item
            FieldName = 'etname'
            PublicName = 'etname'
            FieldType = rftString
            NativeFieldType = ftUnknown
            Options = [foInInsert, foInUpdate, foFilter, foOrderByDesc]
            MaxLen = 50
          end        
          item
            FieldName = 'etdescription'
            PublicName = 'etdescription'
            FieldType = rftString
            NativeFieldType = ftUnknown
            Options = [foInInsert, foInUpdate, foFilter, foOrderByDesc]
            MaxLen = 100
          end        
          item
            FieldName = 'etmaxamount'
            PublicName = 'etmaxamount'
            FieldType = rftFloat
            NativeFieldType = ftUnknown
            Options = [foInInsert, foInUpdate, foFilter, foOrderByDesc]
            MaxLen = 0
          end        
          item
            FieldName = 'etcost'
            PublicName = 'etcost'
            FieldType = rftFloat
            NativeFieldType = ftUnknown
            Options = [foInInsert, foInUpdate, foFilter, foOrderByDesc]
            MaxLen = 0
          end        
          item
            FieldName = 'etactive'
            PublicName = 'etactive'
            FieldType = rftBoolean
            NativeFieldType = ftUnknown
            Options = [foInInsert, foInUpdate, foFilter, foOrderByDesc]
            MaxLen = 0
          end>
        TableName = 'expensetypes'
        ResourceName = 'expensetypes'
        AllowedOperations = [roGet, roPost, roPut, roDelete, roOptions, roHead]
      end    
      item
        Fields = <        
          item
            FieldName = 'pid'
            PublicName = 'pid'
            GeneratorName = 'seqProjectsID'
            FieldType = rftLargeInt
            NativeFieldType = ftUnknown
            Options = [foInKey, foInInsert, foInUpdate, foOrderByDesc]
            MaxLen = 0
          end        
          item
            FieldName = 'pname'
            PublicName = 'pname'
            FieldType = rftString
            NativeFieldType = ftUnknown
            Options = [foInInsert, foInUpdate, foFilter, foOrderByDesc]
            MaxLen = 50
          end        
          item
            FieldName = 'pdescription'
            PublicName = 'pdescription'
            FieldType = rftString
            NativeFieldType = ftUnknown
            Options = [foInInsert, foInUpdate, foFilter, foOrderByDesc]
            MaxLen = 100
          end        
          item
            FieldName = 'pactive'
            PublicName = 'pactive'
            FieldType = rftBoolean
            NativeFieldType = ftUnknown
            Options = [foInInsert, foInUpdate, foFilter, foOrderByDesc]
            MaxLen = 0
          end>
        TableName = 'projects'
        ResourceName = 'projects'
        AllowedOperations = [roGet, roPost, roPut, roDelete, roOptions, roHead]
      end    
      item
        Fields = <        
          item
            FieldName = 'uid'
            PublicName = 'uid'
            GeneratorName = 'seqUsersID'
            FieldType = rftLargeInt
            NativeFieldType = ftUnknown
            Options = [foInKey, foInInsert, foInUpdate, foOrderByDesc]
            MaxLen = 0
          end        
          item
            FieldName = 'ulogin'
            PublicName = 'ulogin'
            FieldType = rftString
            NativeFieldType = ftUnknown
            Options = [foInInsert, foInUpdate, foFilter, foOrderByDesc]
            MaxLen = 50
          end        
          item
            FieldName = 'ufullname'
            PublicName = 'ufullname'
            FieldType = rftString
            NativeFieldType = ftUnknown
            Options = [foInInsert, foInUpdate, foFilter, foOrderByDesc]
            MaxLen = 100
          end        
          item
            FieldName = 'upassword'
            PublicName = 'upassword'
            FieldType = rftString
            NativeFieldType = ftUnknown
            Options = [foInInsert, foInUpdate, foFilter, foOrderByDesc]
            MaxLen = 100
          end        
          item
            FieldName = 'uactive'
            PublicName = 'uactive'
            FieldType = rftBoolean
            NativeFieldType = ftUnknown
            Options = [foInInsert, foInUpdate, foFilter, foOrderByDesc]
            MaxLen = 0
          end>
        TableName = 'users'
        ResourceName = 'users'
        AllowedOperations = [roGet, roPost, roPut, roDelete, roOptions, roHead]
      end>
    left = 268
    top = 68
  end
end