要按照插入顺序从Mnesia中检索数据，可以使用select/2函数来检索数据，然后使用orddict:fetch/2函数按照插入顺序进行排序。

下面是一个示例代码：

-module(mnesia_retrieve).
-export([retrieve_data/0]).

-include_lib("stdlib/include/qlc.hrl").

% 创建Mnesia表格
create_table() ->
    mnesia:create_table(test_table, [
        {attributes, record_info(fields, test_record)},
        {disc_copies, [node()]},
        {record_name, test_record}
    ]).

% 插入示例数据到Mnesia表格
insert_data() ->
    mnesia:transaction(fun() ->
        F = fun() ->
            lists:foreach(fun(X) ->
                mnesia:write(X)
            end, generate_data(10)) end,
        mnesia:activity(transaction, F, mnesia_frag)
    end).

% 生成示例数据
generate_data(N) ->
    lists:map(fun(I) ->
        #test_record{id = I, value = "Value " ++ integer_to_list(I)}
    end, lists:seq(1, N)).

% 按照插入顺序检索数据
retrieve_data() ->
    mnesia:transaction(fun() ->
        Q = qlc:q([X || X <- mnesia:table(test_table)]),
        {atomic, Data} = qlc:e(Q),
        SortedData = lists:sort(fun(A, B) ->
            {ATime, _} = mnesia:time(A),
            {BTime, _} = mnesia:time(B),
            ATime < BTime
        end, Data),
        lists:foreach(fun(X) ->
            io:format("~p~n", [X])
        end, SortedData)
    end).

在这个示例代码中，首先我们创建了一个Mnesia表格test_table，然后插入了一些示例数据。

接下来，在retrieve_data/0函数中，我们使用qlc:q/1函数来创建一个查询，该查询选择了所有的数据。然后，我们使用qlc:e/1函数执行查询，并将结果存储在变量Data中。

然后，我们使用lists:sort/2函数对数据进行排序，排序函数比较了每个记录的插入时间。最后，我们使用lists:foreach/2函数遍历排序后的数据，并打印每个记录。

要运行这个示例，你需要先创建一个Mnesia数据库并启动它，然后调用create_table/0和insert_data/0函数来创建表格并插入数据。最后，调用retrieve_data/0函数来检索并打印按照插入顺序排序的数据。