好用的族谱编制软件支持打印

易语言 2020-08-20 13:20:05

好用的族谱编制软件支持打印

_启动窗口.记录集1.打开 (“select * from tree”, #SQL语句, )
.计次循环首 (_启动窗口.记录集1.记录数量, )
_启动窗口.记录集1.读整数 (“父位置索引”, 取出人员父位置索引)
.如果真 (取出人员父位置索引 = 本人位置索引)
返回文本 = 返回文本 + 字符 (#Tab键)
_启动窗口.记录集1.读文本 (“本人姓名”, 取出人员本人姓名)
返回文本 = 返回文本 + 取出人员本人姓名
.如果真结束
_启动窗口.记录集1.到下一条 ()
.计次循环尾 ()

临时文本 = 取文本中间内容 (树型框1.取项目文本 (树型框1.现行选中项), , “[”, 是否成功)
.如果真 (是否成功 = 假)
临时文本 = 树型框1.取项目文本 (树型框1.现行选中项)
.如果真结束
.如果真 (临时姓名 = 临时文本)
临时文本 = 取文本中间内容 (树型框1.取项目文本 (树型框1.取父项目 (树型框1.现行选中项)), , “[”, 是否成功)
.如果真 (是否成功 = 假)
临时文本 = 树型框1.取项目文本 (树型框1.取父项目 (树型框1.现行选中项))