在Purescript中，Applicative函子可以通过purescript-control库来实现。下面是一个使用Applicative函子和记录的代码示例：

首先，确保已经在项目中安装了purescript-control库：

bower install purescript-control

然后，可以创建一个Applicative函子实例的记录类型：

module Main where

import Prelude
import Control.Applicative (class Applicative)

-- 创建一个记录类型
newtype Person = Person
  { name :: String
  , age :: Int
  }

-- 为记录类型实现 Applicative 函子实例
instance applicativePerson :: Applicative Person where
  pure a = Person { name: "", age: 0 }
  (Person f) <*> (Person a) = Person
    { name: f.name <> a.name
    , age: f.age + a.age
    }

main :: Effect Unit
main = do
  let person1 = Person { name: "Alice", age: 25 }
  let person2 = Person { name: "Bob", age: 30 }
  let combinedPerson = (pure (<>) :: Person) <*> person1 <*> person2
  logShow combinedPerson

在上面的代码中，我们首先创建了一个名为Person的记录类型。然后，我们为Person类型实现了Applicative函子实例。在pure函数中，我们创建了一个默认的空Person对象。在<*>函数中，我们将两个Person对象的name字段和age字段进行了组合。

在main函数中，我们创建了两个Person对象，分别为person1和person2。然后，我们使用<*>操作符将两个Person对象进行了组合。最后，我们使用logShow函数打印了组合后的combinedPerson。

可以使用spago build命令来构建和运行该示例代码。