1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
| %%%-------------------------------------------------------------------
| %%% @author panse
| %%% @copyright (C) 2018, <COMPANY>
| %%% @doc
| %%%
| %%% @end
| %%% Created : 06. 八月 2018 10:18
| %%%-------------------------------------------------------------------
| -module(person_info).
| -author("panse").
|
|
| %%% 底库人员信息
| -record(person_info, {id, personName, age, sex, idCard, phoneNum, create_time, update_time, create_by}).
|
| -include_lib("stdlib/include/ms_transform.hrl").
| -include_lib("stdlib/include/qlc.hrl").
|
| %% API
| -export([create_personInfo/2, add_personInfo/7, del_personInfo/2]).
| -export([findAllpersonInfo/1, personInfoFormat2Mat/1, findPersonInfo/2]).
| -export([findPersonInfo/2]).
|
| %%% 人员信息
| create_personInfo(Nodes, TableName) ->
| Ret = mnesia:create_table(TableName,
| [{disc_copies, Nodes},
| {attributes, record_info(fields, person_info)},
| {record_name, person_info}
| %% ,{index, [#device_info.id]}
| ]),
| io:format("create_personInfo Ret=~p~n", [Ret]),
| syncTool:changeTableConfig(Nodes, TableName),
| %% mnesia:change_table_copy_type(TableName, node(), disc_copies),
| Ret.
|
| add_personInfo(TableName, ID, PersonName, Age, Sex, IdCard, PhoneNum) ->
| CreateUser = node(),
| F = fun() ->
| mnesia:write(TableName, #person_info{id = ID, personName = PersonName, age = Age, sex = Sex, idCard = IdCard,
| phoneNum = PhoneNum, create_time = syncTool:getTimeStr(), update_time = syncTool:getTimeStr(),
| create_by = CreateUser}, write)
| end,
| Ret = mnesia:activity(transaction, F),
| if
| Ret == ok ->
| Result = ID;
| true ->
| Result = ''
| end,
| io:format("add_personInfo ~p~n", [Ret]),
| Result.
|
| %%根据id删除记录
| del_personInfo(TableName, ID) ->
| mnesia:transaction(
| fun() ->
| mnesia:delete({TableName, ID})
| end).
|
| findAllpersonInfo(TableName) ->
| F = fun() ->
| qlc:e(qlc:q([{ID, PersonName, Age, Sex, IdCard, PhoneNum, CreateTime, UpdateTime, CreateUser}
| || #person_info{id = ID, personName = PersonName, age = Age, sex = Sex, idCard = IdCard, phoneNum = PhoneNum,
| create_time = CreateTime, update_time = UpdateTime, create_by = CreateUser} <- mnesia:table(TableName)]))
| end,
| mnesia:activity(transaction, F).
|
| personInfoFormat2Mat([]) ->
| [];
| personInfoFormat2Mat(_ExpertiseList = [AREC | T]) ->
| %%id, personName, age, sex, idCard, phoneNum, create_time, update_time, create_by, del_flag
| TemMaps = #{"id" => element(1, AREC), "personName" => element(2, AREC), "age" => element(3, AREC),
| "sex" => element(4, AREC), "idCard" => element(5, AREC), "phoneNum" => element(6, AREC),
| "create_time" => element(7, AREC), "update_time" => element(8, AREC), "create_by" => element(9, AREC)
| },
| [maps:to_list(TemMaps) | personInfoFormat2Mat(T)].
|
| %%#todo return ->map ->list
| findPersonInfo(TableName, Expertise) ->
| F = fun() ->
| qlc:e(qlc:q([{ID, PersonName, Age, Sex, IdCard, PhoneNum, CreateTime, UpdateTime, CreateUser}
| || #person_info{id = ID, personName = PersonName, age = Age, sex = Sex, idCard = IdCard, phoneNum = PhoneNum,
| create_time = CreateTime, update_time = UpdateTime, create_by = CreateUser} <- mnesia:table(TableName),
| ID =:= Expertise]))
| end,
| mnesia:activity(transaction, F).
|
|
